许明吉博客

2011年8月13日

摘要： http://www.ajaxload.info/ 阅读全文

posted @ 2011-08-13 00:25 许明吉博客阅读(388) 评论(0) 推荐(0) 编辑

2011年8月9日

摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,IdHashMessageDigest,IdGlobal, IdHash;type TForm1 = class(TForm) btn1: TButton; OpenSwf1: TOpenDialog; edt1: TEdit; procedure btn1Click(Sender: TObject); private function StreamToMD5( 阅读全文

posted @ 2011-08-09 10:10 许明吉博客阅读(1161) 评论(0) 推荐(0) 编辑

2011年8月8日

delphi MD5源码，在CSDN里看到的

摘要： unit md5;INTERFACEuses Windows;type MD5Count = array[0..1] of DWORD; MD5State = array[0..3] of DWORD; MD5Block = array[0..15] of DWORD; MD5CBits = array[0..7] of byte; MD5Digest = array[0..15] of byte; MD5Buffer = array[0..63] of byte; MD5Context = record State: MD5State; Count: MD5Count; Buffer: MD 阅读全文

posted @ 2011-08-08 23:45 许明吉博客阅读(482) 评论(0) 推荐(0) 编辑

提供算法源码

摘要： http://www.koders.com/default.aspx?s=md5&search.x=8&search.y=8&la=Delphi&li=*&scope= 阅读全文

posted @ 2011-08-08 23:09 许明吉博客阅读(225) 评论(0) 推荐(0) 编辑

C# HashMap.cs MD5

摘要： 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136 阅读全文

posted @ 2011-08-08 23:05 许明吉博客阅读(2371) 评论(0) 推荐(0) 编辑

Delphi中MD5实现方法（转）

摘要：原来写过一个计算MD5的程序,是用了一个叫MD5.pas的单元,使用起来还算简单,但还有更简单的办法,安装了indy就会有IdHashMessageDigest单元(delphi 7默认安装indy)有篇文章教怎么用IdHashMessageDigest计算字符串md5,计算文件md5却没有说,在这里补充一下,先看计算函数:function TIdHashMessageDigest4.HashValue(AStream: TStream): T4x4LongWordRecord;参数类型是一个流就可以返回T4x4LongWordRecord类型的值,使用function TIdHash128. 阅读全文

posted @ 2011-08-08 23:02 许明吉博客阅读(12230) 评论(0) 推荐(0) 编辑

Delphi 中的MD5实现方法及delphi2009和delphi2010中用法

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

posted @ 2011-08-08 22:56 许明吉博客阅读(3947) 评论(0) 推荐(0) 编辑

delphi7 读取MD5值

摘要： USES IdGlobal,IdHash;function GetMd5Str(ContenStr:string):string;var RegMd5:TIdHashMessageDigest5; RegDigest:T4x4LongWordRecord;begin RegMd5:=TIdHashMessageDigest5.Create; RegDigest:=RegMd5.HashValue(ContenStr); Result:=LowerCase(RegMd5.AsHex(RegDigest));end; 阅读全文

posted @ 2011-08-08 22:49 许明吉博客阅读(2502) 评论(0) 推荐(1) 编辑

2011年8月7日

怎样在Delphi中屏蔽Flash控件的右键弹出菜单

摘要：关于如何屏蔽Flash控件的右键菜单的问题有很多人问过，也有很多人回答，基本上都是说拦截 Application消息，或者继承一个新的控件，重载MouseDown消息，第一种解决办法，好象是简单些，但是有个问题是：如果栏截应用程序的消息，势必会造成应用程序的所有消息都有执行这个拦截过程，尽管可以通过条件来过滤掉其他消息，但是执行判断本身就要耗时间（尽管每次判断一下的时间不多，但是的有消息占的时间加起来就不少了），另一种方法是继承控件，可以这样写又麻烦，如果需要在设计期使用的话，还得重新注册。有没有更加简单的方法呢？不需要去过滤所有的应用程序消息，又不需要重写控件？的确还有第三种方法阅读全文

posted @ 2011-08-07 17:37 许明吉博客阅读(1605) 评论(0) 推荐(0) 编辑

2011年8月6日

NSIS脚本

摘要： !define ExeFile_NameStr "Doremisoft Webcam Studio"!define ExeUnit_NameStr "Doremisoft"!define PRODUCT_NAME "Webcam Studio"!define PRODUCT_VERSION "1.0.0"!define PRODUCT_WEB_SITE "http://www.doremisoft.net/webcam-studio/"!define InstallIndagateWeb &qu 阅读全文

posted @ 2011-08-06 14:55 许明吉博客阅读(1943) 评论(1) 推荐(0) 编辑

C# winForm Delphi 技术交流 Skype:szxumingji