RAT

‫‪HaCkEr Dz‬‬ ‫1‬ ‫ا ـ ‪ RAT‬ـ ‪Delphi‬‬ ‫ا‬





‫نا‬ ‫ا ا‬



‫...‬ ‫م‬ ‫ا‬



‫ه ا ا رس‬ ‫ان ء ا‬ ‫..‬ ‫ا‬ ‫ر‬ ‫ةوا م‬ ‫وا‬ ‫ا وا‬

‫‪Remote administration‬‬ ‫ا‬ ‫ا‬ ‫ا ا ـ ‪RAT‬‬ ‫آ‬

‫ت:‬ ‫ح ه ا ا رس ا أر‬ ‫‪tool‬‬



‫ل.‬ ‫1- ا‬

‫ا ـ ‪ Server‬ا ا ـ ‪. Client‬‬ ‫2-‬

‫ا ـ ‪ Client‬ا ا ـ ‪. Server‬‬ ‫3- ر‬

‫ا ـ ‪. CD-ROM‬‬ ‫4-‬



‫إ‬ ‫ر‬ ‫ون‬ ‫ا‬ ‫ضآ‬ ‫ا‬ ‫ا ا ـ ‪Server‬‬ ‫آ ها‬

‫آ‬ ‫تا‬ ‫أ‬ ‫ا‬ ‫ح‬ ‫هاا‬ ‫وإ ا ف‬

‫ا ـ ‪.Api‬‬ ‫يه آ‬ ‫ا‬ ‫إ‬ ‫ا رس إن ء ا أ‬



‫وى‬ ‫و و ..‬ ‫ت ا ـ ‪ indy‬أ‬ ‫ل‬ ‫ا‬ ‫ا ـ ‪Socket‬‬ ‫ا رس‬

‫آ ان ‪Socket‬‬ ‫و‬ ‫‪indy‬‬ ‫لا‬ ‫ا‬ ‫ا ـ ‪ Socket‬ا‬ ‫ذا‬ ‫ا‬

‫ـ‪. Socket‬‬ ‫ت ا ـ‪ indy‬ه‬ ‫أن‬ ‫...و‬ ‫.وا‬ ‫آ‬



‫‪www.delphi4arab.com‬‬ ‫ا‬ ‫ب‬ ‫دورة د‬ ‫:أ أ‬ ‫ض‬

‫ء‬ ‫آ‬ ‫ةو‬ ‫ءا‬ ‫حا‬ ‫ا ورة و إ‬ ‫أ ض‬ ‫و‬

‫...‬ ‫وع‬‫و‬ ‫ا ورة‬

‫أ ...‬

‫:‬ ‫ذ‬ ‫ف‬ ‫ا‬ ‫و ا رت أن أ‬ ‫أ ا‬ ‫ا‬ ‫ا‬

‫.‬ ‫:‬ ‫ا‬

‫ت : ‪. hacker dz‬‬ ‫ا ا‬

‫ا 2991 م .‬ ‫: 71‬ ‫ا‬

‫(.‬ ‫ن‬ ‫نوا‬ ‫ا و :ا ا ) ا‬

‫.‬ ‫ه‬ ‫ي‬ ‫ا م ا دم ان ء ا 2‬ ‫ي ...‬ ‫أو‬ ‫أدرس ا‬

‫.‬ ‫ا‬ ‫ا‬ ‫وا‬ ‫وا‬ ‫ا‬ ‫ا‬ ‫،‬ ‫،ا‬ ‫ا ا ت:ا‬

‫ا ر ان ء ا .‬ ‫ا‬ ‫ر ا‬



‫ا‬ ‫آ ة‬ ‫ا‬ ‫اه ا‬ ‫ا‬ ‫با ا ا‬ ‫ا‬ ‫ا وف‬

‫إن‬ ‫و‬ ‫ح‬ ‫ا‬ ‫لوإ‬ ‫ا‬ ‫أ‬ ‫قإ إ‬ ‫ا در‬

‫.‬ ‫يا‬ ‫وه‬ ‫ا‬ ‫ءا وا و‬



‫اذا‬ ‫ة‬ ‫ة‬ ‫ا‬ ‫آ ر‬ ‫أ‬ ‫وأ‬ ‫ىا‬

‫.‬ ‫ا‬ ‫ا‬ ‫زاد ا‬

‫آ ا ...‬ ‫أ‬



‫ب...‬ ‫د‬ ‫وه‬ ‫ه‬ ‫دة‬ ‫ه‬

HaCkEr Dz 2 Delphi ‫ ـ‬RAT ‫ا ـ‬ ‫ا‬





‫ا ول‬ ‫ا‬



‫ال‬ ‫ا‬ ‫ا‬ ‫ا اءات و ا ا‬ ‫ل‬ ‫ة‬ ‫ا روس ا‬ ‫ها ا‬

. ‫ءا‬ ‫إن‬ ‫ا‬ ‫ء وري و‬ ‫وع ه ا ا‬ ‫ا‬



‫لأ‬ ‫ . ا‬string ‫ دا‬string ‫ ـ‬position ‫دة‬ ‫م‬ ‫ : ه ا ا‬Pos ( ) -1

. ‫ة‬ ‫ت‬ ‫ا‬ ‫و‬ ‫ه ا ا‬

:‫ا ل‬

‫ا‬ ‫أ‬









: ‫دا‬ ‫ا‬ button ‫ثا‬





var

s : string;

PosInteger : integer;

begin

s := 'abcdefgh ';

PosInteger := pos ( 'd', s );

Memo1.Lines.Add ( IntToStr ( PosInteger ) );





‫ف‬ ‫ا‬ ‫4وه ا‬ ‫ أ دت ا‬Pos ‫ن 4 ن ا ا‬ PosInteger ‫ا‬

. ‫ ه ا ف ا ا‬d ، [ abcd ] ‫ذ‬ s ‫ا‬ d

‫أ ى‬ ‫ام ه ا ا‬ ‫إ‬



PosInteger := pos ( 'ef', s );



.s ‫ا‬ 5 ‫ ر‬ef ‫5 ن‬ ‫ا‬ Pos ‫ا ا‬



‫ ه ر‬Pos ‫ا ا‬ ‫ا‬ ‫نا‬ ‫ا‬ ef ‫آ ن ه ك أآ‬ :

.‫ه ا ا ت‬ ‫نا‬ ‫اس ه ا‬ ‫ا‬ ‫ا ت‬ ، ‫ ا ول‬ef



