一、加密

复制代码 代码如下:
Dim ObjectFSO

If (lcase(right(wscript.fullname,11))="wscript.exe") Then
WScript.Quit(0)
End If

If wscript.arguments.count<2 Then
Wscript.Echo "VBS Code Encoder v1.0 Powered by ENUN. http://binaison,(index mod 64)+1,1),1) & Mid(Chaine,i+1)
End If
End If
Next
Decode=Chaine
End Function

Function BrowseForFolder(ByVal pstrPrompt, ByVal pintBrowseType, ByVal pintLocation)
Dim ShellObject, pstrTempFolder, x
Set ShellObject=WScript.CreateObject("Shell.Application")
On Error Resume Next
Set pstrTempFolder=ShellObject.BrowseForFolder(&H0,pstrPrompt,pintBrowseType,pintLocation)
BrowseForFolder=pstrTempFolder.ParentFolder.ParseName(pstrTempFolder.Title).Path
If Err.Number<>0 Then BrowseForFolder=""
Set pstrTempFolder=Nothing
Set ShellObject=Nothing
End Function


原文: http://www.enun.net/?p=866