hta實(shí)現(xiàn)的二進(jìn)制文件轉(zhuǎn)換為文本
發(fā)布日期：2021-12-22 15:29 | 文章來(lái)源：源碼之家
保存為.hta運(yùn)行
<!DOCTYPEHTMLPUBLIC"-//W3C//DTDHTML4.01Transitional//EN">
<html>
<head>
<title>packagefilev0.1</title>
<metahttp-equiv="Content-Type"content="text/html;charset=GB2312">
<HTA:APPLICATION
ID="packagefilev0.1"
APPLICATIONNAME="packagefilev0.1"
VERSION="0.1"
SCROLL="no"
INNERBORDER="no"
CONTEXTMENU="yes"
CAPTION="yes"
ICON="no"
SHOWINTASKBAR="yes"
SINGLEINSTANCE="yes"
SYSMENU="yes"
MAXIMIZEBUTTON="no"
WINDOWSTATE="normal"
NAVIGABLE="yes"
/>
<SCRIPTLANGUAGE="VBScript">
functiontransfert()
dimfilename
filename=document.getElementById("srcFile").value
iflen(filename)>0then
dimoReq
'onerrorresumenext
'//創(chuàng)建XMLHTTP對(duì)象
setoReq=CreateObject("MSXML2.XMLHTTP")
oReq.open"get","file:\\"&filename,false
oReq.send
ff=oReq.responseBody
dimu,s,kk
u=lenb(ff)
redimkk(u-1)
fori=0tou-1
s=hex(ascb(midb(ff,i+1,1)))
iflen(s)<2then
s="0"&s
endif
'kk=kk&s
kk(i)=s
next
makefilename,join(kk,"")
else
document.getElementById("srcFile").focus
msgbox"請(qǐng)選擇要壓縮的文件",16,"提示"
endif
endfunction
functionmake(filename,data)
dimhtm,file
file=mid(filename,instrrev(filename,"\")+1)
htm=htm&"<html>"&vbcrlf
htm=htm&"<head>"&vbcrlf
htm=htm&"<title>selfdec</title>"&vbcrlf
htm=htm&"<metahttp-equiv=""Content-Type""content=""text/html;charset=GB2312"">"&vbcrlf
htm=htm&"<HTA:APPLICATION"&vbcrlf
htm=htm&"ID=""selfdec"""&vbcrlf
htm=htm&"APPLICATIONNAME=""self"""&vbcrlf
htm=htm&"VERSION=""0.1"""&vbcrlf
htm=htm&"SCROLL=""no"""&vbcrlf
htm=htm&"INNERBORDER=""no"""&vbcrlf
htm=htm&"CONTEXTMENU=""no"""&vbcrlf
htm=htm&"CAPTION=""no"""&vbcrlf
htm=htm&"ICON=""no"""&vbcrlf
htm=htm&"SHOWINTASKBAR=""no"""&vbcrlf
htm=htm&"SINGLEINSTANCE=""yes"""&vbcrlf
htm=htm&"SYSMENU=""no"""&vbcrlf
htm=htm&"MAXIMIZEBUTTON=""no"""&vbcrlf
htm=htm&"WINDOWSTATE=""normal"""&vbcrlf
htm=htm&"NAVIGABLE=""yes"""&vbcrlf
htm=htm&"/>"&vbcrlf
htm=htm&""&vbcrlf
htm=htm&"<SCRIPTLANGUAGE=""VBScript"">"&vbcrlf
htm=htm&""&vbcrlf
htm=htm&"'//保存文件"&vbcrlf
htm=htm&"functionsaveFile(filename,str)"&vbcrlf
htm=htm&""&vbcrlf
htm=htm&"setadodbStream=CreateObject(""ADODB""&"".""&""Stream"")"&vbcrlf
htm=htm&""&vbcrlf
htm=htm&"adodbStream.Type=1"&vbcrlf
htm=htm&"adodbStream.Open"&vbcrlf
htm=htm&"adodbStream.writestr"&vbcrlf
htm=htm&"adodbStream.SaveToFilefilename,2"&vbcrlf
htm=htm&"adodbStream.Close"&vbcrlf
htm=htm&""&vbcrlf
htm=htm&"endfunction"&vbcrlf
htm=htm&""&vbcrlf
htm=htm&"'//VB數(shù)組轉(zhuǎn)變成二進(jìn)制格式"&vbcrlf
htm=htm&"FunctionMultiByteToBinary(MultiByte)"&vbcrlf
htm=htm&""&vbcrlf
htm=htm&"DimRS,LMultiByte,Binary"&vbcrlf
htm=htm&"ConstadLongVarBinary=205"&vbcrlf
htm=htm&"SetRS=CreateObject(""ADODB.Recordset"")"&vbcrlf
htm=htm&"LMultiByte=LenB(MultiByte)"&vbcrlf
htm=htm&"IfLMultiByte>0Then"&vbcrlf
htm=htm&"RS.Fields.Append""mBinary"",adLongVarBinary,LMultiByte"&vbcrlf
htm=htm&"RS.Open"&vbcrlf
htm=htm&"RS.AddNew"&vbcrlf
htm=htm&"RS(""mBinary"").AppendChunkMultiByte&ChrB(0)"&vbcrlf
htm=htm&"RS.Update"&vbcrlf
htm=htm&"Binary=RS(""mBinary"").GetChunk(LMultiByte)"&vbcrlf
htm=htm&"EndIf"&vbcrlf
htm=htm&"MultiByteToBinary=Binary"&vbcrlf
htm=htm&""&vbcrlf
htm=htm&"EndFunction"&vbcrlf
htm=htm&""&vbcrlf
htm=htm&"functionDeleteMe()"&vbcrlf
htm=htm&""&vbcrlf
htm=htm&"dimfilename"&vbcrlf
htm=htm&"filename=document.location.href"&vbcrlf
htm=htm&""&vbcrlf
htm=htm&"filename=mid(filename,instrrev(filename,""/"")+1)"&vbcrlf
htm=htm&""&vbcrlf
htm=htm&"Dimfso,MyFile"&vbcrlf
htm=htm&"Setfso=CreateObject(""Script"&"ing.FileS"&"ystemObject"")"&vbcrlf
htm=htm&"SetMyFile=fso.GetFile(filename)"&vbcrlf
htm=htm&"MyFile.Delete"&vbcrlf
htm=htm&""&vbcrlf
htm=htm&"endfunction"&vbcrlf
htm=htm&""&vbcrlf
htm=htm&"functionexec()"&vbcrlf
htm=htm&""&vbcrlf
htm=htm&"'//屏蔽錯(cuò)誤"&vbcrlf
htm=htm&"'onerrorresumenext"&vbcrlf
htm=htm&""&vbcrlf
htm=htm&"'//改變窗體大小"&vbcrlf
htm=htm&"window.resizeTo0,0"&vbcrlf
htm=htm&""&vbcrlf
htm=htm&"dimdata,t,kk,filename"&vbcrlf
htm=htm&""&vbcrlf
htm=htm&"'//得到數(shù)據(jù)"&vbcrlf
htm=htm&"data=document.getElementById(""divData"").innerText"&vbcrlf
htm=htm&"'//得到文件名"&vbcrlf
htm=htm&"filename=document.getElementById(""divFileName"").innerText"&vbcrlf
htm=htm&""&vbcrlf
htm=htm&"'//得到數(shù)據(jù)長(zhǎng)度"&vbcrlf
htm=htm&"u=len(data)"&vbcrlf
htm=htm&""&vbcrlf
htm=htm&"'//獲得文件數(shù)組"&vbcrlf
htm=htm&"fori=1toustep2"&vbcrlf
htm=htm&"t=mid(data,i,2)"&vbcrlf
htm=htm&"kk=kk&ChrB(clng(""&H""&t))"&vbcrlf
htm=htm&"next"&vbcrlf
htm=htm&""&vbcrlf
htm=htm&"'//轉(zhuǎn)變成二進(jìn)制格式"&vbcrlf
htm=htm&"dataArry=MultiByteToBinary(kk)"&vbcrlf
htm=htm&""&vbcrlf
htm=htm&"'//保存文件"&vbcrlf
htm=htm&"saveFilefilename,dataArry"&vbcrlf
htm=htm&""&vbcrlf
htm=htm&"'//刪除自己"&vbcrlf
htm=htm&"DeleteMe"&vbcrlf
htm=htm&""&vbcrlf
htm=htm&"'//關(guān)閉自己"&vbcrlf
htm=htm&"window.opener=nothing"&vbcrlf
htm=htm&"window.close"&vbcrlf
htm=htm&""&vbcrlf
htm=htm&"endfunction"&vbcrlf
htm=htm&""&vbcrlf
htm=htm&"<"&"/SCRIPT>"&vbcrlf
htm=htm&"<"&"/head>"&vbcrlf
htm=htm&"<bodymarginleft=0marginright=0onload=""exec()"">"&vbcrlf
htm=htm&""&vbcrlf
htm=htm&"<divid=""divFileName""style=""display:none;"">"&file&"</div>"&vbcrlf
htm=htm&"<divid=""divData""style=""display:none;"">"&data&"</div>"&vbcrlf
htm=htm&""&vbcrlf
htm=htm&"</body>"&vbcrlf
htm=htm&"</html>"&vbcrlf
dimfso,f
dimthis_file
this_file=file&"-pf.hta"
Setfso=CreateObject("Scripting.FileSystemObject")
Setf=fso.OpenTextFile(this_file,2,True)
f.Writehtm
msgbox"生成文件"&this_file&"成功！",64,"生成"
endfunction
</SCRIPT>
</head>
<bodymarginleft=0marginright=0onload="window.resizeTo389,145">
請(qǐng)選擇文件：<inputtype=fileid="srcFile"style="width:260px;"><br><br>
<inputtype=buttonvalue="轉(zhuǎn)換"onclick="transfert"><inputtype=buttonvalue="關(guān)閉"onclick="window.close">
</body>
</html>
<!DOCTYPEHTMLPUBLIC"-//W3C//DTDHTML4.01Transitional//EN">
<html>
<head>
<title>packagefilev0.1</title>
<metahttp-equiv="Content-Type"content="text/html;charset=GB2312">
<HTA:APPLICATION
ID="packagefilev0.1"
APPLICATIONNAME="packagefilev0.1"
VERSION="0.1"
SCROLL="no"
INNERBORDER="no"
CONTEXTMENU="yes"
CAPTION="yes"
ICON="no"
SHOWINTASKBAR="yes"
SINGLEINSTANCE="yes"
SYSMENU="yes"
MAXIMIZEBUTTON="no"
WINDOWSTATE="normal"
NAVIGABLE="yes"
/>
<SCRIPTLANGUAGE="VBScript">
functiontransfert()
dimfilename
filename=document.getElementById("srcFile").value
iflen(filename)>0then
dimoReq
'onerrorresumenext
'//創(chuàng)建XMLHTTP對(duì)象
setoReq=CreateObject("MSXML2.XMLHTTP")
oReq.open"get","file:\\"&filename,false
oReq.send
ff=oReq.responseBody
dimu,s,kk
u=lenb(ff)
redimkk(u-1)
fori=0tou-1
s=hex(ascb(midb(ff,i+1,1)))
iflen(s)<2then
s="0"&s
endif
'kk=kk&s
kk(i)=s
next
makefilename,join(kk,"")
else
document.getElementById("srcFile").focus
msgbox"請(qǐng)選擇要壓縮的文件",16,"提示"
endif
endfunction
functionmake(filename,data)
dimhtm,file
file=mid(filename,instrrev(filename,"\")+1)
htm=htm&"<html>"&vbcrlf
htm=htm&"<head>"&vbcrlf
htm=htm&"<title>selfdec</title>"&vbcrlf
htm=htm&"<metahttp-equiv=""Content-Type""content=""text/html;charset=GB2312"">"&vbcrlf
htm=htm&"<HTA:APPLICATION"&vbcrlf
htm=htm&"ID=""selfdec"""&vbcrlf
htm=htm&"APPLICATIONNAME=""self"""&vbcrlf
htm=htm&"VERSION=""0.1"""&vbcrlf
htm=htm&"SCROLL=""no"""&vbcrlf
htm=htm&"INNERBORDER=""no"""&vbcrlf
htm=htm&"CONTEXTMENU=""no"""&vbcrlf
htm=htm&"CAPTION=""no"""&vbcrlf
htm=htm&"ICON=""no"""&vbcrlf
htm=htm&"SHOWINTASKBAR=""no"""&vbcrlf
htm=htm&"SINGLEINSTANCE=""yes"""&vbcrlf
htm=htm&"SYSMENU=""no"""&vbcrlf
htm=htm&"MAXIMIZEBUTTON=""no"""&vbcrlf
htm=htm&"WINDOWSTATE=""normal"""&vbcrlf
htm=htm&"NAVIGABLE=""yes"""&vbcrlf
htm=htm&"/>"&vbcrlf
htm=htm&""&vbcrlf
htm=htm&"<SCRIPTLANGUAGE=""VBScript"">"&vbcrlf
htm=htm&""&vbcrlf
htm=htm&"'//保存文件"&vbcrlf
htm=htm&"functionsaveFile(filename,str)"&vbcrlf
htm=htm&""&vbcrlf
htm=htm&"setadodbStream=CreateObject(""ADODB""&"".""&""Stream"")"&vbcrlf
htm=htm&""&vbcrlf
htm=htm&"adodbStream.Type=1"&vbcrlf
htm=htm&"adodbStream.Open"&vbcrlf
htm=htm&"adodbStream.writestr"&vbcrlf
htm=htm&"adodbStream.SaveToFilefilename,2"&vbcrlf
htm=htm&"adodbStream.Close"&vbcrlf
htm=htm&""&vbcrlf
htm=htm&"endfunction"&vbcrlf
htm=htm&""&vbcrlf
htm=htm&"'//VB數(shù)組轉(zhuǎn)變成二進(jìn)制格式"&vbcrlf
htm=htm&"FunctionMultiByteToBinary(MultiByte)"&vbcrlf
htm=htm&""&vbcrlf
htm=htm&"DimRS,LMultiByte,Binary"&vbcrlf
htm=htm&"ConstadLongVarBinary=205"&vbcrlf
htm=htm&"SetRS=CreateObject(""ADODB.Recordset"")"&vbcrlf
htm=htm&"LMultiByte=LenB(MultiByte)"&vbcrlf
htm=htm&"IfLMultiByte>0Then"&vbcrlf
htm=htm&"RS.Fields.Append""mBinary"",adLongVarBinary,LMultiByte"&vbcrlf
htm=htm&"RS.Open"&vbcrlf
htm=htm&"RS.AddNew"&vbcrlf
htm=htm&"RS(""mBinary"").AppendChunkMultiByte&ChrB(0)"&vbcrlf
htm=htm&"RS.Update"&vbcrlf
htm=htm&"Binary=RS(""mBinary"").GetChunk(LMultiByte)"&vbcrlf
htm=htm&"EndIf"&vbcrlf
htm=htm&"MultiByteToBinary=Binary"&vbcrlf
htm=htm&""&vbcrlf
htm=htm&"EndFunction"&vbcrlf
htm=htm&""&vbcrlf
htm=htm&"functionDeleteMe()"&vbcrlf
htm=htm&""&vbcrlf
htm=htm&"dimfilename"&vbcrlf
htm=htm&"filename=document.location.href"&vbcrlf
htm=htm&""&vbcrlf
htm=htm&"filename=mid(filename,instrrev(filename,""/"")+1)"&vbcrlf
htm=htm&""&vbcrlf
htm=htm&"Dimfso,MyFile"&vbcrlf
htm=htm&"Setfso=CreateObject(""Script"&"ing.FileS"&"ystemObject"")"&vbcrlf
htm=htm&"SetMyFile=fso.GetFile(filename)"&vbcrlf
htm=htm&"MyFile.Delete"&vbcrlf
htm=htm&""&vbcrlf
htm=htm&"endfunction"&vbcrlf
htm=htm&""&vbcrlf
htm=htm&"functionexec()"&vbcrlf
htm=htm&""&vbcrlf
htm=htm&"'//屏蔽錯(cuò)誤"&vbcrlf
htm=htm&"'onerrorresumenext"&vbcrlf
htm=htm&""&vbcrlf
htm=htm&"'//改變窗體大小"&vbcrlf
htm=htm&"window.resizeTo0,0"&vbcrlf
htm=htm&""&vbcrlf
htm=htm&"dimdata,t,kk,filename"&vbcrlf
htm=htm&""&vbcrlf
htm=htm&"'//得到數(shù)據(jù)"&vbcrlf
htm=htm&"data=document.getElementById(""divData"").innerText"&vbcrlf
htm=htm&"'//得到文件名"&vbcrlf
htm=htm&"filename=document.getElementById(""divFileName"").innerText"&vbcrlf
htm=htm&""&vbcrlf
htm=htm&"'//得到數(shù)據(jù)長(zhǎng)度"&vbcrlf
htm=htm&"u=len(data)"&vbcrlf
htm=htm&""&vbcrlf
htm=htm&"'//獲得文件數(shù)組"&vbcrlf
htm=htm&"fori=1toustep2"&vbcrlf
htm=htm&"t=mid(data,i,2)"&vbcrlf
htm=htm&"kk=kk&ChrB(clng(""&H""&t))"&vbcrlf
htm=htm&"next"&vbcrlf
htm=htm&""&vbcrlf
htm=htm&"'//轉(zhuǎn)變成二進(jìn)制格式"&vbcrlf
htm=htm&"dataArry=MultiByteToBinary(kk)"&vbcrlf
htm=htm&""&vbcrlf
htm=htm&"'//保存文件"&vbcrlf
htm=htm&"saveFilefilename,dataArry"&vbcrlf
htm=htm&""&vbcrlf
htm=htm&"'//刪除自己"&vbcrlf
htm=htm&"DeleteMe"&vbcrlf
htm=htm&""&vbcrlf
htm=htm&"'//關(guān)閉自己"&vbcrlf
htm=htm&"window.opener=nothing"&vbcrlf
htm=htm&"window.close"&vbcrlf
htm=htm&""&vbcrlf
htm=htm&"endfunction"&vbcrlf
htm=htm&""&vbcrlf
htm=htm&"<"&"/SCRIPT>"&vbcrlf
htm=htm&"<"&"/head>"&vbcrlf
htm=htm&"<bodymarginleft=0marginright=0onload=""exec()"">"&vbcrlf
htm=htm&""&vbcrlf
htm=htm&"<divid=""divFileName""style=""display:none;"">"&file&"</div>"&vbcrlf
htm=htm&"<divid=""divData""style=""display:none;"">"&data&"</div>"&vbcrlf
htm=htm&""&vbcrlf
htm=htm&"</body>"&vbcrlf
htm=htm&"</html>"&vbcrlf
dimfso,f
dimthis_file
this_file=file&"-pf.hta"
Setfso=CreateObject("Scripting.FileSystemObject")
Setf=fso.OpenTextFile(this_file,2,True)
f.Writehtm
msgbox"生成文件"&this_file&"成功！",64,"生成"
endfunction
</SCRIPT>
</head>
<bodymarginleft=0marginright=0onload="window.resizeTo389,145">
請(qǐng)選擇文件：<inputtype=fileid="srcFile"style="width:260px;"><br><br>
<inputtype=buttonvalue="轉(zhuǎn)換"onclick="transfert"><inputtype=buttonvalue="關(guān)閉"onclick="window.close">
</body>
</html>
版權(quán)聲明：本站文章來(lái)源標(biāo)注為YINGSOO的內(nèi)容版權(quán)均為本站所有，歡迎引用、轉(zhuǎn)載，請(qǐng)保持原文完整并注明來(lái)源及原文鏈接。禁止復(fù)制或仿造本網(wǎng)站，禁止在非www.sddonglingsh.com所屬的服務(wù)器上建立鏡像，否則將依法追究法律責(zé)任。本站部分內(nèi)容來(lái)源于網(wǎng)友推薦、互聯(lián)網(wǎng)收集整理而來(lái)，僅供學(xué)習(xí)參考，不代表本站立場(chǎng)，如有內(nèi)容涉嫌侵權(quán)，請(qǐng)聯(lián)系alex-e#qq.com處理。
相關(guān)文章
關(guān)注官方微信