xencrypt.txt

来自「我自己用的Delphi函数单元 具体说明见打包文件的HELP目录下面」· 文本 代码 · 共 13 行

unit xEncrypt;

//BORLAND加密单元，可产生2的96次方数的范围，以使解密者难于枚举；
//StartKey避免小于256，如果用于互联网，应该下列形式，即键值由用户提供：


function UUEncrypt(const InString:string): string;
function UUDecrypt(const InString:string): string;

function Encrypt(const InString:string; StartKey,MultKey,AddKey:Integer): string;
function Decrypt(const InString:string; StartKey,MultKey,AddKey:Integer): string;