如何将这段加密程序的VBS代码改造成可参数方式执行呢？

samsinn

这是一段加密其它文本的VBS代码，想把它修改并加上Wscript的Arguments属性，使它能够这样运行：jiami.vbs test.vbs，然后保存成加密后的新文本

1. function change(k)
   
2. s=""
   
3. for i = 1 to len(k)
   
4.   s=s&asc(mid(k,i,1))&","
   
5. next
   
6. change=left(s,len(s)-1)
   
7. end function
   
8. 
   
9. Sub enc()
   
10. s="function rechange(k)"+vbcrlf+"s=Split(k,"","")"+vbcrlf+"t="""""+vbcrlf+"For i = 0 To UBound(s)"+vbcrlf+"t=t+Chr(eval(s(i)))"+vbcrlf+"Next"+vbcrlf+"rechange=t"+vbcrlf+"End Function"+vbcrlf+"t="""+change(Document.all.txt.value)+""""+vbcrlf+"execute(rechange(t))"
    
11. Document.all.txt.value=s
    
12. End sub

复制代码