home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / RKPLS301.ZIP / RKPDEMO3.ZIP / REGISTER.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-03-04  |  1.7 KB  |  71 lines
  1. Program Register;
  2.  
  3. {
  4.  This is a sample programme using RkPlus.  It is a sample of a software
  5.  registration programme that would be used by the user to enter their name
  6.  and registration key and create a key file.  This sample will create
  7.  a key file for the Sample1 programme, using a registration key which
  8.  would be generated by the programmer using the GenKey programme.
  9.  
  10.  Register uses the Rkp3Enc unit to cause RkPlus to use the new version 3.x
  11.  keys.
  12. }
  13.  
  14.  
  15. Uses
  16.   Crt,
  17.   RkPlus,
  18.   Rkp3Enc;
  19.  
  20.  
  21. Const
  22.   MonthNames : Array[1..12] of String[3]
  23.   = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec');
  24.  
  25.  
  26. Var
  27.   kc          : Char;
  28.   Owner : Array[0..16] of Char;
  29.   Prog  : Array[0..5] of Char;
  30.   Ver   : Real;
  31.  
  32.  
  33. Begin
  34.   Owner := 'ArgleBarbWotsLeeb';
  35.   Prog := 'Sample';
  36.   Ver := 1.0;
  37.   SetOwnerCode(Owner,SizeOf(Owner));
  38.   SetProgCode(Prog,SizeOf(Prog));
  39.   SetVerCode(Ver,SizeOf(Ver));
  40.   SetKeyFile('Sample');
  41.   WriteLn('Register');
  42.   WriteLn('Software Registration Programme for Sample1');
  43.   WriteLn('See RKPLUS.DOC for more info');
  44.   WriteLn;
  45.   Write('Enter name of person to register : ');
  46.   ReadLn(Rkp.Name1);
  47.   WriteLn;
  48.   Write('Enter the registration key : ');
  49.   ReadLn(Rkp.Key);
  50.   WriteLn;
  51.   Rkp.ID := '(c) Serious Cybernetics';
  52.   Rkp.Message := 'Register';
  53.   Rkp.Name2 := '';
  54.   Rkp.Name3 := '';
  55.   Rkp.Level := 0;
  56.   VerifyKey;
  57.   If Not Rkp.Registered then Begin
  58.     Rkp.Level := 1;
  59.     VerifyKey;
  60.   End;
  61.   If Not Rkp.Registered then
  62.     WriteLn('Invalid key!')
  63.   Else Begin
  64.     SaveRegInfo;
  65.     If RkpOK then
  66.       WriteLn(KeyFileName,' created.')
  67.     Else
  68.       WriteLn('Error ',RkpError,' creating file.');
  69.   End;
  70. End.
  71.