蛋疼的挂掉360云查杀的小玩意儿

发布于

其实就是个域名屏蔽的列表，做个小工具便于免杀。没什么高深的技术。

最后蛋疼的贴点代码：

代码语言：javascript
复制
procedure TForm1.FormCreate(Sender: TObject);
begin
GetSystemDirectory(sysdir,256);
hosts := sysdir + '\drivers\etc\hosts';
backup := sysdir + '\drivers\etc\hosts.bak';
//ShowMessage(hosts);
if FileExists(hosts) then begin
mmo1.Lines.LoadFromFile(hosts);
if ((Pos('sdup.360.cn',mmo1.Lines.Text)) >0) then   begin
spSkinStatusPanel1.Caption := '状态：云已经挂掉。' ;
spSkinButton1.Enabled := False;
end else begin
spSkinStatusPanel1.Caption := '状态：云还飘着呢，赶紧挂掉吧。' ;
spSkinButton2.Enabled := False;
end;

end;

end;
代码语言：javascript
复制
procedure TForm1.spSkinButton1Click(Sender: TObject);

begin

if FileExists(backup) then begin

ShowMessage('备份文件已经存在，无法备份文件。');

end else begin

CopyFile(PChar(hosts),PChar(backup),False);

mmo2.Lines.SaveToFile(hosts);

spSkinButton1.Enabled :=False;

ShowMessage('云已经成功挂掉！');

spSkinStatusPanel1.Caption := '状态：云已经挂掉。' ;

end;


end;


procedure TForm1.spSkinButton2Click(Sender: TObject);

begin

if FileExists(backup) then begin

CopyFile(Pchar(backup),Pchar(hosts),False);

spSkinButton1.Enabled :=True;

spSkinButton2.Enabled :=False;

spSkinStatusPanel1.Caption := '状态：云还飘着呢，赶紧挂掉吧。' ;

ShowMessage('恢复成功。');

end else begin

ShowMessage('备份文件已经丢失，无法恢复！');

end;

end;


procedure TForm1.spSkinButton3Click(Sender: TObject);

begin

ShowMessage('这就是个蛋疼的小玩意儿，没什么新鲜的！'+#10#13+'闲着没事可以常来我的博客晃悠晃悠。');

end;


end.

#域名