toc2.pas

破解很多程序的序列号算法程序

program tes;
uses dos,crt,palette;


var
  s     : String;
  Veax,Vebx : longint;
  i : Word;

Procedure Curs(n:integer);

Var regs : registers;

Begin
  regs.ah:=1;
  case n of
  0 : begin
        regs.cl:=32;
        regs.ch:=32;
      end;
  1 : begin
        regs.cl:=8;
        regs.ch:=7;
      end;
  end;
  intr($10,regs);
End;

{$L ULONGS.OBJ}                         { link in the assembly code }
FUNCTION LongADD (Addend1,Addend2:LONGINT):LONGINT;   EXTERNAL;
FUNCTION LongSUB (LongWord,Subtrahend:LONGINT):LONGINT;  EXTERNAL;
FUNCTION LongMUL (Multiplicand,Multiplier:LONGINT):LONGINT; EXTERNAL;
FUNCTION LongDIV (Dividend,Divisor:LONGINT):LONGINT;  EXTERNAL;
FUNCTION LongMOD (Dividend,Divisor:LONGINT):LONGINT;  EXTERNAL;
PROCEDURE WriteULong (LongWord:LONGINT;     { the longword          }
                      Width:BYTE;           { _minimum_ field width }
                      FillChar:CHAR;        { leading space char    }
                      Base:BYTE); EXTERNAL; { number base 2..26     }
begin
  curs(0);
  FadeDown;
  Clrscr;
  textcolor(white);
  writeln('      T