其实就是个域名屏蔽的列表,做个小工具便于免杀。没什么高深的技术。猛击此处下载! 提取码:f03cfa2718
最后蛋疼的贴点代码:
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; |
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. |
原创文章,转载请注明: 转载自 obaby@mars
本文标题: 《蛋疼的挂掉360云查杀的小玩意儿》
3条评论
路过。。。
貌似360检查了host文件的吧,这样做可以?
测试的时候在免杀的时候是可以的,现在具体什么情况不太清楚。呵呵