Donny's Blog

unit Qrline;interfaceuses  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,       Quickrpt; type  TQRLineStyle=(QRLineH,QRLineV,QRLineC,QRLineCR);  TQRLine = class(TQRPrin

unit MD5;interfaceuses  Windows, Messages, SysUtils, Variants;type  MyArray= array of Integer;  function rHEX(num:Integer):string;function str2blks_MD5(str:string):MyArray;function Add(x,y: Intege

unit Des;interfaceuses SysUtils;type  TKeyByte = array[0..5] of Byte;  TDesMode = (dmEncry, dmDecry);  function EncryStr(Str, Key: String): String;  function DecryStr(Str, Key: String): String