program HTM_keygen;
uses crt;

var
  count                              : integer;  { only need small numbers }
  code                               : longint;  { need bigger number here }
  ch                                   : char;
  name, dummystr             : string;

begin;


  TextColor(white);
  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;

  writeln('                HTMASC v2.x 16&32 bits keygenerator by Quantico                      ');

  textcolor(lightgray);


Write('Enter your name :  ');
readln(name);                                           { um....read the name!}
dummystr := '2.0 Registration valid for minor updates';  
dummystr := name + dummystr;               {join the name and the dummy string}
code := 527;                                              { this is what ebx starts at in program}
for count := 1 to length(dummystr) do
  begin
   ch       := char(dummystr[count]);          { get 1 digit of string at a time }
   ch       := Upcase(ch);                            { make sure it is upper case }
   code := code + Ord(ch);                        { add the number to code }
   code := code + 1234;                             { add 1234 to code }
end;
writeln;
writeln('Your code is    :  ', code);                { write the reg code }
End.