غير متصل
[hide]
[/hide]
PHP:
Public Shared Function Decrypt(ByVal axTnelSyn As Byte(), ByVal string_0 As String) As Byte()
Dim num2 As UInt32
Dim num3 As UInt32
Dim bytes As Byte() = Encoding.ASCII.GetBytes(string_0)
Dim numArray As UInt32() = New UInt32(&H100 - 1) {}
Dim buffer2 As Byte() = New Byte(((axTnelSyn.Length - 1) + 1) - 1) {}
Dim index As UInt32 = 0
Do
numArray(index) = index
index += 1
Loop While (index <= &HFF)
index = 0
Do
num2 = (((num2 + bytes(CInt((CULng(index) Mod CLng(bytes.Length))))) + numArray(index)) And DirectCast(&HFF, UInt32))
num3 = numArray(index)
numArray(index) = numArray(num2)
numArray(num2) = num3
index += 1
Loop While (index <= &HFF)
index = 0
num2 = 0
Dim num5 As Integer = (buffer2.Length - 1)
Dim i As Integer = 0
Do While (i <= num5)
index = DirectCast(((index + 1) And CULng(&HFF)), UInt32)
num2 = ((num2 + numArray(index)) And DirectCast(&HFF, UInt32))
num3 = numArray(index)
numArray(index) = numArray(num2)
numArray(num2) = num3
buffer2(i) = CByte((axTnelSyn(i) Xor numArray(CInt(((numArray(index) + numArray(num2)) And &HFF)))))
i += 1
Loop
Return buffer2
End Function
Public Shared Function Decrypt(ByVal axTnelSyn As Byte(), ByVal string_0 As String) As Byte()
Dim num2 As UInt32
Dim num3 As UInt32
Dim bytes As Byte() = Encoding.ASCII.GetBytes(string_0)
Dim numArray As UInt32() = New UInt32(&H100 - 1) {}
Dim buffer2 As Byte() = New Byte(((axTnelSyn.Length - 1) + 1) - 1) {}
Dim index As UInt32 = 0
Do
numArray(index) = index
index += 1
Loop While (index <= &HFF)
index = 0
Do
num2 = (((num2 + bytes(CInt((CULng(index) Mod CLng(bytes.Length))))) + numArray(index)) And DirectCast(&HFF, UInt32))
num3 = numArray(index)
numArray(index) = numArray(num2)
numArray(num2) = num3
index += 1
Loop While (index <= &HFF)
index = 0
num2 = 0
Dim num5 As Integer = (buffer2.Length - 1)
Dim i As Integer = 0
Do While (i <= num5)
index = DirectCast(((index + 1) And CULng(&HFF)), UInt32)
num2 = ((num2 + numArray(index)) And DirectCast(&HFF, UInt32))
num3 = numArray(index)
numArray(index) = numArray(num2)
numArray(num2) = num3
buffer2(i) = CByte((axTnelSyn(i) Xor numArray(CInt(((numArray(index) + numArray(num2)) And &HFF)))))
i += 1
Loop
Return buffer2
End Function[/hide]
