Module: Reorg / Cleanup

archive/Modules/ConvertFromSecureString.vbs

@@ -0,0 +1,37 @@
+Public Function ConvertFromSecureString(Ciphertext)
+
+    'Stand: 26.08.2020
+	'Source: https://gist.github.com/albert1205/c8430b5bfa505f9308e4fa789b9b1d7f
+
+    Const offset = 10
+    Const minAsc = 33
+    Const maxAsc = 126
+
+    If Len(Ciphertext) < 5 Then
+        Decrypt = ""
+        Exit Function
+    End If
+
+    Dim Plaintext
+    Ciphertext = Mid(Ciphertext,3,Len(Ciphertext)-4)
+    For i=2 To Len(Ciphertext) Step 2
+        oldAsc = Asc(Mid(Ciphertext,i,1)) + offset
+        If oldAsc > maxAsc Then
+            oldAsc = oldAsc - maxAsc + minAsc - 1
+        End If
+        Plaintext = Plaintext & Chr(oldAsc)
+    '    MsgBox Asc(Mid(Ciphertext,i,1)) & " -> " & oldAsc
+    Next
+    ConvertFromSecureString = Plaintext
+
+End Function
+
+Private Sub DecryptTool()
+
+    Ciphertext = InputBox("Bitte den zu entschluesselnden String eingeben:","Eingabe erfolderlich","")
+    Plaintext = ConvertFromSecureString(Ciphertext)
+    InputBox "Ihre Eingabe lautete: " & Ciphertext & vbNewLine & vbNewLine & "Entschluesselt, sieht der String wie folgt aus:","Erledigt!",Plaintext	
+	
+End Sub
+
+'Call DecryptTool