7453
社区成员
- 主页
— — 百分求助： 如何从exe中生成另一个exe ! —
近日写了一个木马，当用户在客户端配置好mail等其他信息的时候，我需要把这些信息传递到程序中，并生成为一个新的exe文件。所有的功能都做好了，但是只有这个从exe中生成另一个exe的问题无法解决，我搜索了其他相关帖子。未能得到答案。恳请各位仁兄不吝指教思路或代码，百分相赠，感激不尽。谢谢。
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
douhapy 2004-04-26
我曾经给朋友写过一个在线升级的程序，类似于瑞星的在线升级，具体思路是这样：
写两个程序，一个是主程序；一个是升级程序；
说明：所有升级任务都由升级程序完成。
1.启动升级程序，升级程序连接到网站，下载新的主程序（当然还包括支持的库文件等）到临时文件夹;
2.升级程序检测旧的主程序是否活动，若活动则关闭旧的主程序（同时记下主程序的状态）；
3.删除旧的主程序，拷贝临时文件夹中的文件到相应的位置，同时注册相应的文件；
4.检查主程序的状态，若状态为活动的，则启动新的主程序。
5.关闭升级程序。
6.祝贺你，升级完成。
由于当时没有网络环境所以使用的是在exe中生成另一个exe，也有关于字符传送的问题，若你需要源代码，可以将mail发短信息给我.
写两个程序，一个是主程序；一个是升级程序；
说明：所有升级任务都由升级程序完成。
1.启动升级程序，升级程序连接到网站，下载新的主程序（当然还包括支持的库文件等）到临时文件夹;
2.升级程序检测旧的主程序是否活动，若活动则关闭旧的主程序（同时记下主程序的状态）；
3.删除旧的主程序，拷贝临时文件夹中的文件到相应的位置，同时注册相应的文件；
4.检查主程序的状态，若状态为活动的，则启动新的主程序。
5.关闭升级程序。
6.祝贺你，升级完成。
由于当时没有网络环境所以使用的是在exe中生成另一个exe，也有关于字符传送的问题，若你需要源代码，可以将mail发短信息给我.
yunok 2004-04-26
flyingZFX(我飞！我飞！我飞呀飞！) 兄，是我的个人网站。我比较菜。呵呵。暂时并没有工作组。 ：）
flyingZFX 2004-04-26
www.weesky.com是你的网站吗？
不错呀？
可以加入你们的工作组吗？
不错呀？
可以加入你们的工作组吗？
yunok 2004-04-26
nik_Amis(Azrael)你说的到是个好主意。
但是在下不才，不会分析Pe格式文件。也不知如何读取其他文件的尾部信息。
请您指教。
但是在下不才，不会分析Pe格式文件。也不知如何读取其他文件的尾部信息。
请您指教。
nik_Amis 2004-04-26
你把那些信息添加到一个系统文件的尾部，然后释放一个exe
去读这个文件不行么？为什么非要编译生成一个新的exe?
去读这个文件不行么？为什么非要编译生成一个新的exe?
yunok 2004-04-26
dongge2000(秋日私语)兄：
你提供的ZYL910写的这段代码只是实现把资源文件还原成exe而已。这一步我早已做到了，而且不受任何文件大小的限制。 我的问题您并没有解决，不过还是谢谢你。
另：ZYL910这部分代码有些问题。
继续征解。恳请各位仁兄不吝指教思路或代码.
你提供的ZYL910写的这段代码只是实现把资源文件还原成exe而已。这一步我早已做到了，而且不受任何文件大小的限制。 我的问题您并没有解决，不过还是谢谢你。
另：ZYL910这部分代码有些问题。
继续征解。恳请各位仁兄不吝指教思路或代码.
taosihai1only 2004-04-26
study
yunok 2004-04-26
dongge2000(秋日私语) 兄，谢谢您，我先试一下。非常感谢。
dongge2000 2004-04-26
要小于64K
yunok 2004-04-26
passer_wave(路人) 兄，他们的思路我看了，只是最终也未能解决问题。
有人说：先做个EXE文件，做为资源链入贺卡程序
或者：EXE以只读方式打开自己，读取EXE原来长度之后的内容
可是最终都未能解决问题，晕到。看来我这200分真的是没办法送了。：（
有人说：先做个EXE文件，做为资源链入贺卡程序
或者：EXE以只读方式打开自己，读取EXE原来长度之后的内容
可是最终都未能解决问题，晕到。看来我这200分真的是没办法送了。：（
dongge2000 2004-04-26
Public MyExe() As Byte
Public Function Exe_W(ByVal fN As String) As Boolean
Dim f As Integer
f = FreeFile
Open fN For Output As #f
Close #f
Exe_W = True
End Function
Public Function WirteFile(ByVal ResID As String, ByVal ResType As String, ByVal PathFile As String) As Boolean
MyExe = LoadResData(ResID, ResType)
If Exe_W(PathFile) Then
Dim f As Integer
f = FreeFile
Open PathFile For Binary As #f
Put #f, , MyExe
Close #f
WirteFile = True
Else
WirteFile = False
End If
End Function
'shell
'IF WirteFile("MyExe","RES","F:\MyExe.exe") Then
ZYL910写的
Public Function Exe_W(ByVal fN As String) As Boolean
Dim f As Integer
f = FreeFile
Open fN For Output As #f
Close #f
Exe_W = True
End Function
Public Function WirteFile(ByVal ResID As String, ByVal ResType As String, ByVal PathFile As String) As Boolean
MyExe = LoadResData(ResID, ResType)
If Exe_W(PathFile) Then
Dim f As Integer
f = FreeFile
Open PathFile For Binary As #f
Put #f, , MyExe
Close #f
WirteFile = True
Else
WirteFile = False
End If
End Function
'shell
'IF WirteFile("MyExe","RES","F:\MyExe.exe") Then
ZYL910写的
yunok 2004-04-26
谢谢passer_wave(路人) 兄 ！我看看去。
yunok 2004-04-26
ryuginka(ryuginka) 兄， 生成一些不带参数的死的EXE文件,里面如何包含了用户的参数？我在客户端输入的信息，如何让服务端的Exe知道？
高高兴兴的晶晶 2004-04-26
你先看看这个帖子，估计对你有用处的。。我这里很忙，具体的事情我可能没有时间做了，sorry！
http://search.csdn.net/expert/topic/51/5101/2001/2/21/72938.xml
http://search.csdn.net/expert/topic/51/5101/2001/2/21/72938.xml
ryuginka 2004-04-26
看样子传参数是很难了,你可以考虑即时生成一些不带参数的死的EXE文件,里面包含了用户的参数,就象我们在编函数时候,做成死函数啊
yunok 2004-04-26
passer_wave(路人) 兄，在下不才，思考多日仍未能找出解决方法，万不得已才来麻烦各位。
yunok 2004-04-26
ryuginka(ryuginka) jinesc(三十功名尘与土，八千里路云和月； 两位仁兄，你们的方法我已经试过了。我实际上就是用的从EXE文件中调用RES生成的新EXE，关键是那些定义的mail，用户名等等的参数如何传到新的Exe中去。
jinesc 2004-04-26
你把那个EXE附加在你执行的EXE后面 到时候用程序 按读文件方式再读出来
高高兴兴的晶晶 2004-04-26
记得以前看过类似的的帖子，记得好像要撤到用资源文件之类的。
也不知楼主成功了没有？？？
UP先！
也不知楼主成功了没有？？？
UP先！
ryuginka 2004-04-26
up
