用HashAlgorithm來加强數據的保險程度。

（華版）

由于很多應用程序已用互聨網作為执行時的平台，而現在的黑客也越來越猖獗。所以我們不能不把我們所傳送的資料和數據加密。特别是一般的登录密碼，往往很多程序員都忽略了這一點；而就直接把用户所輸入的密碼用HTTP-POST方法來傳送回去服務端验証。

另一方面，收藏在數據庫里的用户登录密碼也應該把它稍微Hashes一下。這样就能保証你的用户登录密碼没那么容易就被泄漏或被盗用嘛。

在.NET Framework里就提供了HashAlgorithm這样的一個Class，好讓我們能够以很輕易的就可以把一些字符串（例如用户登录密碼）hashes起來；然后再把它轉去Base64的字符串，這样就可以在HTTP-POST里通往無阻了。而且還可以從五種算法中（SHA-1，SHA-256，SHA-384，SHA-512和MD5）選出一個所適合我們的應用程序需求。

注意：
當一個字符串進行了Hashes，就永不能decrypted回原本的字符串。

    Private Function GetHashDataString()Function GetHashDataString(ByVal source As String, ByVal hashAlgorithm As String) As String

        Try

            '// 聲明變量。
            Dim SourceInByte() As Byte
            Dim HashedInByte() As Byte
            Dim HashedInBase64 As String
            Dim HashAlgo As HashAlgorithm

            '// 檢查所指定的Hash算法。
            Select Case hashAlgorithm
                Case "SHA1"
                    '// 實例SHA1Managed對象。
                    HashAlgo = New SHA1Managed

                Case "SHA256"
                    '// 實例SHA256Managed對象。
                    HashAlgo = New SHA256Managed

                Case "SHA384"
                    '// 實例SHA384Managed對象。
                    HashAlgo = New SHA384Managed

                Case "SHA512"
                    '// 實例SHA512Managed對象。
                    HashAlgo = New SHA512Managed

                Case "MD5"
                    '// 實例MD5CryptoServiceProvider對象。
                    HashAlgo = New MD5CryptoServiceProvider

                Case Else
                    '// 設定默認遞回值數。
                    Return ""
            End Select

            '// 把source字符串轉去UNICODE字節數组。
            SourceInByte = Encoding.ASCII.GetBytes(source)

            '// 計算HASH字節數组。
            HashedInByte = HashAlgo.ComputeHash(SourceInByte)

            '// 把HASH字節數组轉去Base64字符串。
            HashedInBase64 = Convert.ToBase64String(HashedInByte)

            '// 設定遞回值數。
            Return HashedInBase64

        Catch ex As Exception

            '// 設定默認遞回值數。
            Return ""

        End Try

    End Function

點撃下載代碼。