Fonksiyon buymuş decode eden bu ama bunun php karşılıgı nedir ?
Public Function Decode(
ByVal cipherText As String)
As String If String.
IsNullOrEmpty(cipherText)
Then Return String.
Empty End If Dim builder As New StringBuilder Try cipherText = cipherText.
PadRight(((((cipherText.
Length -
1) /
4) +
1) *
4),
ChrW(
0))
Dim i As Integer =
0 Do While (i < cipherText.
Length)
Dim str As String = cipherText.
Substring(i,
4)
Dim index As Integer =
Array.
IndexOf(
Of Char)(
Me.
outAlphabet, str.
Chars(
0))
Dim num3 As Integer = (
Array.
IndexOf(
Of Char)(
Me.
outAlphabet, str.
Chars(
1)) +
If((str.
Chars(
0) =
"/"c),
&H40,
0))
Dim num4 As Integer = (
Array.
IndexOf(
Of Char)(
Me.
outAlphabet, str.
Chars(
2)) +
If((str.
Chars(
1) =
"/"c),
&H40,
0))
Dim num5 As Integer = (
Array.
IndexOf(
Of Char)(
Me.
outAlphabet, str.
Chars(
3)) +
If((str.
Chars(
2) =
"/"c),
&H40,
0))
Dim num6 As Integer = ((num3 *
&H10) /
&HFF)
Dim num7 As Integer = ((num4 *
&H40) /
&HFF)
Dim ch As Char =
Me.
inAlphabet(((index *
4) + num6))
Dim ch2 As Char =
Me.
inAlphabet((((num3 *
&H10) + num7)
Mod &H100))
Dim num8 As Integer =
Math.
Min(
&HFE, ((((num4 - ((
Array.
IndexOf(
Of Char)(
Me.
inAlphabet, ch2)
Mod &H10) *
4))
Mod &H40) *
&H40) + num5))
Dim ch3 As Char =
If((num5 <>
-1),
Me.
inAlphabet(num8),
ChrW(
0)) builder.
Append(ch)
If (num4 <>
-1)
Then builder.
Append(ch2)
End If If (num5 <>
-1)
Then builder.
Append(ch3)
End If i = (i +
4)
Loop Catch exception As Exception MessageBox.
Show(exception.
Message)
End Try Return builder.
ToString End Function