' ConvertFromSecureString(Ciphertext : String)
' ----------------------------------------------------------------------------
' Gibt den entschlüsselten String zurück
' 
' Source: https://gist.github.com/albert1205/c8430b5bfa505f9308e4fa789b9b1d7f
' 
' Returns: ConvertFromSecureString : String
' ----------------------------------------------------------------------------
' Copyright (c) 2021 by Digital Data GmbH
'
' Digital Data GmbH • Ludwig-Rinn-Strasse 16 • D-35452 Heuchelheim
' Tel.: 0641/202360 • E-Mail: info-flow(at)digitaldata.works
' ----------------------------------------------------------------------------
' Creation Date / Author:   26.08.2020 / XX
' Version Date / Editor:    26.08.2020 / XX
' Version Number:           1.0.0.0

Public Function ConvertFromSecureString(Ciphertext)

    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