Eine Tabelle um ein Passwort-Feld erweitern

heinz.schweda@schweda.net (Heinz Schweda) — Sat, 29 Jun 2013 17:34:00 +0200

Im folgenden eine kurze Anleitung, wie man eine Tabelle um ein Feld erweitert, in welchem ein verschlüsseltes Passwort gespeichert werden kann.

Zwei EDTs erstellen
- Vom Typ Container DEV_ServerPassword, extends CryptoBlog
- Vom Typ String DEV_ServerPasswordStr (Länge 128)
Neues Feld in Tabelle vom EDT DEV_ServerPassword
Neue Methode in Tabelle, über diese statische Methode kann später der Wert ausgelesen werden

static DEV_ServerPasswordStr password()
{
    CryptoBlob cryptoBlob = connull();
    ;
    cryptoBlob = DEV_Parameters::find().ServerPassword;

    if (cryptoBlob != connull())
        return cryptoblob2str(WinapiServer::cryptUnProtectData(cryptoBlob));
    else
        return '';
}

Neue Methode in der Datasource der Form

edit DEV_ServerPasswordStr setPassword(boolean _set = false, DEV_ServerPasswordStr _pwd = '')
{
    CryptoBlob cryptoBlob = connull();
    ;
    if (_set && _pwd != 'xxxxxxxx')
    {
        cryptoBlob = WinapiServer::cryptProtectData(str2cryptoblob(_pwd));

        DEV_Parameters.ServerPassword = cryptoBlob;
        DEV_Parameters.update();
    }

    if (DEV_Parameters.ServerPassword != connull())
    {
        return 'xxxxxxxx';
    }
    else
    {
        return '';
    }
}

Diese edit()-Methode ins Design des Formulares hineinziehen und auf dem Control die Eigenschaft PasswortStyle=YES setzen

schweda.net - Blog

Eine Tabelle um ein Passwort-Feld erweitern