Encriptar contraseña

Hola a todos,

Quiero encriptar una contrasenya utilizando la funcion hash de VB .NET
2005, pero el problema que tengo es que trabaja en BYTE, y primero tengo
que pasar el STRING --> BYTE() y luego el resultado lo paso de BYTE() a
STRING y la verdad creo que lo hago mal, solo era para saber cual es la
mejor forma de hacerlo. Me podrias mandar un breve ejemplo, Grácias.

Adjunto codigo

i = 0

ReDim bycontrasenya(PasswordTextBox.Text.Length - 1)

For i = 0 To PasswordTextBox.Text.Length - 1

bycontrasenya(i) = CByte(Asc(Mid(PasswordTextBox.Text, i + 1, 1)))

Next

bycontrasenya = SHA1Hash(bycontrasenya)

strcontrasenya = ""

i = 0

For i = 0 To 19

strcontrasenya &= CStr(Chr(bycontrasenya(i)))

Next



Saludos,



Silviall

Dim sha1CryptoService As SHA1CryptoServiceProvider = New
SHA1CryptoServiceProvider()

Dim byteValue() As Byte = Encoding.UTF8.GetBytes("tuclave")

Dim hashValue() As Byte = sha1CryptoService.ComputeHash(byteValue)



Saludos cordiales,
Ángel Ruiz
MCP C#
MVP de Visual Basic desde el 2004
Caracas - Venezuela
"El conocimiento es un bien, que crece a medida que se comparte"

Nota: todo el codigo explicado esta orientado a VB .NET 2005


"Silviall" escribió en el mensaje
news:
> Hola a todos,
>
> Quiero encriptar una contrasenya utilizando la funcion hash de VB .NET
> 2005, pero el problema que tengo es que trabaja en BYTE, y primero tengo
> que pasar el STRING --> BYTE() y luego el resultado lo paso de BYTE() a
> STRING y la verdad creo que lo hago mal, solo era para saber cual es la
> mejor forma de hacerlo. Me podrias mandar un breve ejemplo, Grácias.
>
> Adjunto codigo
>
> i = 0
>
> ReDim bycontrasenya(PasswordTextBox.Text.Length - 1)
>
> For i = 0 To PasswordTextBox.Text.Length - 1
>
> bycontrasenya(i) = CByte(Asc(Mid(PasswordTextBox.Text, i + 1, 1)))
>
> Next
>
> bycontrasenya = SHA1Hash(bycontrasenya)
>
> strcontrasenya = ""
>
> i = 0
>
> For i = 0 To 19
>
> strcontrasenya &= CStr(Chr(bycontrasenya(i)))
>
> Next
>
>
>
> Saludos,
>
>
>
> Silviall
>
>