Textverschlüsselung mit VBA
09.02.2019 17:25:01
kocius
bräuchte schon mal wieder Eure Hilfe.
Da geht um Text Verschlüsselung/Entschlüsselung.
In der Tabelle Verschlüsseln in der Zeile B2 wird manuell ein beliebiger Klartext manuell eingegeben und in der Zeile B3 manuell ein beliebiger Kennwort eingetragen.
In der Zeile B4 wird mittels Buttons Kennwort vereinfachen die mehrfachvorkommeden Buchstaben gestrichen.
Es müssen zwei Schritte programmiert werden
Schritt 1:
In der Tabelle1 ist die Spalte A fest definiert. In die Spalte B, ab Zeile B3 wird an das vereinfachten Kennwort (INTERSCH) das Alphabet in umgekehrter Reihenfolge angehängt. Wichtig: die Buchstaben sollen in der Spalte B nicht wiederholen und nur einmal in der Spalte B vorkommen. D.h.: wenn die Buchstabe N schon im vereinfachten Kennwort ist (INTERSCH), in dem Alphabet, das in umgekehrter Reihenfolge angehängt wird, soll die nicht mehr auftauchen (statt N kommt die nächstdrunterliegende Buchstabe M). So wird eine Spalte mit Geheimtext erzeugt.
Schritt 2:
Anhang vom dem Geheimtext (Tabelle1, Spalte B) soll der Klartext (Tabelle Verschlüsseln, Zeile B2) verschlüsselt und wieder entschlüsselt werden. Die Ergebnisse kommen dann in die Tabelle Verschlüsseln Zeilen B5/B6
Hatte schon was programmiert, leider komme nicht richtig weiter mit Arrays.
Würde über Eure Hilfe sehr freuen!
Anbei die Datei:
https://www.herber.de/bbs/user/127533.xlsm