批处理之家 - Powered by Discuz! Board

标题: [已解决] 怎么加密vbs脚本？ [打印本页]

作者: pengtmy 时间: 2010-10-19 15:17 标题: [已解决] 怎么加密vbs脚本？

我在论坛搜索到一个叫做
vbs脚本变形加密工具
http://bbs.bathome.net/thread-3637-1-1.html
但是只有截图，找不到软件下载

不知道哪位有？谢谢了

我要加密的VBS脚本如下

set ierunner = CreateObject("wscript.shell") 
ierunner.run "cmd /c start iexplore 
http://192.168.253.212:8080/selfservice/index.jsp",0 
wscript.sleep 5000
ierunner.sendkeys "name" 
ierunner.sendkeys "{TAB}"
ierunner.sendkeys "password" 
ierunner.sendkeys "{TAB}" 
ierunner.sendkeys "{ENTER}"
复制代码

这是一个查询流量的网页，我想发给同学，用自动登陆帮我查

我知道这种加密方式力度不大，只要小朋友看不懂就好。。。

自己百度解决了

 
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 "新浪微博",,"t.sina.com.cn/52man"
end if 
复制代码

[ 本帖最后由 pengtmy 于 2010-10-20 14:21 编辑 ]

作者: powerbat 时间: 2010-10-19 17:09

微软的Script Encoder

作者: pengtmy 时间: 2010-10-19 19:11 标题: 回复 2楼的帖子

下载了不会用啊···· 晕死了

作者: pengtmy 时间: 2010-10-20 14:22 标题: 扣分··

发帖没注意，算了·······

作者: pengtmy 时间: 2010-10-20 18:51 标题: 一级士官

看着自己慢慢升级哦·······

作者: pengtmy 时间: 2010-10-21 13:26 标题: 谢谢·

管理员辛苦了·····

欢迎光临批处理之家 (http://bathome.net./)

Powered by Discuz! 7.2