Password Database

« Older   Newer »
  Share  
*Sym98*
CAT_IMG Posted on 9/7/2011, 12:22     +1   -1




Ciao a tutti.
Dopo non so quanti giorni di lavoro (Con l'estate ho perso la cognizione del tempo :D) sono riuscito a completare questo Database di Password scritto in Autoit.
Spero vi piaccia, dategli un'occhiata e fatemi sapere.

Source (Questa volta tante poche righe :)):

SPOILER (clicca per visualizzare)
CODICE
#include <GUIConstants.au3>
#include <EditConstants.au3>
#include <File.au3>
#include <WindowsConstants.au3>
#include <GIFAnimation.au3>
#include <GUIEdit.au3>

;FileInstall("C:\Users\Sym98\Documents\Programmazione\Autoit\Pratica\Password Database\Avatar.gif", @TempDir & "\Avatar.gif")

Global $aGIFArrayOfIconHandles
Global $hGIFThread
Global $iGIFTransparent
Global $tFrameCurrent
Global $Flagggg = "TUTTO"
Global $FlagX = 0
If FileExists(@TempDir & "\Pwd.dll") Then
$R = FileRead(@TempDir & "\Pwd.dll")
If $R <> "" Then
Global $FlagX = 1
$Flag = 0
Global $Form = GUICreate("Password Database", 243, 91)
Global $PasswordEdit = GUICtrlCreateInput("", 8, 32, 233, 21, $ES_PASSWORD)
Global $ButtonOk = GUICtrlCreateButton("&OK", 86, 64, 75, 25, 0)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
GUICtrlSetState(-1, $GUI_CHECKED)
Global $ButtonCancel = GUICtrlCreateButton("&Cancel", 167, 64, 75, 25, 0)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
Global $EnterPassLabel = GUICtrlCreateLabel("Enter password", 8, 7, 100, 23)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
GUISetState(@SW_SHOW)
Global $Read = FileRead(@TempDir & "\Pwd.dll")
Global $Pwd = __Crypt($Read,1)

While 1
       Global $Password = GUICtrlRead($PasswordEdit)
       $nMsg = GUIGetMsg()
       Switch $nMsg
               Case $GUI_EVENT_CLOSE
                       Exit
               Case $ButtonCancel
                       Exit
               Case $ButtonOk
                       _Verifica()
       EndSwitch
WEnd
EndIf
EndIf
_Database()
Func _Verifica()
                       If $Password = $Pwd Then
                               GUIDelete($Form)
                               _Database()
                       Else
                               MsgBox(16,"Errore","La password immessa è errata.", 1)
                       EndIf
EndFunc

