darkjoker Admin
Numero di messaggi : 813 Data d'iscrizione : 30.07.07
| Titolo: crypter Lun Ott 29, 2007 6:21 pm | |
| come da nome... utilizza il comando _StringEncrypt e l'ho decorato con un po di GUI e cosette varie - Codice:
-
#include <String.au3> #include <GuiConstants.au3> GUICreate ("Crypter", 500, 430) $menu = GUICtrlCreateMenu ("&About...") $about = GUICtrlCreateMenuItem ("About the author", $menu) $text = GUICtrlCreateEdit ("", 10, 30, 450, 235) GUICtrlCreateLabel ("Inserire password di crittazione: ", 100, 370) $pass = GUICtrlCreateInput ("", 255, 365, 150, 20, 0x21) $critta = GUICtrlCreateButton ("critta", 80, 280, 100, 30) $decritta = GUICtrlCreateButton ("decritta", 200, 280, 100 , 30) $clip = GUICtrlCreateButton ("Inserisci nella clipboard", 320, 280, 120, 30) GUICtrlCreateLabel ( "Inserire livello di crittazione: ", 100, 330) $input = GUICtrlCreateInput ("1",255, 325, 50, 20) $level = gUICtrlSetLimit(GuiCtrlCreateUpDown($input),10,1)
GUISetState () while 1 $msg = GUIGetMsg () Select Case $msg = $GUI_EVENT_CLOSE ExitLoop case $msg = $clip ClipPut (guictrlread ($text)) case $msg = $critta $txt_crittato = _StringEncrypt (1, GUICtrlRead ($text), GUICtrlRead ($pass), GUICtrlRead ($input)) GUICtrlSetData ($text, $txt_crittato) Case $msg = $decritta $txt_decrittato = _StringEncrypt (0, GUICtrlRead ($text), GUICtrlRead ($pass), GUICtrlRead ($input)) GUICtrlSetData ($text, $txt_decrittato) case $msg = $about MsgBox (32, "About the author", "Crypter is made up by darkjoker"&@crlf&"http://xhack.forumitalian.net") EndSelect WEnd | |
|