文件夹加密DIY

我靠，，这么新吧！！顶你一�

帮顶！

用创顶电脑卫士（见：http://www.chandlin.com/cn/），功能很多又很好用，支持拖放操作、批量隐藏，而且还能不能人知道你在机器上安装了这个软件�

弱弱的问一下...加密了再想看去哪里找?我按你方法加密了,他就不见了...怎么办..

怎么解密啊!!!?

哦，就是其实藏在了上面脚本里写的四层目录里了，顺次打开就行�

不好意思...我比较白痴...可以具体些吗..?

简单的说就是在网上下载一个foldersniffer，然后用它查找隐藏文件夹所在的盘就行了

谢谢你哈~找到�

这是版本II了,可以算是最小的文件夹加密软件吧,但是加密强度绝对不比那些收费软件差哦!

On error resume next
Dim fso,foldername,cmd,objFolder
Dim dir0,dir1,dir2,dir3,dir4
Const MY_COMPUTER = &H11&
Const WINDOW_HANDLE = 0
Const OPTIONS = 0

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(MY_COMPUTER)
Set objFolderItem = objFolder.Self
strPath = objFolderItem.Path

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder _
 (WINDOW_HANDLE, "选择要隐藏的文件夹:", OPTIONS, strPath) 
 
If objFolder Is Nothing Then
 Wscript.Quit
End If

Set objFolderItem = objFolder.Self
objPath = objFolderItem.Path

foldername=objPath
Set fso = CreateObject("Scripting.FileSystemObject")
 
 dir0 = fso.GetDriveName(folderName) + "\RECYCLLER"
 fso.CreateFolder(dir0)
 dir1 = dir0 + "\aux.{645FF040-5081-101B-9F08-00AA002F954E}\"
 fso.CreateFolder(dir1)
 dir2 = dir0 + "\aux~1.{64\a..\"
 fso.CreateFolder(dir2)
 dir3 = dir0 + "\aux~1.{64\ae216~1\"
 fso.CreateFolder(dir3)
 dir4 = dir3 + "\con\"
 fso.CreateFolder(dir4)
 fso.MoveFolder folderName, dir4
 Set objFolder = fso.GetFolder(dir0)
 If objFolder.Attributes = objFolder.Attributes AND 2 Then
 objFolder.Attributes = objFolder.Attributes XOR 2 
 End If

请问加密后怎么删除�

可有人说说，这些文件夹怎么删除呢，都是些垃圾！

可有人说说，这些文件夹怎么删除呢，都是些垃圾！