{============================ *函数名：Base64ToString* *作者：* *时间：2005.11.29 15.25 * *说明：实现字符转换* ============================} function TGetEmailInfo.Base64ToString(const Value: string): string; var x, y, n,...
GloballyUniqueIdentifier（全球唯一标识符）也称作UUID(UniversallyUniqueIDentifier) GUID/UUID是通过特定算法产生的一个二进制长度为128位的数字，在空间上和时间上具有唯一性，保证同一时间不同地...
以下程序可直接用，拷贝就可以了，希望可以起到抛砖引玉的作用。 functionStrDecrypt(s:string;key:word):string; var i:byte; const fc1=2; fc2=3; begin //result[0]:=s[0]; setlength(result,length(s)); fori:=1tolength(s...
今天帮别人解决一个关于 Base64 编解码的问题，竟然发现 Delphi 自带了 Base64 编解码的单元，叫 EncdDecd，这名字很拗口而且不直观，估计这是一直很少人关注和知道的原因。 这个单元提供...
在Delphi自带的Indy控件中其实是提供了MD2,MD4,MD5对象的，我们可以直接使用它们来完成MD5的签名算法。而不需要再去找其它的DLL或是Pas了。 在Uses单元中引用 IdHashMessageDigest,IdGlobal, IdHash...
unit xDes; interface uses SysUtils; 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: String): String...
(**************************************************************) (* Advanced Encryption Standard (AES) *) (* Interface Unit v1.3 *) (* *) (* Copyright (c) 2002 Jorlen Young *) (* *) (* 说明： *) (* 基于 ElASE.pas 单元封装 *) (* *)...
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编码解码的很...