22-11-12, 10:11 PM
السلام عليكم اخواني الاعزاء ..
في هذا الموضوع ساتناول طريقة تحويل اي ملف الى ملف نصي يتكون من ارقام ...
و ارجاعه الى وضعه الاصلي ..
كل هذا باستخدام الـ Split في النصوص .. و حلقات التكرار (For/For Each)
للتحويل من اي ملف الى نص .. و من ثم كتابة الملف النصي ( تشفير )
و للتحويل من الملف النصي الى اي ملف ( فك تشفير )
تحياتي
اخوكم علي
في هذا الموضوع ساتناول طريقة تحويل اي ملف الى ملف نصي يتكون من ارقام ...
و ارجاعه الى وضعه الاصلي ..
كل هذا باستخدام الـ 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تحياتي
اخوكم علي