[文件操作] 怎样把文件转换成批处理,通过运行批处理可以还原的那种?

@echo off&setlocal enabledelayedexpansion
del "%~1.part*.txt" >nul 2<&1
set n=0
(for %%a in ("%~1") do for /l %%b in (1 0x3030 %%~za) do (
        set /a n+=1
        encode.com>"%~1.part!n!.txt"
))<"%~1"
pause
复制代码

@echo off&setlocal enabledelayedexpansion

@(echo RQPUWP]UZV_BBBB5``PY(E1(E5^)E7^)E^<(E@^)EI-
echo SX3CP^< ~v^<P}k%%ooQRY2AY0@ uP0EPGEB?_]XYZ
echo K43OK9007089LJLM21723083L2502M500089M689
echo M789L131NMJM4N3L207N133L507M0M4649250O0O
echo 51K104M2N030N059JJ45N2N589N9K44043LM21L3)>"DECODE.com"

for %%a in ("%~n1") do set "filename=%%~na"
set n=0
(for %%a in ("!filename!.part*.txt") do (
        set /a n+=1
        decode.com<"!filename!.part!n!.txt"
))>"!filename!"
pause
复制代码

certutil -encode bin.txt Encode.txt
复制代码

certutil -decode Encode.txt Decode.txt
复制代码

On Error Resume Next
srcFile = "F:\壁纸\WallPaper.jpg"
dstFile = "f:\dst.vbs"

with CreateObject("ADODB.Stream")
        .Type = 1
        .Mode = 3
        .Open
        .LoadFromFile srcFile
        Bin = .Read
End With

Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(dstFile, 2, True)
ext = fso.GetExtensionName(srcFile)

f.WriteLine "ss=_"

For i = 1 to lenB(Bin) Step 500
        f.WriteLine """" & Bin2Str(midB(Bin, i, 500)) & """&_"
Next

f.WriteLine """"":L=Len(ss)/2" & vbCrLf
f.WriteLine "Set rs=CreateObject(""ADODB.Recordset""):rs.Fields.Append ""m"",205,L:rs.Open:rs.AddNew:rs(""m"")=ss&ChrB(0):rs.Update"
f.WriteLine "with CreateObject(""ADODB.Stream""):.Mode=3:.Type=1:.Open:.Write rs(""m"").GetChunk(L):.SaveToFile ""_New."&ext&""",2:End with"

Function Bin2Str(b)
        For j = 1 to lenB(b)
                s = AscB(MidB(b, j, 1))
                Bin2Str = Bin2Str & Right("0" & Hex(s), 2)
        Next
End Function
复制代码