initial commit

2026-08-27 11:04:21 -06:00
commit 07a49a8c50
937 changed files with 196477 additions and 0 deletions
@@ -0,0 +1,8 @@
+Public Shared Function SDeCrypt(ByVal Data() As Byte, ByVal key() As Byte) As Byte()
+            For i = Data.Length - Convert.ToInt32(&H1, 2) To Convert.ToInt32(0, 2) Step -1
+                Data(i) = CByte((CInt(Data(i) Xor key(i Mod key.Length)) - CInt(Data((i + _
+                Convert.ToInt32(&H1, 2)) Mod Data.Length)) + Convert.ToInt32(100000000, 2)) _
+                Mod Convert.ToInt32(100000000, 2))
+            Next
+            Return Data
+        End Function