program keygen;
uses crt;

var
  count,  length                                         : integer;  
  eax, edi, edx, ebx                                     : longint;
  name, initials, surname, dummystr, space, code         : string;
  len                                                    : byte absolute dummystr;
  len2                                                   : byte absolute code;
  namelen						 : byte absolute name;
  initiallen						 : byte absolute initials;
  surnamelen                        			 : byte absolute surname;


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('                  CD Wizzard v4.6x - Keygenerator by Quantico.                 ');
  writeln;
  writeln;
  textcolor(white);


Write('Enter your name         : ');
readln(name);

IF namelen = 0 THEN begin
writeln;
writeln('You MUST enter a name !!!');
halt;
end;
                        
Write('Enter your initial[s]   : ');
readln(initials);
Write('Enter your surname      : ');
readln(surname);     

IF surnamelen = 0 THEN begin
writeln;
writeln('You MUST enter a surname !!!');
halt;
end;



space := ' ';

if initiallen <> 0 THEN dummystr := name + space + initials + space + surname
  else
dummystr := name+space+surname;


IF len < 8 THEN begin
writeln;
writeln(' The total length of your name, initials and surname must be at least 8!');
halt;
end;



 for count := 1 to len do
  begin


   edi := byte(dummystr[count]);
   ebx := count+1;
   edi := edi*ebx;
   eax := eax+edi;
end;


   eax := eax*11;
   eax := eax and $FFFF;
   eax := eax DIV 7;


writeln;

write('Your code is:  '); { write reg code }

 Str(eax, code);

 FOR count :=1 to 8-len2 DO BEGIN
   write('0');
 end;

writeln(eax);


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.