網際論壇 - Powered by Discuz! Board

標題: DIY自用系統資料夾鎖.reg - 除了""高深""電腦學習者能破解 [打印本頁]

作者: as780611as 時間: 2012-11-7 05:35 PM 標題: DIY自用系統資料夾鎖.reg - 除了""高深""電腦學習者能破解

Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\Folder\shell\解除加鎖\command]
@="cmd /c echo Set vbs = CreateObject(\"Wscript.Shell\")>>C:\\temp.vbs && echo Set ObjFSO = CreateObject(\"Scripting.FileSystemObject\")>>C:\\temp.vbs && echo pass=InputBox(\"輸入密碼\",\"\")>>C:\\temp.vbs && echo If pass = \"********\" Then>>C:\\temp.vbs && echo vbs.Run \"cmd /c CACLS %1 /E /P everyone:F && del/f/a %1%\\desktop.ini\">>C:\\temp.vbs && echo elseif pass = \"\" Then>>C:\\temp.vbs && echo else>>C:\\temp.vbs && echo msgbox \"錯誤訊息\",16,\"密碼錯誤\">>C:\\temp.vbs && echo end if>>C:\\temp.vbs && echo ObjFSO.DeleteFile Wscript.ScriptFullName>>C:\\temp.vbs &&  C:\\temp.vbs"

[HKEY_CLASSES_ROOT\Folder\shell\資料加鎖\command]
@="cmd /c echo [.ShellClassInfo]>>%1%\\desktop.ini && echo CLSID={20D04FE0-3AEA-1069-A2D8-08002B30309D}>>%1%\\desktop.ini && echo Set WSHShell = CreateObject(\"WScript.Shell\")>>%1%\\temp.vbs && echo strDesktop = WSHShell.SpecialFolders(\"Desktop\")>>%1%\\temp.vbs && echo Set ObjFSO = CreateObject(\"Scripting.FileSystemObject\")>>%1%\\temp.vbs && echo WSHShell.AppActivate strDesktop>>%1%\\temp.vbs && echo WSHShell.SendKeys \"{F5}\">>%1%\\temp.vbs && echo ObjFSO.DeleteFile Wscript.ScriptFullName>>%1%\\temp.vbs && %1%\\temp.vbs  && CACLS %1 /E /P everyone:N"

把\"********\"換成自己用的密碼
EX:
      \"這裏面輸入密碼\"
用記事本存成REG匯入就OK了

[ Last edited by as780611as on 2012-11-7 at 05:57 PM ]

作者: lfAkel 時間: 2012-11-8 12:34 AM
超讚超實用，大推~
感謝大大的熱情分享 :)

作者: catsndogs 時間: 2012-11-8 05:25 AM
嗯‧‧‧哦‧‧‧
會不會把自己也給鎖死？

Thanks!
Good!

作者: liuwc 時間: 2012-11-23 07:44 PM
感謝大大的分享~實用又受惠!

歡迎光臨網際論壇 (http://centurys.net/)