Visual Basic Hex Kodunu Stringe Çevirmek

Visual Basic dilinde bir Hex kodunu stringe çevirmek için aşağıdaki örnek kod parçası kullanılabilir..

Friend Class OrnekClass

    Private Shared Sub Main()
        Dim dataHex = FromHex("6F726E656B537472696E67")
        Dim str = Encoding.ASCII.GetString(dataHex) 'ornekString

        Console.WriteLine(str)
    End Sub

    Public Shared Function FromHex(ByVal hex As String) As Byte()
        hex = hex.Replace("-", "")
        Dim raw = New Byte(hex.Length / 2 - 1) {}

        For i = 0 To raw.Length - 1
            raw(i) = Convert.ToByte(hex.Substring(i * 2, 2), 16)
        Next

        Return raw

    End Function

End Class

Bu kodun çıktısı "ornekString" olacaktır.



İlginizi Çekebilir

Visual Basic Bir Sayının Karekökünü Alma

Visual Basic Dosyanın Uzantısını Bulma

Visual Basic Ofis Word'ün Yüklü Olup Olmadığını Bulmak

Visual Basic Private Set Kullanımı

Visual Basic Bilgisayarın Local IP Adresini Bulmak