abssecurity.pas

来自「Absolute Database 是来替代BDE[Borland数据库引擎]的」· PAS 代码 · 共 47 行

unit ABSSecurity;

interface

{$I ABSVer.inc}

uses SysUtils,Classes,                     

// AbsoluteDatabase units

     ABSCipher,
     ABSDecUtil;



type

  TABSCryptoAlgorithm = (
                        //craNone,
                        craRijndael_128, craRijndael_256,
                        craDES_Single, craDES_Triple,
                        craBlowfish,
                        craTwofish_128, craTwofish_256,
                        craSquare
                        //,craCustom
                        );
const
  CryptoAlgorithmNames: array [0..7] of string = (
                        'Rijndael_128', 'Rijndael_256',
                        'DES_Single', 'DES_Triple',
                        'Blowfish',
                        'Twofish_128', 'Twofish_256',
                        'Square');

type
 PABSPassword = ^TABSPassword;
 TABSPassword = record
  Password:         String;
  CryptoAlgorithm:  TABSCryptoAlgorithm;
 end;



implementation

end.