SHA1 加密

举个简单例子，下面这个是 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