Func _Database()
If $FlagX = 0 Then MsgBox(64, "Password Database", "Benvenuto nel tuo nuovo Database di Password!" & @CRLF & "Un consiglio: Specifica una Password per accedervi tramite il menu Strumenti-->Set Password.")
If Not FileExists(@TempDir & "\Database.dll") Then MsgBox(64, "Password Database", "Non hai ancora un Database di Password." & @CRLF & "Clicca su Strumenti-->Aggiungi una password per aggiungere una password e creare il Database.")
If FileExists(@TempDir & "\Database.dll") Then Global $lines = _FileCountLines(@TempDir & "\Database.dll")
Global $Form = GUICreate("DatabasePassword", 537, 241)
$Group1 = GUICtrlCreateGroup("", -1, 192, 536, 31)
$Label2 = GUICtrlCreateLabel("Status: ", 3, 202, 40, 17)
If FileExists(@TempDir & "\Database.dll") Then
Global $Label3 = GUICtrlCreateLabel("Caricamento Database in corso...", 40, 201, 161, 17)
Else
Global $Label3 = GUICtrlCreateLabel("Database non presente...", 40, 201, 161, 17)
EndIf
GUICtrlCreateGroup("", -99, -99, 1, 1)
$ButtonCerca = GUICtrlCreateButton("Cerca", 362, 39, 166, 25, 0)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
Global $DatabaseList = GUICtrlCreateListView("Username|Password|Tipo di dati|Proprietario", 4, 6, 354, 189)
$InputCerca = GUICtrlCreateInput("", 364, 7, 167, 27)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
Global $Progress1 = GUICtrlCreateProgress(363, 70, 164, 20)
;$Progress2 = GUICtrlCreateProgress(364, 93, 164, 20)
Global $percent = GUICtrlCreateLabel("0%", 425, 93, 103, 20)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
$RicaricaDatabase = GUICtrlCreateButton("Ricarica Database", 363, 119, 165, 28, 0)
GUICtrlSetFont(-1, 9, 800, 2, "Comic Sans MS")
$Label1 = GUICtrlCreateLabel("Totale Password:", 365, 161, 112, 23)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
If FileExists(@TempDir & "\Database.dll") Then
Global $LabelNumPassword = GUICtrlCreateLabel($lines & " ", 478, 162, 40, 25)
GUICtrlSetFont(-1, 11, 800, 0, "Comic Sans MS")
Else
Global $LabelNumPassword = GUICtrlCreateLabel("0" & " ", 478, 162, 40, 25)
GUICtrlSetFont(-1, 11, 800, 0, "Comic Sans MS")
EndIf
;Menu
$File = GUICtrlCreateMenu("File")
$Esci = GUICtrlCreateMenuItem("Esci", $File)
$Strumenti = GUICtrlCreateMenu("Strumenti")
$AggiungiPassword = GUICtrlCreateMenuItem("Aggiungi Password", $Strumenti)
$Opzioni = GUICtrlCreateMenuItem("Opzioni", $Strumenti)
$SetPassword = GUICtrlCreateMenuItem("Set Password", $Strumenti)
$O = GUICtrlCreateMenu("?")
$About = GUICtrlCreateMenuItem("About", $O)
GUISetState(@SW_SHOW)
If FileExists(@TempDir & "\Database.dll") Then _CaricaDatabase()

While 1
Global $s_LabelNumPassword = GUICtrlRead($LabelNumPassword)
Global $Cerca = GUICtrlRead($InputCerca)
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Esci
Exit
Case $RicaricaDatabase
_PulisciDatabase()
_CaricaDatabase()
Case $About
GUISetState(@SW_DISABLE, $Form)
$Form3 = GUICreate("About", 401, 315)
$GroupBox1 = GUICtrlCreateGroup("", 5, 3, 389, 280)
$hGIF = _GUICtrlCreateGIF(@TempDir & "\Avatar.gif", 13, 19, $aGIFArrayOfIconHandles, $hGIFThread, $iGIFTransparent, $tFrameCurrent)
$Label1 = GUICtrlCreateLabel("Autore:         Sym98", 185, 23, 97, 17)
$Label2 = GUICtrlCreateLabel("", 122, 51, 4, 4)
$Label3 = GUICtrlCreateLabel("Versione:            1.0", 182, 53, 99, 17)
$Label4 = GUICtrlCreateLabel("Descrizione: Database di password.", 182, 80, 173, 17)
$Label5 = GUICtrlCreateLabel("La funzione per criptare la password di", 180, 103, 185, 17)
$Label6 = GUICtrlCreateLabel("accesso è stata creata da Aaly. ;)", 178, 123, 162, 17)
$Label8 = GUICtrlCreateLabel("Hack.Sym98@hotmail.it", 164, 167, 227, 31)
GUICtrlSetFont(-1, 14, 800, 2, "Comic Sans MS")
$Label7 = GUICtrlCreateLabel("http://autoit.forumcommunity.net/", 159, 235, 229, 23)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button = GUICtrlCreateButton("Ok", 9, 288, 385, 20, 0)
GUICtrlSetFont(-1, 10, 800, 2, "Comic Sans MS")
GUISetState(@SW_SHOW)

While 1
       $nMsg = GUIGetMsg()
       Switch $nMsg
               Case $GUI_EVENT_CLOSE
                       _GUICtrlDeleteGIF($hGIF, $aGIFArrayOfIconHandles, $hGIFThread, $tFrameCurrent)
                       GUIDelete($Form3)
                       GUISetState(@SW_ENABLE, $Form)
                       WinSetOnTop("PasswordDatabase", "", 1)
                       WinSetOnTop("PasswordDatabase", "", 0)
                       ExitLoop
               Case $Button
                       _GUICtrlDeleteGIF($hGIF, $aGIFArrayOfIconHandles, $hGIFThread, $tFrameCurrent)
                       GUIDelete($Form3)
                       GUISetState(@SW_ENABLE, $Form)
                       WinSetOnTop("PasswordDatabase", "", 1)
                       WinSetOnTop("PasswordDatabase", "", 0)
                       ExitLoop
               Case $Label7
                       ShellExecute("http://autoit.forumcommunity.net/")
       EndSwitch
