Mensajes

Bueno interesante es para los pc's sin conexión a internet, pero digo yo que hay keylogers que són para uso local, es más mientras uno has de conectarlo el otro lo has de ejecutar. El trabajo es el mismo.

Si, no sería detectado en eso te doy la razón, pero són tantas las desventajas que presenta (como el que al usarlo debes tener contacto fisico con el equipo) que ya me diras tu su función.

Pa robarle el pass del facebook de tu hermana en casa?

Yo apenas le veo ventajas a este tipo de Keylogger... ya que (siendo programador) no es dificil programarte un keylogger simple...

Ademas, que directamente desde el Hardware no podrias sacar la ventana en la que se presionan esas teclas... Y muchas otras cosas...

La unica cosa que le veo que los Keyloggers de Sofware no pueden hacer es sacar el password de la BIOS...

[@Skapunky:]

@Skapunky:
Bueno, es interesante para los PCs sin conexion a Internet... y bueno... el software acaba siendo detectado... el hardware no... y bueno... no creo que haya gente que diariamente mire la conexion de su teclado al PC

Saludos

[skapunky]

Para nada skapunky , estas absolutamente equivocado... este clase de keylogger obtienen las teclas presionadas colocandose entre el emisor (teclado) y receptor (PC)

+ Info:

Código [Seleccionar] Expandir

http://en.wikipedia.org/wiki/Hardware_keylogger

Hay veces que es muy molesto usar Option Explicit ya que tienes que declarar todas las variables pero tiene algo bueno ya que si no declaras las variables pueden confundir el tipo y joderse todo el proyecto 

Bueno... puede ser una molestia .... pero te crea buenos habitos de programación... (cosa que VB no suele hacer )

Muchas veces, si utilizas variables con nombres largos puede que te equivoques al escribirlas... en eso Option Explicit te ayuda...

2- Por gustos mios no uso Option Explicit, no le veo nada bueno.

Jeje, eso suena como no supieses para que sirve

Si sabes para que sirve ya me diras que no le ves bueno...

Tendras que dar mas informacion si quieres que la gente se interese...

Y bueno, esto no es una bolsa de trabajo, si quieres empleados lo mejor sera que pongas un anuncion en el periodico...

Muy bueno

Lastima que haga falta lo del .reloc Sino harias un crypter fenomenal

Le pongo una chincheta... ya estara bien de hacer tutos... como hagas uno solo mas me va a tocar hacerte un recopilatorio para ti solo , nah, es broma, sigue asi

Código (vb) [Seleccionar] Expandir

'---------------------------------------------------------------------------------------
' Module    : mNativeTokens
' Author    : Karcrack
' Now$      : 18/08/2009  17:18
' Used for? : Get Privileges using Native API (RtlAdjustPrivilege)
' Reference :
'           http://forum.sysinternals.com/forum_posts.asp?TID=15745
'---------------------------------------------------------------------------------------

Option Explicit
'NTDLL
Private Declare Function RtlAdjustPrivilege Lib "NTDLL" (ByVal Privilege As Long, ByVal bEnablePrivilege As Long, ByVal bCurrentThread As Long, ByRef OldState As Long) As Long

Public Enum PRIVILEGES_ENUM
    SeAssignPrimaryTokenPrivilege = 3       ' Replace a process-level token
    SeAuditPrivilege = 21                   ' Generate security audits.
    SeBackupPrivilege = 17                  ' Grant all file read access (ACL Bypass)
    SeChangeNotifyPrivilege = 23            ' Receive file/folder change notifications
    SeCreateGlobalPrivilege = 30            ' Create global objects
    SeCreatePagefilePrivilege = 15          ' Create pagefile
    SeCreatePermanentPrivilege = 16         ' Create permanent shared object
    SeCreateSymbolicLinkPrivilege = 33      ' (W.VISTA) Create symbolic links
    SeCreateTokenPrivilege = 2              ' Create a token
    SeDebugPrivilege = 20                   ' Open any process (ACL Bypass)
    SeEnableDelegationPrivilege = 27        ' (W.2000) Trust users for delegation
    SeImpersonatePrivilege = 29             ' Enable thread impersonation
    SeIncreaseBasePriorityPrivilege = 14    ' Increase process priority
    SeIncreaseQuotaPrivilege = 5            ' Increase process memory quota
    SeIncreaseWorkingSetPrivilege = 30      ' (W.VISTA) Increase process WS
    SeLoadDriverPrivilege = 10              ' Load/Unload driver
    SeLockMemoryPrivilege = 4               ' Lock pages in memory
    SeMachineAccountPrivilege = 6           ' Create user account
    SeManageVolumePrivilege = 28            ' Manage files on a volume
    SeProfileSingleProcessPrivilege = 13    ' Gather process profiling info
    SeRelabelPrivilege = 32                 ' Modify object label
    SeRemoteShutdownPrivilege = 24          ' Shutdown a remote computer
    SeRestorePrivilege = 18                 ' Grant all file write access (ACL Bypass)
    SeSecurityPrivilege = 8                 ' Manage auditying and security log
    SeShutdownPrivilege = 19                ' Initiate Shutdown
    SeSyncAgentPrivilege = 26               ' (W.2000) Use directory sync services
    SeSystemEnvironmentPrivilege = 22       ' Modify firmware environment values
    SeSystemProfilePrivilege = 11           ' Gather system profiling info
    SeSystemtimePrivilege = 12              ' Change Time
    SeTakeOwnershipPrivilege = 9            ' Change object owner (ACL Bypass)
    SeTcbPrivilege = 7                      ' Idetify as a trusted, protected subsystem
    SeTimeZonePrivilege = 34                ' (W.VISTA) Change time zone
    SeTrustedCredManAccessPrivilege = 31    ' (W.VISTA) Access the Credential Manager (trusted caller)
    SeUndockPrivilege = 25                  ' Remove from docking station
    SeUnsolicitedInputPrivilege = 35        ' (ABSOL33T) Read unsolicited input (from terminal device)
End Enum

Public Function AsignPrivilege(ByVal lPriv As PRIVILEGES_ENUM, Optional ByVal bEnable As Boolean = True, Optional ByVal bThread As Long = 0, Optional ByRef lOldState As Long) As Boolean
    AsignPrivilege = (RtlAdjustPrivilege(lPriv, bEnable, bThread, lOldState) = 0)
End Function


El Enum es mas largo que el codigo

Bueno, creo que esta claro lo que hace este codigo... asigna privilegios a nuestra aplicacion utilizando un API nativa, y evitando hacer las llamadas a varias APIs para hacer esto mismo

Saludos

[10!!]

Muy bueno

Funciona con el teclado ingles... pero si cambio el Layout del teclado a Español para usar mi teclado USB al presionar por ejemplo la Ñ aparece una comita simple ', que esta en la posicion de la Ñ si usara el teclado Ingles...

Hay que trabajar con Layouts por lo visto

Buena alternativa para evitar tener que hacer comparaciones por caracter ASCII te has ganado un 10!!

Saludos

Deberias de aprender como funciona el Keylogger y hacerlo tu desde 0...

y de paso aprender a escribir tambien...

Que cruel