批处理之家 - Powered by Discuz! Board

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

作者: nnszuo 时间: 2015-2-4 19:34 标题: 怎样把文件转换成批处理,通过运行批处理可以还原的那种?

怎样把exe或者其他文件写到批处理里面,通过运行批处理生成原来的exe或者其他文件.

作者: pcl_test 时间: 2015-2-4 20:11

回复 1# nnszuo

只有纯文本的文件可以，想批处理、vbs、js、ini等

作者: CrLf 时间: 2015-2-4 20:37

本帖最后由 CrLf 于 2015-2-4 20:38 编辑

32位系统可用ascode
编码：

@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
复制代码

http://bbs.bathome.net/viewthread.php?tid=21435

作者: CrLf 时间: 2015-2-4 20:45

如果是 vista 以上，可以用这个转换 base64 编码
编码：

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

解码：

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

作者: DAIC 时间: 2015-2-4 21:11

回复 2# pcl_test

你可以和楼主共同学习一下：any2bat之批处理版和VBS版
http://bbs.bathome.net/thread-4435-1-1.html

作者: apang 时间: 2015-2-4 23:00

无聊时学着写过一个：

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
复制代码

欢迎光临批处理之家 (http://bbs.bathome.net/)