50 lines
1.7 KiB
Plaintext
50 lines
1.7 KiB
Plaintext
' 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
|