function dogopen(nagent:longint; nclient: longint; ngroup: longint; nserial: longint):longint;  //打开狗函数

begin

  dogopen:= 0; //0为成功打开，不管调用的时候是什么参数，都当是正确打开

end;

function dogcheck(npassword: longint):longint;  //检查狗函数，提供密码与事先保存在狗中密码比较

begin

  Dogcheck:=0; //0为密码正确，不管调用的时候是什么参数，都当是密码正确

end;

function dogclose( ):longint;  //关闭软件狗函数，没有参数

begin

  Dogclose:=0; //返回参数0，表示成功关闭加密狗

end;

function dogopennext(nagent:longint; nclient: longint; ngroup: longint; nserial: longint):longint; //找下一个狗函数

begin

  Dogopennext:=1; //不管调用的时候是什么参数，都当是失败，没有下一个加密狗，

//多狗的情况本文不考虑，相信不多见

end;

function dogwritebuffer(nstart:longint; nlength: longint;pbuffer:PChar):longint; //写狗函数

//三个参数为：写入狗中开始位置、长度、待写入狗信息的地址

var

  s,ss: String;

  i:Integer;

  List: TStringList;

begin