FolderLock versione 1.0, DAVVERO OTTIMO COME PROGRAMMA!!!

#include <guiconstants.au3>
#include <guilistbox.au3>
#include <file.au3>
Opt('TrayMenuMode',1)
Global $cartella[9999],$c = -1,$vai = 1,$cambia = 0
Global $v = '1.0'
If IniRead(@TempDir&'fflock.ini','pw','pw','errore') = 'errore' Then
$inptbox = InputBox('Inserisci','Questa θ la prima volta che usi Folder Lock. Inserisci la password')
Do
$inptbox = InputBox('Inserisci','Questa θ la prima volta che usi Folder Lock. Inserisci la password','','+')
Until Not @error
IniWrite(@tempdir&'fflock.ini','pw','pw',$inptbox)
MsgBox(0x40,'Ok!','Password salvata con sucesso!')
EndIf
$listaT = TrayCreateItem('Crea la lista!')
TrayCreateItem('')
$m1 = TrayCreateMenu('Opzioni')
$cambiapw = TrayCreateItem('Cambia password',$m1)
TrayCreateItem('',$m1)
$pp = TrayCreateItem('Pausa',$m1)
TrayCreateItem('')
$about = TrayCreateItem('About')
TrayCreateItem('')
$esci = TrayCreateItem('Esci')

While 1
Switch TrayGetMsg ()
Case $about
about()
Case $pp
$legpw = IniRead(@TempDir&'fflock.ini','pw','pw','errore')
$inptpw2 = InputBox('Password','Inserisci la password...','','+')
If $legpw = 'errore' Then
MsgBox(0x10,'Errore fatale!',"Il programma ha riscontrato un errore fatale. Ora verrΰ chiuso",10)
Exit
ElseIf $legpw = $inptpw2 Then
$cambia = 1
Else
MsgBox(0x10,'Errore!','Password sbagliata!')
$cambia = 0
EndIf
If TrayItemGetText($pp) = 'Pausa' And $cambia = 1 Then
TrayItemSetText($pp,"Riprendi l'esecuzione del programma")
$vai = 0
ElseIf $cambia = 1 And TrayItemGetText($pp) = "Riprendi l'esecuzione del programma" Then
TrayItemSetText($pp,'Pausa')
$vai = 1
EndIf
Case $cambiapw
cambiapw()
Case $listaT
$legpw = IniRead(@TempDir&'fflock.ini','pw','pw','errore')
$inptpw2 = InputBox('Password','Inserisci la password...','','+')
If $legpw = 'errore' Then
MsgBox(0x10,'Errore fatale!',"Il programma ha riscontrato un errore fatale. Ora verrΰ chiuso",10)
Exit
ElseIf $legpw = $inptpw2 Then
lista()
Else
MsgBox(0x10,'Errore!','Password sbagliata!')
EndIf
Case $esci
$legpw = IniRead(@TempDir&'fflock.ini','pw','pw','errore')
$inptpw3 = InputBox('Password','Inserisci la password per uscire','','+')
If $legpw = 'errore' Then
MsgBox(0x10,'Errore fatale!',"Il programma ha riscontrato un errore fatale. Ora verrΰ chiuso",10)
Exit
ElseIf $legpw = $inptpw3 Then
Exit
Else
MsgBox(0x10,'Errore!','Password sbagliata!')
EndIf
EndSwitch
If $vai = 1 Then
For $i = 1 To _FileCountLines(@scriptdir&'fl.txt')
If cerca(URL2FileName(FileReadLine(@scriptdir&'fl.txt',$i))) = 1 Then
blocca(FileReadLine(@scriptdir&'fl.txt',$i));MsgBox(0,'','trovata '&FileReadLine(@scriptdir&'fl.txt',$i))
EndIf
Next
EndIf
WEnd

