program keygen;

uses crt;

var
count, error                : integer;
name, fname, inputprod      : string;
Textfile                    : text;
line1, line3, ebx, ecx, eax : longint;

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(blue);
  writeln('    Almost all PopCorn software products  -  Keyfile generator by Quantico.');

  textcolor(white);
  write('    Enter your name please  :  ');
   readln(name);
  writeln;
  writeln('    Select the product you require a keyfile for.');
  writeln('');
  writeln('    1 : Coffee Break v1.1');
  writeln('    2 : Memstat v1.0');
  writeln('    3 : PC Log v2.01');
  writeln('    4 : Quick Exchange v1.0');
  writeln('    5 : Quick Organiser v1.0');
  writeln('    6 : Run Time v1.1');
  writeln('    7 : Tray Calc v1.0');
  writeln('    8 : Web Palette v1.0');
  writeln;
  write('    Enter your selection [1-8] : ');
   readln(inputprod);

fname := 'reg.key';

 IF inputprod = '1' THEN BEGIN
 line1 := 81799039;
 ebx := 1;
 ecx := 0;
 FOR count := 1 TO length(name) DO BEGIN
   ecx := byte(name[count]);
   ebx := ebx xor ecx;
 end;
  eax := 81799039;
  ebx := eax div ebx; 
  line3 := ebx;

Assign(Textfile, fname);
Rewrite(Textfile);
writeln(Textfile, line1);
writeln(Textfile, name);
writeln(Textfile, line3);
Close(Textfile); 
writeln;
writeln('reg.key file created.');
writeln('Place it in Coffee Break directory.');  
end;

IF inputprod = '2' THEN BEGIN

 line1 := 30855231;
 ebx := 1;
 ecx := 0;
 FOR count := 1 TO length(name) DO BEGIN
 ecx := byte(name[count]);
 ebx := ebx xor ecx;
end;
  eax := line1;
  ebx := eax div ebx; 
  line3 := ebx;

Assign(Textfile, fname);
Rewrite(Textfile);
writeln(Textfile, line1);
writeln(Textfile, name);
writeln(Textfile, line3);
Close(Textfile); 
writeln;
writeln('reg.key file created.');
writeln('Place it in Memstat directory.');  

end;

IF inputprod = '3' THEN BEGIN

 line1 := 70617933;
 ebx := 1;
 ecx := 0;
 FOR count := 1 TO length(name) DO BEGIN

 ecx := byte(name[count]);
 ebx := ebx xor ecx;
end;
  eax := 70617933;
  ebx := eax div ebx; 
  line3 := ebx;

Assign(Textfile, fname);
Rewrite(Textfile);
writeln(Textfile, line1);
writeln(Textfile, name);
writeln(Textfile, line3);
Close(Textfile); 
writeln;
writeln('reg.key file created.');
writeln('Place it in PCLog directory.');  

end;

IF inputprod = '4' THEN BEGIN

 line1 := 6160347;
 ebx := 1;
 ecx := 0;
 FOR count := 1 TO length(name) DO BEGIN
 ecx := byte(name[count]);
 ebx := ebx xor ecx;
end;
  eax := line1;
  ebx := eax div ebx; 
  line3 := ebx;

Assign(Textfile, fname);
Rewrite(Textfile);
writeln(Textfile, line1);
writeln(Textfile, name);
writeln(Textfile, line3);
Close(Textfile); 
writeln;
writeln('reg.key file created.');
writeln('Place it in Quick Exchange directory.');  

end;

IF inputprod = '5' THEN BEGIN

 line1 := 85264501;
 ebx := 1;
 ecx := 0;
 FOR count := 1 TO length(name) DO BEGIN
 ecx := byte(name[count]);
 ebx := ebx xor ecx;
end;
  eax := line1;
  ebx := eax div ebx; 
  line3 := ebx;

Assign(Textfile, fname);
Rewrite(Textfile);
writeln(Textfile, line1);
writeln(Textfile, name);
writeln(Textfile, line3);
Close(Textfile); 
writeln;
writeln('reg.key file created.');
writeln('Place it in Quick Organiser directory.');  

end;

IF inputprod = '6' THEN BEGIN

 line1 := 52957104;
 ebx := 1;
 ecx := 0;
 FOR count := 1 TO length(name) DO BEGIN
 ecx := byte(name[count]);
 ebx := ebx xor ecx;
end;
  eax := line1;
  ebx := eax div ebx; 
  line3 := ebx;

Assign(Textfile, fname);
Rewrite(Textfile);
writeln(Textfile, line1);
writeln(Textfile, name);
writeln(Textfile, line3);
Close(Textfile); 
writeln;
writeln('reg.key file created.');
writeln('Place it in RunTime directory.');  

end;

IF inputprod = '7' THEN BEGIN

 line1 := 26290814;
 ebx := 1;
 ecx := 0;
 FOR count := 1 TO length(name) DO BEGIN
 ecx := byte(name[count]);
 ebx := ebx xor ecx;
end;
  eax := line1;
  ebx := eax div ebx; 
  line3 := ebx;

Assign(Textfile, fname);
Rewrite(Textfile);
writeln(Textfile, line1);
writeln(Textfile, name);
writeln(Textfile, line3);
Close(Textfile); 
writeln;
writeln('reg.key file created.');
writeln('Place it in TrayCalc directory.');  

end;

IF inputprod = '8' THEN BEGIN

 line1 := 58948197;
 ebx := 1;
 ecx := 0;
 FOR count := 1 TO length(name) DO BEGIN

 ecx := byte(name[count]);
 ebx := ebx xor ecx;
end;
  eax := line1;
  ebx := eax div ebx; 
  line3 := ebx;

Assign(Textfile, fname);
Rewrite(Textfile);
writeln(Textfile, line1);
writeln(Textfile, name);
writeln(Textfile, line3);
Close(Textfile); 
writeln;
writeln('reg.key file created.');
writeln('Place it in Web Palette directory.');  

end;


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.