home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / FLXKEY10.ZIP / FLXKEY.DEF < prev    next >
Encoding:
Text File  |  1992-10-01  |  2.4 KB  |  61 lines
  1.  
  2. (**********************************************************************)
  3. (*                                                                    *)
  4. (*             FLXKEY UNIT COPYRIGHT 1992 GUY MCLOUGHLIN              *)
  5. (*                                                                    *)
  6. (*     Shareware unit to create encrypted registration-key files.     *)
  7. (*                                                                    *)
  8. (**********************************************************************)
  9.  
  10.  {$A+,B-,D-,E-,F-,I+,N-,O-,R-,S-,V+}
  11.  
  12. unit FlxKey;
  13.  
  14. interface
  15.  
  16.               (* Type definitions.                                    *)
  17. type
  18.   st20  = string[20];
  19.   st30  = string[30];
  20.   st79  = string[79];
  21.   st100 = string[100];
  22.  
  23.               (* FLX record definition.                               *)
  24.   FlxRec = record
  25.              FirstName : st20;
  26.              LastName  : st30;
  27.              Address1  : st30;
  28.              Address2  : st30;
  29.              Address3  : st30;
  30.              AppName   : st20;
  31.              Version   : word;
  32.              Serial    : longint;
  33.              Date      : longint;
  34.              Access    : word;
  35.            end;
  36.  
  37.  
  38.   (***** Create encrypted program-key file using INrec data, Ecode1   *)
  39.   (*     and Ecode2 encryption codes, and the OUTname filname path.   *)
  40.   (*                                                                  *)
  41.   procedure CreateFlxKey({ input}     INrec   : FlxRec;
  42.                                       Ecode1  : st100;
  43.                                       Ecode2  : st100;
  44.                                       OUTname : st79;
  45.                          {update} var Error   : word);
  46.  
  47.  
  48.   (***** Check and decode program-key file called INname, use Ecode1  *)
  49.   (*     and Ecode2 to decrypt this file. Decrypted data will be      *)
  50.   (*     placed in OUTrec record, and the DaysOld variable will be    *)
  51.   (*     set to indicate the age of the program key-file.             *)
  52.   (*                                                                  *)
  53.   procedure ReadFlxKey({ input}     Ecode1  : st100;
  54.                                     Ecode2  : st100;
  55.                                     INname  : st79;
  56.                        {update} var OUTrec  : FlxRec;
  57.                                 var DaysOld : word;
  58.                                 var Error   : word);
  59.  
  60.  
  61.