作者：风泽
出处：[EST] [CGI]
1。注册表解锁
#!usr/bin/perl -w
use Win32API::Registry 0.21 qw( :ALL );
RegOpenKeyEx( HKEY_CURRENT_USER, "Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\System", 0,KEY_ALL_ACCESS, $key )||die "任务失败",regLastError(),"\n"; #打开注册表
RegDeleteValue( $key, "DisableRegistryTools" ); #删除相关键值
print "任务完成。\n";
很简单吧，任务就完成了~~~嘿嘿。
2。隐藏分区
#!usr/bin/perl -w
print " =========================\n";
print " 实现/清除隐藏分区\n";
print " =========================\n";
ko:print " 1.隐藏分区\n";
print " 2.清除隐藏\n";
print "\n";
print "请选择你要的操作:";
$cho=<STDIN>;
chop($cho);
if($cho<1 || $cho>2){goto ko;}
if($cho==1){
mm:print " =========================\n";
print " 隐藏分区\n";
print " =========================\n";
print " 1.隐藏A盘 6.隐藏G盘\n";
print " 2.隐藏C盘 7.隐藏H盘\n";
print " 3.隐藏D盘 8.隐藏I盘\n";
print " 4.隐藏E盘 9.隐藏J盘\n";
print " 5.隐藏F盘 10.隐藏K盘\n";
print " \n";
print "请输入需要隐藏的分区序号:";
$boot=<STDIN>;
if($boot<1 || $boot>10){goto mm;}
if($boot==1){
open(HI,">>fengze.reg") || die goto top;
print HI "Windows Registry Editor Version 5.00\n\n";
print HI "[HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer]\n";
print HI "\"NoDrives\"=hex:01,00,00,00\n";
close HI;
system("regedit.exe /s fengze.reg");
system("del fengze.reg");
print "已经隐藏了A驱动器，机器重新启动后生效。\n";
goto top;}
if($boot==2){
open(HI,">>fengze.reg") || die goto top;
print HI "Windows Registry Editor Version 5.00\n\n";
print HI "[HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer]\n";
print HI "\"NoDrives\"=hex:04,00,00,00\n";
close HI;
system("regedit.exe /s fengze.reg");
system("del fengze.reg");
print "已经隐藏了C驱动器，机器重新启动后生效。\n";
goto top;}
if($boot==3){
open(HI,">>fengze.reg") || die goto top;
print HI "Windows Registry Editor Version 5.00\n\n";
print HI "[HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer]\n";
print HI "\"NoDrives\"=hex:08,00,00,00\n";
close HI;
system("regedit.exe /s fengze.reg");
system("del fengze.reg");
print "已经隐藏了D驱动器，机器重新启动后生效。\n";
goto top;}
if($boot==4){
open(HI,">>fengze.reg") || die goto top;
print HI "Windows Registry Editor Version 5.00\n\n";
print HI "[HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer]\n";
print HI "\"NoDrives\"=hex:10,00,00,00\n";
close HI;
system("regedit.exe /s fengze.reg");
system("del fengze.reg");
print "已经隐藏了E驱动器，机器重新启动后生效。\n";
goto top;}
if($boot==5){
open(HI,">>fengze.reg") || die goto top;
print HI "Windows Registry Editor Version 5.00\n\n";
print HI "[HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer]\n";
print HI "\"NoDrives\"=hex:20,00,00,00\n";
close HI;
system("regedit.exe /s fengze.reg");
system("del fengze.reg");
print "已经隐藏了F驱动器，机器重新启动后生效。\n";
goto top;}
if($boot==6){
open(HI,">>fengze.reg") || die goto top;
print HI "Windows Registry Editor Version 5.00\n\n";
print HI "[HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer]\n";
print HI "\"NoDrives\"=hex:40,00,00,00\n";
close HI;
system("regedit.exe /s fengze.reg");
system("del fengze.reg");
print "已经隐藏了G驱动器，机器重新启动后生效。\n";
goto top;}
if($boot==7){
open(HI,">>fengze.reg") || die goto top;
print HI "Windows Registry Editor Version 5.00\n\n";
print HI "[HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer]\n";
print HI "\"NoDrives\"=hex:80,00,00,00\n";
close HI;
system("regedit.exe /s fengze.reg");
system("del fengze.reg");
print "已经隐藏了H驱动器，机器重新启动后生效。\n";
goto top;}
if($boot==8){
open(HI,">>fengze.reg") || die goto top;
print HI "Windows Registry Editor Version 5.00\n\n";
print HI "[HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer]\n";
print HI "\"NoDrives\"=hex:00,01,00,00\n";
close HI;
system("regedit.exe /s fengze.reg");
system("del fengze.reg");
print "已经隐藏了I驱动器，机器重新启动后生效。\n";
goto top;}
if($boot==9){
open(HI,">>fengze.reg") || die goto top;
print HI "Windows Registry Editor Version 5.00\n\n";
print HI "[HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer]\n";
print HI "\"NoDrives\"=hex:00,02,00,00\n";
close HI;
system("regedit.exe /s fengze.reg");
system("del fengze.reg");
print "已经隐藏了J驱动器，机器重新启动后生效。\n";
goto top;}
if($boot==10){
open(HI,">>fengze.reg") || die goto top;
print HI "Windows Registry Editor Version 5.00\n\n";
print HI "[HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer]\n";
print HI "\"NoDrives\"=hex:00,04,00,00\n";
close HI;
system("regedit.exe /s fengze.reg");
system("del fengze.reg");
print "已经隐藏了K驱动器，机器重新启动后生效。\n";
goto top;}
}
if($cho==2)
{
RegOpenKeyEx( HKEY_CURRENT_USER, "Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer", 0,KEY_ALL_ACCESS
, $key )||die "任务失败",regLastError(),"\n";
RegDeleteValue( $key, "NoDrives" );
print "任务已经完成，返回主菜单。\n";
}
不要看代码很多，其实很简单，也就是生成REG文件导入注册表~~~呵呵`~
删除嘛```就和第一个例子一样~~
