Imports System.Security.Cryptography
Imports System.Text
Public Class Form1
    'MD5
    Function generarMD5(ByVal sCadena As String) As String
        ' Objeto de codificación
        Dim ueCodigo As New UnicodeEncoding()

        ' Objeto para instanciar las codificación
        Dim Md5 As New MD5CryptoServiceProvider()

        ' Calcula el valor hash de la cadena recibida
        Dim bHash() As Byte = Md5.ComputeHash(ueCodigo.GetBytes(sCadena))

        ' Convierte el valor anterior en cadena y lo devuelve
        Return Convert.ToBase64String(bHash)
    End Function
    'SHA1
    Function generarSHA1(ByVal sCadena As String) As String
        ' Objeto de codificación
        Dim ueCodigo As New UnicodeEncoding()

        ' Objeto para instanciar las codificación
        Dim SHA As New SHA1Managed()

        ' Calcula el valor hash de la cadena recibida
        Dim bHash() As Byte = SHA.ComputeHash(ueCodigo.GetBytes(sCadena))

        ' Convierte el valor anterior en cadena y lo devuelve
        Return Convert.ToBase64String(bHash)
    End Function
    'SHA5
    Function generarSHA5(ByVal sCadena As String) As String
        ' Objeto de codificación
        Dim ueCodigo As New UnicodeEncoding()

        ' Objeto para instanciar las codificación
        Dim SHA As New SHA512Managed()

        ' Calcula el valor hash de la cadena recibida
        Dim bHash() As Byte = SHA.ComputeHash(ueCodigo.GetBytes(sCadena))

        ' Convierte el valor anterior en cadena y lo devuelve
        Return Convert.ToBase64String(bHash)
    End Function
    Private Sub tboriginal_TextChanged(sender As Object, e As EventArgs) Handles tboriginal.TextChanged
        'Obtengo el hash a partir del texto ingresado en la casilla tboriginal
        md5tbresultado.Text = generarMD5(tboriginal.Text)
        sha1tbresultado.Text = generarSHA1(tboriginal.Text)
        sha5tbresultado.Text = generarSHA5(tboriginal.Text)
    End Sub
End Class

¿Qué es un vpn?
Un servidor virtual privado (VPS, del inglés virtual private server) es un método de particionar un servidor físico en varios servidores de tal forma que todo funcione como si se estuviese ejecutando en una única máquina. Cada servidor virtual es capaz de funcionar bajo su propio sistema operativo y además cada servidor puede ser reiniciado de forma independiente.