home *** CD-ROM | disk | FTP | other *** search
/ Reverse Code Engineering RCE CD +sandman 2000 / ReverseCodeEngineeringRceCdsandman2000.iso / RCE / Quantico / km / key2.pas.txt < prev    next >
Encoding:
Text File  |  2000-05-25  |  3.0 KB  |  84 lines
  1. program tes;
  2. uses dos,crt,palette;
  3.  
  4.  
  5. var
  6.   s     : String;
  7.   Veax,Vebx : longint;
  8.   i : Word;
  9.  
  10. Procedure Curs(n:integer);
  11.  
  12. Var regs : registers;
  13.  
  14. Begin
  15.   regs.ah:=1;
  16.   case n of
  17.   0 : begin
  18.         regs.cl:=32;
  19.         regs.ch:=32;
  20.       end;
  21.   1 : begin
  22.         regs.cl:=8;
  23.         regs.ch:=7;
  24.       end;
  25.   end;
  26.   intr($10,regs);
  27. End;
  28.  
  29. {$L ULONGS.OBJ}                         { link in the assembly code }
  30. FUNCTION LongADD (Addend1,Addend2:LONGINT):LONGINT;   EXTERNAL;
  31. FUNCTION LongSUB (LongWord,Subtrahend:LONGINT):LONGINT;  EXTERNAL;
  32. FUNCTION LongMUL (Multiplicand,Multiplier:LONGINT):LONGINT; EXTERNAL;
  33. FUNCTION LongDIV (Dividend,Divisor:LONGINT):LONGINT;  EXTERNAL;
  34. FUNCTION LongMOD (Dividend,Divisor:LONGINT):LONGINT;  EXTERNAL;
  35. PROCEDURE WriteULong (LongWord:LONGINT;     { the longword          }
  36.                       Width:BYTE;           { _minimum_ field width }
  37.                       FillChar:CHAR;        { leading space char    }
  38.                       Base:BYTE); EXTERNAL; { number base 2..26     }
  39. begin
  40.   curs(0);
  41.   FadeDown;
  42.   Clrscr;
  43.   textcolor(white);
  44.   writeln('      T  ·  H  ·  E     F  ·  O  ·  R  ·  C  ·  E     T  ·  E  ·  A  ·  M');
  45.   textcolor(blue);
  46.   writeln('');
  47.   writeln('         S²²²²²²²²²Ss.          .sS2²²²²²²²²²²²²²2Ss.sS²²²²²²²²²Ss. ');
  48.   writeln('         $ $$$$$$$! $$         $²~.sS$$$$$$$$$$$Ss.~²$$ $$$$$$$! $$');
  49.   writeln('         $ I$$$$$$$,²$         $ I$$$$$$$;^:$$$$$$$$ $$ $$$$$$$$,²$');
  50.   writeln('      .sS$ $$$$$$$$: $Ss.      $ $$$$$$$$: l$$$$$$$$ $$ $$$$$$$$: $Ss.');
  51.   writeln('      $ sss$$$$$$$$lsss $   .sS$ $$$$$$$$l :$$$$$$$I sss$$$$$$$$lsss $');
  52.   writeln('      $sss $$$$$$$$; sss$   $ sss$$$$$$$$;sss ...... ss $$$$$$$$; sss$');
  53.   writeln('         $ $$$$$$$$. ²²²²²²²²··s $$$$$$$$, sss$$$$$$$$$ I$$$$$$$. ²²²²²²²²²²S');
  54.   writeln('         $ $$$$$$$$: .$$$$$$$! $ $$$$$$$$l $          $ $$$$$$$$: .$$$$$$$! $');
  55.   writeln('         $ $$$$$$$$I :$$$$$$$$ $ $$$$$$$$. $          $ $$$$$$$$I :$$$$$$$$ $');
  56.   writeln('         $ :$$$$$$$: :$$$$$$$; $ $$$$$$$$; $          $ :$$$$$$$: :$$$$$$$; $');
  57.   writeln('         :$.`~²2$$$$s$$$$$2²~∩,$ !$$$$$$!  $          $$ `~²2$$$$s$$$$$2²~∩.;');
  58.   writeln('         `~²2$Ss..........sS2²∩`²ssssssss2²∩          `~²2$Ss..........sS2²~∩');
  59.   writeln;
  60.   writeln;
  61.   textcolor(white);
  62.   writeln('              · Table of Contents v.2.0, Keymaker by MiRaMaX ·');
  63.   textcolor(lightgray);
  64.   writeln;
  65.   writeln;
  66.   gotoxy(1,19);
  67.   write('             Enter Registration name   : ');
  68.   fadeup;
  69.   curs(1);
  70.   readln(s);
  71.   For i:=1 to length(s) do s[i]:=upcase(s[i]);
  72.   gotoxy(1,19);
  73.   write('             Enter Registration name   : ',S);
  74.   Veax:=ord(s[1])*length(s);
  75.   Veax:=longadd((Veax shl $a),0);
  76.   Veax:=longadd(Veax,$2f8cc);
  77.   writeln;
  78.   Write('             Your registration code is : ');
  79.   WriteULong ( Veax,10,' ',10);
  80.   curs(0);
  81.   repeat until keypressed;
  82.   curs(1);
  83. end.
  84.