摘要：
Example: procedure Encrypt(var Buffer: TAESBuffer; Key: TAESKey128);var TempBuf: TAESBuffer; ExpandedKey: TAESExpandedKey128;begin ExpandAESKeyForEncr 阅读全文
posted @ 2019-07-09 11:47
小红心复活
阅读(807)
评论(0)
推荐(0)
摘要：
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 阅读全文
posted @ 2019-07-09 11:43
小红心复活
阅读(1449)
评论(0)
推荐(0)
摘要：
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:... 阅读全文
posted @ 2019-07-09 11:42
小红心复活
阅读(1744)
评论(0)
推荐(0)
摘要：
procedure ExpandAESKeyForDecryption(var ExpandedKey: TAESExpandedKey256); overload; procedure ExpandAESKeyForDecryption(const Key: TAESKey256; var ExpandedKey: TAESExpandedKey256); overload; proced... 阅读全文
posted @ 2019-07-09 11:41
小红心复活
阅读(2415)
评论(0)
推荐(0)
摘要：
function BlowFish_DN(PT: int64): int64;function BlowFish_EN(PT: int64): int64; function BlowFish_Func(PT: LongWord): LongWord; const pBOX: array[1..18 阅读全文
posted @ 2019-07-09 11:36
小红心复活
阅读(1382)
评论(0)
推荐(0)
摘要：
function MimeEncodeString (const s: AnsiString): AnsiString; function MimeEncodeStringNoCRLF (const s: AnsiString): AnsiString;function MimeDecodeStri 阅读全文
posted @ 2019-07-09 11:34
小红心复活
阅读(1076)
评论(0)
推荐(0)
摘要：
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,Registry ; //Registry ;注册表的引用 阅读全文
posted @ 2019-07-09 11:31
小红心复活
阅读(875)
评论(0)
推荐(0)
摘要：
usesRegistry; procedure TForm1.Button1Click(Sender: TObject);var Reg:TRegistry; name:array [0..255] of Char; Psize:DWORD; begin if IsWow64 then begin 阅读全文
posted @ 2019-07-09 11:25
小红心复活
阅读(314)
评论(0)
推荐(0)
摘要：
uses ShlObj, ActiveX, ComObj; {该函数使用的单元}{函数说明:}{第一个参数是要建立快捷方式的文件, 这是必须的; 其他都是可选参数}{第二个参数是快捷方式名称, 缺省使用参数一的文件名}{第三个参数是指定目的文件夹, 缺省目的是桌面; 如果有第四个参数, 该参数将被忽 阅读全文
posted @ 2019-07-09 11:23
小红心复活
阅读(499)
评论(0)
推荐(0)
摘要：
uses shellapi;procedure TForm1.BitBtn1Click(Sender: TObject);begin ShellExecute(Handle,'open','c:\',nil,nil,Sw_Show);end; procedure TForm1.BitBtn2Clic 阅读全文
posted @ 2019-07-09 11:21
小红心复活
阅读(554)
评论(0)
推荐(0)
浙公网安备 33010602011771号