Encriptación

[mazingerz]

Hola a todos. Necesito reconstruir una password ingresada en en textbox
La encriptación esta documentada en todos lados, incluso acà, pero no doy en la devolución
Public Function GenPwd(ByVal Texto As String) As String
Dim cifrador As New SHA512Managed
Dim pwdOriginal As Byte() = Encoding.ASCII.GetBytes(Texto)
Dim pwdCifrada As Byte() = cifrador.ComputeHash(pwdOriginal)
Dim strReturn As String = Convert.ToBase64String(pwdCifrada)
Return strReturn
End Function

hola = 6D6FNdb2iUk+WBm9YKo+X9y6lA5tERq2+1w08k+GSWvzcm4r9O xZ1tL1oq6x5PEDKD59ZOT0nAO0xHJcs2Hncw==

como devuelvo la encriptaciòn, Gracias por su ayuda.