home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 25 / nopv25.iso / 040A / KC200.ZIP / KEYMAKE.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-03-23  |  1.8 KB  |  65 lines
  1. Program
  2.      KeyMake;
  3.  
  4. Uses
  5.      KeyCode;
  6.  
  7. Var
  8.      A,B,C,D,Reg:                              String;
  9.      f:                                          Text;
  10.  
  11. Begin
  12.      C := '';
  13.      C := ParamStr(1);
  14.      If C = '' then
  15.      Begin
  16.         WriteLn('');
  17.         WriteLn('No parameter on command line...');
  18.         WriteLn('');
  19.         Exit;
  20.      End;
  21.      A := 'FdMsg';
  22.  
  23. {-----------------------------------------------}
  24. {                                               }
  25. {  If Registered version remove above line and  }
  26. {  replace it with the below line to make a     }
  27. {  demo key that would expire on 12/05/96       }
  28. {                                               }
  29. {    A := 'FdMsg|12/05/96';                     }
  30. {                                               }
  31. {-----------------------------------------------}
  32.  
  33.      B := 'fdm';
  34.      D := 'Mary Westcott';
  35.      CodeIt(a,b,c,d);
  36.      A := 'FdMsg';    {This line needed if you are using a registered ver}
  37.                       {It removes the demo date when decodeing key}
  38.                       {Do NOT give demo date when decoding}
  39.  
  40. {-----------------------------------------------}
  41. {                                               }
  42. {  The 2 lines below these comment lines will   }
  43. {  decode and print the key just made.          }
  44. {                                               }
  45. {-----------------------------------------------}
  46.  
  47.      Reg := DeCodeIt(a,b,'','');
  48.      WriteLn(Reg);
  49.  
  50.      Assign(f,'Key.Log');
  51.      {$I-}
  52.      Reset(f);
  53.      {$I+}
  54.      If IOResult <> 0 then
  55.      Begin
  56.         ReWrite(f);
  57.         WriteLn(f,'              Key Log for program ' + A);
  58.         WriteLn(f,'');
  59.      End;
  60.      Close(f);
  61.      Append(f);
  62.      WriteLn(f,'User: ' + D + '  Reg #: ' + C + '  Prog #: ' + B);
  63.      Close(f);
  64. End.
  65.