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 | |
|
