comm.pas

识别动网asp论坛的验证码 程序语言：delphi 7.0 作者：netdust 2007-12-4

unit comm;

interface

type
  TBArray  = Array of byte;
  TABArray = Array of TBArray;
  TAIArray = Array of Array[0..1] of Integer;
  TAAIArray = Array of TAIArray;
  TI25Array = Array[0..24] of byte;
  TLib = record
    LibName: string;
    mRound,bone,lightKind,light1,light2,dots,limit,spn,spx0,spy0,spuw,spuh,sppw,rlL,rlH,ruW: Integer;
    maxNoise: Double;
    Ary: TBArray;
  end;

const
  boneTp: Array[0..9] of Array[0..11] of Integer =
    (
      (0,-1,1,-1,0,1,1,1,0,-1,1,-1),
      (0,0,-1,-1,0,1,1,1,-1,1,1,-1),
      (-1,1,1,-1,0,1,1,1,0,0,-1,-1),
      (1,1,1,-1,1,-1,0,0,0,99,99,99),
      (1,-1,0,1,1,0,1,-1,0,99,99,99),
      (-1,0,0,1,1,0,-1,1,-1,99,99,99),
      (-1,1,-1,1,1,0,-1,0,0,99,99,99),
      (0,0,0,-1,1,-1,1,1,1,-1,1,-1),
      (0,0,0,0,1,0,1,1,1,99,99,99),
      (0,0,1,0,1,1,0,0,1,99,99,99)
    );

var
  libAry: Array of TLib;

implementation

end.