bcrypt

Bcrypt

Библиотека, чтобы помочь вам хэш -пароли. Вы можете прочитать о Bcrypt в Википедии, а также в следующей статье: Как безопасно хранить пароль

Установка

Через босс

Для легкостью я рекомендую использовать Boss (Deving Manager для Delphi) для установки, просто запустив команду ниже на терминале (например, Windows PowerShell):

 boss install https://github.com/viniciussanchez/bcrypt

Руководство

Если вы решите установить вручную, просто добавьте следующие папки в свой проект, в Project> Options> Resource Compiler> Directory and Conditionals> Включите путь поиска файлов

 ../bcrypt/src

Использование

Генерировать хэш

 var
  LHash: string;
begin
  LHash := TBCrypt.GenerateHash(password, cost, type );
end ;

Где

• password - это пароль, который нужно хэшировать
• type - один из thashtype.php, thashtype.bsd или thashtype.default, thashtype.bsd - по умолчанию $ 2A $
• 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.7Ps3iYFq
• cost - это число от 10 до 30, дефолт - 10

Хэш -информация

Персонажи, которые составляют результирующие хэш, являются:

 ./ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789

Результирующие хэши будут длиной 60 символов.

Кредиты

Код для этого исходит из нескольких источников:

• Бесплатный Pascal Bcrypt
• Bcrypt для Delphi