beskyttelse af program

hvad med at det checker med en time server?? (Ved ikke hvad programet skal kunne, men hvis det har noget med nettet at gøre ville det da være en løsning)

eller gemmer sidste run-dato og checker at det altid er en nyere dato når det starter op, kan ikke starte hvis sidste dato var i morgen

martinlind> så vil han vel skulle gemme i registerings databasen som kan laves om af hvem som helst eller vil han skulle gemme det i en fil som nok kan åbnes med en hex editor og redigers

eller i exefilen ( man kunne lave en lille loader så man kunne få lov at skrive i exefilen inden man kører den )  eller i en krypteret fil, det er jo ikke sikker at man har adgang til nettet, og hvis det var mig der skulle bruge et prg. der altid skulle ringe op til nettet før det ville starte ville jeg ikke gide at bruge det, det ville koste penge og tid = skod prg. i mine øjne

hej igen

Der er såmænd tale om et ganske alm prog. der "bare" skal ophøre end given dato. den skal ikke tjekke med en time server eller noget i den retning, bare den comp. programmet er installeret på.

GF

//under const kan du fastsætte datoen for programmets udløbsdato

{
    In your project's file (.dpr):
}

uses
  Forms, Sysutils, Dialogs,
  MyProgr in my_prog1.pas {Form1};

const
  email = 'my.mail@provider.xyz';
  homepage = 'http://www.myhomepage.com';

  // Limit the execution time to 04/21/2003.


  YearExp = 2003;
  MonthExp = 4;
  DayExp = 21;

function CheckDate(y, m, d: Integer): Boolean;
begin
  Result := True;
  if (Date > EncodeDate(y, m, d)) then
  begin
    ShowMessage('End of usage exceeded. Download a new'+
                'version at' + ^j + homepage+ ^j + ' or contact: ' + email);
  Result := False;
  // halt;
end;

end;


{$R *.RES}

begin
  if CheckDate(YearExp, MonthExp, DayExp) then
  begin
    Application.Initialize;
    Application.Title := 'Some Title';
    Application.CreateForm(TForm1, Form1);
    Application.Run;
  end;

end.

hmm synes ikke programmet stopper når datoen er overskredet...men så kan du nedenunder "Result := False"  skrive: Form1.Close; eller disable nogle funktioner i programmet.

stone >> det ændrer ikke på at man kan sætte uret tilbage på den pc prg. kører på !!

ja det kan man - eller du kan prøve det her component:TmRegApp
//
With this registration-component in your application, you can decide how many days your app is to be used, before the user have to register it. Keeps track of clock-manipulations, and is farely hard to break. New in this version: The registration could be made machine-dependent.
Delphi 6-7 required.

Source and demo supplied.
//

Stone>> kunne du ikke sende en kopi til mig.
dl_it@hotmail.dk

//dl

jeg sender lige en link så alle kan få glæde af det:
componentet er freeware.

http://go.to/masdp