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

  1. program tes;
  2.  
  3. uses dos,crt,palette;
  4.  
  5.  
  6.  
  7.  
  8.  
  9. var
  10.  
  11.   s     : String;
  12.  
  13.   Veax,Vebx : longint;
  14.  
  15.   i : Word;
  16.  
  17.  
  18.  
  19. Procedure Curs(n:integer);
  20.  
  21.  
  22.  
  23. Var regs : registers;
  24.  
  25.  
  26.  
  27. Begin
  28.  
  29.   regs.ah:=1;
  30.  
  31.   case n of
  32.  
  33.   0 : begin
  34.  
  35.         regs.cl:=32;
  36.  
  37.         regs.ch:=32;
  38.  
  39.       end;
  40.  
  41.   1 : begin
  42.  
  43.         regs.cl:=8;
  44.  
  45.         regs.ch:=7;
  46.  
  47.       end;
  48.  
  49.   end;
  50.  
  51.   intr($10,regs);
  52.  
  53. End;
  54.  
  55.  
  56.  
  57. {$L ULONGS.OBJ}                         { link in the assembly code }
  58.  
  59. FUNCTION LongADD (Addend1,Addend2:LONGINT):LONGINT;   EXTERNAL;
  60.  
  61. FUNCTION LongSUB (LongWord,Subtrahend:LONGINT):LONGINT;  EXTERNAL;
  62.  
  63. FUNCTION LongMUL (Multiplicand,Multiplier:LONGINT):LONGINT; EXTERNAL;
  64.  
  65. FUNCTION LongDIV (Dividend,Divisor:LONGINT):LONGINT;  EXTERNAL;
  66.  
  67. FUNCTION LongMOD (Dividend,Divisor:LONGINT):LONGINT;  EXTERNAL;
  68.  
  69. PROCEDURE WriteULong (LongWord:LONGINT;     { the longword          }
  70.  
  71.                       Width:BYTE;           { _minimum_ field width }
  72.  
  73.                       FillChar:CHAR;        { leading space char    }
  74.  
  75.                       Base:BYTE); EXTERNAL; { number base 2..26     }
  76.  
  77. begin
  78.  
  79.   curs(0);
  80.  
  81.   FadeDown;
  82.  
  83.   Clrscr;
  84.  
  85.   textcolor(white);
  86.  
  87.   writeln('      T  ·  H  ·  E     F  ·  O  ·  R  ·  C  ·  E     T  ·  E  ·  A  ·  M');
  88.  
  89.   textcolor(blue);
  90.  
  91.   writeln('');
  92.  
  93.   writeln('         S²²²²²²²²²Ss.          .sS2²²²²²²²²²²²²²2Ss.sS²²²²²²²²²Ss. ');
  94.  
  95.   writeln('         $ $$$$$$$! $$         $²~.sS$$$$$$$$$$$Ss.~²$$ $$$$$$$! $$');
  96.  
  97.   writeln('         $ I$$$$$$$,²$         $ I$$$$$$$;^:$$$$$$$$ $$ $$$$$$$$,²$');
  98.  
  99.   writeln('      .sS$ $$$$$$$$: $Ss.      $ $$$$$$$$: l$$$$$$$$ $$ $$$$$$$$: $Ss.');
  100.  
  101.   writeln('      $ sss$$$$$$$$lsss $   .sS$ $$$$$$$$l :$$$$$$$I sss$$$$$$$$lsss $');
  102.  
  103.   writeln('      $sss $$$$$$$$; sss$   $ sss$$$$$$$$;sss ...... ss $$$$$$$$; sss$');
  104.  
  105.   writeln('         $ $$$$$$$$. ²²²²²²²²··s $$$$$$$$, sss$$$$$$$$$ I$$$$$$$. ²²²²²²²²²²S');
  106.  
  107.   writeln('         $ $$$$$$$$: .$$$$$$$! $ $$$$$$$$l $          $ $$$$$$$$: .$$$$$$$! $');
  108.  
  109.   writeln('         $ $$$$$$$$I :$$$$$$$$ $ $$$$$$$$. $          $ $$$$$$$$I :$$$$$$$$ $');
  110.  
  111.   writeln('         $ :$$$$$$$: :$$$$$$$; $ $$$$$$$$; $          $ :$$$$$$$: :$$$$$$$; $');
  112.  
  113.   writeln('         :$.`~²2$$$$s$$$$$2²~∩,$ !$$$$$$!  $          $$ `~²2$$$$s$$$$$2²~∩.;');
  114.  
  115.   writeln('         `~²2$Ss..........sS2²∩`²ssssssss2²∩          `~²2$Ss..........sS2²~∩');
  116.  
  117.   writeln;
  118.  
  119.   writeln;
  120.  
  121.   textcolor(white);
  122.  
  123.   writeln('                    · Command Line 97 v1.0, Keymaker by MiRaMaX ·');
  124.  
  125.   textcolor(lightgray);
  126.  
  127.   writeln;
  128.  
  129.   writeln;
  130.  
  131.   gotoxy(1,19);
  132.  
  133.   write('             Enter Registration name   : ');
  134.  
  135.   fadeup;
  136.  
  137.   curs(1);
  138.  
  139.   readln(s);
  140.  
  141.   gotoxy(1,19);
  142.  
  143.   veax:=$2f8;
  144.  
  145.   for i:=1 to length(s) do begin
  146.  
  147.     veax:=veax+ord(s[i]);
  148.  
  149.     if veax>=$5f1 then veax:=veax-$5f1;
  150.  
  151.   end;
  152.  
  153.  
  154.  
  155.   writeln;
  156.  
  157.   Write('             Your registration code is : ca1111',veax,'TFT*ROX');
  158.  
  159.   curs(0);
  160.  
  161.   repeat until keypressed;
  162.  
  163.   curs(1);
  164.  
  165. end.
  166.  
  167.