KOPIERSCHUTZ-- Hilfe bei Verwirklichung eines Kopierschutzes

[Hador]

Und dann sitzt man mal mit seinem Notebook irgendwo wo man kein Internet hat, oder die verbindung bricht ab, ...
Das passiert häufiger als du denkst.
Also ist das wirklich nicht so eine tolle Idee.

Da das ganze für Klassenkameraden ist, würde ich einfach keine Seriennummer einbauen. Was sollen die denn mit deinem Programm machen, wenn sie es eh kostenlos bekommen? Und verkaufen willst du es ja vmtl. auch nicht.

Wenn unbedingt eine sn, dann mach das doch einfach so in der Art:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
const
  serial: String = #11#26#15#17#12#8#27#48#5#15#12#11;  // Serial: 3B7940CX-743
var
  sn: String;
  i: Integer;
begin
  sn := InputBox('Seriennummer', 'Bitte geben Sie hier ihre Seriennummer ein', '');
  if Length(sn) <> Length(serial) then
    Application.Terminate // GGf noch eine Meldung ausgeben
  else
    for i := 1 to Length(sn) do
      if Ord(sn[i]) - 40 <> Ord(serial[i]) then
        Application.Terminate;
  // Bei Korrekter Eingabe einfach Serial + 40 o.a. speichern
end;

Das ist definitiv nicht sicher, aber für deine Mitschüler reicht das sicherlich. Die eingegebene sn kannst du dann ja im in der Registry speichern (einfach +26 rechnen oder sowas).