any2bat.vbs 任意文件转换成bat，批处理嵌入任意文件 - 中国DOS联盟论坛

2006-11-27 更新：这是个老帖子了，没想到大家现在突然对这个技术感兴趣，其实这是 zzzevazzz 在《Do All in CMD Shell》里的一个例子而已，方法是用 vbs+debug做的，其实这个理论模型不如批处理的BASE64先进，所以大家拿这个来学习就是了，不要再问使用方面的问题了。总结下问题，那就是这个vbs算法不好，速度太慢，还有对Unicode编码方面有很多问题。

作为上传用


fp=wscript.arguments(0)
fn=right(fp,len(fp)-instrrev(fp,"\"))
with createobject("adodb.stream")
.type=1:.open:.loadfromfile fp:str=.read:sl=lenb(str)
end with
sll=sl mod 65536:slh=sl536
with createobject("scripting.filesystemobject").opentextfile(fp&".bat",2,true)
.write "@echo str="""
for i=1 to sl
bt=ascb(midb(str,i,1))
if bt<16 then .write "0"
.write hex(bt)
if i mod 128=0 then .write """_>>debug.vbs"+vbcrlf+"@echo +"""
next
.writeline """>>debug.vbs"+vbcrlf+"@echo with wscript.stdout:r=vbcrlf"_
+":for i=1 to len(str) step 48:.write ""e""+hex(256+(i-1)/2)"_
+":for j=i to i+46 step 2:.write "" ""+mid(str,j,2):next:.write r:next>>debug.vbs"
.writeline "@echo .write ""rbx""+r+"""+hex(slh)+"""+r+""rcx""+r+"""+hex(sll)_
+"""+r+""n debug.tmp""+r+""w""+r+""q""+r:end with"_
+">>debug.vbs&&cscript //nologo debug.vbs|debug.exe>nul&&ren debug.tmp """&fn&"""&del debug.vbs"
end with

[ Last edited by electronixtar on 2006-11-28 at 07:46 AM ]

不懂啊不过还是收了先

晕乎乎。没有这个扩展。vbs的脚本引擎

老子狂顶，我是群里的Mis-sqm，不服的来单挑！

我是群里的Mis-sqm ???什么群啊？单挑？？？真厉害

其实呢，这个exe2bat最大的好处是可以把任意文件嵌入到bat批处理里面。运行批处理又会自动生成这些文件。例如，当年我做了杀毒的批处理，就把pskill.exe签入到了bat里面，这样比较简洁。

exe2bat的使用方法：拖文件到 exe2bat.vbs 上，即可在原目录生成一个 xxx.bat。

收了，太好用了，感激！！！

狂顶……偶对楼主的佩服犹如滔滔江水连绵不绝……

兄弟没看到6楼的话？

不知道这样包含病毒的时候会不会被检测到 ?

Originally posted by kcdsw at 2006-11-28 02:08:
不知道这样包含病毒的时候会不会被检测到 ?

　　试试不就知道了？如果能避免被杀软kill掉的话，也是个不错的免杀方法，=_+

效率非常非常非常非常的低

electronixtar兄这个EXE转BTA的代码有意思～：）））
刚才转了几个文图像文件，非常好玩！

　　效率也不是那低啊。

　　生成的文件是以tmp为后缀的，建议楼主把生成的文件改成原文件名的后缀。

第1楼　electronixtar	发表于 2006-05-23 19:35
铂金会员　发帖 2,672　积分 7,493
[转]any2bat.vbs 任意文件转换成bat，批处理嵌入任意文件 2006-11-27 更新：这是个老帖子了，没想到大家现在突然对这个技术感兴趣，其实这是 zzzevazzz 在《Do All in CMD Shell》里的一个例子而已，方法是用 vbs+debug做的，其实这个理论模型不如批处理的BASE64先进，所以大家拿这个来学习就是了，不要再问使用方面的问题了。总结下问题，那就是这个vbs算法不好，速度太慢，还有对Unicode编码方面有很多问题。作为上传用 fp=wscript.arguments(0) fn=right(fp,len(fp)-instrrev(fp,"\")) with createobject("adodb.stream") .type=1:.open:.loadfromfile fp:str=.read:sl=lenb(str) end with sll=sl mod 65536:slh=sl536 with createobject("scripting.filesystemobject").opentextfile(fp&".bat",2,true) .write "@echo str=""" for i=1 to sl bt=ascb(midb(str,i,1)) if bt<16 then .write "0" .write hex(bt) if i mod 128=0 then .write """_>>debug.vbs"+vbcrlf+"@echo +""" next .writeline """>>debug.vbs"+vbcrlf+"@echo with wscript.stdout:r=vbcrlf"_ +":for i=1 to len(str) step 48:.write ""e""+hex(256+(i-1)/2)"_ +":for j=i to i+46 step 2:.write "" ""+mid(str,j,2):next:.write r:next>>debug.vbs" .writeline "@echo .write ""rbx""+r+"""+hex(slh)+"""+r+""rcx""+r+"""+hex(sll)_ +"""+r+""n debug.tmp""+r+""w""+r+""q""+r:end with"_ +">>debug.vbs&&cscript //nologo debug.vbs\|debug.exe>nul&&ren debug.tmp """&fn&"""&del debug.vbs" end with [ Last edited by electronixtar on 2006-11-28 at 07:46 AM ]

第2楼　buddiyar	发表于 2006-07-12 19:38
初级用户　发帖 75　积分 160
不懂啊不过还是收了先

第3楼　IceCrack	发表于 2006-07-13 07:14
中级用户　发帖 168　积分 332　来自天涯
晕乎乎。没有这个扩展。vbs的脚本引擎

第4楼　lxmxn	发表于 2006-09-13 05:59
版主　发帖 4,938　积分 11,386
老子狂顶，我是群里的Mis-sqm，不服的来单挑！

第5楼　9527	发表于 2006-09-13 20:27
银牌会员　发帖 438　积分 1,185　来自北京
我是群里的Mis-sqm ???什么群啊？单挑？？？真厉害

第6楼　electronixtar	发表于 2006-09-14 00:03
铂金会员　发帖 2,672　积分 7,493
其实呢，这个exe2bat最大的好处是可以把任意文件嵌入到bat批处理里面。运行批处理又会自动生成这些文件。例如，当年我做了杀毒的批处理，就把pskill.exe签入到了bat里面，这样比较简洁。 exe2bat的使用方法：拖文件到 exe2bat.vbs 上，即可在原目录生成一个 xxx.bat。

第7楼　yiwangzhiren	发表于 2006-09-14 00:59
新手上路　发帖 4　积分 12
太感谢了收了，太好用了，感激！！！

第8楼　flying008	发表于 2006-10-22 02:10
中级用户　发帖 103　积分 245
狂顶……偶对楼主的佩服犹如滔滔江水连绵不绝……

第9楼　hellomop	发表于 2006-11-27 22:36
初级用户　发帖 10　积分 20
不知道咋用

第10楼　ccwan	发表于 2006-11-28 02:06
金牌会员　发帖 1,160　积分 2,725　来自河北廊坊
兄弟没看到6楼的话？

第11楼　kcdsw	发表于 2006-11-28 02:08
中级用户　发帖 179　积分 404
不知道这样包含病毒的时候会不会被检测到 ?

第12楼　lxmxn	发表于 2006-11-28 02:15
版主　发帖 4,938　积分 11,386
Originally posted by kcdsw at 2006-11-28 02:08: 不知道这样包含病毒的时候会不会被检测到 ? 　　试试不就知道了？如果能避免被杀软kill掉的话，也是个不错的免杀方法，=_+

第13楼　kcdsw	发表于 2006-11-28 02:35
中级用户　发帖 179　积分 404
效率非常非常非常非常的低

第14楼　redtek	发表于 2006-11-28 03:11
金牌会员　发帖 1,147　积分 2,902
electronixtar兄这个EXE转BTA的代码有意思～：）））刚才转了几个文图像文件，非常好玩！

第15楼　lxmxn	发表于 2006-11-28 03:56
版主　发帖 4,938　积分 11,386
效率也不是那低啊。　　生成的文件是以tmp为后缀的，建议楼主把生成的文件改成原文件名的后缀。