Office: Inhalt einer Zelle verschlüsseln

Hallo zusammen,

für ein Projekt, in das eine Benutzerverwaltung mit unterschiedlichen Rechten eingebaut ist, suche ich eine Möglichkeit den Inhalt einer Zelle zu verschlüsseln.
In einem verstecktem Sheet steht ein Benutzername und ein Passwort. Dahinter sind verschiedene Rechte vergeben. Neben dem obligatorischen Passwortschutz für das Sheet, möchte ich das Tabellenblatt inhaltlich Zelle für Zelle verschlüsseln.

Aus
BENUTZER PASSWORT RECHT1 RECHT2 RECHT3
Müller test x - x

soll z.B. so etwas werden
BENUTZER PASSWORT RECHT1 RECHT2 RECHT3
=is&5x 87z% ) 2 !

Mir geht es darum, dass, wenn jemand an das Sheet rankommt, er dort nur Zeichenmüll sieht, der aber mit einer entsprechenden Funktion wieder in Klartext umgewandelt werden kann...

Ich hatte mal ein kleines Tool gemacht, welches mit Hilfe von Zufallszahlen und dem ASCII-Code eines Zeichens, eine Ziffernfolge erzeugt hat. Funktionierte soweit auch gut, aber aus einem einfachen "A" wurde ein 6 bis 7 stellige Zahl... Ist mir einfach zu lang...

Hat jemand vieleicht einen Ansatz, wie man eine Verschlüsselung noch bewerkstelligen könnte?? Das der Entschlüsselungs-Code ausgelagert werden müsste, ist klar. Das Ganze soll auch keinem Spionage-Verein*wink.gif* aufhalten, sondern ist nur als Hürde für relativ "normale" User gedacht...

Schöne Grüße
Costi

:)

 

Hallo Costi,

Beiliegend 2 Funktionen.
Der Algo ist nicht sehr klever, aber ich meine für den Durchschnitt genügend.
Funktion PWDEncryption liefert für einen Eingangsstring den verschlüsselten Wert.
Funktion isPWDCorrect gibt bei Eingabe eine Klarttextstrings und des verschlüsselten Werts TRUE oder FALSE zurück, wenn Klartext mit verschlüsseltem Wert übereinstimmt.

Code:

 

Hallo Costi,

Natürlich sieht die Decryptions-Funktion so aus:

Code:

 

Hallo Hansueli,

danke schon mal für den Code! Ich habs mal kurz getestet und es funktioniert (hab auch nix anderes von Dir erwartet*wink.gif* ) Mein Code war Deinem ähnlich. Nur ein wenig länger.
Für den Buchstaben "A" nach dem Muster:
(Zufallszahl * 9) + 1 => z.B. 7
(Zufallszahl * 9) + 1 => z.B. 4
65 (Ascii-Code für A) * 7 * 4 = 1820 => 718204

Dadurch ensteht für jedes einzelne Zeichen eine mehrstellige Zahl. Vorteil: Wenn man die Berechnungsgrundlage nicht kennt, nahezu unknackbar (?), weil bedingt durch die Zufallszahlen sich alle 3 Teilbereiche verändern. Das ergibt bereits für ein einfaches "A" recht viele verschiedene Zahlenkombinationen... Das zurückrechnen ist dann einfach... Man kann das ganze auch noch mit ein paar Dummy-Ziffern vorn und/oder hinten ergänzen, dann wirds noch schwieriger. Aber, wie ich in meinem Start-Post schon geschrieben habe, ist es mir die Zeichenlänge einfach zu lang... Da ist Dein Code und das Ergebnis schon kompakter.

Wenn noch jemand Ansätze hat, immer her damit!
Schöne Grüße
Costi

 

Hallo zusammen,

so, habe mich jetzt mal drangesetzt und ein paar Varianten entwickelt...
Variante 4 ist allerdings nur "just for fun" *wink.gif*

Mir persönlich gefallen die Varianten 2 und 5 am besten. Scheinen mir auch die sichersten zu sein. Wobei "sicher" unter Excel-VBA ja relativ ist...*wink.gif*

Aber für einen "Otto-Normal-Anwender" dürfte die Verschlüsselung schon eine ziemliche Hürde sein, denke ich...

Vorgehensweise:
1. Text eingeben (Grüne Zelle)
2. Codierungsart wählen (Varianten 1 bis 5)
3. Button "Codieren" klicken. Der Codierte Text steht dann in der rot gefärbten Zelle.
4. In der orange gefärbten Zelle wird der decodierte Text angezeigt (nach dem Klicken natürlich...)

Über Feedback/Fehler/konstruktive Kritik würde ich mich sehr freuen!
Danke, schöne Grüße und ein schönes Wochenende!
Costi

 

Hallo,

sowas habe ich gesucht :-)

Ich nutze eine Excel um den Leuten ihr Initialpasswort zukommen
zu lassen. Ist nix kritisches, allerdings probieren bestimmt einige rum,
und da ist aufgefallen, dass sich die Werde nach der Verschlüsselung
stark ähneln.

Hast Du vielleicht eine Excel, wo ich die Personalnummer eingebe,
und daraus dann ein Code erzeugt wird? Die Persnr ist ein Buchstabe und
5 oder mehr Zahlen.

Wäre super. Hab leider von der Programmiererei keinen Schimmer, aber man lernt ja nie aus :-)

Viele Grüße
RF