home *** CD-ROM | disk | FTP | other *** search
/ Reverse Code Engineering RCE CD +sandman 2000 / ReverseCodeEngineeringRceCdsandman2000.iso / RCE / Quantico / km / htmasc2x.pas.txt < prev    next >
Encoding:
Text File  |  2000-05-25  |  2.3 KB  |  50 lines

  1. program HTM_keygen;
  2. uses crt;
  3.  
  4. var
  5.   count                              : integer;  { only need small numbers }
  6.   code                               : longint;  { need bigger number here }
  7.   ch                                   : char;
  8.   name, dummystr             : string;
  9.  
  10. begin;
  11.  
  12.  
  13.   TextColor(white);
  14.   writeln('            ▄▄▄▄▄ ');
  15.   writeln('            █ ▄ █ ');
  16.   writeln('    █▀▀▀▀▀▀▀▀ ▄ ▀▀▀▀▀ ▀ ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█  █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ ▀ ▀▀▀▀█ ');
  17.   writeln('    █ │░███████  │▓███████▀ │░███▀█▀▀▀▀▀▀▀ ▀ ▀▀▀▀ │░███▀█▀▀▀▀▀▓████▓▄  █ ');
  18.   writeln('    █ │▒███████  │▓███████  │▒███████  │▓███████▀ │▒███████  │▓███████ █ ');
  19.   writeln('    █ │▓███████  │▓███████  │▓███████  │▓███████  │▓███████  │▓███████ █ ');
  20.   writeln('    ▀ │▓███████  │▓███████  │▓███████  │▓███████  │▓███████  │▓███████ █▄▄▄ ');
  21.   writeln('    ▀ │▓███████  │▓███████  │▓███████  │▓███████  │▓███████  │▓███████▄ ▄ █ ');
  22.   writeln('    █ │▓███████  │▓███████  │▓███████  │▓███████  │▓███████               █ ');
  23.   writeln('    █ │▓███████▄▄▄▄▄█▄█▓▀   │▓███████▄▄▄▄▄█▄████  │▓███████▀▀ ▀    ▀      █ ');
  24.   writeln('    █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄ ▄ ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄ ▀ █▀▀▀▀▀▀▀▀▀ ▀ ▀▀ ');
  25.   writeln('    .::[ u n i t e d · c r æ c k i n g · f o r c e ]::. █ ▀ █ Antibody<SAC> ');
  26.   writeln('                                                        ▀▀▀▀▀ ');
  27.   writeln;
  28.   writeln;
  29.  
  30.   writeln('                HTMASC v2.x 16&32 bits keygenerator by Quantico                      ');
  31.  
  32.   textcolor(lightgray);
  33.  
  34.  
  35. Write('Enter your name :  ');
  36. readln(name);                                           { um....read the name!}
  37. dummystr := '2.0 Registration valid for minor updates';  
  38. dummystr := name + dummystr;               {join the name and the dummy string}
  39. code := 527;                                              { this is what ebx starts at in program}
  40. for count := 1 to length(dummystr) do
  41.   begin
  42.    ch       := char(dummystr[count]);          { get 1 digit of string at a time }
  43.    ch       := Upcase(ch);                            { make sure it is upper case }
  44.    code := code + Ord(ch);                        { add the number to code }
  45.    code := code + 1234;                             { add 1234 to code }
  46. end;
  47. writeln;
  48. writeln('Your code is    :  ', code);                { write the reg code }
  49. End.
  50.