buscdp5.pas

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

program keymaker;
uses crt,palette,dos,keyinput;
var eax,esi:longint;
    s:string;
    i:byte;
    w: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;

begin
  curs(0);
  FadeDown;
  Clrscr;
  textcolor(white);
  writeln('      T