VB.NET的SHA1加密
基本上和MD5差不多
SHA1 算法的哈希值大小为 160 位。
SHA256 算法的哈希值大小为 256 位。
SHA512 算法的哈希值大小为 512 位。
SHA1目前还没什么问题,如果大家还不放心可以用SHA256和SHA512,当然强度越高的算法运行时间就要更长一些,不过以目前的配置来说,平常的应用几乎是感觉不出来的。
函数
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
引用
Dim mytxt, msgtxt As String
mytxt = "nyfort的BLOG"
msgtxt = "nyfort的BLOG" & vbCrLf & "的SHA是" & vbCrLf & mySHA(mytxt)
MessageBox.Show(msgtxt, "SHA")

常见问题
- 本站网盘打开密码:778899。
- 如遇闪退,检查自己的系统是否12,芯片是否M1,目前暂无彻底解决办法,等更新。
- 如遇:「xxx.app已损坏,打不开。你应该将它移到废纸篓」,并非你安装的软件已损坏,而是Mac系统的安全设置问题。详见:提示程序含有恶意代码或者已经打开所有来源还是提示扔到垃圾桶
- 激活工具在新系统10.12中打不开。参照 MacOS Big Sur CORE keygen提示您没有权限打开应用程序怎么办
- 关闭SIP系统完整性保护,正常运行第三方下载应用
- Apple Silicon M1 应用安装后运行闪退怎么办
- 历史版本下载、最新版本迭代、疑难软件求档、各种疑难杂症请留言