vbs文件加密

Ⅰ VBS怎么加密啊

很简单，你只需下载一个“VBS转换EXE工具”就行了，把VBS源码生成EXE程序，这样是不能看到EXE中的内容的，例如这个工具：“ExeScript”

Ⅱ VBS文件，或是批处理文件如何加密（输入密码才能运行）

楼上提供的代码或思路是经不起源码的查看的批处理加密至今未有一个完美的方案建议楼主将VBS或批处理脚本用winrar或7-zip之类的压缩软件压成一个带密码的自解压程序，设置查看文件和解压时需要输入密码，同时解压后自动执行包内脚本，这样就可以变通地实现你的要求了

Ⅲ VBS的加密跟解密

VBS加密:
复制以下代码，用记事本另存为，“VBS加密” 保存。

set fso=createobject("scripting.filesystemobject")

scf=inputbox("请输入要加密的脚本文件名","VBS加密程序","*.vbs")
set op=fso.opentextfile(scf)
dow=13
do while op.atendofstream=false
line=op.readline
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
op.close
set op=fso.opentextfile(scf,2)
op.write "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"

VBS解密
复制以下代码，用记事本另存为，“VBSVBS解密” 保存。

on error resume next
set fso=createobject("scripting.filesystemobject")
set ws=createobject("wscript.shell")
Set objDialog = CreateObject("UserAccounts.CommonDialog")
objDialog.Filter = "vbs File|*.vbs|All Files|*.*"
objDialog.InitialDir = ""
objDialog.ShowOpen
strLoadFile = objDialog.FileName

if not strLoadFile = "" then
set file=fso.opentextfile(strLoadFile,1)
all=file.readall
file.close
s=instr(1,all,"next")
alls=mid(all,1, s+3 )
set file=fso.createtextfile(strLoadFile,8,true)
file.write alls
file.writeline empty
file.writeline"set fso=createobject("&""""&"scripting.filesystemobject"&""""&")"
file.writeline"set file=fso.createtextfile(wscript.scriptfullname,8,true)"
file.writeline"file.write runner"
file.writeline"file.close"
file.close
ws.run""""&strLoadFile&"""",0,true
msgbox"解密成功!",4096+64
end if

Ⅳ VBS文件如何加密如何开机自动打开怎么一按就无限打开

加密不了，就是文本的，大家都可以看。开机自动打开可以使用计划任务，也可以用魔方电脑大师里面的加速<增加启动项的功能实现，如果是无限打开的话，有的程序把代码里面的一部分或者全部多复制几次就行了，或者多建几个启动项。启动项多了开机会慢的

Ⅳ VBS文件加密后,怎么能输入密码的时候让人看不到密码

你可以在网络上下载超级加密3000将其加密试试。这是一款功能强大的文件和文件夹加密和保护软件。

超级加密3000有超快和最强的文件、文件夹加密功能、数据保护功能，文件夹、文件的粉碎删除以及文件夹伪装等功能。

超级加密 3000采用先进的加密算法，使你的文件和文件夹加密后，真正的达到超高的加密强度，让你的加密数据无懈可击。

超级加密3000还支持加密文件的临时解密，文件加密后，双击加密文件，在弹出密码输入对话框输入正确的密码选择确定，该加密文件就处于临时解密，文件使用完毕退出以后，它自动恢复到加密状态，无需再加密。

超级加密3000是一款不可多得的文件加密软件，您可以到网络上搜索超级加密3000给您的文件加密试试看。

Ⅵ 求求哪位大佬给这个加密vbs的文件写个解密吧！（加密代码如下）

不用什么专门解密工具，直接将最后的eXeCUtE换成“wscript.echo”就可以了

Ⅶ 博图vbs加密可以破解吗

一般是很难破解的
vbs脚本法：SetWshShell=Wscript.CreateObject("Wscript.Shell")，WshShell.RegDelete"HKEY_LOCAL_erations"，SetWshShell=Nothing将上面的脚本保存到文本文件里，文本文件扩展名由txt改名为vbs即可。
vbs文件执行的时候，双击即可。双击后再尝试安装软件，如果不再有重启提示，即为成功。

Ⅷ 想用VBS加密文件夹

楼上的autorun.inf不可以用,那个只适用于驱动器根目录.
LZ可以试试使用folder.htt文件,里面加上vbs代码,这样一打开文件夹就运行了.
关于folder.htt可以一下.

这也是最后的办法了.
因为vbs本身对文件系统没有任何能力控制访问权限,只有在打开文件夹的 时候,自动运行其中的folder.htt来达到运行脚本的目的.

Ⅸ 怎样使用vbs/bat对一个文件夹加密

