home *** CD-ROM | disk | FTP | other *** search
/ Reverse Code Engineering RCE CD +sandman 2000 / ReverseCodeEngineeringRceCdsandman2000.iso / RCE / Quantico / km / cdwizz.pas.txt < prev    next >
Encoding:
Text File  |  2000-05-25  |  3.0 KB  |  125 lines
  1. program keygen;
  2. uses crt;
  3.  
  4. var
  5.   count,  length                                         : integer;  
  6.   eax, edi, edx, ebx                                     : longint;
  7.   name, initials, surname, dummystr, space, code         : string;
  8.   len                                                    : byte absolute dummystr;
  9.   len2                                                   : byte absolute code;
  10.   namelen                         : byte absolute name;
  11.   initiallen                         : byte absolute initials;
  12.   surnamelen                                     : byte absolute surname;
  13.  
  14.  
  15. begin
  16.   TextColor(9);
  17.   writeln('            ▄▄▄▄▄ ');
  18.   writeln('            █ ▄ █ ');
  19.   writeln('    █▀▀▀▀▀▀▀▀ ▄ ▀▀▀▀▀ ▀ ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█  █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ ▀ ▀▀▀▀█ ');
  20.   writeln('    █ │░███████  │▓███████▀ │░███▀█▀▀▀▀▀▀▀ ▀ ▀▀▀▀ │░███▀█▀▀▀▀▀▓████▓▄  █ ');
  21.   writeln('    █ │▒███████  │▓███████  │▒███████  │▓███████▀ │▒███████  │▓███████ █ ');
  22.   writeln('    █ │▓███████  │▓███████  │▓███████  │▓███████  │▓███████  │▓███████ █ ');
  23.   writeln('    ▀ │▓███████  │▓███████  │▓███████  │▓███████  │▓███████  │▓███████ █▄▄▄ ');
  24.   writeln('    ▀ │▓███████  │▓███████  │▓███████  │▓███████  │▓███████  │▓███████▄ ▄ █ ');
  25.   writeln('    █ │▓███████  │▓███████  │▓███████  │▓███████  │▓███████               █ ');
  26.   writeln('    █ │▓███████▄▄▄▄▄█▄█▓▀   │▓███████▄▄▄▄▄█▄████  │▓███████▀▀ ▀    ▀      █ ');
  27.   writeln('    █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄ ▄ ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄ ▀ █▀▀▀▀▀▀▀▀▀ ▀ ▀▀ ');
  28.   writeln('    .::[ u n i t e d · c r æ c k i n g · f o r c e ]::. █ ▀ █ Antibody<SAC> ');
  29.   writeln('                                                        ▀▀▀▀▀ ');
  30.   writeln;
  31.   writeln;
  32.   textcolor(red);
  33.   writeln('                  CD Wizzard v4.6x - Keygenerator by Quantico.                 ');
  34.   writeln;
  35.   writeln;
  36.   textcolor(white);
  37.  
  38.  
  39. Write('Enter your name         : ');
  40. readln(name);
  41.  
  42. IF namelen = 0 THEN begin
  43. writeln;
  44. writeln('You MUST enter a name !!!');
  45. halt;
  46. end;
  47.                         
  48. Write('Enter your initial[s]   : ');
  49. readln(initials);
  50. Write('Enter your surname      : ');
  51. readln(surname);     
  52.  
  53. IF surnamelen = 0 THEN begin
  54. writeln;
  55. writeln('You MUST enter a surname !!!');
  56. halt;
  57. end;
  58.  
  59.  
  60.  
  61. space := ' ';
  62.  
  63. if initiallen <> 0 THEN dummystr := name + space + initials + space + surname
  64.   else
  65. dummystr := name+space+surname;
  66.  
  67.  
  68. IF len < 8 THEN begin
  69. writeln;
  70. writeln(' The total length of your name, initials and surname must be at least 8!');
  71. halt;
  72. end;
  73.  
  74.  
  75.  
  76.  for count := 1 to len do
  77.   begin
  78.  
  79.  
  80.    edi := byte(dummystr[count]);
  81.    ebx := count+1;
  82.    edi := edi*ebx;
  83.    eax := eax+edi;
  84. end;
  85.  
  86.  
  87.    eax := eax*11;
  88.    eax := eax and $FFFF;
  89.    eax := eax DIV 7;
  90.  
  91.  
  92. writeln;
  93.  
  94. write('Your code is:  '); { write reg code }
  95.  
  96.  Str(eax, code);
  97.  
  98.  FOR count :=1 to 8-len2 DO BEGIN
  99.    write('0');
  100.  end;
  101.  
  102. writeln(eax);
  103.  
  104.  
  105. Sound(523);
  106. Delay(250);
  107. Sound(659);
  108. Delay(250); 
  109. Sound(784);
  110. Delay(250);
  111. Sound(1046);
  112. Delay(300);
  113. NoSound;
  114.  
  115. writeln;
  116. writeln('Enjoy the full, registered program....courtesy of UCF.');
  117. textcolor(lightgray);
  118. end.
  119.  
  120.  
  121.  
  122.  
  123.  
  124.  
  125.