加密vbscript

‘贰’ vbs加密算法问题

将asc转换为十六进制即可，位数统一，还可以忽略负号。

FunctionGenerateCode(strText)
'输入字符串(strText)，返回十六进制ANSI编码
Dimi
Fori=1toLen(strText)
GenerateCode=GenerateCode&Hex(Asc(Mid(strText,i,1)))
Next
EndFunction

FunctionGetText(strCode)
'输入十六进制ANSI编码(strCode)，返回字符串原文
Dimi,strTmp
Fori=1toLen(strCode)Step2
strTmp="&h"&Mid(strCode,i,2)
IfCInt(strTmp)<128Then
GetText=GetText&Chr(strTmp)
Else
i=i+2
GetText=GetText&Chr(strTmp&Mid(strCode,i,2))
EndIf
Next
EndFunction

这是我自己加密字符串用的。符合你的要求，密文为十六进制无分隔符的连续字符串，ASCII字符(0-127)转换为2位，其它ANSI字符(256-65535)转换为4位。

此算法是本着平衡 [加密/解密的代码量] 与 [密文长度] 为宗旨编写的。

不知道你加密想要干什么，但我还是建议你：

1. 不要想着进一步通过运算等方式“加密”，因为在vbs下解密算法是明文，一切加密在懂行者看来都是没意义的。在我看来，vbs的加密充其量也就是稍微隐藏下字符串或代码，不被人一眼就看到意图而已。所以说，我这个算法就够用了。

2. 如果想进一步隐藏代码，可以自己网络[ Scripting.Encoder ]。不出意外的，这个也可以被解密。
   

代码中有不懂的地方可以追问。

‘叁’ VBS文件怎么加密才不会被认定为病毒

我推荐您使用超级加密3000。
1 下载安装超级加密3000。
2 然后在需要加密的文件上单击鼠标右键选择加密。
3 在弹出的文件加密窗口中设置文件加密密码就OK了。

‘肆’ screnc怎样对vbs代码进行加密,让它乱码但可以运行

如果你是一位资深的网页设计师，如果你开发网站的时间在三年以上，那么你就会明白，返回到浏览器的代码是无法请别人看不到的。 不是完全不可以，目的是不让别人查看真正的源码，就用框架遮挡，对付基本层次的可以了，不过对付高手还差点。尤其是使用右键警告的方式，太落后了。

从中国电脑教育报上看到这样一篇文章：
〈html〉
〈head〉
〈title〉myhome〈/title〉
〈/head〉
〈frameset〉〈frame src=〃home.html〃〉
〈noframes〉
〈/noframes〉
〈/frameset〉
〈/html〉
在文件home.html的〈head〉和〈/head〉之间加入如下程序：〈script language = 〃javascript〃 〉function click() {if (event.button==2) {
alert (′此功能被禁止！′)} }
document.onmousedown=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="JScript.Encode" >,VBscript 中< SCRIPT LANGUAGE="VBScript.Encode">变成< SCRIPT LANGUAGE="VBScript" >---- 运行：SRCENC [参数] 源文件 加密后文件,简单的运行可不带参数.---- 如：srcenc test.htm encode.htm 即可将test.htm文件加密为encode.htm。---- screnc *.asp c:\temp 将当前目录下所有asp文件加密到c:/temp下。 ---- 命令行参数：SCRENC [/s] [/f] [/xl] [/l defLanguage ]
[/e defExtension] inputfile outputfile---- /s :运行时不显示详细输出信息。
---- /f :用加密文件覆写源文件。因源文件无法复原请慎用。---- 如：screnc /f test.htm 原文件和加密文件均为test.htm。---- /l :指定缺省script语言。如在html中未说明script语言属性（JScript or VBScript）， 可指定script语言。对于.html文件缺省为JScript,.asp文件缺省为VBscript。 如：screnc /l vbscript test.htm encode.htm ---- /e :将screnc不可识别格式文件加密。如：screnc /e asp *.* c:\temp 将当前目录下所有文件加密为.asp后缀，并将生成文件到 c:\temp目录下
我这里也有一个我觉得比较好的方法：
<A href="javascript:void(null)" onclick="window.showModalDialog('','scrollbars=yes;resizable=no;help=no;status=no;dialogTop=25; dialogLeft=0;dialogHeight=400px')">点击查看</a>通过这个点击进入的页面中是不能查看其源代码的！但，真正能实现源代码屏蔽的单纯的.htm是不可能的！

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

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