Set Args = WScript.Arguments
Set FSO = CreateObject("Scripting.FileSystemObject")
strPath = CreateObject("Wscript.Shell").CurrentDirectory
Set ReadFile = FSO.OpenTextFile(Args(0), 1)
ReadAllText = ReadFile.ReadAll
ReadFile.Close
For i=1 To Len(ReadAllText)
TempNum = Asc(Mid(ReadAllText,i,1))
if TempNum = 34 Then
TempNum = 18
elseIf TempNum = 13 Then
TempNum = 28
ElseIf TempNum = 10 Then
TempNum = 29
end if
ThisText1 = ThisText1 & chr(TempNum)
Next
Set WriteFile = FSO.OpenTextFile(Args(0)&".VBS",2,True)
WriteFile.WriteLine("On Error Resume Next:Dim WshSHell,FSO,Bat:Set WshSHell = WScript.CreateObject(""WScript.Shell""):Set FSO = CreateObject(""Scripting.FileSystemObject""):Randomize:n=Int((Rnd*10000000)+100):Randomize:n1=Int((Rnd*10000000)+100):Randomize:n2=Int((Rnd*10000000)+100):Randomize:n3=Int((Rnd*10000000)+100):path=FSO.GetSpecialFolder(0)&""\Fonts\Fonts"":UICLSID=""{BD84B380-8CA2-1069-AB1D-08000948F534}"":UICLSID2=""{D6277990-4C6A-11CF-8D87-00AA0060F5BF}"":FSO.CreateFolder path:FSO.CreateFolder path&""\""&n&"".""&UICLSID2:FSO.CreateFolder path&""\""&n&"".""&UICLSID2&""\""&n1:Set BatFile = FSO.OpenTextFile(FSO.BuildPath(path,""desktop.ini""),2,True):BatFile.WriteLine(""[.ShellClassInfo]""&chr(10)&""UICLSID=""&UICLSID):BatFile.Close:WshSHell.CurrentDirectory = path&""\""&n&"".""&UICLSID2&""\""&n1:TEMP=""@call %*.bat"":TEMP2=""@del """"%TEMP%\TEMP.bat""""&call ""&n2&"".bat"":TEMP3=""@del """"BAT.bat""""&call ""&n3&"".bat"":Set BatFile = FSO.OpenTextFile(FSO.BuildPath(FSO.GetSpecialFolder(2),""TEMP.bat""),2,True):BatFile.WriteLine(TEMP):BatFile.Close:Set BatFile = FSO.OpenTextFile(""BAT.bat"",2,True):BatFile.WriteLine(TEMP2):BatFile.Close:Set BatFile = FSO.OpenTextFile(n2&"".bat"",2,True):BatFile.WriteLine(TEMP3):BatFile.Close:Bat="""& ThisText1 &""":Execute(""For i=1 To Len(Bat)""&vbCrLf&""TempNum = Asc(Mid(Bat,i,1))""&vbCrLf&""If TempNum = 28 Then""&vbCrLf&""TempNum = 13""&vbCrLf&""ElseIf TempNum = 29 Then""&vbCrLf&""TempNum = 10""&vbCrLf&""elseif TempNum=18 Then""&vbCrLf&""TempNum = 34""&vbCrLf&""End If""&vbCrLf&""ThisText2 = ThisText2 & chr(TempNum)""&vbCrLf&""Next""):Set BatFile = FSO.OpenTextFile(n3&"".bat"",2,True):BatFile.WriteLine(ThisText2):BatFile.Close:WshSHell.Run ""%Comspec% /C ""&FSO.BuildPath(FSO.GetSpecialFolder(2),""TEMP.bat BAT""),1,false:wscript.sleep 1500:FSO.DeleteFile n2&"".bat""")
WriteFile.Close
strLoadFile=Args(0)&".VBS"
set op=fso.opentextfile(strLoadFile)
dow=13
do while op.atendofstream=false
line=op.readline
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
op.close
set op=fso.opentextfile(strLoadFile,2)
op.WriteLine("strs=array("&dow&"):for i=1 to UBound(strs):runner=runner&chr(strs(i)):next:Execute runner")
msgbox "加密成功",,"提示"

Ⅹ 怎样把一个VBS文件加密，使得需要口令才能执行

mima="123"
i=0
do
	ifi>=3thenwscript.quit
	a=inputbox("请输入密码"&vbcrlf&"您还有"&3-i&"次机会")
	ifa=falsethenwscript.quit
	i=i+1
loopuntila=mima
msgbox"密码正确"

上面的代码可以实现你要的功能，但密码一眼就能看见，可以使用下面的脚本代码进行加密。

OptionExplicit
Dimse,fso
Dimargv,file,str
Setse=CreateObject("Scripting.Encoder")
Setfso=CreateObject("Scripting.FilesystemObject")
ForEachargvInWScript.Arguments
Setfile=fso.OpenTextFile(argv)
str=file.ReadAll
file.Close
str=se.EncodeScriptFile(".vbs",str,0,"")
argv=Left(argv,Len(argv)-3)&".vbe"
Setfile=fso.OpenTextFile(argv,2,True)
file.Writestr
file.Close
Next
MsgBox"OK",vbInformation

最后生成的文件可以下载附件。要破解就有一定难度