WEnd
Case $Opzioni
If Not FileExists (@TempDir & "\~Database~.tmp") Then
FileWrite(@TempDir & "\~Database~.tmp", $Flagggg)
$FlagC = 1
Else
$FlagC = 0
EndIf
Global $ReadOpzioni = FileRead(@TempDir & "\~Database~.tmp")
GUISetState(@SW_DISABLE, $Form)
$Form5 = GUICreate("Opzioni", 457, 308)
$Group1 = GUICtrlCreateGroup("Cerca:", 4, 3, 449, 250)
GUICtrlSetFont(-1, 10, 800, 2, "Comic Sans MS")
$N_Username = GUICtrlCreateRadio("Negli Username ", 9, 30, 546, 24)
GUICtrlSetFont(-1, 11, 800, 2, "Comic Sans MS")
If $ReadOpzioni = "USERNAME" Then GUICtrlSetState(-1, $GUI_CHECKED)
$N_Password = GUICtrlCreateRadio("Nelle Password ", 10, 70, 546, 24)
GUICtrlSetFont(-1, 11, 800, 2, "Comic Sans MS")
If $ReadOpzioni = "PASSWORD" Then GUICtrlSetState(-1, $GUI_CHECKED)
$N_Dati = GUICtrlCreateRadio("Nei Tipi di Dati ", 9, 111, 546, 24)
GUICtrlSetFont(-1, 11, 800, 2, "Comic Sans MS")
If $ReadOpzioni = "DATI" Then GUICtrlSetState(-1, $GUI_CHECKED)
$N_Proprietari = GUICtrlCreateRadio("Nei Proprietari ", 7, 159, 546, 24)
GUICtrlSetFont(-1, 11, 800, 2, "Comic Sans MS")
If $ReadOpzioni = "PROPRIETARI" Then GUICtrlSetState(-1, $GUI_CHECKED)
$N_Tutto = GUICtrlCreateRadio("In tutto ", 8, 204, 546, 24)
GUICtrlSetFont(-1, 11, 800, 2, "Comic Sans MS")
If $ReadOpzioni = "TUTTO" Then GUICtrlSetState(-1, $GUI_CHECKED)
If $FlagC = 1 Then GUICtrlSetState(-1, $GUI_CHECKED)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Conferma = GUICtrlCreateButton("Conferma", 3, 259, 215, 41, 0)
GUICtrlSetFont(-1, 12, 800, 0, "Comic Sans MS")
$Annulla = GUICtrlCreateButton("Annulla", 238, 258, 215, 41, 0)
GUICtrlSetFont(-1, 12, 800, 0, "Comic Sans MS")
GUISetState(@SW_SHOW)

While 1
       $nMsg = GUIGetMsg()
       Switch $nMsg
               Case $GUI_EVENT_CLOSE
                       GUIDelete($Form5)
                       GUISetState(@SW_ENABLE, $Form)
                       WinSetOnTop("PasswordDatabase", "", 1)
                       WinSetOnTop("PasswordDatabase", "", 0)
                       ExitLoop
               Case $Annulla
                       $Flagggg = $ReadOpzioni
                       GUIDelete($Form5)
                       GUISetState(@SW_ENABLE, $Form)
                       WinSetOnTop("PasswordDatabase", "", 1)
                       WinSetOnTop("PasswordDatabase", "", 0)
                       ExitLoop
               Case $N_Username
               Global        $Flagggg = "USERNAME"

               Case $N_Password
               Global        $Flagggg = "PASSWORD"

               Case $N_Dati
               Global        $Flagggg = "DATI"

               Case $N_Proprietari
               Global        $Flagggg = "PROPRIETARI"

               Case $N_Tutto
               Global        $Flagggg = "TUTTO"

       Case $Conferma
               FileDelete(@TempDir & "\~Database~.tmp")
               FileWrite(@TempDir & "\~Database~.tmp", $Flagggg)
               Global $ReadOpzioni = FileRead(@TempDir & "\~Database~.tmp")
               GUIDelete($Form5)
               GUISetState(@SW_ENABLE, $Form)
               GUICtrlSetData($Label3, "Opzioni modificate!")
               WinSetOnTop("PasswordDatabase", "", 1)
               WinSetOnTop("PasswordDatabase", "", 0)
               ExitLoop
       EndSwitch
