标题: [转]any2bat.vbs 任意文件转换成bat，批处理嵌入任意文件 [打印本页]
作者: electronixtar 时间: 2006-5-23 19:35 标题: [转]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 ]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
作者: buddiyar 时间: 2006-7-12 19:38
不懂啊 不过还是收了先
作者: IceCrack 时间: 2006-7-13 07:14
晕乎乎。没有这个扩展。vbs的脚本引擎
作者: lxmxn 时间: 2006-9-13 05:59
老子狂顶，我是群里的Mis-sqm，不服的来单挑！
作者: 9527 时间: 2006-9-13 20:27
我是群里的Mis-sqm ???什么群啊？单挑？？？真厉害
作者: electronixtar 时间: 2006-9-14 00:03
其实呢，这个exe2bat最大的好处是可以把任意文件嵌入到bat批处理里面。运行批处理又会自动生成这些文件。例如，当年我做了杀毒的批处理，就把pskill.exe签入到了bat里面，这样比较简洁。
exe2bat的使用方法：拖文件到 exe2bat.vbs 上，即可在原目录生成一个 xxx.bat。
作者: yiwangzhiren 时间: 2006-9-14 00:59 标题: 太感谢了
收了，太好用了，感激！！！
作者: flying008 时间: 2006-10-22 02:10
狂顶……偶对楼主的佩服犹如滔滔江水连绵不绝……
作者: hellomop 时间: 2006-11-27 22:36
不知道咋用
作者: ccwan 时间: 2006-11-28 02:06
兄弟没看到6楼的话？
作者: kcdsw 时间: 2006-11-28 02:08
不知道这样包含病毒的时候会不会被检测到 ?
作者: lxmxn 时间: 2006-11-28 02:15
| Quote: | |
|
试试不就知道了？如果能避免被杀软kill掉的话，也是个不错的免杀方法，=_+
作者: kcdsw 时间: 2006-11-28 02:35
效率非常非常非常非常的低
作者: redtek 时间: 2006-11-28 03:11
electronixtar兄这个EXE转BTA的代码有意思～：）））
刚才转了几个文图像文件，非常好玩！
作者: lxmxn 时间: 2006-11-28 03:56
效率也不是那低啊。
生成的文件是以tmp为后缀的，建议楼主把生成的文件改成原文件名的后缀。
作者: ccwan 时间: 2006-11-28 04:05
呵呵，刚看完兽血的更新，回来灌一水。关注……
作者: lxmxn 时间: 2006-11-28 06:06
| Quote: | |
|
恐怖，兽血 =_=!!
作者: ciao 时间: 2006-11-28 06:35
看不懂！~` 慢慢看
作者: hxuan999 时间: 2006-11-28 06:40
不了解,我也顶顶,明天回家看病,可怜,这年头活到没钱看个病.是我工资底呀,还是看病高呀.唉,大家研究DOS也别忘记研究研究自己的身体呀.呵呵.祝大家身体健康!
作者: anqing 时间: 2006-11-28 06:47
我转了一个图片为bat，但是运行这个bat，就显示正在使用，打不开呀
？
作者: electronixtar 时间: 2006-11-28 07:45
| Quote: | |
|
你研究过转换出来的bat没有？看看最后几句就知道了
作者: q8q8feng 时间: 2006-11-29 02:00
非常感谢哈 很好用的
作者: echo 时间: 2006-11-29 02:32
不能说ANY吧，我转EXE不行哦
作者: electronixtar 时间: 2006-11-29 06:42
| Quote: | |
|
我不是就转了个 pskill.exe 么？其实原来这个帖子的标题就是 exe2bat
作者: zouzhxi 时间: 2006-11-29 07:31
有点看不懂....呵呵
作者: wgx1688 时间: 2007-4-24 04:23 标题: 郁闷 ~~~
不行啊~~
作者: ghost2008 时间: 2007-9-10 12:25
vbs脚本用起来不是那么稳定，还是BAT好
作者: penghuahui 时间: 2007-9-10 13:01
可以详细的讲解一下吗？
作者: 258692011 时间: 2008-2-19 01:33
没用，我刚才用会鸽子服务端试了看会不会上线，EXE转换成BAT以后再运行不上线
作者: wangzenggogo 时间: 2008-5-30 08:58
不懂不懂
作者: qinbuer 时间: 2008-5-30 11:53
顶个！
作者: qinchun36 时间: 2008-5-31 21:18
作者真TMD厉害啊，收藏先！！
作者: catms 时间: 2008-6-2 14:26
汗，用不成呀
俺把内容内容复制到记事本中并存为.vbs文件
然后把。EXE文件拖到.vbs文件上，提示
20行少END
？？？？？
作者: 84906424 时间: 2008-11-6 22:03
其实还蛮不错的
作者: ucdos12 时间: 2008-11-7 15:09
学习
作者: qwas 时间: 2010-1-28 09:27
学习倒不错，应用起来没什么用
作者: top 时间: 2010-2-9 14:03
所有编译的文件
作者: DosForXp 时间: 2010-2-11 21:54
虽然不懂，但我还是先收下了，谢谢
作者: qmd000 时间: 2010-2-13 20:20
下来看看