Function Encrypt_Password(ByVal strKey As String) As String
        Dim arrByte(7) As Byte
        Dim Pass As String
        Dim AscEncod As New ASCIIEncoding()
        Dim i As Integer = 0
 
        Try
            AscEncod.GetBytes(strKey, i, strKey.Length, arrByte, i)
        Catch
            MsgBox("Die Daten konnten nicht erfasst werden. Bitte beachten Sie," & _
              "dass das Passwort maximal 8 Zeichen beinhalten darf.", _
              MsgBoxStyle.Information)
        End Try
 
        Dim hashSha As New SHA1CryptoServiceProvider()
        Dim arrHash() As Byte = hashSha.ComputeHash(arrByte)
        For i = 0 To 7
            Pass = Pass + arrHash(i)
        Next
        Encrypt_Password = Pass
 
    End Function
 
Hat jemand eine bessere Idee???