program keygen;
uses crt;

var
count : integer;
code, users, crc : longint;
name         : string;



begin



  TextColor(9);
  writeln('            ммммм ');
  writeln('            л м л ');
  writeln('    лпппппппп м ппппп п пппппппппппппппппппппл  лппппппппппппппп п ппппл ');
  writeln('    л ГАллллллл  ГВлллллллп ГАлллплппппппп п пппп ГАлллплпппппВллллВм  л ');
  writeln('    л ГБллллллл  ГВллллллл  ГБллллллл  ГВлллллллп ГБллллллл  ГВллллллл л ');
  writeln('    л ГВллллллл  ГВллллллл  ГВллллллл  ГВллллллл  ГВллллллл  ГВллллллл л ');
  writeln('    п ГВллллллл  ГВллллллл  ГВллллллл  ГВллллллл  ГВллллллл  ГВллллллл лммм ');
  writeln('    п ГВллллллл  ГВллллллл  ГВллллллл  ГВллллллл  ГВллллллл  ГВлллллллм м л ');
  writeln('    л ГВллллллл  ГВллллллл  ГВллллллл  ГВллллллл  ГВллллллл               л ');
  writeln('    л ГВлллллллмммммлмлВп   ГВлллллллмммммлмлллл  ГВлллллллпп п    п      л ');
  writeln('    лммммммммммммммммммммммммммм м мммммммммммммммммммммм п лппппппппп п пп ');
  writeln('    .::[ u n i t e d њ c r ‘ c k i n g њ f o r c e ]::. л п л Antibody<SAC> ');
  writeln('                                                        ппппп ');
  writeln;
  writeln;
  textcolor(red);
  writeln;

  writeln('                    KeyEx v1.03 - Keygenerator by Quantico                  ');
  writeln;

  textcolor(white);

 write('Enter your name please    : ');
 readln(name);
 write('Enter the number of users : ');
 readln(users);
 writeln;
 writeln('You may use any REG number.');
 writeln;

for count := 1 TO length(name) DO BEGIN
   code := byte(name[count]) + code;
end;

crc := code;

{CRC := (code MOD 10000)*users;}

 writeln('Your CRC is               : ',crc*users);

writeln;

Sound(523);
Delay(250);
Sound(659);
Delay(250); 
Sound(784);
Delay(250);
Sound(1046);
Delay(300);
NoSound;

writeln;
writeln('Enjoy the full, registered program....courtesy of UCF.');
textcolor(lightgray);
end.

end.