‫ه ا ا‬ ‫ آ‬string ‫ء‬ ‫دة‬ ‫م‬ ‫ : ه ا ا‬Copy ( ) -2

. ‫و ا ن ان ء ا‬ ‫لأ‬ ‫ل،وا‬ ‫وآ ةا‬ ‫ا‬

HaCkEr Dz 3 Delphi ‫ ـ‬RAT ‫ا ـ‬ ‫ا‬





:‫ل‬ ‫ا‬

: ‫دا‬ ‫ا‬ ‫ل ا ول و‬ ‫فآ دا‬ ‫ل ا ول‬ ‫رم ا‬





var

StringBit , S : string;

begin

S := 'abcdefgh';

Stringbit := copy (S , 2 , 4);

Memo1.Lines.Add ( Stringbit )





‫آ‬ ‫ا ع‬ ‫ه‬ ‫: ا‬

‫ىوه أ‬ ‫ا‬ ‫ا‬ ‫س‬ ‫آ‬S ‫ و ا‬StringBit

. ‫اءة‬

‫وه‬ ‫ 3( ا ول ه ا‬parameters) ‫ث ا‬ Copy ‫ح ا ا ، ا ا‬ ‫دا‬

‫فا‬ ‫دا‬ ‫ه‬ ‫وا‬ ‫ا‬ ‫ا ء‬ ‫ا ا ا‬ ‫ه‬ ‫وا‬S

. ‫ا ا‬

2 ‫ك 4 در ت ا اءا‬ b ‫2ا‬ ‫ إ اءا‬S ‫ا‬

. bcde ، e ‫ا 4 اي‬



‫ و‬string ‫ء‬ ‫ف‬ ‫ م‬procedure ‫إ اء‬ : Delete ( ) -3

. F1 ‫ و إ‬Delete ‫ا‬ ‫ا‬ ‫تا ى‬ ‫ا‬

:‫ل‬





var

S : String;

begin

S := '12154gssggs';

Delete ( S , 6 , 6 );

memo1.Lines.Add ( s );





‫ل‬ ‫ا‬ ‫وه‬ ‫ا‬ ‫ا ول‬ ‫ ا را‬Copy ‫را ا ا‬ Delete ‫اء‬ ‫ا‬

‫د‬ ‫ا‬ ‫فوا ا‬ ‫ا ا‬ index ‫ا آ‬ ‫ا‬ ‫ وا ا‬S ‫ا‬

. Index ‫ا ـ‬ ‫إ اءا‬ ‫فا‬ ‫ا‬

:

: ‫ا‬ ‫ا‬ Delete ‫اء‬ ‫لا‬ ‫إ‬



memo1.Lines.Add ( Delete ( s , 6 , 6 ) );

HaCkEr Dz 4 Delphi ‫ ـ‬RAT ‫ا ـ‬ ‫ا‬





‫أ‬ ‫ا‬ Copy ‫لا ا‬ ‫إ‬ ‫أي‬ ‫ إ اء‬Delete ‫أن‬ ‫وا‬

. ‫دا‬



‫ أو‬string ‫ف‬ ‫دا‬ ‫ا ا‬ ‫ : ه‬Lenght ( ) -4

. String ‫ه إ‬ ‫ ا ي‬array

‫ل‬





var

AString : string;

begin

AString := '|www.delphi4arab.com|hacker dz|';

memo1.Lines.Add( IntToStr ( Length ( Astring ) ) ) ;





integer ‫ام دا ا‬ ‫ا‬ memo1 ‫ا ن‬ 31 31 ‫ن‬ ‫ا‬

AString ‫لا‬ ‫د وه‬ ‫ ا دة‬length ‫ن ا ا‬ ‫وا‬ ‫ و ا‬string ‫ا‬

. ( ‫) ا رس2 ا ورة‬ ‫و ا‬

‫ ه‬Lenght ‫ و‬Pos ‫ و‬Delete ‫ و‬Copy ‫أ آ‬ ‫آ‬ ‫ار أن ن ا ح وا‬

‫وا‬ ، ‫دت‬ ‫ةوأ ل‬ ‫ت‬ ‫ا ان ا‬ ‫ا‬ ‫و‬ ‫دوال أو إ اءات‬

. ‫ب‬ ‫دورة د‬ ‫ان‬ ‫أ أ‬ ‫أي‬

:‫ا ح‬



‫ إذا آ ن‬False ‫د أو‬ ‫ إذا آ ن ا‬True ‫ : ه ا ا‬FileExists ( ) -5

. ‫ص‬ ‫و د‬ ،‫د‬

:‫ل‬

‫آ‬ ‫ا‬ ‫ ه‬J ‫ و‬Ctrl ‫ا‬ ‫ا‬ ifeb ‫اآ‬

.. ‫راا‬ ‫د‬ ‫ ا‬J + Ctrl ‫ا‬ ‫ا‬





if FileExists ('c:/fateh.txt') = True then

begin

