蛋疼的挂掉360云查杀的小玩意儿
360 挂掉 查杀 蛋疼
2023-06-13 09:15:18 时间
其实就是个域名屏蔽的列表,做个小工具便于免杀。没什么高深的技术。
最后蛋疼的贴点代码:
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.
相关文章
- 360提供的CDN公共库
- 360云盘外链解析php源码
- 中小微企业如何简单便捷、低成本实现数字化?360视觉云有妙招
- 如何干净卸载_怎么把360卸载干净
- 360安全卫士极速版“诱导式”推广 静默安装且对抗安全软件
- 央视、江苏消保委点名PC软件弹窗乱象:360浏览器15分钟弹9次广告
- 360借条再发力 金融科技破解行业发展难题
- 360借条App恢复上架?官方回应:整改方案已通过验收
- 红衣教主“叫停”360路由器的背后(上)
- 猎豹空净大师:像360还是更像小米?
- 杀毒英雄挑战:MSSQL绕过360杀毒(mssql绕过360)
- 360软件助力mysql快速安全运行(360软件mysql)
- 360管控关闭Oracle,把安全控制再升级(360把oracle关了)
- 360金融更新招股书,募集资金为何大幅减少?