148 lines
4.3 KiB
ObjectPascal
148 lines
4.3 KiB
ObjectPascal
{*******************************************************}
|
|
|
|
{ Renegade BBS }
|
|
|
|
{ Copyright (c) 1990-2013 The Renegade Dev Team }
|
|
{ Copyleft (ↄ) 2016-2017 Renegade BBS }
|
|
|
|
{ This file is part of Renegade BBS }
|
|
|
|
{ Renegade is free software: you can redistribute it }
|
|
{ and/or modify it under the terms of the GNU General }
|
|
{ Public License as published by the Free Software }
|
|
{ Foundation, either version 3 of the License, or }
|
|
{ (at your option) any later version. }
|
|
|
|
{ Renegade is distributed in the hope that it will be }
|
|
{ useful, but WITHOUT ANY WARRANTY; without even the }
|
|
{ implied warranty of MERCHANTABILITY or FITNESS FOR }
|
|
{ A PARTICULAR PURPOSE. See the GNU General Public }
|
|
{ License for more details. }
|
|
|
|
{ You should have received a copy of the GNU General }
|
|
{ Public License along with Renegade. If not, see }
|
|
{ <http://www.gnu.org/licenses/>. }
|
|
|
|
{*******************************************************}
|
|
{ _______ __ }
|
|
{ | _ .-----.-----.-----.-----.---.-.--| .-----. }
|
|
{ |. l | -__| | -__| _ | _ | _ | -__| }
|
|
{ |. _ |_____|__|__|_____|___ |___._|_____|_____| }
|
|
{ |: | | |_____| }
|
|
{ |::.|:. | }
|
|
{ `--- ---' }
|
|
{*******************************************************}
|
|
|
|
unit Renegade.Hash;
|
|
{$codepage utf8}
|
|
{$h+}{$mode objfpc}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes,
|
|
SysUtils,
|
|
Hash.Md,
|
|
Hash.Sha,
|
|
Hash.Base64,
|
|
Hash.Util,
|
|
Hash.BCrypt;
|
|
|
|
type
|
|
TBCrypt = object
|
|
public
|
|
function Hash(const Password : AnsiString) : AnsiString; overload;static;
|
|
function Hash(const Password : AnsiString; HashType : THashTypes) : AnsiString; overload;
|
|
function Hash(const Password : AnsiString; HashType : THashTypes; Cost : Byte) : AnsiString; overload;
|
|
function Verify(const Password, BCryptHash : AnsiString) : Boolean;
|
|
function NeedsRehash(const BCryptHash : AnsiString) : Boolean; overload;
|
|
function NeedsRehash(const BCryptHash : AnsiString; Cost : Byte) : Boolean; overload;
|
|
function GetInfo(const BCryptHash : AnsiString) : RTPasswordInformation;
|
|
end;
|
|
|
|
RTHash = object
|
|
public
|
|
Base64 : RTBase64;static;
|
|
Sha : RTSha;static;
|
|
Md : RTMd;static;
|
|
Util : RTHashUtil;static;
|
|
BCrypt : TBCrypt;static;
|
|
function HashEquals(KnownHash, CheckedHash : ansistring): boolean;static;
|
|
end;
|
|
|
|
implementation
|
|
|
|
{ TBCrypt }
|
|
function TBCrypt.Hash(const Password : AnsiString) : AnsiString; overload;
|
|
var
|
|
BCrypt : RTBCrypt;
|
|
begin
|
|
BCrypt := RTBCrypt.Create;
|
|
Result := BCrypt.CreateHash(Password, bcPHP, BCRYPT_DEFAULT_COST);
|
|
BCrypt.Free;
|
|
end;
|
|
|
|
function TBCrypt.Hash(const Password : AnsiString; HashType : THashTypes) : AnsiString; overload;
|
|
var
|
|
BCrypt : RTBCrypt;
|
|
begin
|
|
BCrypt := RTBCrypt.Create;
|
|
Result := BCrypt.CreateHash(Password, HashType, BCRYPT_DEFAULT_COST);
|
|
BCrypt.Free;
|
|
end;
|
|
|
|
function TBCrypt.Hash(const Password : AnsiString; HashType : THashTypes; Cost : Byte) : AnsiString; overload;
|
|
var
|
|
BCrypt : RTBCrypt;
|
|
begin
|
|
BCrypt := RTBCrypt.Create;
|
|
Result := BCrypt.CreateHash(Password, HashType, Cost);
|
|
BCrypt.Free;
|
|
end;
|
|
|
|
function TBCrypt.Verify(const Password, BCryptHash : AnsiString) : Boolean;
|
|
var
|
|
BCrypt : RTBCrypt;
|
|
begin
|
|
BCrypt := RTBCrypt.Create;
|
|
Result := BCrypt.VerifyHash(Password, BCryptHash);
|
|
BCrypt.Free;
|
|
end;
|
|
|
|
function TBCrypt.NeedsRehash(const BCryptHash : AnsiString) : Boolean; overload;
|
|
var
|
|
BCrypt : RTBCrypt;
|
|
begin
|
|
BCrypt := RTBCrypt.Create;
|
|
Result := BCrypt.NeedsRehash(BCryptHash, BCRYPT_DEFAULT_COST);
|
|
BCrypt.Free;
|
|
end;
|
|
|
|
function TBCrypt.NeedsRehash(const BCryptHash : AnsiString; Cost : Byte) : Boolean; overload;
|
|
var
|
|
BCrypt : RTBCrypt;
|
|
begin
|
|
BCrypt := RTBCrypt.Create;
|
|
Result := BCrypt.NeedsRehash(BCryptHash, Cost);
|
|
BCrypt.Free;
|
|
|
|
end;
|
|
|
|
function TBCrypt.GetInfo(const BCryptHash : AnsiString) : RTPasswordInformation;
|
|
var
|
|
BCrypt : RTBCrypt;
|
|
begin
|
|
BCrypt := RTBCrypt.Create;
|
|
Result := BCrypt.HashGetInfo(BCryptHash);
|
|
BCrypt.Free;
|
|
end;
|
|
|
|
function RTHash.HashEquals(KnownHash, CheckedHash : ansistring): boolean;
|
|
begin
|
|
Result := Util.HashEquals(KnownHash, CheckedHash);
|
|
end;
|
|
|
|
end.
|
|
|
|
|