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