SHA1加密算法

最新推荐文章于 2024-06-21 10:11:43 发布

转载最新推荐文章于 2024-06-21 10:11:43 发布 · 510 阅读

VB.Net 同时被 3 个专栏收录

56 篇文章

订阅专栏

.net

37 篇文章

订阅专栏

SHA1加密算法

1 篇文章

订阅专栏

本文介绍了一种使用Visual Basic实现的SHA1加密算法。通过创建SHA1CryptoServiceProvider对象完成加密过程，并将原始字符串转换为UTF-8编码的字节数组，接着利用SHA1算法进行加密处理，最后将加密后的字节数组转换为Base64字符串形式。

Function mySHA(ByVal SourceStr As String) As String 'SHA1加密算法
Dim SHA As New System.Security.Cryptography.SHA1CryptoServiceProvider 'sha1加密
'Dim sha As New System.Security.Cryptography.SHA256Managed'sha256加密
'Dim sha As New System.Security.Cryptography.SHA512Managed 'sha512加密
Dim bytValue() As Byte '输入
Dim bytHash() As Byte '输出

bytValue = System.Text.Encoding.UTF8.GetBytes(SourceStr) '输入字符转为byte
bytHash = SHA.ComputeHash(bytValue) '加密
SHA.Clear()
mySHA = Convert.ToBase64String(bytHash) '转为字符
End Function