WEnd

Case $AggiungiPassword
GUISetState(@SW_DISABLE, $Form)
$Form4 = GUICreate("Aggiungi Password", 466, 100, 366, 179)
$Label1 = GUICtrlCreateLabel("Username:", 2, 1, 70, 23)
GUICtrlSetFont(-1, 10, 800, 2, "Comic Sans MS")
$Label2 = GUICtrlCreateLabel("Password:", 124, 2, 66, 23)
GUICtrlSetFont(-1, 10, 800, 2, "Comic Sans MS")
$Label3 = GUICtrlCreateLabel("Tipo di dato:", 231, 1, 89, 23)
GUICtrlSetFont(-1, 10, 800, 2, "Comic Sans MS")
$Label4 = GUICtrlCreateLabel("Proprietario:", 354, 1, 84, 23)
GUICtrlSetFont(-1, 10, 800, 2, "Comic Sans MS")
$Add_Username = GUICtrlCreateInput("", 2, 20, 75, 27)
GUICtrlSetFont(-1, 10, 800, 2, "Comic Sans MS")
$Add_Password = GUICtrlCreateInput("", 118, 22, 75, 27)
GUICtrlSetFont(-1, 10, 800, 2, "Comic Sans MS")
$Add_dato = GUICtrlCreateInput("", 229, 22, 96, 27)
GUICtrlSetFont(-1, 10, 800, 2, "Comic Sans MS")
$Add_proprietario = GUICtrlCreateInput("", 349, 21, 101, 27)
GUICtrlSetFont(-1, 10, 800, 2, "Comic Sans MS")
$Aggiungi = GUICtrlCreateButton("Aggiungi", 1, 51, 462, 23, 0)
GUICtrlSetFont(-1, 10, 800, 2, "Comic Sans MS")
$Annulla = GUICtrlCreateButton("Annulla", 1, 74, 462, 23, 0)
GUICtrlSetFont(-1, 10, 800, 2, "Comic Sans MS")
GUISetState(@SW_SHOW)


While 1
$s_AddUsername = GUICtrlRead($Add_Username)
$s_AddPassword = GUICtrlRead($Add_Password)
$s_AddDato = GUICtrlRead($Add_dato)
$s_AddProprietario = GUICtrlRead($Add_proprietario)
       $nMsg = GUIGetMsg()
       Switch $nMsg
               Case $GUI_EVENT_CLOSE
                       GUIDelete($Form4)
                       GUISetState(@SW_ENABLE, $Form)
                       WinSetOnTop("PasswordDatabase", "", 1)
                       WinSetOnTop("PasswordDatabase", "", 0)
                       ExitLoop
               Case $Annulla
                       GUIDelete($Form4)
                       GUISetState(@SW_ENABLE, $Form)
                       WinSetOnTop("PasswordDatabase", "", 1)
                       WinSetOnTop("PasswordDatabase", "", 0)
                       ExitLoop
               Case $Aggiungi
                       If $s_AddUsername <> "" And $s_AddPassword <> "" And $s_AddDato <> "" And $s_AddProprietario <> "" Then
                               FileWrite(@TempDir & "\Database.dll", "")
                               FileWrite(@TempDir & "\Database.dll", $s_AddUsername & "|" & $s_AddPassword & "|" & $s_AddDato & "|" & $s_AddProprietario & @CRLF)
                               MsgBox(64, "Password Database", "Operazione eseguita correttamente!", 1)
                               GUIDelete($Form4)
                               GUISetState(@SW_ENABLE, $Form)
                               GUICtrlSetData($Label3, "Password aggiunta al Database!")
                               GUICtrlSetData($LabelNumPassword, $s_LabelNumPassword + 1)
                               $Text = FileReadLine(@TempDir & "\Database.dll", _FileCountLines(@TempDir & "\Database.dll"))
                               GuiCtrlCreateListViewItem($Text, $DatabaseList)
                               GUICtrlSetColor(-1, 0x00FF00)
                               Global $s_LabelNumPassword = GUICtrlRead($LabelNumPassword)
                       If $s_LabelNumPassword = 1 Then
                               MsgBox(64, "Password Database", "Il programma verrà riavviato.")
                               If @Compiled Then
                               Run(@ScriptFullPath)
                               Exit
                               Else
                               ShellExecute(@ScriptFullPath)
                               Exit
                               EndIf
                       EndIf
                               WinSetOnTop("PasswordDatabase", "", 1)
                               WinSetOnTop("PasswordDatabase", "", 0)
                               ExitLoop
                       Else
                               MsgBox(16, "Errore!", "Compila tutti i campi", 1)
                       Endif
       EndSwitch