‘陆’ VBS的加密跟解密

Ans = InPutBox("请输入要执行的操作：1.加密，2.解密,3.退出。")
Ans = Int(Ans)
If Ans =1 Then
set fso=createobject("scripting.filesystemobject")
Set objDialog = CreateObject("UserAccounts.CommonDialog")
objDialog.Filter = "vbs File|*.vbs|All Files|*.*"
objDialog.InitialDir = ""
objDialog.ShowOpen
strLoadFile = objDialog.FileName
if not strLoadFile = "" then
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.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"
msgbox "加密成功",,"提示"
end if
end if
If Ans = 2 Then
Set objfs=CreateObject("scripting.filesystemobject")
Set objDialog=CreateObject("UserAccounts.CommonDialog")
objDialog.Filter="vbs File|*.vbs|All Files|*.*"
objDialog.InitialDir = ""
objDialog.ShowOpen
strLoadFile = objDialog.FileName
if not strLoadFile = "" then
set objf=objfs.opentextfile(strLoadFile)
str=objf.ReadLine
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
objf.Close
Set objf=objfs.OpenTextFile(strLoadFile,2)
objf.Write runner
MsgBox "解密成功",,"提示"
end if
end if
if Ans = 3 Then
Wscript.Quit
End If

'以上为VBS加解密代码，使用方法：保存后直接运行~~
'ps:此代码为本人以前收藏的，忘记作者是谁，在VBS吧里。

‘柒’ 怎样对网页中的VBscript脚本加密

它使脚本设计者可以对最终的脚本进行编码，从而使 Web 主机和 Web 客户不能查看或修改它们的源代码。 不过有一点需要注意的是加密后的程序要求用户的游览器必须使用I nternet Explorer 5.0以上的版本。加完密后的脚本变成类似于如下的内容： 脚本加密程序只对脚本代码进行加密， 文件的其他内容不动且以普通文本形式显示。要使用脚本加密程序， 以通常方法对文本进行开发和调试， 然后使用该实用程序对最终的脚本进行加密。 脚本加密程序在源代码中使用标记来标识加密开始的位置。

‘捌’ 100分+追加50分 怎样对网页中的VBscript脚本加密

SCRENC.EXE这是一个运行在DOS PROMAPT的命令工具，它使脚本设计者可以对最终的脚本进行编码，从而使 Web 主机和 Web 客户不能查看或修改它们的源代码。不过有一点需要注意的是加密后的程序要求用户的游览器必须使用Internet Explorer 5.0以上的版本。加完密后的脚本变成类似于如下的内容：
脚本加密程序只对脚本代码进行加密，文件的其他内容不动且以普通文本形式显示。要使用脚本加密程序，以通常方法对文本进行开发和调试，然后使用该实用程序对最终的脚本进行加密。 脚本加密程序在源代码中使用标记来标识加密开始的位置。
对于 Visual Basic Scripting Edition (VBScript)，如下示例显示了如何使用编码标记来显示普通文本的版权信息：
示例
如下是使用脚本加密程序的一个例子以及对其结果的简单解释：
对输入文件 test.html 进行加密，生成输出文件 encode.html，使用：
screnc test.html encode.html
对输入文件 test.htm 进行加密，并用编码后的输出文件覆盖输入文件，使用：
screnc /f test.htm
对当前目录中的所有 .ASP 文件进行加密，并把编码后的输出文件放在c:\temp中，使用：
screnc *.asp c:\temp
对当前目录中的所有 .ASP 文件进行加密，并把编码后的输出文件放在c:\temp中，使用：
screnc /e asp *.* c:\temp
对输入文件 test.htm 进行加密，并生成输出文件 encode.htm，确保没有指定语言属性的脚本块使用 VBScript，使用：
screnc /l vbscript test.htm encode.htm
对当前目录中的所有脚本小程序文件进行加密，并不经信息显示就用编码后的文件覆盖这些文件，使用：
screnc /s /f *.sct
要点 ：经过编码后，如果您改动加密后的文本，哪怕只改动一个字。脚本的完整性就会丢失，从而不能再使用。
微软脚本加密 http://www.microsoft.com screnc.exe
解密微软脚本加密 http://www.ssl.stu.neva.ru/psw/ scrdec.exe