Memo1.Lines.Add ('‫د‬ ‫)'ا‬

end

else

Memo1.Lines.Add ('‫د‬ ‫)'ا‬





‫د‬ ‫ ا‬Memo1 c:/ ‫ا ص‬ ‫د‬ fateh.txt ‫ا‬ ‫آنا‬

.‫د‬ ‫ا‬ ‫د‬ ‫و ا اذا آ ن ا‬

HaCkEr Dz 5 Delphi ‫ ـ‬RAT ‫ا ـ‬ ‫ا‬





‫ف‬ ‫ف‬ ‫م‬ ‫ إ ا‬FileExists ‫ا ا‬ ‫ : ه ا ا‬DeleteFile ( ) -6

‫إ دة ا‬ ‫د‬ ‫أو أن ا‬ ‫فا‬ ‫ و‬True ‫ا‬

. False

:‫ل‬

Edit1 ‫ن‬ ‫ا‬

: ‫ا رأ‬ ‫ثا‬



var

s : String;

begin

s := Edit1.Text;

if FileExists(s) then

begin

DeleteFile(s);

Memo1.Lines.Add ( ' ‫و‬ ‫)' ا دا‬

end

else

Memo1.Lines.Add ( '‫د‬ ‫نا‬ ‫فا‬ ...' )







: Memory Streams ‫ و‬File Streams -7



: ‫ت‬ ‫ا‬ ‫ل ة أ اض‬ ‫ا‬ ‫د‬

‫تا‬ ‫ل ا تآ‬ TFile Stream ‫ام‬ ‫إ‬ ‫د‬

.... ‫دة‬ ‫و ا اءة أ ء أ ى‬ ‫ا‬ ‫اص‬ ‫ا‬

‫ا‬ ‫إ ا اآ ة ا‬ ‫لا‬ TMemory Stream ‫ام‬ ‫إ‬ ‫د‬

.‫ا ل‬ ‫وأ ءأ ى‬ ‫توإ‬ RAM

:1‫ل‬

var

MS : TMemoryStream;

begin

MS := TMemoryStream.Create;

Memo1.Lines.SaveToStream(MS);

MS.Position := 0;

Memo2.Lines.LoadFromStream(MS);

MS.Free;

HaCkEr Dz 6 Delphi ‫ ـ‬RAT ‫ا ـ‬ ‫ا‬





RAT ‫ا ـ‬ ‫ءا‬ ‫ا‬



( ClientSocket ) Client ‫ا ـ‬ ‫ا‬



: Client ‫ و ا ـ‬Server ‫ا ـ‬ ‫ل‬ ‫1- إ اد ا‬



. ‫وا‬ ‫نا‬ ‫وري‬ Client 0.0.1 ‫ ا‬form ‫ ا ـ‬Caption -1

. Client1 ‫ا‬ ‫ا‬ ‫ و‬ClientSockt ‫ن‬ ‫ أ‬internet -2

. edit ‫ن‬ ‫ و إ‬button1 ‫زر‬ ‫3- أ‬

‫ح‬ ‫اءة‬ ‫ ا‬Port ‫ـ‬ Edit2 ‫ و‬ip ‫ـ‬ Edit1

. ‫ا رت و ا‬ ‫آ‬ ‫ف‬ ‫ت‬

. label ‫ا ـ‬ ‫4- إ‬



. ‫رم‬ ‫ا‬ ‫أ‬ ‫و‬









... ‫ل‬ ‫ا‬ ‫ر‬ ‫ل‬ ‫م زر ا‬ ‫ل‬ ‫ا‬ ‫زر‬ ‫ا‬ ‫ر‬



: ‫ا‬ ‫لأ‬ ‫زر ا‬ ‫ثا‬



if Button1.Caption = '‫ 'إ ل‬then

begin

Client1.Port := StrToInt (Edit2.Text);

Client1.Address := Edit1.Text;

Client1.Active := True;

end

else

begin

Client1.Active :=False;

end;

HaCkEr Dz 7 Delphi ‫ ـ‬RAT ‫ا ـ‬ ‫ا‬





. ‫ءا‬ ‫ان‬ ‫ و‬if else ‫ا‬ ‫ا‬ ‫ا‬

‫ اذا‬ClientSocket ‫أ اث ا ـ‬ ‫وا ن‬

:‫ل‬ ‫ثا‬



form1.Caption := 'Client 0.0.1 ! ';

Button1.Caption := '‫ل‬ ‫ا‬ ';



‫ل‬ ‫ا‬ ‫ا ر‬ ‫و‬ ‫رم ا‬ ‫ان ا‬ client ‫ و‬server ‫ال‬ ‫ل‬ ‫ا‬ ‫ان‬

‫ذ‬ ‫لو‬ ‫ان ا‬ ‫اذا آ ن ا‬ ‫ا ر نا‬ ‫ل اذا‬ ‫ا‬ ‫ا‬

. else ‫د ا ي‬ ‫ا‬



:‫ل‬ ‫و ا‬ ‫ث‬



form1.Caption:='Client 0.0.1 …‫ل‬ ‫;' ري ا‬

Button1.Caption :='‫ل‬ ‫ا‬ ';



:‫ل‬ ‫ا‬ ‫ث‬



form1.Caption:= 'Client 0.0.1 ‫ل‬ ‫ا‬ ';

Button1.Caption :='‫;'إ ل‬



: ‫ث‬



form1.Caption:='Client 0.0.1 … ';

Button1.Caption :='‫; 'إ ل‬



( ServerSocket ) Server ‫ا ـ‬ ‫ا‬



: ‫ أد‬Form ‫ا ـ‬ ‫م:أ‬ ‫ا‬









Server1 ‫ا‬ ‫ا‬ ‫ و‬ServerSocket ClientSocket ‫ل ا ن‬

: ‫زر‬ ‫ثا‬

HaCkEr Dz 8 Delphi ‫ ـ‬RAT ‫ا ـ‬ ‫ا‬







Server1.Port := StrToInt (Edit1.Text);

Server1.Active := True;

form1.Caption := 'Server 0.0.1 ... ‫; ' ري ا‬



: ‫زر‬ ‫ثا‬



Server1.Active := False;

Form1.Caption := 'Server 0.0.1 ';



ServerSocket ‫أ اث‬

‫اـ‬ ‫رم‬ ‫ان ا‬ ‫ا‬ ‫وث‬ ‫ث‬ ‫ل‬ ‫ا‬ ‫ل ث‬ ‫ثا‬ ‫أ آ‬

... ☺ Client



Client ‫ا ـ‬ ‫ إ‬Server ‫ا ـ‬ Client ‫ا ـ‬ ‫ا‬



:‫د‬ ‫أا وا‬

(‫رت‬ edit2 ‫و‬ edi1 ‫) ن‬Edit4 ‫ و‬Edit3 ‫ن‬ Edit ‫ن‬ 2 ‫أ‬

. DownloadAs ‫ ا‬Edit4 ‫إ‬ ‫ و‬ToDownload ‫ ا‬Edit3 ‫إ‬

‫، ر‬ ‫ا‬ ‫ر‬ DownloadAs ‫و‬ ‫ا‬ ‫ر‬ ToDownload

‫ر‬ ‫ا‬ ‫ر‬ ‫ ا‬Server ‫ا ـ‬ ‫د‬ ‫ا‬ ‫را‬ ‫أ‬ ‫ا‬

. Client ‫ ا ا ـ‬Server ‫ا ـ‬ Client ‫ز‬ ‫ا‬

. ‫ا‬ ‫زر و‬ ‫آ أ‬









‫ا‬ ‫تا‬ ‫را‬ ‫إ‬ ‫ أ‬Server ‫ا ـ‬ ‫ه ار ل ا‬ ‫ا نا ي‬

.‫ا ر‬

HaCkEr Dz 9 Delphi ‫ ـ‬RAT ‫ا ـ‬ ‫ا‬





: ‫ا ر‬ َ‫ث ا‬



if Client1.Active then {1}

begin

RemoteFile := ToDownload.Text; {2}

StoredLocalAs := DownloadAs.Text; {3}

Client1.Socket.SendText('' + RemoteFile); {4}



‫ع‬ ‫ آ‬StoredLocalAs ‫ و‬RemoteFile ‫ا‬ ‫جا‬ :

‫اـ‬ ‫ا‬ ‫إ اءات أ ى‬ Global varriable

: ‫ أ‬privat

RemoteFile, StoredLocalAs : string;



: ‫نا‬ ‫ا‬ ‫ا‬ ‫ح ا آ اد‬ ‫ا ن‬



. ‫أ‬ ‫آ‬ ‫}1{ ه‬

. RemoteFile ‫ا ي‬ ‫ا‬ ‫ا‬ ‫ر‬ {2}

.StoredLocalAs ‫ا ي‬ ‫ا‬ ‫ا‬ ‫ر‬ ‫ا‬ {3}

‫ر‬ ‫ب‬ REQSTFILE ‫ ا‬Server ‫ا ا ـ‬ ،‫}4{ ه ا ه أه آ د‬

: ‫ه اا‬ Server ‫ا ا ـ‬

c:/fateh.txt

‫ن‬ ‫ان‬ ‫ ه ا‬REQSTFILE ‫آ ان‬ ‫ آ ل‬c:/fateh.txt ‫: و‬

... ‫أي‬



( ServerSocket ) Server ‫ا ـ‬ ‫ا‬



.‫ب‬ ‫ا‬ ‫ا‬ ‫ه اا م،و‬ Server ‫د ا ا ـ‬ ‫ا ن‬

‫نا‬ ،‫ت‬ ‫ا‬ ‫ل ة ا اع‬ ‫ا‬ Server ‫ا ـ‬ ‫م‬ : ‫أو‬

... ‫ راح‬Server ‫ا ـ‬ Server ‫ا ا ـ‬ ‫ا د ه ر‬

: Server1 ‫ ا ي‬ServerSocket ‫ن‬ ‫ ا ص‬OnClientRead ‫ث‬





var

Buf :string; {1}

MsgLen , LenReceived :integer; {2}

begin

MsgLen := Socket.ReceiveLength; {3}

SetLength ( Buf , MsgLen ); {4}

LenReceived := Socket.ReceiveBuf ( buf [1] , MsgLen ); {5}

Buf := Copy ( Buf , 1 , LenReceived ); {6}

‫‪HaCkEr Dz‬‬ ‫01‬ ‫ا ـ ‪ RAT‬ـ ‪Delphi‬‬ ‫ا‬





‫د وا‬ ‫ء‬ ‫ا‬ ‫آ ه ا آ اد‬ ‫أ ا‬ ‫أن أو‬ ‫ح ا آ اد‬ ‫أو و‬

‫!!‬

‫‪var‬‬

‫;‪Buf :string‬‬

‫‪begin‬‬

‫;‪Buf := Socket.ReceiveText‬‬



‫آ ه‬ ‫جا‬ ‫ار ل‬ ‫ا‬ ‫ا‬ ‫ه ان ا‬ ‫اذا آ ه ا ا ء ؟ ا‬

‫را‬ ‫ا ا‬ ‫دي‬ ‫أي‬ ‫ا‬ ‫ا آ اد‬

‫ا د ا ه ر‬ ‫ا‬ ‫ض‬ ‫نا دا را‬ ‫ر ا‬

‫م‬ ‫ب و‬ ‫ج ا اآ اد‬ ‫و‬ ‫ل‬ ‫ج ا ـ ‪ Server‬ا إ‬

‫ت‬ ‫ل آ أ اع ا‬ ‫أي ا‬ ‫ت آ ا‬ ‫ا‬ ‫م اآ ادا‬ ‫ا‬

‫ح.‬ ‫ار ان اآ ن و‬ ‫ر‬ ‫ا ل ب‬



‫ح ا آ اد ا ن :‬ ‫ب‬ ‫ض‬



‫و‬ ‫تا د‬ ‫لا‬ ‫ا اآ ة ‪buffer‬‬ ‫ن‬ ‫جا‬ ‫}1{ :‬

‫ع ‪. String‬‬

‫ةا د .‬ ‫ا‬ ‫قإ‬ ‫و‬ ‫جإ‬ ‫ع ‪integer‬‬ ‫}2{ : م‬

‫ت‬ ‫اءة ل ا‬ ‫ع ‪integer‬‬ ‫‪MsgLen‬‬ ‫ا‬ ‫}3{ :‬

‫.‬ ‫ا‬ ‫تا‬ ‫ه‬ ‫ه ا‬ ‫ا‬ ‫ا د و‬

‫ل‬ ‫ا ـ ‪ Buf‬و‬ ‫ا اد‬ ‫ام ا ا ‪ SetLength‬ا‬ ‫م‬ ‫}4{ : ه‬

‫.‬ ‫تا‬ ‫ا‬

‫‪MsgLen‬‬ ‫ا ا ا‬ ‫اءة‬ ‫م‬ ‫‪ReceiveBuf‬‬ ‫ما نا ا ا‬ ‫}5{ :‬

‫‪ LenReceived‬دل آ‬ ‫ا‬ ‫‪ Buf‬و ه‬ ‫ا‬ ‫دة‬ ‫تا‬ ‫ا‬ ‫آ‬

‫ت ا وءة .‬ ‫ا‬

‫...‬ ‫ا‬ ‫أن‬ ‫}6{ : ه ا ا د آ‬

‫ا‬ ‫08‬ ‫‪Buf‬‬ ‫ه ا‬ ‫إذا ا دة ‪80 ReceiveLength‬‬

‫م ف أي‬ ‫ت زا ة و‬ ‫ن زا‬ ‫ه ‪LenReceived‬‬ ‫06‬

‫1 ا ‪ LenReceived‬ا ت‬ ‫ام ا ا ‪ Copy‬م‬ ‫ب‬ ‫ز دة‬

‫ا د و رآ ...‬ ‫أا حا‬ ‫... و ا‬ ‫ا‬



‫ه ا‬ ‫جا‬ ‫>‪ ‪‪', Buf ) = 1 then‬‬ ‫}1{‬

‫‪begin‬‬

‫;) 11 , 1 , ‪Delete ( Buf‬‬ ‫}2{‬

‫;‪RequestedFile := Buf‬‬ ‫}3{‬

‫;‪SendClientFile‬‬ ‫}4{‬

HaCkEr Dz 11 Delphi ‫ ـ‬RAT ‫ا ـ‬ ‫ا‬







: ‫ح ا آ اد‬

1 ‫ا‬ Pos ‫دة آ ن‬ ‫أن‬ : {1}

. ‫ا ا‬ ‫ا د‬

‫ي‬ Buf ‫ا ـ‬ ‫اذا‬ ‫ا‬ ‫م فا‬ : {2}

. c:/fateh.txt ‫ c:/fateh.txt ‫ا ر‬

‫ي‬ global ‫ع‬ String ‫ آ‬RequestedFile ‫جا‬ : {3}

. Buf ‫ى ا ـ‬

. ‫إر ل ا‬ ‫ول‬ ‫و ه ا اء ا‬ ‫دآ‬ ‫إ اء ا ي‬ : {4}



:‫اء‬ ‫ا‬

procedure TForm1.SendClientFile;

var

TheFileSize: integer;

FS : TFileStream;

begin

if FileExists ( RequestedFile ) then {1}

begin

try

FS := TFileStream.Create ( RequestedFile, fmOpenRead ); {2}

FS.Position := 0; {3}

TheFileSize := FS.Size; {4}

Server1.Socket.Connections[0].SendText {5}

('' + IntToStr ( TheFileSize ) + '|');

Server1.Socket.Connections[0].SendStream(FS); {6}

except

Server1.Socket.Connections[0].SendText('‫ار ل‬ ' );

end; {7}

end

else begin

Server1.Socket.Connections[0].SendText {8}

('.‫د‬ ‫;)'ا‬

end;

end;



: ‫ح ا آ اد ا ن‬ ‫آ‬

.‫د‬ ‫أن ا‬ ‫}1{ : ا‬

‫ أي‬File Name ‫او ء‬ ‫ا‬ TFileStream ‫ء‬ : {2}

‫ا‬ ‫را‬ ‫يا ن‬ RequestedFile ‫ا ا ا ول ) آ ان‬ ‫را‬

‫ه ا‬ ‫ا‬ ‫ا‬ ‫ا ا‬ ‫( ا‬ ‫ا د ا‬

( ‫ا هاا‬ ‫م‬ ) ‫و أ‬ ‫ا‬ ‫ أي أ‬fmOpenRead

‫آ‬ ‫او ا ق او‬ ‫ا‬ ‫ةد و‬ ‫ل ا ت ار ا‬ ‫ا‬

. F1

HaCkEr Dz 12 Delphi ‫ ـ‬RAT ‫ا ـ‬ ‫ا‬





... ‫ا ا‬ 0 ‫ ا‬TFileStream ‫ ـ‬positions ‫دة ا ـ‬ : {3}

TheFileSize ‫ا‬ ‫ه ا‬ ‫ و و‬FS ‫ا ص ـ‬ ‫ا‬ FS.Size : {4}

‫ه‬ ‫ ن ه ا ا‬FileSize ‫ و‬TheFileSize ‫ا‬ integer ‫ع‬

. ‫ا‬ ‫ا‬

| ‫ زا ا‬TheFileSize ‫ا‬ ‫ع‬ ‫م ر ل‬ : {5}

‫ر ل ق‬ Connections[0] ‫ان ء ا‬ ‫دوره‬

. ‫ا ول و ا ا‬ ‫ه ا ر لا ا‬ ‫ا‬ ‫ا‬

( ‫ا‬ 5545) 5545| : ‫ه اا‬ Client ‫ا ا ـ‬

... FS ‫ت‬ ‫ر ل‬ ‫ ق ا‬Stream ‫ر ل‬ ‫}6{ : ه ه ا‬

‫او‬ ‫وث أي‬ ‫ و‬try … except ‫}7{ : آ ا‬

... ‫ ر‬Client ‫ا‬

‫ا‬ ‫ا‬ ‫أ‬ ‫نهاا‬ if FileExists ( RequestedFile ) then ‫}8{ : آ‬

.... ‫وح‬ ‫ا‬

if FileExists ( RequestedFile ) then

begin



… ‫دة ه‬ ‫ا آ اد ا‬ ‫د‬ ‫آنا‬

…

…

…

…



end;

end ‫ةه‬ ‫ا آ اد و‬ ‫ه‬ ‫د‬ ‫ا‬

else begin

Server1.Socket.Connections[0].SendText ('.‫د‬ ‫;)'ا‬



.. ‫اء‬ ‫ه اا‬

Server ‫ا ـ‬ ‫ا‬ ‫ا نا‬ ‫ا‬ ‫ار‬

Client ‫دة ا‬



Client ‫ا ـ‬ ‫ إ‬Server ‫ا ـ‬ Client ‫ا ـ‬ ‫ا‬



. PBar ‫ و‬ProgressBar ‫ أ‬Win32 ‫، و‬Memo ‫أو أ‬









.‫ة‬ ‫رة‬

HaCkEr Dz 13 Delphi ‫ ـ‬RAT ‫ا ـ‬ ‫ا‬





‫اآ اد ا ـ‬ ‫ ه‬OnClientRead ‫ث‬ ‫ا‬ ‫ا آ اد‬ ‫ل ا‬ ‫م‬

. ‫آ‬ Server



var

Buf :string;

MsgLen , LenReceived :integer;

begin

MsgLen := Socket.ReceiveLength;

SetLength ( Buf , MsgLen );

LenReceived := Socket.ReceiveBuf ( buf [1] , MsgLen );

Buf := Copy ( Buf , 1 , LenReceived );



.. ‫جا نا ا ف‬

Server ‫ا ـ‬ ‫ا ت د‬ ‫ر يا‬ ‫م ي ء ىا‬ ‫ ا ص ا ن‬Client ‫إن ا ـ‬

‫ل‬ ‫أن‬ ‫ة‬ ‫ر ل‬ ‫ه إذا‬

‫ن‬ ‫ن‬ ‫أ‬ ‫م‬ ‫د اا ن‬ ‫..أ‬ ‫ل‬ ‫لإ ا‬ ‫ا‬

... ‫ء‬



: ‫ا‬ ‫ أ‬type ‫ا ـ‬



type

TClientStatus = (CSIdle, CSReceivingFile);



: ‫ا‬ ‫ أ‬Private ‫ا ـ‬ ‫ا ن‬



CState: TClientStatus;



‫ث‬ ‫ذ‬ ‫و‬ ‫ا ا‬ CSIDLe ‫ل‬ ‫ه ا‬ ‫جا‬ ‫ا نا ي‬

:‫ا د‬ َ

‫ رم أ‬OnCreate



CState := CSIdle;



. ‫ن أي‬ ‫أن‬ CState ‫:ا‬



‫5545| Server ‫ا ـ‬ ‫ا ن اذا ت ا‬

‫ا وا‬ ‫دة‬ ‫دة و اذا آ‬ ‫أن‬ Servre ‫ا ـ‬

: ‫ا‬ ‫أ‬ ‫ة ا دا‬ ‫لا‬

HaCkEr Dz 14 Delphi ‫ ـ‬RAT ‫ا ـ‬ ‫ا‬







if Pos('', Buf) = 1 then

begin

try

{1} FS := TFileStream.Create(StoredLocalAs, fmCreate or fmOpenWrite);

{2} TheFileSize := StrToInt( Copy(Buf, 12, Pos('|', Buf)-12 ) );

{3} Delete(Buf, 1, Pos('|', Buf));

{4} PBar.Max := TheFileSize;

{5} CState := CSReceivingFile;

except

{6} FS.Free;

Memo1.Lines.Add('** : ‫ا‬ ' + StoredLocalAs);

end;

end;





: FS ‫ و‬TheFileSize ‫ا‬ ‫جا‬



private

{ Private declarations }

TheFileSize: integer;

FS : TFileStream;





fmCreate or fmOpenWrite ‫ و‬TFileStream ‫ء‬ : {1}

.. ‫د‬ ‫د و ان آ ن‬ ‫ء ان‬ ‫أي‬

. ‫ا‬ ‫ل‬ ‫}2{ : ه ا ا د ه‬

‫5545| ‫ي‬ ‫ ا ي‬buf ‫ا‬

‫و‬ ‫ا‬ ‫ ‫وز ا رة‬ ‫21 أي أ‬

‫ه‬ ‫ه ا ا‬ pos ‫ا ا‬ ‫|ر ه اا‬ ‫ا‬

. pos ‫ا ا‬ ‫ا‬ ‫ص 21 ا‬ ‫م‬

‫5ا ر‬ ‫21 أي ا‬ ‫ح أ‬ 5545| ‫م ا ل‬

5 5 12-17 ‫(وها‬ ‫ن 71) ه ا ا ل و‬ ‫ر‬ ' |'

. ‫ار م .... رآ أ‬

.. ‫ت‬ ‫ا‬ ‫23424 ‫ف‬ : {3}

: 23424|%1*01%%11*%101*1%%

. %1*01%%11*%101*1%%

. ‫ا‬ ‫ه‬ ‫ ا‬Pbar ‫ا ـ‬ : {4}

. ‫ل‬ ‫إ‬ Client ‫ا ن ا ـ‬ : {5}

‫رر‬ ‫م‬ ‫ا اآ ة و‬ ‫م‬ ‫وث أي‬ : {6}

. ‫ ا ي أ‬memo‫ا ن‬



: ‫وآ‬ ‫لا‬ ‫ا آ اد‬ ‫ا ن‬

HaCkEr Dz 15 Delphi ‫ ـ‬RAT ‫ا ـ‬ ‫ا‬









case CState of {1}

CSReceivingFile: {2}

begin

try

PBar.StepBy(Length(Buf)); {3}

FS.Write(Buf[1], Length(Buf)); {4}

Dec(TheFileSize, Length(Buf)); {5}

if TheFileSize = 0 then {6}

begin

CState := CSIdle; {7}

FS.Free;

PBar.Position := 0;

Memo1.Lines.Add('** !‫ح‬ ‫;)'** ا‬

Buf := '';

end;

except

Memo1.Lines.Add('. ‫آ ا‬ ');

end; end;



‫لا‬ ‫ط‬ ‫وث أي‬ ‫ أي‬if ‫رة‬ ‫آ‬ : {1}

‫ ه‬case ‫رة ا ـ‬

.‫ا د‬

. case ‫ط ا رة‬ ‫}2{ : ه‬

. ‫تا‬ ‫ا‬ ‫ا‬ stepby ‫ه‬ ‫}3{ : إ‬

‫م‬ ‫و‬ ‫دا ا ا‬ ‫ج‬ TFileStream ‫ء ا ـ‬ : {4}

‫ت‬ ‫ا يا‬ ‫ا ءا‬ ‫ا‬ ‫ا لآ‬ ‫ا‬

‫ ر‬write method ‫ام ا ـ‬ ‫ه ا‬ ‫و‬ ‫و رة ا ى آ‬ ‫ان‬

‫ا‬ ‫ و ا‬buf [1] ‫أ‬ ‫ ا ص‬buf ‫ا ـ‬ ‫أ أ‬

. ‫عو د‬ ‫ا‬ ‫ج‬ 0 ‫ا‬

: ‫ا‬ ‫ةا‬ ‫ا روس ا‬ ‫ا ول‬ ‫رم ا‬



var

Buf : string;

begin

Buf:='0123456789';

memo1.Lines.Add( Buf [5] );

end;



‫ا‬ ‫ا‬ ‫ص‬ ‫ ا‬string ‫ا ا‬ ‫آ و‬ ‫و‬

‫و‬ ‫رر‬ ‫4 ا أي ر‬ ‫ا‬ ‫5ا ي‬ ‫ا‬ ‫ب‬ ‫ان‬

‫د اذا‬ ‫ا‬ ‫ا أس أ‬ ‫. دا و‬ ‫د‬ ‫دة و‬ ‫آ‬ 0 ‫ا‬

. ‫م‬ ‫ ا‬buf ‫ا و ـ‬ ‫ا‬ ‫اآ‬ ‫د‬ ‫ا‬

‫‪HaCkEr Dz‬‬ ‫61‬ ‫ا ـ ‪ RAT‬ـ ‪Delphi‬‬ ‫ا‬





‫‪i‬‬ ‫)‪dec(i‬‬ ‫ل ;1- ‪X := i‬‬ ‫دة‬ ‫ص 1 أو‬ ‫اء م‬ ‫}5{ : ه ا ا‬

‫م )3251,‪ 1523 dec(i‬آ ل و‬ ‫ده‬ ‫ص‬ ‫ع ‪ integer‬و‬

‫ةا د .‬ ‫ا ا‬ ‫و‬ ‫ا‬ ‫ا‬ ‫ا‬ ‫ا‬ ‫ا دأ‬

‫آ‬ ‫ا‬ ‫ا‬ ‫ا‬ ‫صا‬ ‫ا دا‬ ‫}6{ :‬

‫ذ .‬ ‫،وه‬ ‫‪ TheFileSize‬دل ا‬ ‫نا‬ ‫ا‬

‫لآ‬ ‫ا‬ ‫‪ ClientSocket‬ا‬ ‫م ر عو‬ ‫ا‬ ‫إ‬ ‫}7{ : و أ ا‬

‫لا‬ ‫إ‬ ‫ا‬ ‫و‬ ‫‪ FS‬و م ر ع ا ـ ‪ PBar‬ا ا‬ ‫و م‬ ‫أ‬

‫‪. buf‬‬ ‫د‬ ‫ه‬ ‫م فآ‬ ‫وأ او‬

‫ا اد‬ ‫ا‬ ‫ا‬ ‫رج‬ ‫ءآ‬ ‫ا نو‬

‫وأ‬ ‫ا ر‬ ‫‪ DownloadAs‬و‬ ‫‪ ToDownload‬و ن ا‬

‫ا ـ ‪ Server‬و‬ ‫1.0.0.721 و‬ ‫ا‬ ‫زك‬ ‫ذ‬ ‫ا‬

‫.‬ ‫ا‬

‫و‬ ‫ر ا‬ ‫اء أ ى‬ ‫دواء اع ا أس و أ‬ ‫ا ه ا‬

‫...‬ ‫و‬ ‫ا يوآ‬



‫‪Server‬‬ ‫ا ـ ‪ Client‬ا‬ ‫ر‬



‫‪Client‬‬ ‫ا ـ ‪ Server‬ا‬ ‫ا نه‬ ‫م‬ ‫ا ي‬

‫‪ Client‬ا ا ـ ‪. Server‬‬ ‫أي ر‬

‫ا‬ ‫‪ ToUpload‬و ا ـ ‪ Edit‬ا‬ ‫ا‬ ‫إ ا ـ ‪ Edit‬ا و‬ ‫ن ‪Edit‬‬ ‫زر و ا‬ ‫أ‬

‫‪. UploadAS‬‬









‫:‬ ‫ا‬ ‫أ‬ ‫ا رر‬ ‫ثا‬

HaCkEr Dz 17 Delphi ‫ ـ‬RAT ‫ا ـ‬ ‫ا‬





var

LocalFile :String;

FS2 :TFileStream;

TheFileSize :integer;

UploadingAs :String;

begin

if client1.Active then

begin

LocalFile := ToUpload.Text;

UploadingAs:= UpLoadAs.Text;

if FileExists(LocalFile) then

try

FS2:=TFileStream.Create(LocalFile,fmOpenRead);

FS2.Position:=0;

TheFileSize:=FS2.Size;

Client1.Socket.SendText(''+UpLoadingAs+'*'+

IntToStr(TheFileSize)+'|');

Memo1.Lines.Add('**… ‫;)'** ري ر ا‬

Client1.Socket.SendStream(FS2);

except

Memo1.Lines.Add('**‫ا ر ل‬ **');

end

else begin

Memo1.Lines.Add('**‫د‬ ‫ا‬ **') ;

end;

end;

end;



Server ‫ا ـ‬ ‫ إ‬Client ‫ا ـ‬ ‫ ر‬Server ‫ا ـ‬ ‫ا‬



OnClientRead ‫ث‬ ‫ا‬ ‫ أ‬Server ‫ا ـ‬ ‫ا‬ ‫ا ن‬



: ‫ات ا‬ ‫ا‬ ‫ا‬



private

{ Déclarations privées }

RequestedFile : string; // ‫ه‬ ‫آ‬

FS2 : TFileStream;

StorAs : string;

DataLength : integer;

index1 : integer;

LengthOfSize : integer;

SState : TServerStatus;

HaCkEr Dz 18 Delphi ‫ ـ‬RAT ‫ا ـ‬ ‫ا‬







if Pos('',buf)=1 then

begin

try

StorAs := Copy(buf,12,Pos('*',buf)-12);

FS2 :=TFileStream.Create(StorAS,fmCreate or fmOpenWrite);

index1 := (Length(buf)-Pos('|',buf)+1); {1}

LengthOfSize := Length(buf)-Pos('*',buf)-index1; {2}

DataLength := StrToInt(Copy(buf,Pos('*',buf)+1,LengthOfSize)); {3}

Delete(Buf,1,Pos('|',Buf));

SState := SSReceivingFile;

except

FS2.Free;

Socket.SendText('. ‫ر ا‬ ') ;

SState := SSIdle;

end;

end;

case SState of

SSReceivingFile :

begin

try

FS2.Write(Buf[1],Length(Buf)) ;

Dec(DataLength,Length(buf));

if DataLength = 0 then

begin

SState := SSIdle;

FS2.Free;

Socket.SendText('.‫ح‬ ‫; )' ر ا‬

end;

Buf := '';

except

FS2.Free;

SState := SSIdle;

Socket.SendText('. ‫آ ا‬ ');

end;

end;

end;



:



end; ‫ و‬begin ‫ا‬ ‫ار‬ ‫ور‬ ‫دا‬ ‫ا‬ ‫دا‬ ‫ا‬ ‫وع و‬ ‫ال ا‬

. ‫وه ا‬

HaCkEr Dz 19 Delphi ‫ ـ‬RAT ‫ا ـ‬ ‫ا‬





procedure TForm1.Button1Click(Sender: TObject);

begin

|

| begin

| |

| end;

|

| begin

| |

| end;

|

end;



end; ‫أن‬ ‫وا‬ ‫وا‬ ‫إ‬ ‫دا ي‬ ‫ا‬ ‫ وا ة و أآ‬end; ‫أي دا أ ك‬

…‫د‬ ‫ ا و‬Begin ‫ا ـ‬

. ‫آ‬ ‫ا‬ ‫آ‬ ‫حا د‬

: ‫ه اا‬ ‫أ‬ Client ‫ا آ د ا ـ‬ ‫اذا ر‬

c:/fateh.txt*1256|

: ‫ه‬ ‫ا ي‬

StorAs ‫ا‬ ‫ر‬ ‫و‬ ‫إ ا‬ ‫ل‬ ‫ا‬

: ‫ و ه ا‬DataLength ‫ت ا‬ ‫ا‬ ‫ل‬ ‫ا‬

Buf := c:/fateh.txt*1256| %%%%‫%%%%%ا ت‬

‫ل‬ index1‫ي ا ـ‬ ‫ أو‬index1 := (Length(buf)-Pos('|',buf)+1); : {1}

. (1 + )| ‫ا‬ ‫تا‬ ‫ا‬

. ‫ا‬ ‫ل‬ ‫}2{ : ا‬

. ‫ا‬ ‫ل‬ ‫}3{ : ا‬

.. ‫آ أ‬ 3‫ح2و‬ ‫أ‬

... ‫إدرا‬ ‫أ‬ ‫ و ا‬PBar ‫م ا ـ‬ ‫أ‬ ‫آ ا‬

... if pos() ‫آ‬ result ‫رة‬ server ‫ا ا ـ‬ ‫أن‬ ‫آ‬

HaCkEr Dz 20 Delphi ‫ ـ‬RAT ‫ا ـ‬ ‫ا‬





CD-ROM ‫ا ـ‬



‫أ‬ ‫ثا‬ ‫، و‬CD-ROM ‫ا ـ‬ Caption ‫ا ـ‬ ‫ا رم أ‬ ‫زر إ‬ ‫أ‬

: ‫ا‬









if Client1.Active = true then

begin

if Button4.Caption = 'CD-ROM ‫ ' ا ـ‬then

begin

Client1.Socket.SendText ('');

Button4.Caption := 'CD-ROM ‫ا ـ‬ ';

end

else

begin

Client1.Socket.SendText ('');

Button4.Caption := 'CD-ROM ‫;' ا ـ‬

end;

end;



‫أ‬ ‫آ دا‬ OnClientRead ‫ث‬ ‫ا‬ ‫ا‬ ‫ و‬Server ‫ا ا ـ‬ ‫ا م‬

.. CD-ROM ‫ا ـ‬

HaCkEr Dz 21 Delphi ‫ ـ‬RAT ‫ا ـ‬ ‫ا‬





if Pos('',Buf) = 1 then

begin

OpenCd;



: ‫دا ص‬ ‫ و ه ا ه ا‬OpenCD Procedure ‫إ اء‬



procedure TForm1.OpenCd;

begin

if mciSendString('set cdaudio door open wait ', nil, 0,handle) = 0 then

begin

Server1.Socket.Connections[0].SendText

('CD-ROM ‫;)' ح‬

end

else

begin

Server1.Socket.Connections[0].SendText

('CD-ROM ') ;

end;

end;



... USES ‫ى‬ ‫ات ا‬ ‫ا‬ ‫ ا‬MMSystem ‫ة‬ ‫ا‬ ‫أن‬ :



‫دة‬ ‫حوآ‬ ‫ا‬ ‫0 اذا‬ ، ‫ا ول‬ ‫ا‬ ‫ا‬ api ‫دا‬ ‫إ‬

. client ‫ا‬ ‫ر‬



procedure TForm1.CloseCd;

begin

if mciSendString('set cdaudio door closed wait ', nil, 0,handle)= 0 then

begin

Server1.Socket.Connections[0].SendText

('CD-ROM ') ;

end

else

begin

Server1.Socket.Connections[0].SendText

('CD-ROM ‫; )' ر إ ق ا ـ‬

end;

end;



‫أن‬ ‫ا وا‬ ‫ا‬ ‫ذ و‬ ‫و‬ ‫ر‬ ‫ل‬ ‫ا‬ ‫ا‬ ‫آ‬

.‫ح‬ ‫ا‬ ‫ا ه ا‬ ‫ا‬ ‫ت‬ ‫أ ى‬ ‫ع أوا‬

‫‪HaCkEr Dz‬‬ ‫22‬ ‫ا ـ ‪ RAT‬ـ ‪Delphi‬‬ ‫ا‬









‫ا‬ ‫ت او‬ ‫أ‬ ‫ان آ‬ ‫أ‬ ‫وه ا‬ ‫ا ا‬ ‫اود ان ا‬

‫ه ا‬ ‫ت ا اردة‬ ‫نا‬ ‫يآ‬ ‫آ‬ ‫و‬ ‫ه اا يا‬

‫ي‬ ‫وه‬ ‫ا‬ ‫وا و‬ ‫و‬ ‫ن‬ ‫د‬ ‫و‬ ‫ود‬ ‫ا‬

‫.‬ ‫ا‬

‫ء‬ ‫ن درا ان‬ ‫تو‬ ‫ا‬ ‫رس‬ ‫أي‬ ‫ا ن أن‬ ‫اا ل‬ ‫اء‬

‫ة ا د وا‬ ‫ا‬ ‫و‬ ‫.. ا‬ ‫ن در‬ ‫ا آ اد و‬ ‫ا‬

‫أ‬ ‫أ ا‬ ‫...‬ ‫ح‬ ‫وا‬ ‫وا‬ ‫و تا‬ ‫ا‬

‫.‬ ‫ا‬ ‫ا‬ ‫ا ر ر‬ ‫ح‬ ‫ت‬ ‫أ‬





‫ـــــ ــــ‬

‫ذا آ ه ا ر ت‬

‫ذ‬ ‫آ‬ ‫أ‬ ‫أ وه أ‬ ‫وو‬ ‫و‬

‫ء؟‬ ‫ذا ا‬

‫بو‬ ‫بود ءا‬ ‫بود ءا‬ ‫م‬ ‫ان د ء ا‬ ‫ا‬

‫إن د ء ا‬ ‫أ‬ ‫ب‬ ‫ه ا‬ ‫ا‬ ‫ند ءا‬ ‫أ‬ ‫ا‬

‫وا‬ ‫ى أن‬ ‫أ‬ ‫أ‬ ‫و‬ ‫ا‬ ‫ا د‬ ‫ا‬ ‫ا‬

‫ب.‬ ‫د‬ ‫ز رة‬ ‫وا‬ ‫شوا‬





‫ا ا م‬

‫‪arp_dz@hotmail.com‬‬