home *** CD-ROM | disk | FTP | other *** search
/ Reverse Code Engineering RCE CD +sandman 2000 / ReverseCodeEngineeringRceCdsandman2000.iso / RCE / Quantico / km / cruehead1.pas.txt < prev    next >
Encoding:
Text File  |  2000-05-25  |  515 b   |  31 lines
  1. program crue1_keygen;
  2.  
  3. var
  4. count            : integer;
  5. ch               : char;
  6. name             : string;
  7. digits1, result  : longint;
  8.  
  9. begin
  10.  writeln('Cruehead crackme 1 - keygen by Quantico MEX/C4N');
  11.  write('Enter your name : ');
  12.  readln(name);
  13.  
  14. FOR count := 1 TO length(name) DO BEGIN
  15.  ch := char(name[count]);
  16.  ch := UpCase(ch);
  17.  digits1 := digits1 + Ord(ch);
  18. end;
  19.  
  20. result := digits1 XOR $5678;
  21. result := result  XOR $1234;
  22.  
  23. writeln;
  24. writeln('Your code is : ', result);
  25.  
  26. end.
  27.  
  28.  
  29.  
  30.  
  31.