Delphi и "Удаленный рабочий стол" Реально ли? (если то как) написать клиент для виндовского удаленного раб стола... тоесть, чтобы в проге вбиваешь ип, логин\пасс она заходила на и выполняла команды не удаленном компе....
Попробуй такую шнягу.... 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
aqqa, а тебе вот не кажется, что твой код на VB, а автору надо на дельфях? Мне это тоже интересно. Неужели никто не пробывал "взломать" RDP-протокол? Поидее можно было бы сделать сетевого червя, который распространялся бы по нему и записывал/отправлял логи куда-нибудь. Для радмина такая вещь есть.
Вот как раз ковыряюсь... статейка что и как: http://www.delphisources.ru/pages/faq/base/ts_client.html стабильно рабочий mstscax.dll: http://dump.ru/file/2839944 , более поздние версии глючат (
Ты прям предо мной америку открыл.... Раз тебе интересно сиди разбирайся! Вам, епт, готовый код подавай с полными коментариями на русском языке,а вы потом на форме название поменяеете и как всегда в ублюдские цвета раскрасите......программисты бля! Хакеры нах!
2Zitt: Берешь клиент-серверное приложение простое на Indy. составляешь список команд, добавляешь шифрование если надо, потом просто делаешь скрины экрана и шлешь клиенту с интервалом, а клиентское ПО определяет координаты мыши и шлет серваку, сервак в свою очередь двигает мышь. Достаточно разбить свою задачу на ряд маленьких подзадачь и постепенно их реализовать. А если интересен пример простенького приложения на Delphi7, пиши в личку, были где-то наработки
Спасибо тебе, буду тоже разбираться Ну ты конечно прям такой дерзкий, но всеже остынь немного. Мне комменты не нужны, и раскрашивать я ничего не собираюсь.
У кого-нибуди работает MsRdpClient1.AdvancedSettings2.ClearTextPassword? Сколько не пробовал, все время ошибку выдает: Интерфейс не поддерживается. Хотя на VB6, точно такойже код и таже версия библиотеки mstscax, все прекрасно работает
aqqa, +1 а нафига, аналог радмина писать? чё команды уже неакктуальны либа? Пишешь серверную часть, которая должна оповестить о начале работы и открыть порт. потом вбиваешь список команд, и то что они должны делать. и с клиента шлёшь запросы с определённой командой. хотя хрена я распинаюсь - это стандартный троян.
А я в своё время помнится писал что то подобное, реализовал только видеонаблюдение, а команды в принципе просто реализовать, статей полно спроси у гугла как написать backdoor на Delphi А видео наблюдение я реализовывал примерно так: Делал скрины примерно раз в 100 мс и сжимал их, а потом пересылал на законнекченый адрес клиента... сервер висел на так сказать заражённой машине...
Где-то валялся пример даже удаленное управление как у Radmin, но проблема в таких программах то чего я так и не нашел и увы не смог сам осилить, это то, что бы не весь снимок отсылать каждый раз, а только изменения на рабочем столе, без этого все будет очень медленно, даже по локалке. Так что если кто может поделится подобным кодом, буду очень благодарен, тогда возможно и будет реализация и можно будет выложить.
