在delphi7上使用HexToBin函数报病毒为什么？

Question

function HashStr2BinStr(Hash:string):string;
var
   buf:array[0..63] of Char;
   i:Integer;
begin
    Result:='';
    FillChar(buf, SizeOf(buf),0);//对buf进行赋值
    SetLength(Result, Round(Length(Hash)/2));//设置字符串或者动态数组的长度，设置返回值的长度
    FillChar(Result[1], Length(Result),0);//对Result进行赋值
    HexToBin(PChar(Hash), buf,SizeOf(buf));//将十六进制的值转换为相应的二进制的值
    for i:=0 to Round(Length(Hash)/2)-1 do
        Result:= buf;
end;
这段程序为什么在D7上面报病毒啊？

Answer 1

应该不是这个函数的问题. 我刚试了, 没报病毒啊. 我用 nod32 + 360

Answer 2

谢谢了，难道我系统中病毒了，我也是nod32 + 360 但是只要编译立即报病毒

Answer 3

关于前端时间说的delphi7的一个病毒，你清除了没？如果没有，就是这个病毒的问题了~~

Answer 4

就是啊，估计我是中那个病毒了，郁闷， 只要delphi7编译的东西都报病毒了，我才发现，谢谢了，正在查毒。。 谢谢了