myldbsecurity.pas

来自「一个本地database引擎,支持中文T_Sql查询,兼容DELPHI标准数据库」· PAS 代码 · 共 47 行

unit MYLDBSecurity;

interface

{$I MYLDBVer.inc}

uses SysUtils,Classes,

// MYLDBoluteDatabase units

     MYLDBCipher,
     MYLDBDecUtil;



type

  TMYLDBCryptoAlgorithm = (
                        //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
 PMYLDBPassword = ^TMYLDBPassword;
 TMYLDBPassword = record
  Password:         String;
  CryptoAlgorithm:  TMYLDBCryptoAlgorithm;
 end;



implementation

end.