'I dati prodotti in output sono allocati in vettori di bytes,
'ma le stringhe non sono il supporto più adatto per
'visualizzarli, poiché vengono compresi anche
'caratteri di controllo o null terminator. In ogni caso,
'la stringa sarebbe o compromessa o illeggibile (non che
'non lo debba essere). Questa funzione restituisce tutto
'il vettore come rappresentazione esadecimale in stringa
'rendendo più gradevole la vista del nostro
'magnifico messaggio cifrato
Public Function ToHex(ByVal Bytes() As Byte) As String
Dim Result As New StringBuilder
For I As Int32 = 0 To Bytes.Length - 1
'Accoda alla stringa il codice in formato esadecimale,
'facendo in modo che occupi sempre due posti, eventualmente
'pareggiando con uno zero sulla sinistra
Result.AppendFormat("{0:X2}", Bytes(I))
Next
Return Result.ToString
End Function