حول سيرفرك الى خوارزمية rc4

اليوم انشاء الله تكمله لي مواضيع تحويل سيرفك بنفسك

طيب للاول مره يشوف الموضوع هنا هنتعلم كيف صناعة

برنامج تحويل سيرفك لي خوازرم معين زي انهرده معنا
خوازرم RC4

طيب يلا بنا علي الشرح سيرفك نفسك خوارزم

~الادوات~

عدد 3
Button

عدد2
TEXTBOX

عدد 1

Label

واخيرا عدد 1
RichTextBox

وطبعا صوره توضحيه

طيب هنعمل View code
لي form1

هنمسح كل الي الي جوه وهنحط الكود بتعنا


Imports System.IO




Public Class Form1




    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim openFileDialog As OpenFileDialog = New OpenFileDialog() With {.Filter = "ExeFiles (*.exe) | *.exe"}



        Dim flag As Boolean = openFileDialog.ShowDialog() = DialogResult.OK

        If flag Then

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click



            Me.TextBox1.Text = openFileDialog.FileName
End If
    End Sub




    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

        Me.RichTextBox1.Text = Convert.ToBase64String(RC4.Encrypt(File.ReadAllBytes(Me.TextBox1.Text), Me.TextBox2.Text))
    End Sub

        Clipboard.SetText(Me.RichTextBox1.Text)


End Class

        Interaction.MsgBox("Coppied", MsgBoxStyle.OkOnly, Nothing)


    End Sub

هيبقي كدا

تمام ^^ هيظهر خطاء عشن محطناش كلاس الخوارزم

نقوم بي ان شاء كلاس بي اسم RC4

ونمسح كل الموجود ونحط الكود بتعنا

Imports System
Imports System.Diagnostics
Imports System.Text

Public Class RC4
    Public Sub New()
    End Sub

    Public Shared Function Encrypt(bytData As Byte(), sPassword As String) As Byte()
        Return RC4.RC4EnDeCrypt(bytData, RC4.StrToByteArray(sPassword))
    End Function

    Public Shared Function Decrypt(bytData As Byte(), sPassword As String) As Byte()
        Return RC4.RC4EnDeCrypt(bytData, RC4.StrToByteArray(sPassword))
    End Function

    Private Shared Function RC4EnDeCrypt(plaintxt As Byte(), password As Byte()) As Byte()
        Dim array As Byte() = New Byte(plaintxt.Length + 1 - 1) {}
        Dim array2 As Integer() = New Integer(257 - 1) {}
        Dim num As Integer = 0
        Dim num2 As Integer = 0
        RC4.RC4Initialize(password, array2)
        Dim arg_2D_0 As Integer = 0
        Dim num3 As Integer = plaintxt.Length - 1
        Dim num4 As Integer = arg_2D_0
        While True
            Dim arg_89_0 As Integer = num4
            Dim num5 As Integer = num3
            If arg_89_0 > 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(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 <= num3
        Dim num4 As Integer = 0
        num2 = 0
        Dim arg_55_0 As Integer
        Do
            num4 = (num4 + sbox(num2) + CInt(key(num2 Mod num))) Mod 256
            Dim num5 As Integer = sbox(num2)
            sbox(num2) = sbox(num4)
            sbox(num4) = num5
            num2 += 1
            arg_55_0 = num2
            num3 = 255
        Loop While arg_55_0 <= num3
    End Sub

    Private Shared Function StrToByteArray(str As String) As Byte()
        Dim aSCIIEncoding As ASCIIEncoding = New ASCIIEncoding()
        Return aSCIIEncoding.GetBytes(str)
    End Function

    Private Shared Function ByteArrayToStr(dBytes As Byte()) As String
        Dim aSCIIEncoding As ASCIIEncoding = New ASCIIEncoding()
        Return aSCIIEncoding.GetString(dBytes)
    End Function