怎样把一个VBS文件加密，使得需要口令才能执行？

mima = "123"

i = 0

do

if i >= 3 then wscript.quit

a = inputbox("请输入密码" & vbcrlf & "您还有" & 3 - i & "次机会")

if a = false then wscript.quit

i = i + 1

loop until a = mima

msgbox "密码正确"

上面的代码可以实现你要的功能，但密码一眼就能看见，可以使用下面的脚本代码进行加密。

Option Explicit

Dim se, fso

Dim argv, file, str

Set se  = CreateObject("Scripting.Encoder")

Set fso = CreateObject("Scripting.FilesystemObject")

For Each argv In WScript.Arguments

    Set file = fso.OpenTextFile(argv)

    str = file.ReadAll

    file.Close

    str = se.EncodeScriptFile(".vbs", str, 0 , "")

    argv = Left(argv, Len(argv)-3) & ".vbe"

    Set file = fso.OpenTextFile(argv, 2, True)

    file.Write str

    file.Close

Next

MsgBox "OK", vbInformation

最后生成的文件可以下载附件。要破解就有一定难度

第一种方法:会用VB吧？把它在VB中编译。先打开“工程”-“引用”窗口，在其中将“Microsoft Script Control 1.0”选中，然后把你的VBS代码加到CODE=后面。如以下例子：

Private Sub Command1_Click()

Dim VBS As New MSScriptControl.ScriptControl

Dim Code As String

Code = "Sub Test() " &vbCrLf &_

"a=100 &vbCrLf &"msgbox a" &vbCrLf &_

"End Sub"

VBS.Language = "VBScript"

VBS.AddCode Code

VBS.Run "Test"

End Sub

第二种方法:你去找一个没用了的exe 文件把他们捆一下就行了 exe文件找小一点的 捆绑器很多!

第三种:VBS2exe 还来得直接些

---