smtpay

摘要： 在Delphi自带的Indy控件中其实是提供了MD2,MD4,MD5对象的，我们可以直接使用它们来完成MD5的签名算法。而不需要再去找其它的DLL或是Pas了。在Uses单元中引用 IdHashMessageDigest,IdGlobal, IdHash 单元，再写如下代码即可以达到MD5的实现。示例代码procedure TForm1.Button1Click(Sender: TObject);varMyMD5: TIdHashMessageDigest5;Digest: T4x4LongWordRecord;beginMyMD5 := TIdHashMessageDigest5.Creat 阅读全文

摘要： 今天帮别人解决一个关于 Base64 编解码的问题，竟然发现 Delphi 自带了 Base64 编解码的单元，叫 EncdDecd，这名字很拗口而且不直观，估计这是一直很少人关注和知道的原因。这个单元提供两套四个公开函数：对流的编解码：procedure EncodeStream(Input, Output: TStream); // 编码procedure DecodeStream(Input, Output: TStream); // 解码// 对字符串的编解码：function EncodeString(const Input: string): string; // 编码functi 阅读全文