加密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