WEnd

Case $SetPassword
GUISetState(@SW_DISABLE, $Form)
$Form2 = GUICreate("Set Password...", 195, 132)
$Label1 = GUICtrlCreateLabel("Nuova Password:", 27, 3, 134, 27)
GUICtrlSetFont(-1, 12, 800, 2, "Comic Sans MS")
$NewPass1 = GUICtrlCreateInput("", 1, 30, 188, 24,$ES_PASSWORD)
GUICtrlSetFont(-1, 8, 800, 0, "Comic Sans MS")
$Label2 = GUICtrlCreateLabel("Conferma Password:", 22, 56, 160, 27)
GUICtrlSetFont(-1, 12, 800, 2, "Comic Sans MS")
$NewPass2 = GUICtrlCreateInput("", 3, 82, 188, 24,$ES_PASSWORD)
GUICtrlSetFont(-1, 8, 800, 0, "Comic Sans MS")
$Confirm = GUICtrlCreateButton("Ok", 3, 109, 86, 16, 0)
GUICtrlSetFont(-1, 8, 800, 0, "Comic Sans MS")
$Cancel = GUICtrlCreateButton("Annulla", 99, 110, 86, 16, 0)
GUICtrlSetFont(-1, 8, 800, 0, "Comic Sans MS")
GUISetState(@SW_SHOW)
GUICtrlSetState($Confirm, $GUI_DISABLE)
$Flagg = 0

While 1
       $s_NewPass1 = GUICtrlRead($NewPass1)
       $s_NewPass2 = GUICtrlRead($NewPass2)
If $s_NewPass1 <> "" And $s_NewPass2 <> "" And $Flagg = 1 Then
               GUICtrlSetState($Confirm, $GUI_ENABLE)
       $Flagg = 0
Elseif $s_NewPass1 = "" And $s_NewPass2 = "" And $Flagg = 0 Then
       $Flagg = 1
       GUICtrlSetState($Confirm, $GUI_DISABLE)
       EndIf
       $nMsg = GUIGetMsg()
       Switch $nMsg
               Case $GUI_EVENT_CLOSE
                       GUIDelete($Form2)
                       GUISetState(@SW_ENABLE, $Form)
                       WinSetOnTop("PasswordDatabase", "", 1)
                       WinSetOnTop("PasswordDatabase", "", 0)
                       ExitLoop
               Case $Cancel
                       GUIDelete($Form2)
                       GUISetState(@SW_ENABLE, $Form)
                       WinSetOnTop("PasswordDatabase", "", 1)
                       WinSetOnTop("PasswordDatabase", "", 0)
                       ExitLoop
               Case $Confirm
                       If $s_NewPass1 = $s_NewPass2 Then
                       $NewPass = __Crypt($s_NewPass1,1)
                       FileDelete(@TempDir & "\Pwd.dll")
                       FileWrite(@TempDir & "\Pwd.dll", $NewPass)
                       MsgBox(64, "Set Password...", "Operazione eseguita correttamente." & @CRLF & "Nuova Password: " & $s_NewPass1, 5)
                       GUISetState(@SW_ENABLE, $Form)
                       GUICtrlSetData($Label3, "Impostata password di accesso!")
                       WinSetOnTop("PasswordDatabase", "", 1)
                       WinSetOnTop("PasswordDatabase", "", 0)
                       GUIDelete($Form2)
                       ExitLoop
               Else
                       MsgBox(16, "Errore!", "Le due password immesse non combaciano.", 1)
                       GUICtrlSetData($NewPass1, "")
                       GUICtrlSetData($NewPass2, "")
                       EndIf
       EndSwitch
