基本上和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")

我们不Hack软件,我们只是优秀软件的搬运工。
麦氪搜(iMacSO.com) » VB.NET的SHA1加密

常见问题

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