国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

　　這個(gè)不是exe2vbs 所有類(lèi)型的文件都可以轉(zhuǎn)化的 不過(guò)限于string的大小 文件不能太大 我測(cè)試過(guò)3m的文件是可以的
　　Tr4c3:為了方便在dos下使用，我把inputbox改成了args
　　'Program By xiaolu
　　'name:file2vbs.vbs
　　On error resume next
　　Set Args = Wscript.Arguments
　　If Args.length<>2 Then
　　Wscript.Echo "Usage:" & Wscript.ScriptName & " c:\muma.exe c:\muma.vbs"
　　Wscript.Quit
　　End If
　　do while 1
　　fname = Args(0)
　　Set Ado = CreateObject("adodb.stream")
　　With Ado
　　.Type = 1
　　.open
　　.loadfromfile fname
　　ss = .read
　　End With
　　exit do
　　Loop
　　fname = Args(1)
　　Set Fso=CreateObject("Scripting.FileSystemObject")
　　Set File=fso.OpenTextFile(fname,2, True)
　　lens=lenB(ss) mod 500
　　For j=0 to int(lenB(ss)/500)-1
　　if j=0 then
　　File.writeline "ss="""&Bin2Str(midb(ss,500*j+1,500))"""_"
　　else
　　File.writeline "+"""&Bin2Str(midb(ss,500*j+1,500))"""_"
　　end if
　　next
　　if lens>0 then
　　File.writeline "+"""&Bin2Str(rightb(ss,lens))""""
　　else
　　File.writeline "+"&chr(34)&chr(34)
　　end if
　　File.writeline ""
　　File.writeline "Set RS=CreateObject(""ADODB.Recordset""):L=Len(ss)/2:RS.Fields.Append ""m"",205,L:RS.Open:RS.AddNew:RS(""m"")=ss&ChrB(0):RS.Update:ss=RS(""m"").GetChunk(L)"
　　File.writeline "Set s=CreateObject(""ADODB.Stream""):with s:.Mode = 3:.Type = 1:.Open():.Write ss:.SaveToFile wscript.arguments(0),2:end with"
　　File.close
　　Set fso=nothing
　　Ado.close
　　set Abo=nothing
　　Function Bin2Str(Re)
　　For i = 1 To lenB(Re)
　　bt = AscB(MidB(Re, i, 1))
　　if bt < 16 Then Bin2Str=Bin2Str"0"
　　Bin2Str=Bin2Str & Hex(bt)
　　Next
　　End Function
　　重新生成文件的辦法
　　cscript xx.vbs x:\xxxx.exe

本篇文章來(lái)源于 黑客基地-全球最大的中文黑客站 原文鏈接：http://www.hackbase.com/tech/2009-01-31/43519.html

本站僅提供存儲(chǔ)服務(wù)，所有內(nèi)容均由用戶(hù)發(fā)布，如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請(qǐng)點(diǎn)擊舉報(bào)。