WEnd
Case $ButtonCerca
If $Cerca <> "" Then
       $Flaggg = 0
       GUICtrlSetData($Label3, "Ricerca in corso...")
       _PulisciDatabase()
If $Flagggg = "TUTTO" Then
       For $line = 1 to  _FileCountLines(@TempDir & "\Database.dll")
       $DatabaseLine = FileReadLine(@TempDir & "\Database.dll", $line)
       $arr2 = StringSplit($DatabaseLine, "|")
       For $i = 0 to UBound($arr2)-1
       If StringInStr($Cerca, $arr2[$i]) Then
       $Flaggg = 1
       GuiCtrlCreateListViewItem($DatabaseLine, $DatabaseList)
       GUICtrlSetColor(-1, 0x00FF00)
       EndIf
       Next
       GUICtrlSetData($Progress1, $line * 100 /  _FileCountLines(@TempDir & "\Database.dll"))
       $arr = StringSplit($line * 100 /  _FileCountLines(@TempDir & "\Database.dll"), ".")
       GUICtrlSetData($percent, $arr[1] & "%")
       Next
       GUICtrlSetData($InputCerca, "")
ElseIf  $Flagggg = "USERNAME" Then
       For $line = 1 to  _FileCountLines(@TempDir & "\Database.dll")
       $DatabaseLine = FileReadLine(@TempDir & "\Database.dll", $line)
       $arr2 = StringSplit($DatabaseLine, "|")
       If StringInStr($Cerca, $arr2[1]) Then
       $Flaggg = 1
       GuiCtrlCreateListViewItem($DatabaseLine, $DatabaseList)
       GUICtrlSetColor(-1, 0x00FF00)
       EndIf
       GUICtrlSetData($Progress1, $line * 100 /  _FileCountLines(@TempDir & "\Database.dll"))
       $arr = StringSplit($line * 100 /  _FileCountLines(@TempDir & "\Database.dll"), ".")
       GUICtrlSetData($percent, $arr[1] & "%")
       Next
       GUICtrlSetData($InputCerca, "")
ElseIf  $Flagggg = "PASSWORD" Then
       For $line = 1 to  _FileCountLines(@TempDir & "\Database.dll")
       $DatabaseLine = FileReadLine(@TempDir & "\Database.dll", $line)
       $arr2 = StringSplit($DatabaseLine, "|")
       If StringInStr($Cerca, $arr2[2]) Then
       $Flaggg = 1
       GuiCtrlCreateListViewItem($DatabaseLine, $DatabaseList)
       GUICtrlSetColor(-1, 0x00FF00)
       EndIf
       GUICtrlSetData($Progress1, $line * 100 /  _FileCountLines(@TempDir & "\Database.dll"))
       $arr = StringSplit($line * 100 /  _FileCountLines(@TempDir & "\Database.dll"), ".")
       GUICtrlSetData($percent, $arr[1] & "%")
       Next
       GUICtrlSetData($InputCerca, "")
ElseIf  $Flagggg = "DATI" Then
       For $line = 1 to  _FileCountLines(@TempDir & "\Database.dll")
       $DatabaseLine = FileReadLine(@TempDir & "\Database.dll", $line)
       $arr2 = StringSplit($DatabaseLine, "|")
       If StringInStr($Cerca, $arr2[3]) Then
       $Flaggg = 1
       GuiCtrlCreateListViewItem($DatabaseLine, $DatabaseList)
       GUICtrlSetColor(-1, 0x00FF00)
       EndIf
       GUICtrlSetData($Progress1, $line * 100 /  _FileCountLines(@TempDir & "\Database.dll"))
       $arr = StringSplit($line * 100 /   _FileCountLines(@TempDir & "\Database.dll"), ".")
       GUICtrlSetData($percent, $arr[1] & "%")
       Next
       GUICtrlSetData($InputCerca, "")
