home *** CD-ROM | disk | FTP | other *** search
/ Reverse Code Engineering RCE CD +sandman 2000 / ReverseCodeEngineeringRceCdsandman2000.iso / RCE / Quantico / km / keyex.pas.txt < prev    next >
Encoding:
Text File  |  2000-05-25  |  2.0 KB  |  79 lines
  1. program keygen;
  2. uses crt;
  3.  
  4. var
  5. count : integer;
  6. code, users, crc : longint;
  7. name         : string;
  8.  
  9.  
  10.  
  11. begin
  12.  
  13.  
  14.  
  15.   TextColor(9);
  16.   writeln('            ▄▄▄▄▄ ');
  17.   writeln('            █ ▄ █ ');
  18.   writeln('    █▀▀▀▀▀▀▀▀ ▄ ▀▀▀▀▀ ▀ ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█  █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ ▀ ▀▀▀▀█ ');
  19.   writeln('    █ │░███████  │▓███████▀ │░███▀█▀▀▀▀▀▀▀ ▀ ▀▀▀▀ │░███▀█▀▀▀▀▀▓████▓▄  █ ');
  20.   writeln('    █ │▒███████  │▓███████  │▒███████  │▓███████▀ │▒███████  │▓███████ █ ');
  21.   writeln('    █ │▓███████  │▓███████  │▓███████  │▓███████  │▓███████  │▓███████ █ ');
  22.   writeln('    ▀ │▓███████  │▓███████  │▓███████  │▓███████  │▓███████  │▓███████ █▄▄▄ ');
  23.   writeln('    ▀ │▓███████  │▓███████  │▓███████  │▓███████  │▓███████  │▓███████▄ ▄ █ ');
  24.   writeln('    █ │▓███████  │▓███████  │▓███████  │▓███████  │▓███████               █ ');
  25.   writeln('    █ │▓███████▄▄▄▄▄█▄█▓▀   │▓███████▄▄▄▄▄█▄████  │▓███████▀▀ ▀    ▀      █ ');
  26.   writeln('    █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄ ▄ ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄ ▀ █▀▀▀▀▀▀▀▀▀ ▀ ▀▀ ');
  27.   writeln('    .::[ u n i t e d · c r æ c k i n g · f o r c e ]::. █ ▀ █ Antibody<SAC> ');
  28.   writeln('                                                        ▀▀▀▀▀ ');
  29.   writeln;
  30.   writeln;
  31.   textcolor(red);
  32.   writeln;
  33.  
  34.   writeln('                    KeyEx v1.03 - Keygenerator by Quantico                  ');
  35.   writeln;
  36.  
  37.   textcolor(white);
  38.  
  39.  write('Enter your name please    : ');
  40.  readln(name);
  41.  write('Enter the number of users : ');
  42.  readln(users);
  43.  writeln;
  44.  writeln('You may use any REG number.');
  45.  writeln;
  46.  
  47. for count := 1 TO length(name) DO BEGIN
  48.    code := byte(name[count]) + code;
  49. end;
  50.  
  51. crc := code;
  52.  
  53. {CRC := (code MOD 10000)*users;}
  54.  
  55.  writeln('Your CRC is               : ',crc*users);
  56.  
  57. writeln;
  58.  
  59. Sound(523);
  60. Delay(250);
  61. Sound(659);
  62. Delay(250); 
  63. Sound(784);
  64. Delay(250);
  65. Sound(1046);
  66. Delay(300);
  67. NoSound;
  68.  
  69. writeln;
  70. writeln('Enjoy the full, registered program....courtesy of UCF.');
  71. textcolor(lightgray);
  72. end.
  73.  
  74. end.
  75.  
  76.  
  77.  
  78.  
  79.