home *** CD-ROM | disk | FTP | other *** search
/ Reverse Code Engineering RCE CD +sandman 2000 / ReverseCodeEngineeringRceCdsandman2000.iso / RCE / Quantico / km / morpher.pas.txt < prev    next >
Encoding:
Text File  |  2000-05-25  |  552 b   |  34 lines
  1. program keygen;
  2.  
  3. var
  4. code         : longint;
  5. input        : string;
  6. error        : integer;
  7.  
  8.  
  9. begin
  10.  
  11.  writeln('Morpher - Keygen by Quantico MEX/C4N');
  12.  write('Enter a number x such that x > 80870 : ');
  13.  readln(input);
  14.  val(input, code, error);
  15.  IF error <> 0 THEN begin
  16.    writeln(input, ' is an invalid input, try again.....');
  17.    halt;
  18.    end;
  19.  IF code < 80870 THEN begin
  20.  writeln(input, ' is not greater than 80870');
  21.  halt;
  22.  end;
  23.  code := (code DIV 8087)*8087;
  24.  writeln('A valid code is : ', code);
  25.  
  26.   
  27.  
  28.  
  29. end.
  30.  
  31.  
  32.  
  33.  
  34.