批处理之家 - Powered by Discuz! Board

标题: [问题求助] 如何将这段加密程序的VBS代码改造成可参数方式执行呢？ [打印本页]

作者: samsinn 时间: 2012-2-5 17:37 标题: 如何将这段加密程序的VBS代码改造成可参数方式执行呢？

这是一段加密其它文本的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
复制代码

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