منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

(25-04-14, 12:49 AM)Dr.Virus كتب : [ -> ]...عندي ملف تنفيذي قرأت البايتات الخاصة عن طريق الكود التالي

كود :

Dim Data() As Byte = IO.File.ReadAllBytes("C:\App.exe")

ثم حولت البايتات الي Base64String وحفظتها في أداة RichTextBox عن طريق الكود التالي

كود :

RichTxtCode.Text = Convert.ToBase64String(Data)

لحد هنا كل شئ تمام

طلبي :
عندي 6 متغيرات من نوع String متغير A,B,C,D,E,F
أريد تقسيم النص الموجود في أداة RichTextBox الي 6 اقسام علي حسب عدد المتغيرات
واضافة النصوص الي المتغيرات بالترتيب بحيث لما احاول ارجعهم مرة أخري الي مصفوفة Byte يتم استرجاعهم بالكود التالي

كود :

Dim DData() As Byte = Convert.FromBase64String(A & B & C & D & E & F)

...

(25-04-14, 02:17 AM)vbnet كتب : [ -> ]هذا مثال سريع

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Dim Data() As Byte = IO.File.ReadAllBytes("c:\Windows\system32\calc.exe") 'قراءة الملف
    Dim s As String = Convert.ToBase64String(Data) ' تحويل البايتات لنص مشفر

    Dim p As Integer = (s.Length / 6) ' حجم كل جزء

    Dim _A As String = s.Substring((p * 0), p)
    Dim _B As String = s.Substring((p * 1), p)
    Dim _C As String = s.Substring((p * 2), p)
    Dim _D As String = s.Substring((p * 3), p)
    Dim _E As String = s.Substring((p * 4), p)
    Dim _F As String = s.Substring((p * 5))

    RichTxtCode.Text = s

    Dim z As String = _A & _B & _C & _D & _E & _F ' تجميع الأجزاء

    Dim DData() As Byte = Convert.FromBase64String(z) ' تحويل النص المشفر لبايتات
    IO.File.WriteAllBytes("c.exe", DData) ' حفظ الملف

End Sub