home *** CD-ROM | disk | FTP | other *** search
- 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.
-