Func about()
$Form3 = GUICreate("About", 257, 163, 303, 219)
$GroupBox1 = GUICtrlCreateGroup("", 8, 8, 241, 113)
$Label1 = GUICtrlCreateLabel("FolderLock", 16, 24, 57, 17, $WS_GROUP)
$Label2 = GUICtrlCreateLabel("Versione "&$v, 16, 48, 63, 17, $WS_GROUP)
$Label4 = GUICtrlCreateLabel("Visita il mio sito: http://ren.forumcommunity.net", 16, 96, 223, 17, $WS_GROUP)
GUICtrlSetCursor(-1,0)
$Label3 = GUICtrlCreateLabel("Copyright I.Ren 2008 all rights reserved", 16, 72, 189, 17, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("&OK", 80, 128, 75, 25)
GUISetState(@SW_SHOW)

While 1
Switch GUIGetMsg ()
Case $label4
ShellExecute('http://ren.forumcommunity.net')
Case -3,$ok
GUIDelete($form3)
ExitLoop
EndSwitch
WEnd
EndFunc

Func cambiapw()
$Form2 = GUICreate("Cambia password", 243, 142, -1, -1)
$pwvecchia = GUICtrlCreateInput("", 8, 24, 233, 21, BitOR($ES_PASSWORD,$ES_AUTOHSCROLL))
$okcp = GUICtrlCreateButton("&OK", 86, 112, 75, 25, 0)
$ann = GUICtrlCreateButton("Annulla", 167, 112, 75, 25, 0)
$labello = GUICtrlCreateLabel("Inserisci la vecchia password:", 8, 4, 145, 17)
$Label1 = GUICtrlCreateLabel("Inserisci la nuova password:", 8, 56, 137, 17)
$nuovapw = GUICtrlCreateInput("", 8, 80, 233, 21, BitOR($ES_PASSWORD,$ES_AUTOHSCROLL))
GUISetState(@SW_SHOW)

While 1
Switch GUIGetMsg ()
Case $okcp
$legpw = IniRead(@TempDir&'fflock.ini','pw','pw','errore')
If $legpw = 'errore' Then
MsgBox(0x10,'Errore fatale!',"Il programma ha riscontrato un errore fatale. Ora verrΰ chiuso",10)
Exit
ElseIf $legpw = GUICtrlRead($pwvecchia) Then
IniWrite(@tempdir&'fflock.ini','pw','pw',GUICtrlRead($nuovapw))
MsgBox(0x40,'Ok!','La password θ stata cambiata!')
GUIDelete($form2)
ExitLoop
Else
MsgBox(0x10,'Errore!','La vecchia password θ sbagliata!')
EndIf
Case -3,$ann
GUIDelete($form2)
ExitLoop
EndSwitch
WEnd
EndFunc

Func blocca($cartella)
WinKill(URL2FileName($cartella))
$gui = GUICreate('LockEngine',565,180)
$bloccata = GUICtrlCreateLabel(URL2FileName($cartella)&" θ bloccata!", 2, 8, 589, 41)
GUICtrlSetFont(-1, 24, 400, 0, "MS Sans Serif")
GUICtrlCreateLabel("Inserire la password per sbloccarla", 200, 56, 166, 17)
GUICtrlCreateLabel("Premere annulla per togliere questa finestra", 184, 72, 207, 17)
$pw = GUICtrlCreateInput("Password", 128, 104, 337, 21, $ES_PASSWORD)
$sbc = GUICtrlCreateButton("Sblocca", 128, 136, 153, 17, 0)
$annulla = GUICtrlCreateButton("Annulla", 312, 136, 153, 17, 0)
GUICtrlCreateLabel("I.Ren's lock engine. Copy rights 2008, all rights reserved", 2, 165, 268, 17)
$mid = _Middle($gui,$bloccata)
ControlMove($gui,'',$bloccata,$mid[0]/4,8)
GUISetState ( )

While 1
Switch GUIGetMsg ()
Case $annulla
GUIDelete($gui)
ExitLoop
Case $sbc
$legpw = IniRead(@TempDir&'fflock.ini','pw','pw','errore')
If $legpw = 'errore' Then
MsgBox(0x10,'Errore fatale!',"Il programma ha riscontrato un errore fatale. Ora verrΰ chiuso",10)
Exit
ElseIf GUICtrlRead($pw) = $legpw Then
GUIDelete($gui)
MsgBox(0x40,'Ok!','Autorizzazione confermata! '&URL2FileName($cartella)&' θ stata sbloccata con sucesso!',10)
ShellExecute($cartella)
WinWaitActive(URL2FileName($cartella))
Do
Sleep(100)
Until WinExists(URL2FileName($cartella)) = 0
ExitLoop
Else
MsgBox(0x10,'No!','Autorizzazione non confermata! Password sbagliata! Ritentare prego!')
EndIf
Case -3
GUIDelete($gui)
ExitLoop
EndSwitch
WEnd
#cs
$gui = GUICreate("Form1", 565, 180, -1, -1)
$Label1 = GUICtrlCreateLabel("$cartella θ bloccata!", 136, 8, 289, 41)
GUICtrlSetFont(-1, 24, 400, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Inserire la password per sbloccarla", 200, 56, 166, 17)
$Label3 = GUICtrlCreateLabel("Premere annulla per togliere questa finestra", 184, 72, 207, 17)
$pw = GUICtrlCreateInput("Password", 128, 104, 337, 21)
$vai = GUICtrlCreateButton("Sblocca", 128, 136, 153, 17, 0)
$annulla = GUICtrlCreateButton("Annulla", 312, 136, 153, 17, 0)
$Label4 = GUICtrlCreateLabel("I.Ren's lock engine. Copy rights 2008, all rights reserved", 0, 160, 268, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
GUIDelete($gui)
ExitLoop
EndSwitch
WEnd
#ce
EndFunc

Func lista()
$gui = GUICreate("Lista", 332, 291)
$lista = GUICtrlCreateList("", 0, 0, 329, 266)
For $i = 1 To _FileCountLines(@scriptdir&'fl.txt')
GUICtrlSetData($lista,FileReadLine(@scriptdir&'fl.txt',$i))
$c = $c + 1
$cartella[$c] = FileReadLine(@scriptdir&'fl.txt',$i)
Next
$agg = GUICtrlCreateButton("Aggiungi Cartella", 0, 272, 105, 17, 0)
$togli = GUICtrlCreateButton("Elimina selezionato", 224, 272, 105, 17, 0)
$toglitt = GUICtrlCreateButton("Elimina tutto", 112, 272, 105, 17, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $toglitt
$count = _GUICtrlListBox_GetCount($lista)
For $i = $count To 0 Step -1
_GUICtrlListBox_DeleteString($lista,$i)
Next
Case $togli
$sel = _GUICtrlListBox_GetCurSel($lista)
_GUICtrlListBox_DeleteString($lista,$sel)
Case $agg
$dir = FileSelectFolder('Seleziona la cartella da aggiungere',@desktopdir,1,@desktopdir)
If Not @error Then
$c = $c + 1
$cartella[$c] = $dir
GUICtrlSetData($lista,$dir)
EndIf
Case $GUI_EVENT_CLOSE
FileDelete(@scriptdir&'fl.txt')
$count = _GUICtrlListBox_GetCount($lista)
For $i = 0 To $count - 1
FileWrite(@scriptdir&'fl.txt',_GUICtrlListBox_GetText($lista,$i)&@CRLF)
Next
GUIDelete($gui)
ExitLoop
EndSwitch
WEnd
EndFunc

Func cerca($cartella)
$lista = WinList ()
For $i = 0 To $lista[0][0]
If $lista[$i][0] = $cartella And IsVisible($lista[$i][1]) Then
Return 1
EndIf
Next
EndFunc

Func IsVisible($handle)
If BitAnd( WinGetState($handle), 2 ) Then
Return 1
Else
Return 0
EndIf
EndFunc

Func URL2FileName($file,$flag = 0) ;; $flag 0: filename+ext || $flag 1: only filename
$split = StringSplit($file,'')
$ub = UBound($split)
If $flag = 0 Then
$ret = $split[$ub-1]
ElseIf $flag = 1 Then
$ret = StringTrimRight($split[$ub-1],4)
EndIf
Return $ret
EndFunc

Func _Middle($win, $controllo,$txt = '') ;Thx al foro ufficiale di autoit. Sitemata da I.Ren
$size = ControlGetPos($win, $txt, $controllo)
Local $y = (@DesktopHeight / 2) - ($size[1] / 2)
Local $x = (@DesktopWidth / 2) - ($size[0] / 2)
Dim $ret[2]
$ret[0] = $x
$ret[1] = $y
Return $ret
EndFunc ;==>_Middle

#NoTrayIcon
#include <GUIConstants.au3>
#include <GUIEdit.au3>
#include <Process.au3>
#Include <File.au3>
#include <GUIListBox.au3>

Global $cartella[9999],$c = -1,$vai = 1,$cambia = 0
Global $v = '1.0'


GUICreate("Crack FolderLock",300,300,200,200)
GUICtrlCreateLabel("FolderLock Crack by TheMaster117",20,10,300,30)
GUICtrlSetFont(-1,11)
$input = GUICtrlCreateInput("La passwrod θ: "&IniRead(@TempDir&'\fflock.ini','pw','pw','errore'),10,50,280,20)
GUICtrlCreateLabel("Le cartelle bloccate sono:",10,80,300,20)
$lista = GUICtrlCreateList("",10,100,280,140)
$b1 = GUICtrlCreateButton("Cambia Password",10,260,90,30)
$b2 = GUICtrlCreateButton("Cancella blocco",100,260,90,30)
$b3 = GUICtrlCreateButton("Chiudi Programma",190,260,90,30)
GUISetState()

For $i = 1 To _FileCountLines(@scriptdir&'\fl.txt')
       GUICtrlSetData($lista,FileReadLine(@scriptdir&'\fl.txt',$i))
       $c = $c + 1
       $cartella[$c] = FileReadLine(@scriptdir&'\fl.txt',$i)
Next

while 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
  Exit
Case $msg = $b2
  $sel = _GUICtrlListBox_GetCurSel($lista)
  _GUICtrlListBox_DeleteString($lista,$sel)
   GUICtrlSetData($lista,"")
       For $i = 1 To _FileCountLines(@scriptdir&'\fl.txt')
       GUICtrlSetData($lista,FileReadLine(@scriptdir&'\fl.txt',$i))
       $c = $c + 1
       $cartella[$c] = FileReadLine(@scriptdir&'\fl.txt',$i)
   Next
Case $msg = $b1
       $nuovapw = InputBox("Nuovo Password","Nuova password:")
       if @error==1 Then
       EndIf
       IniWrite(@tempdir&'\fflock.ini','pw','pw',$nuovapw)
       GUICtrlSetData($input,$nuovapw)
       case $msg = $b3
       if ProcessExists("FolderLock.exe")Then
       ProcessClose("FolderLock.exe")
       MsgBox(48,"Chiusura","Il programma θ stato chiuso")
       Else
       MsgBox(16,"Chiusura","Il programma non θ stato chiuso perche non θ aperto")
       EndIf
EndSelect
$msg = ""
WEnd