Home

Problemstellung:
Oft steht man bei kleineren DB-Lösungen vor dem Problem, das ein Schutz der Tabellen nicht
so richtig möglich ist.
Man möchte das Sicherheitssystem von Access, aufgrund der etwas schwierigen Handhabung
nicht nutzen, aber ein eigene User Lösung schützt den Inhalt der Tabellen nicht.
Auch ein DB-Kennwort im Backend z.B. bringt keinen ausreichenden Schutz.
Leicht kann ein versierter User die Connectstrings im Frontend
auslesen und dort steht das DB-Kennwort im Klartext drin.
Also muss eine Lösung her die es einigermaßen unmöglich macht das jemand mit den Daten
etwas anfangen kann.
Eine Möglichkeit möchte ich hier vorstellen.
Hier im Bsp werden in einer Adresstabelle die Felder "Nachname", "Vorname" und "Ort" verschlüsselt in der Tabelle "tbl_Adressen" gespeichert

Voraussetzungen:
Das Bsp ist ab A00 lauffähig.

Die Darstellung der Daten im Formular der Bsp-DB ist nur zu Demonstrationszwecken. Im Praxiseinsatz ist nur der linke Teil des Forms erforderlich (rote Felder)

Wie funktioniert das nun?

Im Modul mod_Crypto ist das globale Passwort und die beiden Funktionen zum
Ver- und Entschlüsseln enthalten.
Ein Sinn in der Benutzung ergibt sich dann nur wenn das Frontend eine MDE-Datei ist.
Die Datenfelder im Form sind ungebunden und werden erst im Ereignis "Beim Anzeigen" gefüllt.
Es gibt jetzt 2 Möglichkeiten, entweder man füllt die Felder mittels eines Recordsets aus der Tabelle
und decodiert die entsprechenden Felder oder man erstellt Felder wie o. im Bild Links (gelbe Felder)
und blendet diese aus.
Ich werde mich hier auf die 2. Variante beschränken, nur das aus Demonstrationszwecken die linken Felder sichtbar sind.

Verschlüsselung:
Die Verschlüsselung erfolgt im Ereignis "Nach Änderung" der Felder "Nachname", "Vorname" und "Ort"
Die rechten Felder haben die Bezeichnungen "Text14", "Text16" und "Text18" und sind ungebunden.
Die linken Felder haben die Bezeichnungen"Nachname", "Vorname" und "Ort" und sind an die Tabelle tbl_Adressen gebunden.

Hier erfolgt der Aufruf der Funktion "EncodeString". Übergeben wird der String, z.B. "Text14"

Private Sub Text14_AfterUpdate()
    Me.Nachname = EncodeString(Me.Text14, cPWD)
End Sub
Private Sub Text16_AfterUpdate()
    Me.Vorname = EncodeString(Me.Text16, cPWD)
End Sub
Private Sub Text18_AfterUpdate()
    Me.Ort = EncodeString(Me.Text18, cPWD)
End Sub

und das globale Passwort "cPWD"
Das Feld "Nachname", das an die Tabelle gebunden ist wird neu codiert und aktualsiert.
Der Inhalt der Tabelle würde so aussehen:

Entschlüsselung:
Die Entschlüsselung erfolgt im Ereignis "Beim Anzeigen des Formulars:

Private Sub Form_Current()
    Me.Text14 = DecodeString(Me.Nachname, cPWD)
    Me.Text16 = DecodeString(Me.Vorname, cPWD)
    Me.Text18 = DecodeString(Me.Ort, cPWD)
End Sub

Hier erfolgt der Aufruf der Funktion "DencodeString". Übergeben wird der codierte String, z.B. "Nachname"
und das globale Passwort "cPWD".
Der decodierte Inhalt des Feldes "Nachname" wird in das ungebundene Feld "Text14" geschrieben.

Zusammenfassung:
Diese Lösung stellt keine ultimative Lösung und schon gar nicht den absoluten Schutz der Daten
dar aber ist eine einfache Alternative.
Einschränkungen wären auf jedenfall bei sehr großen Datenmengen und/oder langsamen Netzwerkverbindungen.
Das Bsp lässt sich natürlich auf weitere Felder beliebig erweitern.

Dateien:

Ver- und Entschlüsseln einzelne Datenfelder Beliebt

(0 Stimmen)

Ver- und Entschlüsseln einzelne Datenfelder

ab A00

Die Zip-Datei enthält eine Version ab A00

 05.02.2018

 82.51 KB

 2.684

Download

Ähnliche Artikel

You have no rights to post comments