Imports System.Security
Imports System.Security.Cryptography
Imports System.Text.UTF8Encoding
Module Module2
'Questa semplice funzione genera un hash MD5
Public Function GetMd5(ByVal Text As String) As Byte()
Dim Input As Byte() = UTF8.GetBytes(Text)
Dim Output As Byte()
'MD5.Create() crea un nuovo provider crittografico per l'hash Md5
Output = MD5.Create().ComputeHash(Input, 0, Input.Length)
Return Output
End Function
Sub Main()
Dim Input As String
Console.WriteLine("Inserire un testo qualsiasi:")
Input = Console.ReadLine
Console.WriteLine()
Console.WriteLine("Il suo hash č:")
Console.WriteLine(ToHex(GetMd5(Input)))
Console.ReadKey()
End Sub
End Module