麻烦将一个ASP变量转换成VB变量....解决后马上结贴..十分感谢

[guxing110]

由于代码太长.我就以网页形式发给大家了.不便之处请凉解.

VB MD5加密算法
http://zhidao.baidu.com/question/5842231.html

ASP MD5加密算法
http://www.webjx.com/htmldata/2005-02-24/1109253913.html

如果我将ASP中
Private Const BITS_TO_A_BYTE = 8 这一句改成
Private Const BITS_TO_A_BYTE = 2

在VB中应该改哪些地方.谢谢...

[macker0030]

你的问题根本没讲清楚。

到底是要做什么？

Private Const BITS_TO_A_BYTE = 2

这已经是ＶＢ语法了，还要改ＶＢ的什么？

[guxing110]

没人知道吗?VB版人气真的不行了.
我发了好几个贴问题都得不到解决...连个商量的人都没有

[swvincent]

-_-帮你UP一下

[脆皮大雪糕]

asp那个打不开

[脆皮大雪糕]

在你的工程里面创建一个标准模块，把asp的那段代码拷贝进去就可已用了
在其它任何地方用类似下面的调用：
Debug.Print MD5("12345")

接下来爱怎么该怎么改了，代码一致在asp和vb里面的运行结果也就一致了

另外，不建议修改那个常数，那个是用来计算数据长度用的，乱改容易出乱子。

[guxing110]

你的问题根本没讲清楚。

到底是要做什么？

Private Const BITS_TO_A_BYTE = 2

这已经是ＶＢ语法了，还要改ＶＢ的什么？

------------------------------------------
下面这两句是MD5里面的加密算法.我将这个加密算法中的
Private Const BITS_TO_A_BYTE = 8 时两个加密算法出来的结果一样.
当我把这个常量改成
Private Const BITS_TO_A_BYTE = 2
两个加密算法出来的结果不一样.
如果我将ASP中的Private Const BITS_TO_A_BYTE 改成等于2
在VB算法中要改动哪些地方呢>?

[嗷嗷叫的老马]

汗...原来是想自己改MD5算法呀

参考一下MD5原理吧

[guxing110]

是的哦...老马...
帮帮我...两天了...

[Tiger_Zhao]

BITS_TO_A_BYTE = 8 很明确表示一个字节８位，你要改成一个字节2位，这还是 x86 的计算机吗？