CODICE
#include <buttonconstants.au3>
#include <editconstants.au3>
#include <guiconstantsex.au3>
#include <guilistbox.au3>
#include <staticconstants.au3>
#include <tabconstants.au3>
#include <windowsconstants.au3>
#include <string.au3>
$Form1 = GUICreate("Password Archiver 2.1", 558, 328, 192, 124)
$Pic1 = GUICtrlCreatePic(@ScriptDir & "\header.jpg", 0, 0, 556, 52)
$Label1 = GUICtrlCreateLabel("Per iniziare ad usare questo programma è necessario effettuare la registrazione. Clicca sulla" & @CRLF & "sottostante tabella 'Registrazione', compila tutti i campi e clicca sul bottone 'Registrati'." & @CRLF & "Infine effettua il login nella tabella 'Login'." & @CRLF & "Ricordo che l'unico utilizzo del programma è quello di conservare password.", 8, 72, 618, 81)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Group1 = GUICtrlCreateGroup("", 0, 56, 553, 97)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label2 = GUICtrlCreateLabel("© Snake442", 448, 304, 104, 17)
$Tab1 = GUICtrlCreateTab(0, 160, 393, 153)
;Login
$TabSheet1 = GUICtrlCreateTabItem("Login")
GUICtrlSetState(-1,$GUI_SHOW)
$Label3 = GUICtrlCreateLabel("Nome utente:", 15, 202, 68, 17)
$Label4 = GUICtrlCreateLabel("Password:", 31, 234, 53, 19)
$Inputuserlog = GUICtrlCreateInput("", 95, 205, 185, 22)
$Inputpasslog = GUICtrlCreateInput("", 95, 234, 185, 22,$ES_PASSWORD)
$Login = GUICtrlCreateButton("Login", 303, 266, 73, 33)
;Registrazione
$TabSheet2 = GUICtrlCreateTabItem("Registrazione")
$Label5 = GUICtrlCreateLabel("Password:", 31, 234, 53, 17)
$Label6 = GUICtrlCreateLabel("Nome utente:", 15, 202, 68, 17)
$Inputuserreg = GUICtrlCreateInput("", 95, 202, 185, 22)
$Inputpassreg = GUICtrlCreateInput("", 95, 234, 185, 22,$ES_PASSWORD)
$Registrati = GUICtrlCreateButton("Registrati", 303, 266, 73, 33)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
;Inizio registrazione
Case $Registrati
If FileExists(@ScriptDir & "\data.ini") Then
MsgBox(0,"Attenzione","E' stato raggiunto il numero massimo di account creabili per questa versione.")
Else
$Readuserreg= GUICtrlRead($Inputuserreg)
$Readpassreg= GUICtrlRead($Inputpassreg)
$Readuserreg= _StringEncrypt(1,$Readuserreg,"encry",1)
$Readpassreg= _StringEncrypt(1,$Readpassreg,"encry",1)
IniWrite (@ScriptDir & "\data.ini","Registraction","User",$Readuserreg)
IniWrite (@ScriptDir & "\data.ini","Registraction","Password",$Readpassreg)
MsgBox(0,"Account creato","L'account è stato creato con successo!")
GUICtrlSetData($Inputuserreg,"")
GUICtrlSetData($Inputpassreg,"")
EndIf
;Inizio controllo login
Case $Login
If FileExists(@ScriptDir & "\data.ini") Then
$Readuserlog= GUICtrlRead ($Inputuserlog)
$Readpasslog= GUICtrlRead ($Inputpasslog)
$Readuserlog= _StringEncrypt(1,$Readuserlog,"encry",1)
$Readpasslog= _StringEncrypt(1,$Readpasslog,"encry",1)
$Iniuser=IniRead(@ScriptDir & "\data.ini","Registraction","User","")
$Inipass=IniRead(@ScriptDir & "\data.ini","Registraction","Password","")
If $Readuserlog=$Iniuser And $Readpasslog=$Inipass Then
Programma()
Else
MsgBox (0,"Errore","Nome utente o password errati")
EndIf
Else
MsgBox (0,"Attenzione","Prima di effettuare il login è necessario registrarsi!")
EndIf
EndSwitch
WEnd