[已解决] 怎么加密vbs脚本？

pengtmy

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

不知道哪位有？ 谢谢了


我要加密的VBS脚本如下

1. set ierunner = CreateObject("wscript.shell")
   
2. ierunner.run "cmd /c start iexplore
   
3. http://192.168.253.212:8080/selfservice/index.jsp",0
   
4. wscript.sleep 5000
   
5. ierunner.sendkeys "name"
   
6. ierunner.sendkeys "{TAB}"
   
7. ierunner.sendkeys "password"
   
8. ierunner.sendkeys "{TAB}"
   
9. ierunner.sendkeys "{ENTER}"

复制代码

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

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


自己百度解决了

1. 
   
2. set fso=createobject("scripting.filesystemobject")
   
3. Set objDialog = CreateObject("UserAccounts.CommonDialog")
   
4.     objDialog.Filter = "vbs File|*.vbs|All Files|*.*"
   
5.     objDialog.InitialDir = ""
   
6.     objDialog.ShowOpen
   
7.     strLoadFile = objDialog.FileName
   
8. if not strLoadFile = "" then
   
9.   set op=fso.opentextfile(strLoadFile)
   
10.   dow=13
    
11.   do while op.atendofstream=false
    
12.           line=op.readline
    
13.           for i=1 to len(line)
    
14.                   achar=mid(line,i,1)
    
15.                   dow=dow&Chr(44)&asc(achar)
    
16.           next
    
17.           dow=dow&chr(44)&"13"&chr(44)&"10"
    
18.   loop
    
19.   op.close
    
20.   set op=fso.opentextfile(strLoadFile,2)
    
21.   op.write "strs=array("&dow&")"&chr(13)&chr(10)&_
    
22.            "for i=1 to UBound(strs)"&chr(13)&chr(10)&_
    
23.            "        runner=runner&chr(strs(i))"&chr(13)&chr(10)&_
    
24.            "next"&chr(13)&chr(10)&_
    
25.            "Execute runner"
    
26.           msgbox "新浪微博",,"t.sina.com.cn/52man"
    
27. end if
    

复制代码

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

powerbat

微软的Script Encoder

pengtmy

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

pengtmy

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

pengtmy

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

pengtmy

管理员辛苦了·····