home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / ECO30603.ZIP / ECO30603.LZH / ECOLIBII / DEMOS / DEMO_KEY.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-03-08  |  1.1 KB  |  42 lines
  1. {
  2.   keyfile generating program. this should not be available directly to users
  3.   you can, however, make such a scheme part of the main program, and only
  4.   let users specify  their data, and return the HEX-CODE for them to enter
  5.   in the registration-scheme. You can also give them the file directly,
  6.   e.g. to give them a temporary key. (or a HEX-CODE to create the key them
  7.   selves. (this latter is still not possible, I need to work out a scheme).
  8. }
  9.  
  10. uses
  11.   crt, eco_reg
  12.  
  13.   ;
  14.  
  15.  
  16. const
  17.  cs : string = 'demopwd';
  18.  
  19. var
  20.   chk : string;
  21.  
  22.  
  23. {main}begin
  24.   textcolor(0); textbackground(0);
  25.   readln(chk);
  26.   textcolor(7); textbackground(0);
  27.   writeln('This program should only be available to the author of the application.');
  28.   if cs = chk then begin
  29.     with validuser do begin
  30.       registered := 'Floor A.C. Naaijkens';
  31.       programkey := 'e';
  32.       upgradecode := 'Rel2.1';
  33.     end;
  34.     writeln('Enter the name:');
  35.     readln(validuser.registered);
  36.     writeln('Enter the level:');
  37.     readln(validuser.keylevel);
  38.     getcreator(validuser);
  39.     writeln(validuser.keycreator);
  40.   end else writeln('No password');
  41. {happy}end.
  42.