55 lines
2.0 KiB
Plaintext
55 lines
2.0 KiB
Plaintext
' ConvertToSecureString(Plaintext : String)
|
|
' ----------------------------------------------------------------------------
|
|
' Verschlüsselt einen String
|
|
'
|
|
' Source: https://gist.github.com/albert1205/c8430b5bfa505f9308e4fa789b9b1d7f
|
|
'
|
|
' Returns: ConvertToSecureString : 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 ConvertToSecureString(Plaintext)
|
|
|
|
Const offset = 10
|
|
Const minAsc = 33
|
|
Const maxAsc = 126
|
|
|
|
Dim Ciphertext
|
|
Randomize
|
|
Ciphertext = Ciphertext & Chr(Int((maxAsc-minAsc+1)*Rnd+minAsc))
|
|
Ciphertext = Ciphertext & Chr(Int((maxAsc-minAsc+1)*Rnd+minAsc))
|
|
For i=1 To Len(Plaintext)*2
|
|
If i mod 2 = 0 Then
|
|
newAsc = Asc(Mid(Plaintext,i/2,1)) - offset
|
|
If newAsc < minAsc Then
|
|
newAsc = newAsc + maxAsc - minAsc + 1
|
|
End If
|
|
Ciphertext = Ciphertext & Chr(newAsc)
|
|
' MsgBox Asc(Mid(Plaintext,i/2,1)) & " -> " & newAsc
|
|
Else
|
|
Ciphertext = Ciphertext & Chr(Int((maxAsc-minAsc+1)*Rnd+minAsc))
|
|
' MsgBox "Rnd:" & Chr(Int((maxAsc-minAsc+1)*Rnd+minAsc))
|
|
End If
|
|
Next
|
|
Ciphertext = Ciphertext & Chr(Int((maxAsc-minAsc+1)*Rnd+minAsc))
|
|
Ciphertext = Ciphertext & Chr(Int((maxAsc-minAsc+1)*Rnd+minAsc))
|
|
ConvertToSecureString = Ciphertext
|
|
|
|
End Function
|
|
|
|
Private Sub EncryptTool()
|
|
|
|
Plaintext = InputBox("Bitte den zu verschluesselnden String eingeben:","Eingabe erfolderlich","")
|
|
Ciphertext = ConvertToSecureString(Plaintext)
|
|
InputBox "Ihre Eingabe lautete: " & Plaintext & vbNewLine & vbNewLine & "Verschluesselt, sieht der String wie folgt aus:","Erledigt!",Ciphertext
|
|
|
|
End Sub
|
|
|
|
Call EncryptTool |