home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / encrypt.swg / 0002_COPYINC.PAS.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-05-28  |  2.5 KB  |  103 lines
  1. { COPYINC.PAS    Author: Trevor J Carlsen
  2.                          PO Box 568
  3.                          Port Hedland  6721
  4.                          Western Australia
  5.  
  6.  
  7. SYNTAX:    copyinc Filename
  8.  
  9. where Filename is the name of a Text File you wish to create that will be used
  10. as an include File in a Turbo Pascal Program.
  11.  
  12. This Program creates a Text File in the format
  13.  
  14.       Const
  15.         RegStr  ='This Program is an unregistered copy';
  16.         CodeStr =
  17.         #125#34#139#139#74#71#94#61#44#78#65#155#158#132#62#136#141#140#84+
  18.         #34#155#63#38#46#89#84#93#57#153#51#83#112#72#36#138#93;
  19.         keyval  = 1234567890;
  20.  
  21. The Text File that was used by COPYINC to create the above include File would
  22. have looked like this
  23.  
  24. p:\prog\freeload.inc
  25. This Program is an unregistered copy
  26. RegStr  =
  27. CodeStr =
  28. 1234567890
  29.  
  30. Here is another example.  This was the include File -
  31.  
  32.       Const
  33.         ChkStr     : String ='This Program is registered to';
  34.         CodeChkStr : String =
  35.         #32#153#90#34#133#140#42#129#150#50#81#36#83#36#133#154#52#76#75+
  36.         #129#45#93#77#44#83#149#157#71#95#225;
  37.         keyval  = 1234567890;
  38.  
  39. and the Text File used by COPYINC -
  40.  
  41. p:\prog\registed.inc
  42. This Program is registered to 
  43. ChkStr     : String =
  44. CodeChkStr : String =
  45. 1234567890
  46.  
  47.  
  48. The Text File must always consist of five lines that are
  49.  1.  The name of the include File to be created.
  50.  2.  The plain Text.
  51.  3.  The name of the plain Text Constant along With its syntax.
  52.  4.  The name and syntax of the coded Text Constant.
  53.  5.  A key value.  Any number in the LongInt range is valid.
  54.  
  55.  
  56. }
  57.  
  58. Uses
  59.   endecode;  { my encryption Unit }
  60.  
  61. Const
  62.   hash   = '#';
  63. Var
  64.   f      : Text;
  65.   params : Text;
  66.   keyval : LongInt;
  67.   notice,
  68.   fname,
  69.   CodeStr,
  70.   CodeVar,
  71.   PlainVar: String;
  72.   x      : Word;
  73.  
  74. begin
  75.   assign(params,ParamStr(1));
  76.   reset(params);
  77.   readln(params,fname);
  78.   readln(params,notice);
  79.   readln(params,PlainVar);
  80.   readln(params,CodeVar);
  81.   readln(params,keyval);
  82.   CodeStr := EncryptStr(keyval,notice);
  83.   notice := '  '+ PlainVar + #39 + notice + #39#59;
  84.   assign(f,fname);
  85.   reWrite(f);
  86.   Writeln(f,'Const');
  87.   Writeln(f,notice);
  88.   Writeln(f,'  ',CodeVar);
  89.   Write(f,'  ');
  90.   For x := 1 to length(CodeStr) do begin
  91.     if x mod 20 = 0 then begin
  92.       Writeln(f,'+');
  93.       Write(f,'  ');
  94.     end;
  95.     Write(f,'#',ord(CodeStr[x]));
  96.   end;
  97.   Writeln(f,';');
  98.   Writeln(f,'  keyval  = ',keyval,#59);
  99.   Writeln(f);
  100.   close(f);
  101. end.
  102.  
  103.