Как использовать SecureString для создания хэша SHA1 или SHA512? - PullRequest
Новая
       23

Как использовать SecureString для создания хэша SHA1 или SHA512?

2 голосов
/ 07 октября 2009

Я хотел бы использовать переменную SecureString в VB.NET и преобразовать ее в хеш SHA1 или SHA512. Как мне безопасно конвертировать SecureString в байтовый массив, который будет принимать HashAlgorithm.ComputeHash?

Ответы [ 2 ]

0 голосов
/ 25 ноября 2010

Как насчет этого, если мы избегаем единственного используемого экземпляра String (выходной) и заменяем его на массив символов. Это позволило бы нам стереть этот массив после использования: 

    public static String SecureStringToMD5( SecureString password )
    {
        int passwordLength = password.Length;
        char[] passwordChars = new char[passwordLength];

        // Copy the password from SecureString to our char array
        IntPtr passwortPointer = Marshal.SecureStringToBSTR( password );
        Marshal.Copy( passwortPointer, passwordChars, 0, passwordLength );
        Marshal.ZeroFreeBSTR( passwortPointer );

        // Hash the char array
        MD5 md5Hasher = MD5.Create();
        byte[] hashedPasswordBytes = md5Hasher.ComputeHash( Encoding.Default.GetBytes( passwordChars ) );

        // Wipe the character array from memory
        for (int i = 0; i < passwordChars.Length; i++)
        {
            passwordChars[i] = '\0';
        }

        // Your implementation of representing the hash in a readable manner
        String hashString = ConvertToHexString( hashedPasswordBytes );

        // Return the result
        return hashString;
    }

Что-то я пропустил?

0 голосов
/ 07 октября 2009

Напечатал это в c # и преобразовал в VB. Надеюсь, это все еще работает! 

Dim input As [Char]() = "Super Secret String".ToCharArray()
Dim secret As New SecureString()

For idx As Integer = 0 To input.Length - 1
    secret.AppendChar(input(idx))
Next
SecurePassword.MakeReadOnly()

Dim pBStr As IntPtr = Marshal.SecureStringToBSTR(secret)

Dim output As String = Marshal.PtrToStringBSTR(pBStr)
Marshal.FreeBSTR(pBStr)

Dim sha As SHA512 = New SHA512Managed()
Dim result As Byte() = sha.ComputeHash(Encoding.UTF8.GetBytes(output))

редактировать

Как было отмечено мной и несколькими другими в комментариях, я хочу обратить на это внимание здесь. Делать это не очень хорошая идея. Вы перемещаете байты в место, которое больше не безопасно. Конечно, вы МОЖЕТЕ сделать это, но вы, вероятно, не должны

...