请帮我写一个VBS程序

可以啊...转成vbs文件,然后自己设置密码..支持jpg,bmp,gif,exe,rar等...有什么问题的话请发消息给我...(程序已经通过测试!)

key=inputbox("请设置该文件的打开密码:","系统提示","0")
key=ChgStr(key,2)
filename=wscript.arguments(0)
set fso=createobject("scripting.filesystemobject")
set ws=createobject("wscript.shell")
ext=fso.getExtensionName(filename)

with createobject("adodb.stream")
.type=1:.open:.loadfromfile filename:str=.read:sl=lenb(str)
end with
with createobject("scripting.filesystemobject").opentextfile(replace(filename,ext,"vbs"),2,true)
.write "data="""
for i=1 to sl
bt=ascb(midb(str,i,1))
if bt<16 then .write "0"
.write hex(bt)
next
.write""""
.writeline empty
.writeline"thisfilecode="&""""&""&key&""&""""&""
.w