Visual Basic - Funcion HASH

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil

Funcion HASH

Publicado por Josep (25 intervenciones) el 21/03/2017 14:05:46
Buenos dias amigos.
Estoy codificando, en VB, el funcionamiento de un formulario para introducir varios usuarios en una base de datos. Quiero usar la funcion HASH para codificar la contraseña. No consigo entender como usar esa funcion en el boton1. Dejo aqui mi codigo

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        'Alta INSERT
        Dim connectionString As String = Nothing
        Dim connection As SqlConnection
        Dim adapter As New SqlDataAdapter()
        Dim ds As New DataSet()
        Dim sql As String = Nothing
        Dim cmd As SqlCommand
        Dim n As Integer
 
        TextBox2SHA1.Text =
             FormsAuthentication.HashPasswordForStoringInConfigFile(TextBox2.Text, "SHA1")
 
        Try
            connectionString = "Data Source=Josep-Pc\sqlexpress;Initial Catalog=Desplacaments;Integrated Security=SSPI;"
 
            sql = "INSERT INTO Usuaris (usuari, contrasenya) VALUES ('" & Me.TextBox1.Text & "', '" & Me.TextBox2.Text & "')"
 
            connection = New SqlConnection(connectionString)
 
            cmd = connection.CreateCommand()
            cmd.CommandText = sql
            cmd.Connection.Open()
            n = cmd.ExecuteNonQuery()
 
            If (n > 0) Then
                MessageBox.Show("Usuario registrado.")
            Else
                MessageBox.Show("No se ha podido registrar el usuario")
            End If
        Catch ex As Exception
            MessageBox.Show("Error")
        End Try
 
    End Sub

Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Edward
Val: 152
Ha aumentado 1 puesto en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Funcion HASH

Publicado por Edward (57 intervenciones) el 21/03/2017 16:11:23
Buen día para todos,

Josep, puedes usar esta función sencilla para obtener el SHA1 de un string, te recomiendo usar un algoritmo un poco mas robusto como SHA256 y SHA512.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim strToHash As String = "12345@ASASmmmmm"
 
Dim sha1Obj As New SHA1CryptoServiceProvider
Dim bytesToHash() As Byte = Encoding.ASCII.GetBytes(strToHash)
 
bytesToHash = sha1Obj.ComputeHash(bytesToHash)
 
Dim strResult As String = ""
 
   For Each b As Byte In bytesToHash
            strResult += b.ToString("x2")
   Next
 
MsgBox(strResult)
 
':::Resultado: 1182938fb1abc49336cfd466b9a7a2ed4a875f30

Espero haber sido de ayuda.

Que tengan buen día,

El conocimiento siempre debe ser compartido, para que entre todos aprendamos un poco mas...

Mas ejemplos acá...

https://aprendamosdeprogramacion.wordpress.com/
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
sin imagen de perfil

Funcion HASH

Publicado por Josep (25 intervenciones) el 22/03/2017 09:40:29
Gracias Edward, eso es lo que queria.

Sigo adelante con mi proyecto
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar