通过使用TBlowfish类创建哈希并对比它们

LockBox 3是Delphi中一个加密库，可以用来在应用程序中创建哈希值。比较两个哈希字符串的方法是通过创建一个TBlowfish类实例并使用它来哈希字符串，然后比较这些哈希值。

代码示例：

var Hash1, Hash2: String; BF: TBlowfish;

function HashStr(AString: String): String; var HashStream: TStringStream; begin HashStream := TStringStream.Create(''); try BF.EncryptStream(HashStream, TStringStream.Create(AString), False); Result := HashStream.DataString; finally HashStream.Free; end; end;

begin BF := TBlowfish.Create(nil); try Hash1 := HashStr('MyString'); Hash2 := HashStr('MyOtherString'); if Hash1 = Hash2 then ShowMessage('Strings match') else ShowMessage('Strings do not match'); finally BF.Free; end; end;