twofishunit.pas

来自「TwoFish算法,适用语言极多!有Delphi,Kylix VC & C++ 」· PAS 代码 · 共 24 行

{*******************************************************}
{                                                       }
{                       TwoFish算法                     }
{                                                       }
{         版权所有(C) BieEncrypt安全实验室 2006         }
{                  版本：V1.0                           }
{            主页：http://www.bitencrypt.com            }
{            邮件：[e-mail]                   }
{                                                       }
{*******************************************************}
unit TwoFishUnit;

interface

function TwoFishStrEncrypt(lpInStr:PChar;lpKey:PChar;lpOutStr:PChar):Boolean;stdcall;external 'TwoFish.dll';
function TwoFishStrDecrypt(lpInStr:PChar;lpKey:PChar;lpOutStr:PChar):Boolean;stdcall;external 'TwoFish.dll';
function TwoFishFileEncrypt(lpInFile:PChar;lpKey:PChar;lpOutFile:PChar):Boolean;stdcall;external 'TwoFish.dll';
function TwoFishFileDecrypt(lpInFile:PChar;lpKey:PChar;lpOutFile:PChar):Boolean;stdcall;external 'TwoFish.dll';
function GetVersion(lpVersion:PChar):Boolean;stdcall;external 'TwoFish.dll';

implementation

end.