ngroup:=strtoint(c);

nserial:=strtoint(d);

  CloseFile(F);//关闭文件

dogopen(nagent, nclient, ngroup, nserial);//利用参数打开软件狗

dogreadbuffer(0;2048;pbuffer:PChar);   //读取狗中资料

  List := TStringList.Create;//建立一文件流

  List.LoadFromFile('dog.dat');//装入DOG.dat文件，此文件用于保存有原软件狗中内容

  S := List[0];

  if length(s)=0 then

   for i:=0 to 120 do

    s:=s+' ';

  ss:='';

  for i:=0 to nlength do

   ss:=ss+pbuffer[i];

  if nstart<>0 then

   s:=copy(s,1,nstart+1)+ss+copy(s,nstart+nlength+1,121-nstart-nlength-1)

  else

   s:=ss+copy(s,nstart+nlength+2,121-nstart-nlength-2);

  list[0]:=s;

  list.savetofile('dog.dat');  //写入到dog.dat文件中

  List.Free;

end;

4 结语

当前软件保护十分重要，对于软件开发人员来说，不仅要在产品设计上增加破解的难度，更要选择专业的加密产品，保护劳动的成果。