PureBasic Forums - English

Code: Select all

;========================================================================
;
; Author:     blueb    
; Date:       December 24, 2023
;
; Explain:    Password Manager (using 'DB Browser for SQLCipher') 
;                (Only the sqlcipher.dll is actually required)
; Credits:
;             DB Browser for SQLCipher (freeware)
; =================================================================
;
; DB Browser for SQLCipher is a powerful and user-friendly tool for working with SQLCipher-encrypted SQLite databases.
; If you need to manage and query such databases, this tool is a reliable and secure choice.
;
;Explanation:  This program uses the 'sqlcipher.dll' And 'libcrypto-1_1-x64.dll' from the freeware 
;              program 'DB Browser for SQLCipher'. see: https://sqlitebrowser.org/
;              
;              For downloads visit: https://sqlitebrowser.org/dl/
;
;              You do not need the full program unless you want to make changes to the 'SALT' password I have used to create the DB (e.g. 'Great tasting Pizza')
;
;              PassKeeper is totally freeware, but I cannot be responsible for any problems you might encounter.
;              Feel free to make any changes you see fit.
; =================================================================

; ****************************************************************************************************************************************
; HINT:  Do NOT keep this source code any where near the EXE file.. anyone with the database SALT will find your passcodes!
; ****************************************************************************************************************************************

EnableExplicit

; Libraries required
UseSQLiteDatabase("sqlcipher.dll")   ; Use the encryption DLL from 'DB Browser for SQLCipher'

Declare CheckDatabaseUpdate(Database, Query$)
Declare.s Requester(Title$,Message$,DefaultString$)

;- Globals
Global DatabaseFile.s = GetCurrentDirectory()+"PassKeeper.db"
Global theImage.s
Global Quit

If OpenDatabase(0, DatabaseFile, "", "") 
   CheckDatabaseUpdate(0, "PRAGMA key = 'Great tasting Pizza'")  ; Database 'SALT' (Don't worry.. that's not the real salt haha)
   
   If DatabaseQuery(0, "SELECT * FROM Keeper WHERE Website LIKE '%AAAA Passcode%';") ;get the password string from row selected (AAAA Passcode 'Item Name' should be unique)
      While NextDatabaseRow(0)
         theImage = GetDatabaseString(0, 3) 
      Wend
      
      FinishDatabaseQuery(0)
   EndIf
   
EndIf