ElseIf  $Flagggg = "PROPRIETARI" Then
       For $line = 1 to _FileCountLines(@TempDir & "\Database.dll")
       $DatabaseLine = FileReadLine(@TempDir & "\Database.dll", $line)
       $arr2 = StringSplit($DatabaseLine, "|")
       If StringInStr($Cerca, $arr2[4]) Then
       $Flaggg = 1
       GuiCtrlCreateListViewItem($DatabaseLine, $DatabaseList)
       GUICtrlSetColor(-1, 0x00FF00)
       EndIf
       GUICtrlSetData($Progress1, $line * 100 / $lines)
       $arr = StringSplit($line * 100 / $lines, ".")
       GUICtrlSetData($percent, $arr[1] & "%")
       Next
       GUICtrlSetData($InputCerca, "")
EndIf
If $Flaggg = 1 Then
GUICtrlSetData($Label3, "Ricerca completata!")
MsgBox(64,"Database Password", "Operazione eseguita correttamente", 1)
Else
GUICtrlSetData($Label3, "Ricerca completata!")
MsgBox(64,"Database Password", "Non è stato trovato niente", 1)
EndIf
EndIf
EndSwitch
WEnd
EndFunc

Func __Crypt($xTex,$xMod)
      Global $Rot13[27][27] = [["a","N"],["b","O"],["c","P"],["d","Q"],["e","R"],["f","S"],["g","T"],["h","U"],["i","V"],["j","W"],["k","X"],["l","Y"],["m","Z"],["n","A"],["o","B"],["p","C"],["q","D"],["r","E"],["s","F"],["t","G"],["u","H"],["v","I"],["w","j"],["x","K"],["y","L"],["z","M"]]
      $N_TEX = StringLower($xTex)

      If $xMod = 1 Then
              For $i = 0 To 25 Step 1
                      $N_TEX = StringReplace($N_TEX, $Rot13[$i][0], $Rot13[$i][1],0,1)
              Next
      Else
              For $i = 0 To 25 Step 1
                      $N_TEX = StringReplace($N_TEX, $Rot13[0][$i], $Rot13[1][$i],0,1)
              Next
      EndIf
      Return($N_TEX)
          ;Func By Aaly. ;)
  EndFunc

Func _CaricaDatabase()
;Database
GUISetState(@SW_DISABLE, $Form)
GUISetState(@SW_SHOW)
For $line = 1 to  _FileCountLines(@TempDir & "\Database.dll")
$DatabaseLine = FileReadLine(@TempDir & "\Database.dll", $line)
GuiCtrlCreateListViewItem($DatabaseLine, $DatabaseList)
GUICtrlSetColor(-1, 0x00FF00)
GUICtrlSetData($Progress1, $line * 100 / $lines)
$arr = StringSplit($line * 100 / $lines, ".")
GUICtrlSetData($percent, $arr[1] & "%")
Next
GUISetState(@SW_ENABLE, $Form)
GUICtrlSetData($Label3, "Database caricato!")
MsgBox(64,"Database Password","Database caricato correttamente!", 1)
EndFunc

Func _PulisciDatabase()
GUICtrlDelete($DatabaseList)
Global $DatabaseList = GUICtrlCreateListView("Username|Password|Tipo di dati|Proprietario", 4, 6, 354, 189)
$InputCerca = GUICtrlCreateInput("", 364, 7, 167, 27)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
EndFunc


Per far funzionare il file .Au3 bisogna avere il mio Avatar di ForumCommunity salvato in @TempDir con il nome di "Avatar.gif" (nell'Exe ho usato FileInstall). ;)

Download Exe

Si accettano consigli/critiche costruttive.

Func __Crypt() creata da Aaly. ;)
 
Top
__TeMpEsTa__
CAT_IMG Posted on 9/7/2011, 13:45     +1   -1




bravo!Ma adesso voglio testarlo (non prenderlo a testate xD) quindi dammi la tua pass di forumcommunity ;)
 
Top
*Sym98*
CAT_IMG Posted on 9/7/2011, 14:09     +1   -1




CITAZIONE (__TeMpEsTa__ @ 9/7/2011, 14:45) 
bravo!Ma adesso voglio testarlo (non prenderlo a testate xD) quindi dammi la tua pass di forumcommunity ;)

1 Non lo puoi prendere a testate finchè usi Mac Zos Leopard.
2 La mia password è sotto Spoiler:

