vb 中的MD5加密在asp.net中的实现

1、web项目中方法：

system.web.security.formsauthentication.hashpasswordforstoringinconfigfile("aaaa","md5")
system.web.security.formsauthentication.hashpasswordforstoringinconfigfile("aaaa","md5")

查看文档方法：

publicsharedfunctionhashpasswordforstoringinconfigfile(byvalpasswordasstring,byvalpasswordformatasstring)asstring
成员属于:system.web.security.formsauthentication
摘要:
给定标识哈希类型的密码和字符串，该例程产生一个适合存储在配置文件中的哈希密码。
参数:
password:要进行哈希运算的密码。
passwordformat:要使用的哈希算法。选项有“sha1”或“md5”。
返回值:
返回一个包含哈希密码的string。
publicsharedfunctionhashpasswordforstoringinconfigfile(byvalpasswordasstring,byvalpasswordformatasstring)asstring
成员属于:system.web.security.formsauthentication
摘要:
给定标识哈希类型的密码和字符串，该例程产生一个适合存储在配置文件中的哈希密码。
参数:
password:要进行哈希运算的密码。
passwordformat:要使用的哈希算法。选项有“sha1”或“md5”。
返回值:
返回一个包含哈希密码的string。

2、vb的应用程序：

publicsharedfunctionmd5str(byrefstrsourceasstring)
dimdatatohashasbyte()=(newsystem.text.unicodeencoding).getbytes(strsource.tochararray)
dimhashvalueasbyte()=ctype(cryptography.cryptoconfig.createfromname("md5"),cryptography.hashalgorithm).computehash(datatohash)
dimstrsbasnewsystem.text.stringbuilder
foriasint16=0tohashvalue.length-1
strsb.append(hashvalue(i).tostring("x2"))
next
dimcreatmd5=strsb.tostring
returncreatmd5
endfunction
publicsharedfunctionmd5str(byrefstrsourceasstring)
dimdatatohashasbyte()=(newsystem.text.unicodeencoding).getbytes(strsource.tochararray)
dimhashvalueasbyte()=ctype(cryptography.cryptoconfig.createfromname("md5"),cryptography.hashalgorithm).computehash(datatohash)
dimstrsbasnewsystem.text.stringbuilder
foriasint16=0tohashvalue.length-1
strsb.append(hashvalue(i).tostring("x2"))
next
dimcreatmd5=strsb.tostring
returncreatmd5
endfunction