[Borland Delphi] Fake Mailer

[c0smyn]

1. Adaugati pe form un Idsmtp, Idmessage, Memo si un button.

2. Dam 2click pe button si punem acest cod

with IdMessage1 do
  begin

From.Address := 'fake_address@yahoo.com';
From.Name := 'fake_name';
Subject := 'Subject';
Sender.Address := 'fake_address@yahoo.com';
Sender.Name := 'fake_name';
ReplyTo[0].Address := 'fake_address@yahoo.com';
ReplyTo[0].Name := 'fake_name';
Recipients[0].Address := 'VICTIM_MAIL@yahoo.com';
ReceiptRecipient.Address := 'VICTIM_MAIL@yahoo.com';
Body := memo1.lines;

  end;

with IdSMTP1 do
  begin

Host := 'mail.hotmail.com';
UserName := 'your_user@hotmail.com';
Password := 'your_password';
Port := 25;
Connect;

{Send Mail}
IdSMTP1.Send(IdMessage1);
if connected = true then Disconnect;
ShowMessage('Mesaj Trimis!');
{Send Mail}

  end;

Trebuie sa folositi indy 10 pentru a putea compila proiectu.

Enjoy