Byte() <-> String() Converter - نسخة قابلة للطباعة

كود :

' Converting Byte() To String()

          ' ...

        ' ...

        Try

            Dim path As String = "C:\Users\uesr\Desktop\K.S.jpg" 'File Path

            Dim Bytes() As Byte = System.IO.File.ReadAllBytes(path) 'Reading Bytes

            Dim ConvertedText As String = (System.IO.Path.GetExtension(path) + "#") 'I Use This To Get The File Extension When Converting The File Again

            For Each b As Byte In Bytes

                ConvertedText = (ConvertedText + (Convert.ToString(b) + " "))

            Next

            ConvertedText = ConvertedText.Substring(0, (ConvertedText.Length - 1)) 'Now .. This's The Converted Bytes

            System.IO.File.WriteAllText("C:\Users\uesr\Desktop\BytesText.txt", ConvertedText)'Writing Converted Bytes

            Console.WriteLine("Done ... :)")

            Console.Read()

        Catch

            Console.WriteLine("Error")

            Console.Read()

        End Try

كود :

'Converting String() To Byte()        ' ...

        ' ...

        Try

            Dim path As String = "C:\Users\uesr\Desktop\BytesText.txt" 'BytesText File Path

            Dim ConvertedText As String = System.IO.File.ReadAllText(path) 'Getting BytesText

            Dim FileExtension As String = ConvertedText.Substring(0, ConvertedText.IndexOf("#")) 'Getting File Extension

            Dim StringIndex As Integer = FileExtension.Length + 1 ' I Can't Explain It :|

            ConvertedText = ConvertedText.Substring(StringIndex, ConvertedText.Length - StringIndex) ' I Can't Explain This Too :| :/

            Dim Splits() As String = ConvertedText.Split()  ' Getting An Array With Bytes Converted To String ..

            Dim FileBytes(ConvertedText.Length) As Byte 'This Array To Set File Bytes To It ..

            For i = 0 To Splits.Length - 1

                FileBytes.SetValue(Convert.ToByte(Splits(i)), i)

            Next

            System.IO.File.WriteAllBytes("C:\Users\uesr\Desktop\FileAgain" + FileExtension, FileBytes) 'Writing File .. 

            Console.WriteLine("Done ... :)")

            Console.Read()

        Catch

            Console.WriteLine("Error")

            Console.Read()

        End Try