vbs加密文本字符

⑶ 怎么能加密自己做的vbs啊 就是让别人不能编辑那种

vbs是解释型脚本文件 再怎么加密 还是得还原代码 才能被解释器读取识别 所以并没有什么用 建议你将vbs代码稍微修改下变成vb6代码 生成EXE程序吧

⑷ 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的话不要有过多指望，只要人家能看到你的VBS代码，就可以知道你的加密方法。

不过你可以将VBS编译为exe。

如果可能，建议用AutoIt吧（帮助中自带示例）。

SetobjArgs=WScript.Arguments
ForI=0toobjArgs.Count-1
WScript.EchoobjArgs(I)
Next

这是VBS帮助里的原例子。

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

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

⑺ VBS怎么加密啊

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

⑻ VBS加密解密问题

加密函数也就是ASCdata的作用就是将每个字符用asc函数转换为相应的ASCII码，并在后面加上逗号
我认为解密就是将这些ASCII码用chr函数转换为字符
Function Chrdata(Data)
Data = Split(Data, ",")
newdata=""
for x=0 to UBound(Data)
newdata = newdata & Chr(CInt(Data(x)))
next
Chrdata=newdata
End Function
如果是在网页中，可用下面的方式调用
document.write Chrdata("32,32,32,32,-24156,-24156,-24156,32,-24156,-24156,-23635,32,-24156,-23635,-23635,-23635,-23635,32,-24156,32,-23635,-23635,-23635,-23635,-24156,32,-24156,-24156,-24156,-24156,-24156,32,-24156,-24156,-24156,-23635,-23635,32,-23635,-24156,-24156,-24156,32,-24156,-24156,-24156,-24156,-23635,32,-23635,-23635,-23635,-23635,-23635,32,-23635,-23635,-23635,-23635,-24156,32,-24156,-24156,-24156,-24156,-24156,32,-23635,-23635,-24156,-24156,-24156,32,-24156,-23635,-23635,-23635,-23635,32,-24156,-24156,-24156,-23635,-23635,32,-23635,-24156,-24156,32,-23635,-23635,-24156,-24156,-24156,32,-24156,-24156,-24156,-24156,-23635,32,-23635,-24156,-24156,-24156,-24156,32,-23635,-24156,-24156,-24156,-24156,32,-24156,-23635,-23635,-23635,-23635,32,-23635,-24156,-24156,32,-23635,-24156,-24156,32,-24156,-24156,-23635,-23635,-23635,32,-23635,-24156,-24156,-24156,-24156,32,-23635,-24156,-24156,32,-23635,-23635,-24156,-24156,-24156,32,-24156,-24156,-23635,-24156,32,-24156,-24156,-23635,-23635,-23635,32,-24156,-24156,-23635,-24156,32,-24156,-24156,-24156,-23635,-23635,32,-24156,-23635,32,-23635,-23635,-23635,-23635,-24156,32,-23635,-24156,-24156,-24156,-24156,32")
在网页中显示的结果是
··· ··－ ·－－－－ · －－－－· ····· ···－－ －··· ····－ －－－－－ －－－－· ····· －－··· ·－－－－ ···－－ －·· －－··· ····－ －···· －···· ·－－－－ －·· －·· ··－－－ －···· －·· －－··· ··－· ··－－－ ··－· ···－－ ·－ －－－－· －····

ASCII为32的字符是空格，最前面四个空格和最后一个空格没有显示出来