В массив байт с определенной длинной из String

     Private Function toBytes(ByVal pass As String, ByVal Length As Integer) As Byte()
        Dim result(Length - 1) As Byte
        Dim tmp As New List(Of Byte)
m1:     For i = Algoritm.SHA512 To Algoritm.RIPEMD160
            tmp.AddRange(toBytes(pass, i))
            If tmp.Count >= Length Then Exit For
        Next
        If tmp.Count < Length Then GoTo m1
        tmp.CopyTo(0, result, 0, Length)
        Return result
    End Function
    Private Function toBytes(ByVal pass As String, ByVal algoritm As Algoritm) As Byte()
        Dim data() As Byte = System.Text.Encoding.UTF8.GetBytes(pass)
        Dim shaM
        Select Case algoritm
            Case 0
                shaM = New System.Security.Cryptography.SHA512Managed
            Case 1
                shaM = New System.Security.Cryptography.SHA384Managed
            Case 2
                shaM = New System.Security.Cryptography.SHA256Managed
            Case 3
                shaM = New System.Security.Cryptography.SHA1Managed
            Case 4
                shaM = New System.Security.Cryptography.RIPEMD160Managed
            Case 5
                shaM = New System.Security.Cryptography.HMACSHA512
            Case 6
                shaM = New System.Security.Cryptography.HMACSHA384
            Case 7
                shaM = New System.Security.Cryptography.HMACSHA256
            Case 8
                shaM = New System.Security.Cryptography.HMACSHA1
            Case 9
                shaM = New System.Security.Cryptography.HMACRIPEMD160
            Case 10
                shaM = New System.Security.Cryptography.HMACMD5
        End Select
        Return shaM.ComputeHash(data)
    End Function
    Public Enum Algoritm
        SHA512 = 0
        SHA384 = 1
        SHA256 = 2
        SHA1 = 3
        RIPEMD160 = 4
        HMACSHA512 = 5
        HMACSHA384 = 6
        HMACSHA256 = 7
        HMACSHA1 = 8
        HMACRIPEMD160 = 9
        HMACMD5 = 10
    End Enum