VB.NET里的MD5加密函数

最新推荐文章于 2018-02-28 21:05:42 发布

最新推荐文章于 2018-02-28 21:05:42 发布 · 137 阅读

·

0

·

文章标签：

#VB.NET #VB #.net #Security

本文介绍了一种使用MD5算法进行字符串加密的方法。通过Visual Basic语言实现了一个公共函数，该函数接受输入字符串并返回经过MD5加密后的结果。具体步骤包括将字符串转换为字节数组、使用MD5算法计算哈希值以及将结果转换为32位的十六进制形式。

Imports System.Security.Cryptography

Public Function Md5hash_String(ByVal InputString As String) As String
Dim code, MD5
Dim dataToHash As Byte() = (New System.Text.ASCIIEncoding).GetBytes(InputString)
Dim hashvalue As Byte() = CType(System.Security.Cryptography.CryptoConfig.CreateFromName("MD5"), System.Security.Cryptography.HashAlgorithm).ComputeHash(dataToHash)
Dim i As Integer
For i = 0 To 15 '选择32位字符的加密结果
MD5 += Hex(hashvalue(i)).ToLower
Next
Return MD5
End Function

评论

被折叠的条评论为什么被折叠?

到【灌水乐园】发言

查看更多评论

添加红包

成就一亿技术人!

hope_wisdom

发出的红包

实付元

使用余额支付

点击重新获取

扫码支付

钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。