CODICE
#Region
#AutoIt3Wrapper_icon=ic-lucchetto2.ico
#AutoIt3Wrapper_Res_Fileversion=0.0.0.6
#AutoIt3Wrapper_Res_LegalCopyright=Sora2000
#AutoIt3Wrapper_Res_Language=1040
#EndRegion
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <GuiButton.au3>
#include <MD5.au3>
#include <File.au3>
;Preliminari
Global $directory=@ScriptDir&"Dizionario Personalizzato.ini"
FileInstall("Lucchetto.jpg",@TempDir&"Lucchetto.tmp")
;Fine Preliminari
$Form1 = GUICreate("MD5 OK By Sora2000", 475, 278, 196, 124)
$Tab1 = GUICtrlCreateTab(0, -2, 471, 277, BitOR($TCS_MULTISELECT,$TCS_FLATBUTTONS,$TCS_FORCEICONLEFT,$TCS_FORCELABELLEFT,$TCS_HOTTRACK))
$TabSheet1 = GUICtrlCreateTabItem("Criptatore MD5")
$Label1 = GUICtrlCreateLabel("CRIPTATORE MD5", 124, 23, 217, 37)
GUICtrlSetFont(-1, 22, 800, 0, "Arial Narrow")
GUICtrlSetColor(-1, 0x00FF00)
$Input1 = GUICtrlCreateInput("", 6, 95, 283, 24)
GUICtrlSetFont(-1, 10, 800, 0, "Arial")
$Label3 = GUICtrlCreateLabel("Parola da Criptare", 7, 71, 113, 24)
GUICtrlSetFont(-1, 11, 800, 0, "Arial Narrow")
$Input2 = GUICtrlCreateInput("", 5, 159, 287, 24, BitOR($GUI_SS_DEFAULT_INPUT,$ES_READONLY), $WS_EX_CLIENTEDGE)
GUICtrlSetFont(-1, 10, 800, 0, "Arial")
$Label4 = GUICtrlCreateLabel("Parola Criptata MD5", 7, 131, 127, 24)
GUICtrlSetFont(-1, 11, 800, 0, "Arial Narrow")
$Label5 = GUICtrlCreateLabel("CRIPTA PAROLA", 10, 189, 220, 41)
GUICtrlSetFont(-1, 24, 800, 0, "Arial Narrow")
GUICtrlSetColor(-1, 0x0000FF)
$Pic1 = GUICtrlCreatePic(@TempDir&"Lucchetto.tmp", 302, 75, 153, 185)
$TabSheet2 = GUICtrlCreateTabItem("Decriptatore MD5")
GUICtrlSetState(-1,$GUI_SHOW)
$Label2 = GUICtrlCreateLabel("DECRIPTATORE MD5", 122, 23, 249, 37)
GUICtrlSetFont(-1, 22, 800, 0, "Arial Narrow")
GUICtrlSetColor(-1, 0xFF0000)
$Label7 = GUICtrlCreateLabel("Parola da decriptare", 9, 64, 126, 24)
GUICtrlSetFont(-1, 11, 800, 0, "Arial Narrow")
$Input3 = GUICtrlCreateInput("", 9, 90, 283, 24)
GUICtrlSetFont(-1, 10, 800, 0, "Arial")
$Label8 = GUICtrlCreateLabel("Parola Decriptata", 9, 126, 111, 24)
GUICtrlSetFont(-1, 11, 800, 0, "Arial Narrow")
$Input4 = GUICtrlCreateInput("", 9, 152, 283, 24, BitOR($GUI_SS_DEFAULT_INPUT,$ES_READONLY), $WS_EX_CLIENTEDGE)
GUICtrlSetFont(-1, 10, 800, 0, "Arial")
$Button1 = GUICtrlCreateButton("Carica Dizionario", 300, 87, 149, 45)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Button2 = GUICtrlCreateButton("Genera Dizionario Deafult", 301, 134, 149, 45)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Label9 = GUICtrlCreateLabel("DECRIPTA PAROLA", 94, 193, 257, 41)
GUICtrlSetFont(-1, 24, 800, 0, "Arial Narrow")
GUICtrlSetColor(-1, 0x0000FF)
$Label10 = GUICtrlCreateLabel("Dizionario Utilizzato:>", 200, 250, 118, 20)
GUICtrlSetFont(-1, 10, 800, 0, "Arial Narrow")
$Label11 = GUICtrlCreateLabel("Label11", 318, 250, 150, 20)
GUICtrlSetFont(-1, 10, 800, 0, "Arial Narrow")
GUICtrlCreateTabItem("")
$Label6 = GUICtrlCreateLabel("Programmato in Autoit da Sora2000", 272, 0, 198, 17)
GUICtrlSetFont(-1, 10, 800, 0, "Arial Narrow")
GUICtrlSetColor(-1, 0x000080)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
GUICtrlSetData($Label11,IniRead($directory,"Nome Dizionario","Nome","Non selezionato"))
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Label5
$INITMD5=_MD5Init()
CriptaMD5()
Case $Label9
Decripta()
Case $Button1
$directory=FileOpenDialog("Seleziona dizionario",@ScriptDir,"(*.ini)")
GUICtrlSetData($Label11,IniRead($directory,"Nome Dizionario","Nome",0))
Case $Button2
$savedir=FileSaveDialog("Salva dizionario Deafult",@ScriptDir,"(*.ini)")
If not @error=1 Or not @error=2 Then
SalvaDizionario()
EndIf
EndSwitch
WEnd
Func CriptaMD5()
If Not FileExists(@ScriptDir&"Dizionario Personalizzato.ini") Then
_FileCreate(@ScriptDir&"Dizionario Personalizzato.ini")
EndIf
$Inp1=GUICtrlRead($Input1)
$cript=_MD5Input($INITMD5,$Inp1)
$result=StringReplace(_MD5Result($INITMD5),"0x","")
IniWrite("Dizionario Personalizzato.ini","MD5",$result,$Inp1)
GUICtrlSetData($Input2,$result)
EndFunc
Func Decripta()
$Inpu3=GUICtrlRead($Input3)
$INI=IniRead($directory,"MD5",$Inpu3,$Inpu3)
If $INI=$Inpu3 Then
GUICtrlSetData($Input4,"La chiave "&$INI&" non trovata!!")
Else
GUICtrlSetData($Input4,$INI)
EndIf
EndFunc
Func SalvaDizionario()
$NomeDiz= InputBox("Nome dizionario","Inserisci il nome del Dizionario","Deafult"," ","244","122","-1","-1")
If $NomeDiz="" Or $NomeDiz=" " Or $NomeDiz=" " Then
FileInstall("DIZIONARIO A.ini",$savedir&".ini")
IniWrite($savedir,"Nome Dizionario","Nome","Deafult")
Else
FileInstall("DIZIONARIO A.ini",$savedir&".ini")
IniWrite($savedir,"Nome Dizionario","Nome",$NomeDiz)
EndIf
EndFunc