Perpustakaan untuk membantu Anda hash kata sandi. Anda dapat membaca tentang BCRYPT di Wikipedia dan juga di artikel berikut: Cara Menyimpan Kata Sandi Dengan Aman

Untuk kemudahan saya merekomendasikan menggunakan bos (manajer ketergantungan untuk delphi) untuk instalasi, cukup dengan menjalankan perintah di bawah ini di terminal (windows powershell misalnya):
boss install https://github.com/viniciussanchez/bcrypt
Jika Anda memilih untuk menginstal secara manual, cukup tambahkan folder berikut ke proyek Anda, di Project> Options> Resource Compiler> Direktori dan Kondisional> Sertakan jalur pencarian file
../bcrypt/src
var
LHash: string;
begin
LHash := TBCrypt.GenerateHash(password, cost, type );
end ;Di mana
password adalah kata sandi yang akan hashedtype adalah salah satu dari thashtype.php, thashtype.bsd, atau thashtype.default, thashtype.bsd adalah default cost adalah angka antara 10 dan 30, default adalah 10 var
LVerify : Boolean;
begin
LVerify := TBCrypt.CompareHash(password, hash);
end ;Di mana
password adalah kata sandi yang akan diverifikasihash adalah hash yang dihasilkan, mirip dengan $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 ;Di mana
hash adalah hash yang dihasilkan var
LNeeds : Boolean;
begin
LNeeds := TBCrypt.NeedsRehash(hash, cost);
end ;Di mana
hash adalah hash, mirip dengan $2y$12$GuC.Gk2YDsp8Yvga.IuSNOWM0fxEIsAEaWC1hqEI14Wa.7Ps3iYFqcost adalah angka antara 10 dan 30, default adalah 10Karakter yang terdiri dari hash yang dihasilkan adalah:
./ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789
Hash yang dihasilkan akan panjang 60 karakter.

Kode untuk ini berasal dari beberapa sumber: