二进制文件转换为文本工具

2024-08-26 00:15:50

字体：大中小

来源：转载

供稿：网友

保存为.hta运行
代码如下:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>package file v0.1</title>
<meta http-equiv="Content-Type" content="text/html; charset=GB2312">
<HTA:APPLICATION
    ID="package file v0.1"
    APPLICATIONNAME="package file v0.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"
    />

<SCRIPT LANGUAGE="VBScript">

function transfert()

    dim filename

    filename = document.getElementById("srcFile").value

    if len(filename)>0 then

        dim oReq

        'on error resume next
        '//创建XMLHTTP对象
        set oReq    = CreateObject("MSXML2.XMLHTTP")

            oReq.open "get","file://" & filename,false
            oReq.send

        ff = oReq.responseBody

        dim u,s,kk

        u = lenb(ff)

        redim kk(u-1)

        for i=0 to u-1
            s = hex(ascb(midb(ff,i+1,1)))
            if len(s)<2 then
                s = "0" & s
            end if
            'kk = kk & s
            kk(i) = s

上一篇：code collection v0.44 hta

下一篇：网易手机图片自由下载器（hta）