Delphi и "Удаоенный рабочий стол"

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by Zitt, 31 May 2009.

  1. Zitt

    Zitt Elder - Старейшина

    Joined:
    7 May 2006
    Messages:
    737
    Likes Received:
    270
    Reputations:
    59
    Delphi и "Удаленный рабочий стол"

    Реально ли? (если то как) написать клиент для виндовского удаленного раб стола... тоесть, чтобы в проге вбиваешь ип, логин\пасс она заходила на и выполняла команды не удаленном компе....
     
    #1 Zitt, 31 May 2009
    Last edited: 31 May 2009
  2. Zitt

    Zitt Elder - Старейшина

    Joined:
    7 May 2006
    Messages:
    737
    Likes Received:
    270
    Reputations:
    59
    радмин разве умеет к стандартному урс подключаться?
     
  3. Zitt

    Zitt Elder - Старейшина

    Joined:
    7 May 2006
    Messages:
    737
    Likes Received:
    270
    Reputations:
    59
    что вобще не рально такое написать ?(
     
  4. aqqa

    aqqa Banned

    Joined:
    12 Jul 2008
    Messages:
    96
    Likes Received:
    16
    Reputations:
    3
    Попробуй такую шнягу....
    Option Explicit
    On Error Resume Next
    Dim objReg, objWMIService, objItem, colItems
    Dim strComputer, strKeyPath, strValueName, strValue
    Const HKEY_LOCAL_MACHINE = &H80000002

    If WScript.Arguments.Count <> 1 Then
    strComputer ="."
    InputBox("Enter machine name you want to " &_"enable Remote Desktop", "Machine Name?", "")
    If strComputer = "" Then
    Call cleanUP
    End If
    Else
    strComputer = WScript.Arguments(0)
    End If

    Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
    strComputer & "\root\default:StdRegProv")
    If Err.Number <> 0 Then
    Wscript.Echo Err.Number & " The remote machine (" & strComputer & ")" &_
    " is unavailable or access denied."
    Err.Clear
    Call cleanUP
    End If

    strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion"
    strValueName = "CurrentVersion"
    objReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValu e

    If strValue >= 5.1 Then
    strKeyPath = "SYSTEM\CurrentControlSet\Control\Terminal Server"
    strValueName = "fDenyTSConnections"
    objReg.GetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValu e
    If strValue = 0 Then
    Wscript.Echo "Remote Desktop is already enabled on: " & strComputer
    Call cleanUP
    Else
    strValue = 0
    objReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValu e
    Wscript.Echo "Remote Desktop was enabled on: " & strComputer
    Call cleanUP
    End If
    Else
    Wscript.Echo "The remote machine (" & strComputer & ")" &_
    "is not Windows XP or Windows 2003"
    Call cleanUP
    End If


    Sub cleanUP
    Set strComputer = Nothing
    Set strKeyPath = Nothing
    Set strValueName = Nothing
    Set strValue = Nothing
    Set stdOut = Nothing
    Set objReg = Nothing
    WScript.Quit
    End Sub
     
  5. fl00der

    fl00der Moderator

    Joined:
    17 Dec 2008
    Messages:
    1,028
    Likes Received:
    307
    Reputations:
    86
    aqqa, а тебе вот не кажется, что твой код на VB, а автору надо на дельфях?
    Мне это тоже интересно. Неужели никто не пробывал "взломать" RDP-протокол? Поидее можно было бы сделать сетевого червя, который распространялся бы по нему и записывал/отправлял логи куда-нибудь. Для радмина такая вещь есть.
     
    _________________________
  6. МongBa†

    МongBa† Member

    Joined:
    12 May 2009
    Messages:
    66
    Likes Received:
    12
    Reputations:
    0
    Вот как раз ковыряюсь...
    статейка что и как: http://www.delphisources.ru/pages/faq/base/ts_client.html
    стабильно рабочий mstscax.dll: http://dump.ru/file/2839944 , более поздние версии глючат (
     
  7. Joker-jar

    Joker-jar Elder - Старейшина

    Joined:
    11 Mar 2007
    Messages:
    581
    Likes Received:
    205
    Reputations:
    37
    Ищи реализацию RDP на Delphi
     
  8. aqqa

    aqqa Banned

    Joined:
    12 Jul 2008
    Messages:
    96
    Likes Received:
    16
    Reputations:
    3
    Ты прям предо мной америку открыл....
    Раз тебе интересно сиди разбирайся!
    Вам, епт, готовый код подавай с полными коментариями на русском языке,а вы потом на форме название поменяеете и как всегда в ублюдские цвета раскрасите......программисты бля! Хакеры нах!
     
    3 people like this.
  9. Dr.Gonzo

    Dr.Gonzo Member

    Joined:
    26 Feb 2009
    Messages:
    29
    Likes Received:
    9
    Reputations:
    5
    2Zitt: Берешь клиент-серверное приложение простое на Indy.
    составляешь список команд, добавляешь шифрование если надо, потом просто делаешь скрины экрана и шлешь клиенту с интервалом, а клиентское ПО определяет координаты мыши и шлет серваку, сервак в свою очередь двигает мышь.
    Достаточно разбить свою задачу на ряд маленьких подзадачь и постепенно их реализовать.
    А если интересен пример простенького приложения на Delphi7, пиши в личку, были где-то наработки
     
  10. Zitt

    Zitt Elder - Старейшина

    Joined:
    7 May 2006
    Messages:
    737
    Likes Received:
    270
    Reputations:
    59
    Пасиб всем.. Буду смареть..
     
  11. fl00der

    fl00der Moderator

    Joined:
    17 Dec 2008
    Messages:
    1,028
    Likes Received:
    307
    Reputations:
    86
    Спасибо тебе, буду тоже разбираться
    Ну ты конечно прям такой дерзкий, но всеже остынь немного. Мне комменты не нужны, и раскрашивать я ничего не собираюсь.
     
    _________________________
  12. AquaKlaster

    AquaKlaster Active Member

    Joined:
    9 Mar 2009
    Messages:
    0
    Likes Received:
    204
    Reputations:
    23
    Спасиб мне тоже помогло!
     
    3 people like this.
  13. akahaos

    akahaos Elder - Старейшина

    Joined:
    5 May 2008
    Messages:
    0
    Likes Received:
    1
    Reputations:
    0
    У кого-нибуди работает MsRdpClient1.AdvancedSettings2.ClearTextPassword?
    Сколько не пробовал, все время ошибку выдает: Интерфейс не поддерживается.
    Хотя на VB6, точно такойже код и таже версия библиотеки mstscax, все прекрасно работает
     
  14. ca5per

    ca5per New Member

    Joined:
    14 Jul 2009
    Messages:
    1
    Likes Received:
    2
    Reputations:
    0
    deleted
     
    #14 ca5per, 16 Jul 2009
    Last edited: 7 Oct 2011
  15. St0nX

    St0nX Elder - Старейшина

    Joined:
    19 May 2007
    Messages:
    257
    Likes Received:
    46
    Reputations:
    0
    rfc
    http://www.faqs.org/rfcs/rfc908.html
    http://www.faqs.org/rfcs/rfc1151.html
     
  16. -[БуШ]-

    -[БуШ]- New Member

    Joined:
    11 Jul 2009
    Messages:
    9
    Likes Received:
    0
    Reputations:
    0
    aqqa, +1
    а нафига, аналог радмина писать? чё команды уже неакктуальны либа? Пишешь серверную часть, которая должна оповестить о начале работы и открыть порт. потом вбиваешь список команд, и то что они должны делать. и с клиента шлёшь запросы с определённой командой. хотя хрена я распинаюсь - это стандартный троян.
     
  17. ca5per

    ca5per New Member

    Joined:
    14 Jul 2009
    Messages:
    1
    Likes Received:
    2
    Reputations:
    0
    deleted
     
    #17 ca5per, 16 Jul 2009
    Last edited: 7 Oct 2011
  18. mr. ZetRikS

    mr. ZetRikS New Member

    Joined:
    17 Jul 2009
    Messages:
    45
    Likes Received:
    2
    Reputations:
    0
    А я в своё время помнится писал что то подобное, реализовал только видеонаблюдение, а команды в принципе просто реализовать, статей полно
    спроси у гугла как написать backdoor на Delphi
    А видео наблюдение я реализовывал примерно так:
    Делал скрины примерно раз в 100 мс и сжимал их, а потом пересылал на законнекченый адрес клиента... сервер висел на так сказать заражённой машине...
     
  19. ca5per

    ca5per New Member

    Joined:
    14 Jul 2009
    Messages:
    1
    Likes Received:
    2
    Reputations:
    0
    deleted
     
    #19 ca5per, 17 Jul 2009
    Last edited: 7 Oct 2011
  20. AKYLA

    AKYLA Elder - Старейшина

    Joined:
    29 Nov 2007
    Messages:
    108
    Likes Received:
    35
    Reputations:
    6
    Где-то валялся пример даже удаленное управление как у Radmin, но проблема в таких программах то чего я так и не нашел и увы не смог сам осилить, это то, что бы не весь снимок отсылать каждый раз, а только изменения на рабочем столе, без этого все будет очень медленно, даже по локалке.
    Так что если кто может поделится подобным кодом, буду очень благодарен, тогда возможно и будет реализация и можно будет выложить.
     
Loading...