标题: [已解决] 怎么加密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://bbs.bathome.net/) |
Powered by Discuz! 7.2 |