black007
إداري سابق وداعم للمنتدى (خبير فحص ملفات)
داعــــم للمنتـــــدى
★★ نجم المنتدى ★★
عضوية موثوقة ✔️
كبار الشخصيات
غير متصل
من فضلك قم بتحديث الصفحة لمشاهدة المحتوى المخفي
فانكشن فك التشفير ؟
[hide]
[/hide]PHP:Public Function Decrypt(ByVal g As Byte(), ByVal key As Byte()) As Byte() Dim buffer2 As Byte() = New Byte((((g.Length - Me.f) - 1) + 1) - 1) {} Dim dst As Byte() = New Byte(((Me.f - 1) + 1) - 1) {} Buffer.BlockCopy(g, (g.Length - Me.f), dst, 0, Me.f) Array.Resize(Of Byte)(g, (g.Length - Me.f)) Dim num2 As Integer = (g.Length - 1) Dim i As Integer = 0 Do While (i <= num2) buffer2(i) = CByte(((g(i) Xor key((i Mod key.Length))) Xor dst((i Mod dst.Length)))) i += 1 Loop Return buffer2 End Function Public Function Decrypt(ByVal g As Byte(), ByVal key As Byte()) As Byte() Dim buffer2 As Byte() = New Byte((((g.Length - Me.f) - 1) + 1) - 1) {} Dim dst As Byte() = New Byte(((Me.f - 1) + 1) - 1) {} Buffer.BlockCopy(g, (g.Length - Me.f), dst, 0, Me.f) Array.Resize(Of Byte)(g, (g.Length - Me.f)) Dim num2 As Integer = (g.Length - 1) Dim i As Integer = 0 Do While (i <= num2) buffer2(i) = CByte(((g(i) Xor key((i Mod key.Length))) Xor dst((i Mod dst.Length)))) i += 1 Loop Return buffer2 End Function
اه هى فين بقه التشفيره علشان ده الفك بتعها




