Generador de claves md5 aleatorias - VB.NET

Hola gente!

Hace mucho que no posteo nada!

Hoy vengo a dejar algo bien sencillito, hecho en Visual Basic .NET

Esto lo traigo de mi blog: javascript:void(0)

Se trata de una clase que nos va a servir para generar claves aleatorias en MD5 .

Por un lado, se obtiene una cadena de caracteres random de longitud aleatoria, como por ejemplo:







Si somos un poco paranoicos con el tema de las claves, esto nos puede servir muchisimo (Sobre todo si nos gusta cambiarlas una vez a la semana) siempre y cuando guardemos la clave por algun lado jaja

Vamos a lo importante!
El código


Public Class clsKey
    Public Function getRandomKey() As String
        Dim strRand As String = Nothing, r As New Random, n As Integer
 
        n = Math.Round(r.Next(1, 10))
        For i = 0 To n
            strRand &= Chr(Math.Round(r.Next(33, 122)))
        Next
        Return strRand
    End Function
 
    Public Function MD5_EP(ByVal StrPass As String) As String
        Dim md5 As New MD5CryptoServiceProvider
        Dim byteHash() As Byte, ret As String = Nothing
 
        byteHash = md5.ComputeHash(System.Text.Encoding.UTF8.GetBytes(StrPass))
        md5.Clear()
        For Each bs As Byte In byteHash
            ret &= bs.ToString("x2";)
        Next
 
        Return ret
    End Function
 
    Public Function getMD5Pass() As String
        Return MD5_EP(getRandomKey())
    End Function
End Class


Para usarlo pueden crear una clase nueva en su proyecto y pegan el código. Luego llaman las funciones.
Si se fijan, son 3 funciones. getRandomKey() nos devuelve una clave aleatoria (Mostrada en la tabla mas arriba). MD5_EP(clave) nos devuelve la cadena "clave" en md5. Y getMD5Pass() nos devuelve una cadena random en md5.

Saludos