عمل برنامج تحويل خوارزميات [ 8 خوارزميات ] vb.net

<div><div align="center">



عمل برنامج تحويل خوارزميات [ 8 خوارزميات ] ..

طبعا فكرة البرنامج هي تحويل سيرفرك الى خوارزمية Base64
ثم تشفيرها الى الخوارزمية الي انت تبيها ^_^

الخوارزميات الي بنسويها للبرنامج
Base64
Base64+Gzip
RNG
XOR
RC2
RC4
Triple_DES
DES

ملاحظة لازم يكتب باس للتشفير في هذه الخوارزميات
XOR
RC4

نضيف الادوات الاتية
9 [ Buttons ]
4 [ TextBox ]
صورة للتوضيح



شرح تفصيلي عن طريقة عمل البرنامج :
افهمكم شوي طريقة عمل البرنامج من الصورة
تختار سيرفرك ويطلع مساره من الـ TextBox1
وتضغط زر التحويل يحول السيرفر الى قيم [ Base64 ] بـ TextBox2
ويشفره الى الخوارزمية الي انت مختارها بـ TextBox3

الزر الاول اختيار السيرفر [ Server ]
تحط كود اخيار ملفات ExE كود:
Dim OpenFileDialog As New OpenFileDialog
With OpenFileDialog
.Title = "Select EXE File"
.Filter = "Exe Files (*.exe)|*.exe"
.ShowDialog()
End With
TextBox1.Text = OpenFileDialog.FileName
الان نبداء على بركة الله بالخوارزميات
=======
Base64
=======
Function : كود:
Public Function ConvertFileToBase64(ByVal fileName As String) As String
Return Convert.ToBase64String(System.IO.File.ReadAllBytes (fileName))
End Function
تحط الكود ذا في زر الـ Base64
كود:
TextBox3.Text = ConvertFileToBase64(TextBox1.Text)
===========
Base64+Gzip
===========
Function :
كود:
Public Shared Function GZip(ByVal byte_0 As Byte()) As Byte()
Using stream As MemoryStream = New MemoryStream
Using stream2 As GZipStream = New GZipStream(stream, CompressionMode.Compress)
stream2.Write(byte_0, 0, byte_0.Length)
stream2.Close()
byte_0 = New Byte(((((stream.ToArray.Length - 1) + 1) - 1) + 1) - 1) {}
byte_0 = stream.ToArray
End Using
stream.Close()
End Using
Return byte_0
End Function
تحط هذا الكود في زر Base64 + Gzip
كود:
TextBox3.Text = Convert.ToBase64String(Form1.GZip(File.ReadAllByte s(TextBox1.Text)))
======
RNG
======
Function :
<div style="margin:20px; margin-top:5px"> كود:
Public Shared Function RNG(ByVal byte_0 As Byte()) As Byte()
Dim provider As New RNGCryptoServiceProvider
Dim data As Byte() = New Byte(&H20 - 1) {}
Dim dst As Byte() = New Byte(((((&H20 + (byte_0.Length - 1)) + 1) - 1) + 1) - 1) {}
provider.GetBytes(data)
Buffer.BlockCopy(data, 0, dst, 0, &H20)
Buffer.BlockCopy(byte_0, 0, dst, &H20, byte_0.Length)
Dim num2 As Integer = (dst.Length - 1)
Dim i As Integer = &H20
Do While (i num5 Then
Exit While
End If
num = (num + 1) Mod 256
num2 = (num2 + array2(num)) Mod 256
Dim num6 As Integer = array2(num)
array2(num) = array2(num2)
array2(num2) = num6
Dim value As Integer = array2((array2(num) + array2(num2)) Mod 256)
plaintxt(num4) = plaintxt(num4) Xor Convert.ToByte(value)
num4 += 1
End While
Return plaintxt
End Function

Protected Shared Sub RC4Initialize(ByVal key As Byte(), ByRef sbox As Integer())
Dim num As Integer = key.Length
Dim num2 As Integer = 0
Dim arg_1B_0 As Integer
Dim num3 As Integer
Do
sbox(num2) = num2
num2 += 1
arg_1B_0 = num2
num3 = 255
Loop While arg_1B_0