摘要：
Example: procedure Encrypt(var Buffer: TAESBuffer; Key: TAESKey128);var TempBuf: TAESBuffer; ExpandedKey: TAESExpandedKey128;begin ExpandAESKeyForEncr 阅读全文
摘要：
type //增加一部分从这里. MD5Count = array[0..1] of DWORD; MD5State = array[0..3] of DWORD; MD5Block = array[0..15] of DWORD; MD5CBits = array[0..7] of Byte; M 阅读全文
摘要：
type TKeyByte = array[0..5] of Byte; TDesMode = (dmEncry, dmDecry); function EncryStr(Str, Key: String): String; function DecryStr(Str, Key: String): String; function EncryStrHex(Str, Key:... 阅读全文
摘要：
procedure ExpandAESKeyForDecryption(var ExpandedKey: TAESExpandedKey256); overload; procedure ExpandAESKeyForDecryption(const Key: TAESKey256; var ExpandedKey: TAESExpandedKey256); overload; proced... 阅读全文
摘要：
function BlowFish_DN(PT: int64): int64;function BlowFish_EN(PT: int64): int64; function BlowFish_Func(PT: LongWord): LongWord; const pBOX: array[1..18 阅读全文
摘要：
function MimeEncodeString (const s: AnsiString): AnsiString; function MimeEncodeStringNoCRLF (const s: AnsiString): AnsiString;function MimeDecodeStri 阅读全文
摘要：
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,Registry ; //Registry ;注册表的引用 阅读全文
摘要：
usesRegistry; procedure TForm1.Button1Click(Sender: TObject);var Reg:TRegistry; name:array [0..255] of Char; Psize:DWORD; begin if IsWow64 then begin 阅读全文
摘要：
uses ShlObj, ActiveX, ComObj; {该函数使用的单元}{函数说明:}{第一个参数是要建立快捷方式的文件, 这是必须的; 其他都是可选参数}{第二个参数是快捷方式名称, 缺省使用参数一的文件名}{第三个参数是指定目的文件夹, 缺省目的是桌面; 如果有第四个参数, 该参数将被忽 阅读全文
摘要：
uses shellapi;procedure TForm1.BitBtn1Click(Sender: TObject);begin ShellExecute(Handle,'open','c:\',nil,nil,Sw_Show);end; procedure TForm1.BitBtn2Clic 阅读全文