تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
Byte() <-> String() Converter
#1
السلام عليكم اخواني الاعزاء ..
في هذا الموضوع ساتناول طريقة تحويل اي ملف الى ملف نصي يتكون من ارقام ...
و ارجاعه الى وضعه الاصلي ..
كل هذا باستخدام الـ Split في النصوص .. و حلقات التكرار (For/For Each)

للتحويل من اي ملف الى نص .. و من ثم كتابة الملف النصي ( تشفير )
كود :
' 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

تحياتي

اخوكم علي
الشمس اجمل في بلادي من سواها .. و الظلام
حتى الظلام هناك اجمل فهو يحتضن العـــراق :o
الرد }}}
تم الشكر بواسطة:
#2
ارجو من الادارة نقل الموضوع الى قسم المقالات ....
اسف جدا ......
الشمس اجمل في بلادي من سواها .. و الظلام
حتى الظلام هناك اجمل فهو يحتضن العـــراق :o
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم