hey.
I'm trying to make a function to decrypt a xor encryption.
Currently i have this code, But I'm unable to make it work.
What did i do wrong?
I'm trying to make a function to decrypt a xor encryption.
Currently i have this code, But I'm unable to make it work.
VB.NET:
Imports System
Imports System.Text
Public Class Form1
Public Function dexor(ByVal xor1 As String) As String
Dim Sbuilder As StringBuilder
Dim i As Long = 0
While i < (xor1.Length - 1)
Sbuilder.Append(i Xor DirectCast(((i Mod 5) + 1), Char))
System.Math.Max(System.Threading.Interlocked.Increment(i), i - 1)
End While
Return xor1
End Function
End Class
What did i do wrong?