Thread Lizenzierung in Perl (17 answers)
Opened by YAPD at 2015-11-18 00:17

GwenDragon
 2015-11-28 12:41
#183076 #183076
User since
2005-01-17
14761 Artikel
Admin1
[Homepage]
user image
NTFS hat doch Hidden Streams,
https://de.wikipedia.org/wiki/Alternativer_Datenst...

Pack da die Lizenzdaten rein.

Exemplarischer Code (nur zum Lernen):
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
open my $FH, '>', 'test.txt' or die $!; # normaler Text
print $FH '4711';
close $FH;

open $FH, '>', 'test.txt:prog.lic' or die $!; # Lizenzdaten schreiben
print $FH 'LZK: <0xDEADBEEF>';
close $FH;

open $FH, '<', 'test.txt:prog.lic' or die $!; # Lizenzdaten lesen
print scalar <$FH>;
close $FH;


Aber jeder der wirklich will, krieg sowas auch raus.

----

bei der Lizenz würde ich folgendes Grobkonzept wählen:

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
Client überprüft beim Programmstart, ob die Signatur-Datei existiert
Wenn nicht
Client sendet Lizenznehmerdaten an Server
Server erzeugt Lizenznummer
Server signiert die Lizenznummer mit OpenPGP
Server schickt die Daten als Lizenz zurück
Client speichert dies als Lizenzdatei
Ende Wenn
Client überprüft, ob die Signatur der Datei noch stimmt
Wenn nicht ok
Fehlermeldung Ungültige Lizenz


CPAN:Crypt::OpenPGP kann OpenPGP-Signaturen prüfen
Last edited: 2015-11-28 12:55:03 +0100 (CET)

View full thread Lizenzierung in Perl