新建一个TXT文本文件，把下面的绿代码脚本复制粘贴进去保存，并把后缀名改为.vbs
然后双击运行
Set objShell = CreateObject("Wscript.Shell")
scf=inputbox("请输入要加密的内容","VBS加密","abcd")
ad=""
for i=1 to len(scf)
ch=asc(mid(scf,i,1))
ad=ad& ch &" "
next
'ad 中存放的就是加密后的内容
scf_PassWord=inputbox("已加密转换的内容","VBS加密",ad)
双击运行脚本，出现如下窗口。
随便输入内容，点确定后，出现如下
shell脚本写加减乘除运算
这里面就是对应的ASC码，利用这种代码，加减乘除，或者算法偏移一番，就能作定制的简单加密了。要破解不难，但也是很麻烦的。
下面是对应的解密脚本，用法同上。
注意要输入对应的ASC码，否则会报错弹出。
Set objShell = CreateObject("Wscript.Shell")
ad=inputbox("请输入要解密的内容","VBS解密","abcd")
for each ch in split(trim(ad))
add=add& chr(cint(ch))
next
ad_PassWord=inputbox("请输入要解密的内容","VBS解密",add)
'ad 中存放的就是解密后的内容