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

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

从中国电脑教育报上看到这样一篇文章：

〈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是不可能的！

dim pwd

pwd = inputbox("请输入密码","请输入密码") 括号内两个引号内容分别为d出输入对话框的lable和caption,可自行修改

if pwd = "" then '""为密码

msgbox "right" '自行修改

else

msgbox "wrong" '自行修改

end if

此脚本利用IF判断,密码必须在脚本中设。

对话可根据需求增加msgbox的数量

用VBS的话不要有过多指望，只要人家能看到你的VBS代码，就可以知道你的加密方法。

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

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

如果实在想要VBS的代码，可以参考下面这段。将数据转换为十六进制ASCII码。

Function GenerateCode(strText)

   '输入字符串(strText)，返回十六进制ANSI编码

   Dim i

   For i=1 to Len(strText)

       GenerateCode = GenerateCode & Hex(Asc(Mid(strText,i,1)))

   Next

End Function

 

Function GetText(strCode)

   '输入十六进制ANSI编码(strCode)，返回字符串原文

   Dim i,strTmp

   For i=1 to Len(strCode) Step 2

       strTmp = "&h" & Mid(strCode,i,2)

       If CInt(strTmp)<128 Then

           GetText = GetText & Chr(strTmp)

       Else

           i = i + 2

           GetText = GetText & Chr(strTmp & Mid(strCode,i,2))

       End If

   Next

End Function

以命令行方式运行脚本，可通过如下方法获取脚本参数（传入的数据）。

Set objArgs = WScriptArguments

For I = 0 to objArgsCount - 1

     WScriptEcho objArgs(I)

Next

这是VBS帮助里的原例子。

楼上的autoruninf不可以用,那个只适用于驱动器根目录

LZ可以试试使用folderhtt文件,里面加上vbs代码,这样一打开文件夹就运行了

关于folderhtt可以baidu一下

这也是最后的办法了

因为vbs本身对文件系统没有任何能力控制访问权限,只有在打开文件夹的 时候,自动运行其中的folderhtt来达到运行脚本的目的

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吧里。

以上就是关于screnc怎样对vbs代码进行加密,让它乱码但可以运行全部的内容，包括:screnc怎样对vbs代码进行加密,让它乱码但可以运行、VBS有没有加密代码、急求，用VBS脚本进行一种靠谱一点的加密解密算法等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！