1. Скачайте файл bcrypt.pas (ищем сами) и добавьте его в свой проект Delphi.
2. Импортируйте модуль Bcrypt в вашем коде:
uses
Bcrypt;
3. Используйте функцию bcrypt_hash для хеширования пароля:
const salt = 'OOv2wLxbNjUxVcc1sjysau'
var
Password: string;
HashedPassword: string;
begin
Password := 'password';
HashedPassword := bcrypt_hash(Password+salt);
end;
4. Используйте функцию bcrypt_checkpw для проверки пароля:
const salt = 'OOv2wLxbNjUxVcc1sjysau'
var
Password: string;
HashedPassword: string;
IsMatch: Boolean;
begin
Password := 'password';
HashedPassword := bcrypt_hash(Password);
// Проверяем, соответствует ли пароль хэшу
IsMatch := bcrypt_checkpw(Password, HashedPassword);
end;
При вызове функции bcrypt_checkpw необходимо передать исходный пароль и хеш пароля + соль. Функция вернет значение True, если пароль соответствует хешу, и False в противном случае.