EXEMPLU Trojan pe delphi

• Putem fi frumos pentru a trage un articol folosind coduri BB.

EXEMPLU Trojan Delphi.

[Teoria]
Troian nostru va consta din două părți: client și server. Server - Aceasta este partea care va fi pe computerul victimei, aceasta
se va deschide o conexiune socket si executa comanda de text-client. Client - este
cum ai știut, programul, care ar trebui să stea aici și să gestioneze server.

[Practica]
Să începem!
Server și client prize sunt situate pe fila Internet și sunt numite ServerSocket și ClientSocket. Atenție! Nu amestecați:
În Delphi 7 din aceste componente nu există nici un standard, există doar componente și TCPServer TCPClient - acestea sunt noi
Nu este potrivit!. Dacă aveți Delphi 7, va trebui să le instalați manual, pentru acest lucru, accesați
Componentă >> Pachete Insall- >> Adăugați >> Direktoriya_Delfi / bin / dclsockets70.bpl

[Server]
Arunca pentru a forma o componentă de server. lăsați-l să fie ServerSocket1.
Setați proprietățile egal cu 45288 portul este portul care troianul va lua ordinele noastre și trimite secretele victimei.

În cadrul programului, un var variabilă:

Acum forma ham ca noi nu este necesar ca victima ar putea vedea că ea trăiește un cal troian:
Alegeți forma procedura (Form1) OnCreate:

Acum să părăsească troianul este prescris în punerea în funcțiune (în utilizări pentru a adăuga registru, în var - registru: TRegistry

Acum troian nostru este nu numai vizibil în lista de aplicații, dar a început cu pornirea Windows-ului. Următorul pas - pentru a accepta comenzi de la server:

Serverul evenimentului OnClientRead scrie:

Și aici am deschis un spațiu pentru imaginația ta. Acum puteți face acest lucru:
dacă ați primit o comandă "pentru a schimba butoanele mouse-ului, schimba butoanele mouse-ului, etc.

Iată cum arată pe Delphi:

Ați învățat să accepte și să proceseze comenzile utilizatorului, dar uneori ai nevoie de opusul - pentru a transmite ceva clientului, cum ar fi numele de utilizator. Acest lucru se face după cum urmează:
Acum vom transfera versiunea de server.
În aceeași procedură, adăugând:

După cum puteți vedea, folosind echipa sendtext am trimis primul mesaj către client „versiunea de test“.

Nu uitați să salvați proiectul.

Pe serverul de înțeles, clientul acum.

[Client]
Crearea unui proiect nou.

VaR-declara, de asemenea, variabila i stringovogo tipul de informații obținute în scădere.

Arunca în forma edit'y pe care o vom folosi: serverul IP, textul de comandă. Ne referim, respectiv, și un mesaj de IP;
Părăsiți 4 o componentă de buton, se referă la ele ca Connect, deconectati, Trimitere, Ieșire.
De asemenea, vom găsi și ClientSocket numesc client.
Și pentru StatusBar control complet, apel SB, aici va veni răspunsurile de server.

stivuitoare Urmatorul eveniment pentru un client:

Acum procesa evenimentul OnClick pentru butonul: