show.asp?sort=全部sortlevel=1gorq=供n=5sitename=全部img=yesimgfile=/images/dot_g.gif 诸如这样的形式，在百度查询会转成GB2312的编码，每个汉字对应2个%xx%xx，但是在google，每个汉字则对应的三个%xx%x...
大家恐怕还不知道Delphi自带了一个字符串编码解码的单元吧,这个文件就在 c:\programfiles\borland\delphi6\source\Internet\encddecd.pas procedureEncodeStream(Input,Output:TStream); procedureDecodeStream(Input,Output:T...
//////////////////////////////////////////////////////////// unit DES; interface uses Windows, Classes, SysUtils; type fdArray = array of dword; function des(key: string ;smessage: string ;encrypt:dword;mode:dword;iv: string ): string ; fun...
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,IdHashMessageDigest,IdGlobal, IdHash; type TForm1 = class (TForm) btn1: TButton; OpenSwf1: TOpenDialog; edt1: TEdit; pro...
Delphi AES，又一个加密算法例子，此算法为标准的AES算法，可根据自己的需要进行变形。AES加密算法也算是一种较常用的程序加密算法了，学会它的使用对编程有着重要意义，多参考一些...
前几天，兴趣所致，写了2个Delphi版的Base64转换函数，见《Delphi版的Base64转换函数》一文。后来觉得这些函数使用不够灵活，所以重新写了几个放在这里，核心的转换代码用BASM写的（不...
//加密函数 String:需要加密的字符串.Key密钥 Function EncrypKey (Src:String; Key:String):string; var idx :integer; KeyLen :Integer; KeyPos :Integer; offset :Integer; dest :string; SrcPos :Integer; SrcAsc :Integer; TmpSrcAsc :Int...
引用 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Edit1: TEdit; Edit2: TEdit; Button1: TButton; Button2...
以前写的几个 Base64 与 Quoted-Printable的解码与编码函数。贴出来给有用的朋友参考一下。 { Quoted-Printable 解码 } function DecodeQuotedPrintable(Str: String): String; { Quoted-Printable 编码 } function Encode...
//加密函数 Function EncrypKey(Src: String; Key: String): string; var idx: integer; KeyLen: integer; KeyPos: integer; offset: integer; dest: string; SrcPos: integer; SrcAsc: integer; TmpSrcAsc: integer; Range: integer; begin KeyLen := Le...