SPOILER (clicca per visualizzare)
:trollface: Scordatela.


:P
 
Top
__TeMpEsTa__
CAT_IMG Posted on 9/7/2011, 14:45     +1   -1




1 mi sono appena istallato winzoz svista ed ubuntu!ne farò buon uso della tua pass. ;)
 
Top
*Sym98*
CAT_IMG Posted on 9/7/2011, 15:09     +1   -1




CITAZIONE (__TeMpEsTa__ @ 9/7/2011, 15:45) 
1 mi sono appena istallato winzoz svista ed ubuntu!ne farò buon uso della tua pass. ;)

[/OT]
 
Top
LoGiX
CAT_IMG Posted on 9/7/2011, 15:32     +1   +1   -1




g00d w0rk!
 
Top
*Sym98*
CAT_IMG Posted on 9/7/2011, 15:32     +1   -1




Grazie. ^_^
 
Top
Aaly
CAT_IMG Posted on 9/7/2011, 16:11     +1   +1   -1




Carino, un po' scomode le msgbox iniziali, sopprattutto perchè quando aggiungi una password si riavvia tutto, comprese le msgbox appunto.
Inoltre, io ho aggiunto "a", e quando ho cercato "a" mi ha trovato 4 valori di "a", non so se deve essere così, non penso.
Se succede come penso io, li cerca in tutti i valori, allora dovresti fare una combo con chiesto dove cercare(username, password, ...)
Per il resto non male. ;)
 
Top
*Sym98*
CAT_IMG Posted on 9/7/2011, 16:36     +1   -1




CITAZIONE (Aaly @ 9/7/2011, 17:11) 
Carino, un po' scomode le msgbox iniziali, sopprattutto perchè quando aggiungi una password si riavvia tutto, comprese le msgbox appunto.
Inoltre, io ho aggiunto "a", e quando ho cercato "a" mi ha trovato 4 valori di "a", non so se deve essere così, non penso.
Se succede come penso io, li cerca in tutti i valori, allora dovresti fare una combo con chiesto dove cercare(username, password, ...)
Per il resto non male. ;)

Purtroppo il riavvio del programma l'ho inserito perchè senza di quello avrei dovuto correggere una decina di bug...
L'ho messo dopo aver completato lo script, insieme alle MsgBox iniziali, che ho utilizzato come "mini-guida" e presentazione del programma la prima volta che lo si apre.
I bug che causano il suo riavvio quando si imposta la prima password del Database sono dovuti all'inserimento delle MsgBox (non avrei dovuto metterle).
Per cercare solo negli Username, solo nelle Password ecc...ci sono le Opzioni. ;)
Il bug delle "a" non l'avevo notato, grazie della segnalazione.
 
Top
xMasteRx
CAT_IMG Posted on 9/7/2011, 16:57     +1   +1   -1




bravo ;)
 
Top
*Sym98*
CAT_IMG Posted on 9/7/2011, 16:58     +1   -1




Grazie. ;)
 
Top
__TeMpEsTa__
CAT_IMG Posted on 9/7/2011, 21:20     +1   +1   -1




Comunque a parte gli scherzi bravo ;)
 
Top
*Sym98*
CAT_IMG Posted on 9/7/2011, 21:22     +1   -1




Thanks. ^_^

Edited by *Sym98* - 15/9/2011, 10:46
 
Top
Aaly
CAT_IMG Posted on 9/7/2011, 21:24     +1   -1




Lol, vedere ciò mi fa venire voglia di finire le due funzioni bugghe del mio psm e postarlo. xD
 
Top
*Sym98*
CAT_IMG Posted on 9/7/2011, 21:39     +1   -1




CITAZIONE (Aaly @ 9/7/2011, 22:24) 
Lol, vedere ciò mi fa venire voglia di finire le due funzioni bugghe del mio psm e postarlo. xD

Io dovrei completare il mio Solve Geometric Problems, ma dove la trovo la voglia di correggere il bug in 2400 righe? :D
 
Top
20 replies since 9/7/2011, 12:22   690 views
  Share  
 

Programmi
 

Create your forum and your blog! · Top Forum · Categories · Help · Status · Contacts · Powered by ForumCommunity