Programm durch Lizenznummer freischalten/erweitern

[dataspider]

Zitat von Sharky:

1. Programm kostet x Euro
2. Pro User-Lizenz kostet das Programm x Euro
3. Pro Wohnungs-Lizenz kostet das Programm x Euro

Ich würde nur Punkt 3 ausschliessen.
Ich denke da z.B. an ein Auto. Ich würde es nicht einsehen, wenn ich einen höheren Preis bezahle, weil ich mehr damit fahre.
Wenn ich aber immer 6 Personen mitnehmen möchte, muss ich ein grösseres Auto kaufen.

Ich benutze eine Lizenzdatei, in welcher die Anzahl der freigeschalteten User, Mandanten und Funktionen verschlüsselt ist.

Die Anzahl der gleichzeitig arbeitenden User lässt sich in der Regel ermitteln.

Kauft der Kunde eine Erweiterung um 5 User, erhält er eine neue Lizenzdatei.

Hier mal mein Aufbau:

Delphi-Quellcode:

unit RW_BaseLiz;

{
  Aufbau Lizenzdatei:
  Stelle   1 -  20 /  20 - Random Zeichenkette zum Vercrypten
          21 -  35 /  15 - (5/2/8 - Produkt/Version/Nummer)
          36 -  40    05 - Lizenzschalter
                           1. Stelle Entwicklerversion
                           2. Zeitbegrenzung
                           3. Stelle Updateberechtigt
                              M = Minorversion
          41 -  50 /  10 - Beginn Lizenz
          51 -  60 /  10 - Ablauf Lizenz
          61 -  70 /  10 - Updates bis Datum
          71 - 110 /  40 - Lizenznehmer Name
         111 - 150 /  40 - Name1
         151 - 190 /  40 - Name2
         191 - 230 /  40 - Name3
         231 - 270 /  40 - Strasse
         271 - 280 /  10 - Hausnummer
         281 - 285 /   5 - Land
         286 - 290 /   5 - Plz
         291 - 330 /  40 - Ort
         331 - 430 / 100 - Module (Schalter)
         431 - 510 /  80 - Reserve
         511 - 520 /  10 - HashCodeA CryptString als Integer Hash11
         521 - 530 /  10 - HashCodeB Lizenz als Integer Hash11
}

Ich sehe gerade, mein Kommentar ist lückenhaft. Es gibt noch Anzahl Mandanten und Anzahl User.

Cu, Frank