home *** CD-ROM | disk | FTP | other *** search
/ Reverse Code Engineering RCE CD +sandman 2000 / ReverseCodeEngineeringRceCdsandman2000.iso / RCE / Quantico / km / ucf_pop.pas.txt < prev    next >
Encoding:
Text File  |  2000-05-25  |  6.0 KB  |  266 lines
  1. program keygen;
  2.  
  3. uses crt;
  4.  
  5. var
  6. count, error                : integer;
  7. name, fname, inputprod      : string;
  8. Textfile                    : text;
  9. line1, line3, ebx, ecx, eax : longint;
  10.  
  11. begin
  12.   TextColor(9);
  13.   writeln('            ▄▄▄▄▄ ');
  14.   writeln('            █ ▄ █ ');
  15.   writeln('    █▀▀▀▀▀▀▀▀ ▄ ▀▀▀▀▀ ▀ ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█  █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ ▀ ▀▀▀▀█ ');
  16.   writeln('    █ │░███████  │▓███████▀ │░███▀█▀▀▀▀▀▀▀ ▀ ▀▀▀▀ │░███▀█▀▀▀▀▀▓████▓▄  █ ');
  17.   writeln('    █ │▒███████  │▓███████  │▒███████  │▓███████▀ │▒███████  │▓███████ █ ');
  18.   writeln('    █ │▓███████  │▓███████  │▓███████  │▓███████  │▓███████  │▓███████ █ ');
  19.   writeln('    ▀ │▓███████  │▓███████  │▓███████  │▓███████  │▓███████  │▓███████ █▄▄▄ ');
  20.   writeln('    ▀ │▓███████  │▓███████  │▓███████  │▓███████  │▓███████  │▓███████▄ ▄ █ ');
  21.   writeln('    █ │▓███████  │▓███████  │▓███████  │▓███████  │▓███████               █ ');
  22.   writeln('    █ │▓███████▄▄▄▄▄█▄█▓▀   │▓███████▄▄▄▄▄█▄████  │▓███████▀▀ ▀    ▀      █ ');
  23.   writeln('    █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄ ▄ ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄ ▀ █▀▀▀▀▀▀▀▀▀ ▀ ▀▀ ');
  24.   writeln('    .::[ u n i t e d · c r æ c k i n g · f o r c e ]::. █ ▀ █ Antibody<SAC> ');
  25.   writeln('                                                        ▀▀▀▀▀ ');
  26.   writeln;
  27.   writeln;
  28.   textcolor(blue);
  29.   writeln('    Almost all PopCorn software products  -  Keyfile generator by Quantico.');
  30.  
  31.   textcolor(white);
  32.   write('    Enter your name please  :  ');
  33.    readln(name);
  34.   writeln;
  35.   writeln('    Select the product you require a keyfile for.');
  36.   writeln('');
  37.   writeln('    1 : Coffee Break v1.1');
  38.   writeln('    2 : Memstat v1.0');
  39.   writeln('    3 : PC Log v2.01');
  40.   writeln('    4 : Quick Exchange v1.0');
  41.   writeln('    5 : Quick Organiser v1.0');
  42.   writeln('    6 : Run Time v1.1');
  43.   writeln('    7 : Tray Calc v1.0');
  44.   writeln('    8 : Web Palette v1.0');
  45.   writeln;
  46.   write('    Enter your selection [1-8] : ');
  47.    readln(inputprod);
  48.  
  49. fname := 'reg.key';
  50.  
  51.  IF inputprod = '1' THEN BEGIN
  52.  line1 := 81799039;
  53.  ebx := 1;
  54.  ecx := 0;
  55.  FOR count := 1 TO length(name) DO BEGIN
  56.    ecx := byte(name[count]);
  57.    ebx := ebx xor ecx;
  58.  end;
  59.   eax := 81799039;
  60.   ebx := eax div ebx; 
  61.   line3 := ebx;
  62.  
  63. Assign(Textfile, fname);
  64. Rewrite(Textfile);
  65. writeln(Textfile, line1);
  66. writeln(Textfile, name);
  67. writeln(Textfile, line3);
  68. Close(Textfile); 
  69. writeln;
  70. writeln('reg.key file created.');
  71. writeln('Place it in Coffee Break directory.');  
  72. end;
  73.  
  74. IF inputprod = '2' THEN BEGIN
  75.  
  76.  line1 := 30855231;
  77.  ebx := 1;
  78.  ecx := 0;
  79.  FOR count := 1 TO length(name) DO BEGIN
  80.  ecx := byte(name[count]);
  81.  ebx := ebx xor ecx;
  82. end;
  83.   eax := line1;
  84.   ebx := eax div ebx; 
  85.   line3 := ebx;
  86.  
  87. Assign(Textfile, fname);
  88. Rewrite(Textfile);
  89. writeln(Textfile, line1);
  90. writeln(Textfile, name);
  91. writeln(Textfile, line3);
  92. Close(Textfile); 
  93. writeln;
  94. writeln('reg.key file created.');
  95. writeln('Place it in Memstat directory.');  
  96.  
  97. end;
  98.  
  99. IF inputprod = '3' THEN BEGIN
  100.  
  101.  line1 := 70617933;
  102.  ebx := 1;
  103.  ecx := 0;
  104.  FOR count := 1 TO length(name) DO BEGIN
  105.  
  106.  ecx := byte(name[count]);
  107.  ebx := ebx xor ecx;
  108. end;
  109.   eax := 70617933;
  110.   ebx := eax div ebx; 
  111.   line3 := ebx;
  112.  
  113. Assign(Textfile, fname);
  114. Rewrite(Textfile);
  115. writeln(Textfile, line1);
  116. writeln(Textfile, name);
  117. writeln(Textfile, line3);
  118. Close(Textfile); 
  119. writeln;
  120. writeln('reg.key file created.');
  121. writeln('Place it in PCLog directory.');  
  122.  
  123. end;
  124.  
  125. IF inputprod = '4' THEN BEGIN
  126.  
  127.  line1 := 6160347;
  128.  ebx := 1;
  129.  ecx := 0;
  130.  FOR count := 1 TO length(name) DO BEGIN
  131.  ecx := byte(name[count]);
  132.  ebx := ebx xor ecx;
  133. end;
  134.   eax := line1;
  135.   ebx := eax div ebx; 
  136.   line3 := ebx;
  137.  
  138. Assign(Textfile, fname);
  139. Rewrite(Textfile);
  140. writeln(Textfile, line1);
  141. writeln(Textfile, name);
  142. writeln(Textfile, line3);
  143. Close(Textfile); 
  144. writeln;
  145. writeln('reg.key file created.');
  146. writeln('Place it in Quick Exchange directory.');  
  147.  
  148. end;
  149.  
  150. IF inputprod = '5' THEN BEGIN
  151.  
  152.  line1 := 85264501;
  153.  ebx := 1;
  154.  ecx := 0;
  155.  FOR count := 1 TO length(name) DO BEGIN
  156.  ecx := byte(name[count]);
  157.  ebx := ebx xor ecx;
  158. end;
  159.   eax := line1;
  160.   ebx := eax div ebx; 
  161.   line3 := ebx;
  162.  
  163. Assign(Textfile, fname);
  164. Rewrite(Textfile);
  165. writeln(Textfile, line1);
  166. writeln(Textfile, name);
  167. writeln(Textfile, line3);
  168. Close(Textfile); 
  169. writeln;
  170. writeln('reg.key file created.');
  171. writeln('Place it in Quick Organiser directory.');  
  172.  
  173. end;
  174.  
  175. IF inputprod = '6' THEN BEGIN
  176.  
  177.  line1 := 52957104;
  178.  ebx := 1;
  179.  ecx := 0;
  180.  FOR count := 1 TO length(name) DO BEGIN
  181.  ecx := byte(name[count]);
  182.  ebx := ebx xor ecx;
  183. end;
  184.   eax := line1;
  185.   ebx := eax div ebx; 
  186.   line3 := ebx;
  187.  
  188. Assign(Textfile, fname);
  189. Rewrite(Textfile);
  190. writeln(Textfile, line1);
  191. writeln(Textfile, name);
  192. writeln(Textfile, line3);
  193. Close(Textfile); 
  194. writeln;
  195. writeln('reg.key file created.');
  196. writeln('Place it in RunTime directory.');  
  197.  
  198. end;
  199.  
  200. IF inputprod = '7' THEN BEGIN
  201.  
  202.  line1 := 26290814;
  203.  ebx := 1;
  204.  ecx := 0;
  205.  FOR count := 1 TO length(name) DO BEGIN
  206.  ecx := byte(name[count]);
  207.  ebx := ebx xor ecx;
  208. end;
  209.   eax := line1;
  210.   ebx := eax div ebx; 
  211.   line3 := ebx;
  212.  
  213. Assign(Textfile, fname);
  214. Rewrite(Textfile);
  215. writeln(Textfile, line1);
  216. writeln(Textfile, name);
  217. writeln(Textfile, line3);
  218. Close(Textfile); 
  219. writeln;
  220. writeln('reg.key file created.');
  221. writeln('Place it in TrayCalc directory.');  
  222.  
  223. end;
  224.  
  225. IF inputprod = '8' THEN BEGIN
  226.  
  227.  line1 := 58948197;
  228.  ebx := 1;
  229.  ecx := 0;
  230.  FOR count := 1 TO length(name) DO BEGIN
  231.  
  232.  ecx := byte(name[count]);
  233.  ebx := ebx xor ecx;
  234. end;
  235.   eax := line1;
  236.   ebx := eax div ebx; 
  237.   line3 := ebx;
  238.  
  239. Assign(Textfile, fname);
  240. Rewrite(Textfile);
  241. writeln(Textfile, line1);
  242. writeln(Textfile, name);
  243. writeln(Textfile, line3);
  244. Close(Textfile); 
  245. writeln;
  246. writeln('reg.key file created.');
  247. writeln('Place it in Web Palette directory.');  
  248.  
  249. end;
  250.  
  251.  
  252. Sound(523);
  253. Delay(250);
  254. Sound(659);
  255. Delay(250); 
  256. Sound(784);
  257. Delay(250);
  258. Sound(1046);
  259. Delay(300);
  260. NoSound;
  261.  
  262. writeln;
  263. writeln('Enjoy the full, registered program....courtesy of UCF.');
  264. textcolor(lightgray);
  265.  
  266. End.