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
Muchas gracias me sirvio mucho!!!
ResponderEliminarMuy util gracias por tu aporte mi amigo. Saludos desde Venezuela.
ResponderEliminarMuy bueno, pero no se cual es el fin de hacer .PadLeft(2, "0"), que es lo que soluciona??
ResponderEliminarMi estimado, muchas gracias por el aporte.
ResponderEliminarYo 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
me saco de un gran apuro ahora a hacer pruebas con el proveedor q lo pidio asi .. gracias... siganos iluminando.
ResponderEliminarmuchas gracias,excelente aporte
ResponderEliminarhola buenas tardes, alguno tendra la solucion pero para desencriptar de MD5 a String?
ResponderEliminar