unit Base24Unt; {Base24} interface const EncodeTable: array[0..23] of Char ='BCDFGHJKMPQRTVWXY2346789' ; DecodeTable: array[#0..#127] of Byte = ( 25,25,25,25,25,25,25,25, 25,25,25,25,25,25,25,25, 25,25,25,25,25,25,25,25, 25,25,25,25,25,25,2...
代码效果如下 按钮1是将edit1内容加密，并存入text文件中，按钮2是在text文件中读取加密后的内容，并解密。 unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Form...
先介绍一下，Delphi中处理Google的URL编码解码，其中就会明白URL编码转换的方法的 从delphi的角度看Google(谷歌)URL编码解码方式 在网上搜索了一下，似乎没有什么关于google的URL编码解码的很...
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...