SHA1 加密
- 作者:zhaozj
- 发表时间:2020-12-23 10:59
- 来源:未知
举个简单例子,下面这个是 SHA1 加密的一个函数,完全可以用来加密口令, SHA1 加密是 160 位的哈希加密方法。(两个不同字串加密后重复的概率极低,能将小的变化放到成大的变化,即是只错一个字母,加密结果也完全不同。)
特别适合加密口令:加密后,登陆时,重新计算用户输入的密码的 SHA1 值,如果与数据库中存储的一致,则证明用户登陆成功。管理员无法从数据库看到的 SHA1 值反推出真实密码。
??????? Public Shared Function GetSHA1Code(original As String) As String ??????????? Dim HashValue() As Byte ??????????? Dim UE As New UnicodeEncoding() ??????????? Dim MessageBytes As Byte() = UE.GetBytes(original) ??????????? Dim SHhash As New SHA1Managed() ??????????? HashValue = SHhash.ComputeHash(MessageBytes) ??????????? Dim out As New StringBuilder("") ??????????? Dim b As Byte ??????????? For Each b In HashValue ??????????????? out.Append( b.ToString("X") ) ??????????? Next b ??????????? Return (out.ToString()) ??????? End Function