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.