[Dr.Virus]

(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

مشكور حبيبي علي ردك إن شاء الله أجرب وأرد عليك