bcrypt
1.0.8
一個庫來幫助您哈希密碼。您可以在Wikipedia以及以下文章中閱讀有關BCrypt的信息:如何安全存儲密碼

為了放鬆,我建議使用Boss (Delphi的依賴項經理)進行安裝,只需在終端上運行以下命令(例如Windows PowerShell):
boss install https://github.com/viniciussanchez/bcrypt
如果選擇手動安裝,只需在項目>“選項>“資源編譯器”>“目錄和條件”> Include File Search Path中添加以下文件夾
../bcrypt/src
var
LHash: string;
begin
LHash := TBCrypt.GenerateHash(password, cost, type );
end ;在哪裡
password是要哈希的密碼type是thashtype.php,thashtype.bsd或thashtype.default之一,thashtype.bsd是默認值cost是10到30之間的數字,默認值為10 var
LVerify : Boolean;
begin
LVerify := TBCrypt.CompareHash(password, hash);
end ;在哪裡
password是要驗證的密碼hash是生成的哈希,類似於$2y$12$GuC.Gk2YDsp8Yvga.IuSNOWM0fxEIsAEaWC1hqEI14Wa.7Ps3iYFq var
LHashInfo: THashInfo;
LSalt, LHash: string;
LHashType: THashType;
LCost: Word;
begin
LHashInfo := TBCrypt.GetHashInfo(hash);
LCost := LHashInfo.Cost;
LSalt := LHashInfo.Salt;
LHash := LHashInfo.Hash;
LHashType := LHashInfo.& Type ;在哪裡
hash是產生的哈希 var
LNeeds : Boolean;
begin
LNeeds := TBCrypt.NeedsRehash(hash, cost);
end ;在哪裡
hash是一個哈希,類似於$2y$12$GuC.Gk2YDsp8Yvga.IuSNOWM0fxEIsAEaWC1hqEI14Wa.7Ps3iYFqcost是10到30之間的數字,默認值為10構成結果的字符是:
./ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789
由此產生的哈希將長60個字符。

該代碼來自一些來源: