使用Scripting.Encoder加密VBS脚本

标签: , , , ,

我《VBS加密 & VBE解密》中提到过可以用Script Encoder来加密VBS脚本,但是不知为何,微软官方现在已经不提供Script Encoder的下载。当然,你可以到其他网站上去下载Script Encoder来加密VBS,如果你不怕中病毒的话。

其实不必如此麻烦,加密VBS的组件Scripting.Encoder默认就安装在我们的系统中,我们可以调用Scripting.Encoder对象的EncodeScriptFile方法来加密VBS脚本。

Option Explicit
Dim se, fso
Dim argv, file, str
'VBScript Encoder
'Author: Demon
'Website: http://demon.tw
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

最后Demon奉劝大家不要以为把VBS加密成VBE就高枕无忧了,在高手面前,一切VBS加密都是浮云。

随机文章:

  1. PowerISO 5.7 注册码
  2. PHP读取纯真IP数据库QQWry.dat
  3. VBS For Next循环的一些细节
  4. Ubuntu下安装Lighttpd+PHP+MySQL
  5. _get_osfhandle函数

2 条评论 发表在“使用Scripting.Encoder加密VBS脚本”上

  1. kxmw.com说道:

    sce10en.exe是在CMD里面弄的 看着就头晕 不知道有没有更简单的

留下回复