Lizenzschlüssel in MS Access – ohne DLL, ohne Verweise

Ein kleines, in sich geschlossenes Lizenzsystem für Microsoft Access – reines VBA, kurze signierte Schlüssel mit optionalem Ablaufdatum, ganz ohne externe DLL und ohne Verweise, lauffähig unter 32- und 64-Bit.

Das Problem: Lizenzierung ohne externe Abhängigkeiten

Sobald man eine Access-Anwendung weitergibt, taucht dieselbe Frage auf: Wie kontrolliert man die Weitergabe und die Nutzungsdauer? Eine Demo soll nach 30 Tagen stoppen, ein zahlender Kunde soll die Vollversion nutzen – und das möglichst, ohne für jeden Fall eine neue Datenbank auszuliefern.

Fertige Lizenzbibliotheken bringen meist eine COM-DLL oder einen .NET-Verweis mit. Das bedeutet Registrierung, Verteilung und Ärger beim Wechsel zwischen 32- und 64-Bit-Office. Für ein einzelnes Access-Frontend ist das unverhältnismäßig.

Das Ziel ist deshalb bewusst schlicht: eine Lizenzprüfung komplett in VBA, ohne Setup, ohne Verweis, auf jedem Rechner lauffähig.

Die Lösung im Überblick

Der gesamte Mechanismus steckt in einem einzigen Modul modLicense und einem Formular frmLicense. Das Modul enthält SHA-256 und HMAC-SHA256 als reines VBA – ohne Declare, also ohne Bindung an eine bestimmte Bitness.

Ein Schlüssel hat das Format XXXX-XXXX-XXXX: zwölf Zeichen aus dem Base32-Alphabet A–Z und 2–7, in drei Vierergruppen. Verwechselbare Zeichen wie 0/O oder 1/I kommen nicht vor. Im Schlüssel steckt ein Ablaufdatum (der Wert 0 bedeutet „unbegrenzt”) sowie eine HMAC-Signatur, die eine Fälschung verhindert.

Aufbau des Schlüssels

Die zwölf Zeichen tragen 60 Bit, die sich wie folgt aufteilen:

Beim Prüfen berechnet die Datenbank die Signatur neu und vergleicht sie. Wurde auch nur ein Zeichen verändert, schlägt die Prüfung fehl.

Einen Schlüssel erzeugen

CreateLicense erwartet optional ein Ablaufdatum und liefert den fertig formatierten Schlüssel zurück. Ohne Datum – oder mit einem Datum am bzw. vor der Epoche – entsteht ein unbegrenzter Schlüssel:

Dim sKey As String

sKey = CreateLicense(Date + 365)   ' ein Jahr ab heute gültig
sKey = CreateLicense(Date + 30)    ' 30-Tage-Testschlüssel
sKey = CreateLicense()             ' unbegrenzt (läuft nie ab)

Das Ergebnis ist die fertige Nummer mit Bindestrichen, die direkt an den Kunden gehen kann.

Einen Schlüssel prüfen

ValidateLicense gibt keinen bloßen Wahrheitswert zurück, sondern einen Status. So kann man auf jede Situation gezielt reagieren:

Select Case ValidateLicense(sKey)
    Case licValid:     ' alles in Ordnung – Anwendung freischalten
    Case licExpired:   ' abgelaufen – Verlängerung anbieten
    Case licTampered:  ' manipuliert oder beschädigt
    Case licMalformed: ' gar keine lesbare Nummer
End Select

Verbleibende Tage anzeigen

Für einen Hinweis „noch X Tage gültig” gibt es einen Helfer. Der Wert -1 steht für eine unbegrenzte Lizenz:

Dim lngDays As Long

lngDays = GetDaysRemaining(sKey)   ' verbleibende Tage, oder -1 für unbegrenzt

Rückgabewerte und Grenzen

ValidateLicense liefert einen Wert der Aufzählung LicenseStatus:

Das Formular

Das mitgelieferte Formular zeigt beide Seiten auf einen Blick: oben ein Datum wählen und erzeugen, unten eine Nummer einfügen und prüfen. Es ist der ideale Ausgangspunkt für einen eigenen Aktivierungsdialog.

Einbindung

Die Einbindung braucht kein Setup und keinen Verweis:

1. Modul modLicense in die Datenbank importieren.
2. Formular frmLicense importieren (mit den Steuerelementen txtExpiry, btnGenerate, txtLicense, txtLicenseCheck, btnCheck, lblStatus, lblLicenseCheck).
3. Den mitgelieferten Selbsttest ausführen.

TEST_modLicense_LITE

Der Selbsttest prüft zunächst den SHA-256-Kern gegen die offiziellen Testvektoren und macht dann einen vollständigen Durchlauf: erzeugen, prüfen, manipulieren, unbegrenzt und abgelaufen.

Download