Buscar en Google

Busca en Todo Vb-Net

Búsqueda personalizada

miércoles, 2 de junio de 2010

Aplicar MD5 a String [VB.Net]


El Proceso consta de obtener una cadena encriptada, partiendo de una cadena normal, este tipo de funciones son utiles normalmente para encriptar password´s en nuestros sistemas, pues con esto agregamos un poco mas de seguridad a los mismos.

espero a alguien le sirva....


' Hacer la llamada a la funcion y enviar el parametro solicitado

Call MD5EncryptPass(TxtPassword.Text)


' Espacio de nombres a importar

Imports System.Security.Cryptography

'Funcion de encriptado

Private Sub MD5EncryptPass(ByVal StrPass As String)
PasConMd5 = ""
Dim md5 As New MD5CryptoServiceProvider
Dim bytValue() As Byte
Dim bytHash() As Byte
Dim i As Integer

bytValue = System.Text.Encoding.UTF8.GetBytes(StrPass)

bytHash = md5.ComputeHash(bytValue)
md5.Clear()

For i = 0 To bytHash.Length - 1
PasConMd5 &= bytHash(i).ToString("x").PadLeft(2, "0")
Next

MsgBox(PasConMd5)

End Sub


'El resultado




Dudas o consultas a: cesarlopez1909@gmail.com

7 comentarios:

  1. Muy util gracias por tu aporte mi amigo. Saludos desde Venezuela.

    ResponderEliminar
  2. Muy bueno, pero no se cual es el fin de hacer .PadLeft(2, "0"), que es lo que soluciona??

    ResponderEliminar
  3. Mi estimado, muchas gracias por el aporte.
    Yo lo implemente con un boton y un textbox
    Aqui mi codigo:
    -----------------------------------------
    Imports System.Security.Cryptography
    Public Class Form1
    ' Espacio de nombres a importar
    'Funcion de encriptado
    Private Sub MD5EncryptPass(ByVal StrPass As String)
    Dim PasConMd5 As String
    PasConMd5 = ""
    Dim md5 As New MD5CryptoServiceProvider
    Dim bytValue() As Byte
    Dim bytHash() As Byte
    Dim i As Integer

    bytValue = System.Text.Encoding.UTF8.GetBytes(StrPass)

    bytHash = md5.ComputeHash(bytValue)
    md5.Clear()

    For i = 0 To bytHash.Length - 1
    PasConMd5 &= bytHash(i).ToString("x").PadLeft(2, "0")
    Next

    MsgBox(PasConMd5)
    End Sub

    Private Sub btnGenerar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGenerar.Click
    ' Hacer la llamada a la funcion y enviar el parametro solicitado
    MD5EncryptPass(txtPassword.Text)
    End Sub
    End Class
    -----------------------------------------
    Date una vuelta por mi blog:
    sirjuno.gioscix.com
    Saludos

    ResponderEliminar
  4. me saco de un gran apuro ahora a hacer pruebas con el proveedor q lo pidio asi .. gracias... siganos iluminando.

    ResponderEliminar
  5. hola buenas tardes, alguno tendra la solucion pero para desencriptar de MD5 a String?

    ResponderEliminar