[VB.NET]: Conversione da ASCII a esadecimale

[Emulator ®]

Salve a tutti, dovrei fare una conversione da ascii a esadecimale.

Ho provato con la funzione Hex(); ma essa funziona solo con delle stringhe di soli numeri. Se io ho una stringa con anche delle lettere in mezzo, come le trasformo in esadecimale?

Grazie delle eventuali risposte.

Saluti.

[Luciano79]

Originariamente inviato da Emulator ®
Ho provato con la funzione Hex(); ma essa funziona solo con delle stringhe di soli numeri.

Asc() Converte da Stringa a Numero.

 CarattereHex= Hex(Asc(Carattere))

[alka]

E' andato perso il linguaggio. VB6 o VB.NET?

[Emulator ®]

Ho un problemino:

Ho fatto una funzione che mi codifica una stringa in MD5:

Public Shared Function MD5Encode(ByVal S As String) As String

        Dim hexstring As String = ""

        If S = "" = False Then
            Dim md5 As New Security.Cryptography.MD5CryptoServiceProvider()
            Dim bytestring As Byte() = System.Text.ASCIIEncoding.ASCII.GetBytes(S)
            Dim result As Byte()
            result = md5.ComputeHash(bytestring)

            For i As Integer = 0 To result.Length - 1
                hexstring &= result(i).ToString("X")
            Next
        End If

        Return hexstring

    End Function

e se per esempio codifico la lettera "c", l'hash è: 4A8A8F09D37B73795649038408B5F33

invece con una classe per MD5 che ho trovato per C++, la lettera "c" è: 4A8A08F09D37B73795649038408B5F33

come mai?

grazie.

[Emulator ®]

Ho risolto con questo codice:

Public Shared Function MD5Encode(ByVal S As String) As String

        Dim hexstring As String = ""

        If S = "" = False Then
            Dim md5 As New Security.Cryptography.MD5CryptoServiceProvider()
            Dim bytestring As Byte() = System.Text.ASCIIEncoding.ASCII.GetBytes(S)
            Dim result As Byte()
            result = md5.ComputeHash(bytestring)

            For i As Integer = 0 To result.Length - 1
                hexstring &= result(i).ToString("x").PadLeft(2, "0")
            Next
        End If

        Return hexstring

    End Function

Saluti

[cassano]

ancora meglio....

result(i).ToString("X2").