Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Encriptar contraseña

10/02/2006 - 13:12 por Silviall | Informe spam
Ayuda Hacer una pregunta
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
email Siga el debateRespuesta 2 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Angel. E. Ruiz. P
10/02/2006 - 15:33 | Informe spam
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


Preguntas similares

 

Busqueda sugerida :