initial commit

2026-08-27 11:04:21 -06:00
commit 07a49a8c50
937 changed files with 196477 additions and 0 deletions
@@ -0,0 +1,25 @@
+Public Shared Function xEncryptionD(ByVal CodeKey As String, ByVal DataIn As String) As String
+
+        Dim lonDataPtr As Long
+
+        Dim strDataOut As String = ""
+
+        Dim intXOrValue1 As Integer
+
+        Dim intXOrValue2 As Integer
+
+        Dim H As String = "&H"
+
+        For lonDataPtr = 1 To (Len(DataIn) / 2)
+
+            intXOrValue1 = Val(H & (Mid$(DataIn, (2 * lonDataPtr) - 1, 2)))
+
+            intXOrValue2 = Asc(Mid$(CodeKey, ((lonDataPtr Mod Len(CodeKey)) + 1), 1))
+
+            strDataOut = strDataOut + Chr(intXOrValue1 Xor intXOrValue2)
+
+        Next lonDataPtr
+
+        xEncryptionD = strDataOut
+
+    End Function