这是一段加密其它文本的VBS代码,想把它修改并加上Wscript的Arguments属性,使它能够这样运行:jiami.vbs test.vbs,然后保存成加密后的新文本- function change(k)
- s=""
- for i = 1 to len(k)
- s=s&asc(mid(k,i,1))&","
- next
- change=left(s,len(s)-1)
- end function
-
- Sub enc()
- 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))"
- Document.all.txt.value=s
- End sub
复制代码
|