2013年8月10日

摘要: 在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 阅读全文
posted @ 2013-08-10 11:56 smtpay 阅读(1138) 评论(0) 推荐(0) 编辑
摘要: 今天帮别人解决一个关于 Base64 编解码的问题,竟然发现 Delphi 自带了 Base64 编解码的单元,叫 EncdDecd,这名字很拗口而且不直观,估计这是一直很少人关注和知道的原因。这个单元提供两套四个公开函数:对流的编解码:procedure EncodeStream(Input, Output: TStream); // 编码procedure DecodeStream(Input, Output: TStream); // 解码// 对字符串的编解码:function EncodeString(const Input: string): string; // 编码functi 阅读全文
posted @ 2013-08-10 11:51 smtpay 阅读(170) 评论(0) 推荐(0) 编辑

导航