MD5 & SHA1 散列计算器

aaa

    我在上课的时候需要讲到散列，以前一直用的winMd5Sum做演示，这个软件只能计算文件的MD5值。在目前看来，一是缺少字符串的散列计算功能，二是现在SHA1用得越来越广，讲课的时候必须加上这个算法。
    原本我是想在网上找一个现成的软件，但最近一直在学习lazarus，因此就自己用lazarus做了一个。

附件包括源代码和可执行文件，需要dcpcrypt-2.0.4.1包。
大家可以从这个软件学习到：

1、dcpcrypt包中散列类的使用。
2、Lable模仿超链接的方法。
3、MainMenu控件的使用。
4、FileNameEdit控件的使用。
5、OpenURL()、OpenDocument()和MessageDlg()函数的使用。

猫工

优秀文章，支持！n神马都是浮云

aaa

今天早上发现一个小问题，就是不能打开中文文件名。

花了2个小时google，总算解决了。

大家修改一下源代码。就是把获取的文件名用UTF8ToSys函数处理一下。

TFileStream.Create(UTF8ToSys(SelectFile.Text), fmOpenRead)

hackxer

学习学习

laimama

怎么计算文件的SHA散列都是一样的呀？不同的文件，相同的SHA散列。
第一个文件：

第二个文件：

MD5不一样，SHA一样！！

aaa

laimama:怎么计算文件的SHA散列都是一样的呀？不同的文件，相同的SHA散列。
第一个文件：
p_w_upload/photo/Mon_1112/49_226b1324308354e4a89fc5c12d9a3.png
第二个文件：
p_w_upload/photo/Mon_1112/49_39fa13243083541fd1d46e3463530.png
....... (2011-12-19 23:19) 

Bug！肯定是Bug！！！

不过我想修复应该很容易。

你帮我修复如何？

laimama

呵呵，我后来看了下代码，在MD5和SHA计算代码的中间插入一句“SrcFile.Seek(0,0);”就行了。
另外，还简单的增加了文件拖入功能。

aaa

laimama:呵呵，我后来看了下代码，在MD5和SHA计算代码的中间插入一句“SrcFile.Seek(0,0);”就行了。
另外，还简单的增加了文件拖入功能。
 (2011-12-20 20:54) 

谢谢你啊！

你可以把源代码贴上来啊。