home *** CD-ROM | disk | FTP | other *** search
/ Reverse Code Engineering RCE CD +sandman 2000 / ReverseCodeEngineeringRceCdsandman2000.iso / RCE / Quantico / km / j-write.pas.txt < prev    next >
Encoding:
Text File  |  2000-05-25  |  752 b   |  41 lines
  1. program JW_keygen;
  2.  
  3. var
  4. count, temp, temp1   : integer;
  5. result               : longint;
  6. name, strresult      : string;
  7. digit1               : char;
  8.  
  9. begin
  10.  
  11.  writeln('J-Write 2.3 - Keygen by Quantico MEX/C4N');
  12.  write('Enter your name : ');
  13.  readln(name);
  14.  write('Enter a single digit for the first digit of your code : ');
  15.  readln(digit1);
  16.  
  17.  temp := (Ord(digit1)*$F7) DIV $17;
  18.  
  19.  FOR count := 1 TO length(name) DO BEGIN
  20.   temp1  := byte(name[count]);
  21.   temp1  := (temp1*$F7) DIV $17;
  22.   result := result + temp1;
  23. end;
  24.  
  25. result := result + temp;
  26.  
  27.  Str(result, strresult);
  28.  write('Your code is ', digit1, '-');
  29.     
  30.  FOR count :=1 to 6-length(strresult) DO BEGIN
  31.    write('0');
  32.  end;
  33.  
  34.  writeln(strresult);
  35.  
  36. end.
  37.  
  38.  
  39.  
  40.  
  41.