想用VBS加密文件夹

楼上的autoruninf不可以用,那个只适用于驱动器根目录
LZ可以试试使用folderhtt文件,里面加上vbs代码,这样一打开文件夹就运行了
关于folderhtt可以baidu一下
这也是最后的办法了
因为vbs本身对文件系统没有任何能力控制访问权限,只有在打开文件夹的 时候,自动运行其中的folderhtt来达到运行脚本的目的

如果你是一位资深的网页设计师，如果你开发网站的时间在三年以上，那么你就会明白，返回到浏览器的代码是无法请别人看不到的。 不是完全不可以，目的是不让别人查看真正的源码，就用框架遮挡，对付基本层次的可以了，不过对付高手还差点。尤其是使用右键警告的方式，太落后了。
从中国电脑教育报上看到这样一篇文章：
〈html〉
〈head〉
〈title〉myhome〈/title〉
〈/head〉
〈frameset〉〈frame src=〃homehtml〃〉
〈noframes〉
〈/noframes〉
〈/frameset〉
〈/html〉
在文件homehtml的〈head〉和〈/head〉之间加入如下程序：〈script language = 〃javascript〃 〉function click() {if (eventbutton==2) {
alert (′此功能被禁止！′)} }
documentonmousedown=click
〈/script〉
这样就看不到源文件吗？我本人也不认为看不到。
一篇“用Script Encoder来加密”的文章：---- 嗯？！html加密？我怎么没听过！听我把话说完，确切的说是你的html中的script加密了吗？html文件是由IE等浏览器解释执行超级文本，其中可以加入javascript 或 vbscript语言程序代码。由于html文本是开放的，所以除了html中的文字外，其中执行特殊效果和功能的script代码也是公开的，仅管有些编制script程序的朋友并不想公开源代码也无计可施。用用 script encoder程序吧。---- Script Encoder是Microsoft出品的一个script加密工具,它是一个简单的命令行工具，可以对html文件进行加密，加密后其中的文本部分均保持不变，只是对其中的javascript 和VBscript部分进行加密处理，加密后的script在功能上无任何损失，仅是其代码变成密文，用源文件方式查看只是一些乱码。该程序很小只有64K，使用非常很简单，在DOS命令行下执行，也可在windows下带参数运行。该程序除了可对html文件加密外，也可以对asa, asp, cdx,js, sct,vbs文件加密。加密后的文件大小基本无变化。加密后的javascript中原< SCRIPT LANGUAGE="JScript">行，变成< SCRIPT LANGUAGE="JScriptEncode" >,VBscript 中< SCRIPT LANGUAGE="VBScriptEncode">变成< SCRIPT LANGUAGE="VBScript" >---- 运行：SRCENC [参数] 源文件 加密后文件,简单的运行可不带参数---- 如：srcenc testhtm encodehtm 即可将testhtm文件加密为encodehtm。---- screnc asp c:\temp 将当前目录下所有asp文件加密到c:/temp下。 ---- 命令行参数：SCRENC [/s] [/f] [/xl] [/l defLanguage ]
[/e defExtension] inputfile outputfile---- /s :运行时不显示详细输出信息。
---- /f :用加密文件覆写源文件。因源文件无法复原请慎用。---- 如：screnc /f testhtm 原文件和加密文件均为testhtm。---- /l :指定缺省script语言。如在html中未说明script语言属性（JScript or VBScript）， 可指定script语言。对于html文件缺省为JScript,asp文件缺省为VBscript。 如：screnc /l vbscript testhtm encodehtm ---- /e :将screnc不可识别格式文件加密。如：screnc /e asp c:\temp 将当前目录下所有文件加密为asp后缀，并将生成文件到 c:\temp目录下
我这里也有一个我觉得比较好的方法：
<A href="javascript:void(null)" onclick="windowshowModalDialog('','scrollbars=yes;resizable=no;help=no;status=no;dialogTop=25; dialogLeft=0;dialogHeight=400px')"></a>通过这个点击进入的页面中是不能查看其源代码的！但，真正能实现源代码屏蔽的单纯的htm是不可能的！

Ans = InPutBox("请输入要执行的 *** 作：1加密，2解密,3退出。")
Ans = Int(Ans)
If Ans =1 Then
set fso=createobject("scriptingfilesystemobject")
Set objDialog = CreateObject("UserAccountsCommonDialog")
objDialogFilter = "vbs File|vbs|All Files|"
objDialogInitialDir = ""
objDialogShowOpen
strLoadFile = objDialogFileName
if not strLoadFile = "" then
set op=fsoopentextfile(strLoadFile)
dow=13
do while opatendofstream=false
line=opreadline
for i=1 to len(line)
achar=mid(line,i,1)
dow=dow&Chr(44)&asc(achar)
next
dow=dow&chr(44)&"13"&chr(44)&"10"
loop
opclose
set op=fsoopentextfile(strLoadFile,2)
opwrite "strs=array("&dow&")"&chr(13)&chr(10)&_
"for i=1 to UBound(strs)"&chr(13)&chr(10)&_
" runner=runner&chr(strs(i))"&chr(13)&chr(10)&_
"next"&chr(13)&chr(10)&_
"Execute runner"
msgbox "加密成功",,"提示"
end if
end if
If Ans = 2 Then
Set objfs=CreateObject("scriptingfilesystemobject")
Set objDialog=CreateObject("UserAccountsCommonDialog")
objDialogFilter="vbs File|vbs|All Files|"
objDialogInitialDir = ""
objDialogShowOpen
strLoadFile = objDialogFileName
if not strLoadFile = "" then
set objf=objfsopentextfile(strLoadFile)
str=objfReadLine
start=InStr(str,"array(")+6
str=Mid(str,start,Len(str)-start)
strs=Split(str,",",-1,1)
for i=1 to UBound(strs)
runner=runner&chr(strs(i))
Next
objfClose
Set objf=objfsOpenTextFile(strLoadFile,2)
objfWrite runner
MsgBox "解密成功",,"提示"
end if
end if
if Ans = 3 Then
WscriptQuit
End If
'以上为VBS加解密代码，使用方法：保存后直接运行~~
'ps:此代码为本人以前收藏的，忘记作者是谁，在VBS吧里。

给你个简单加密解密算法
/前面定义好常量
const
C1 = 123456;
C2 = 234567;
PASSKEY = '66666';
//加密函数
function Encrypt(const S: String; Key: Word): String;
var
I: byte;
begin
Result:=S;
for I:= 1 to Length(S) do begin
Result[I]:= char(byte(S[I]) xor (Key shr 8));
Key:=(byte(Result[I]) + Key) C1 + C2;
end;
end;
//解密函数
function Decrypt(const S: String; Key: Word): String;
var
I: byte;
begin
Result:=S;
for I := 1 to Length(S) do begin
Result[I]:= char(byte(S[I]) xor (Key shr 8));
Key := (byte(S[I]) + Key) C1 + C2;
end;
end;
//使用方法------------------------------------------------
tmp := Encrypt('需要加密的内容', StrToInt(PASSKEY));
tmp := Decrypt('需要解密的内容', StrToInt(PASSKEY));

---