— — 百分求助：如何从exe中生成另一个exe ! —

yunok 2004-04-26 09:12:00

近日写了一个木马，当用户在客户端配置好mail等其他信息的时候，我需要把这些信息传递到程序中，并生成为一个新的exe文件。所有的功能都做好了，但是只有这个从exe中生成另一个exe的问题无法解决，我搜索了其他相关帖子。未能得到答案。恳请各位仁兄不吝指教思路或代码，百分相赠，感激不尽。谢谢。

...全文

78 24 打赏收藏转发到动态举报

写回复

用AI写文章

24 条回复

切换为时间正序

请发表友善的回复…

发表回复

douhapy 2004-04-26

打赏
举报

我曾经给朋友写过一个在线升级的程序，类似于瑞星的在线升级，具体思路是这样：
写两个程序，一个是主程序；一个是升级程序；
说明：所有升级任务都由升级程序完成。

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格式文件。也不知如何读取其他文件的尾部信息。

请您指教。

nik_Amis 2004-04-26

打赏
举报

你把那些信息添加到一个系统文件的尾部，然后释放一个exe
去读这个文件不行么？为什么非要编译生成一个新的exe?

yunok 2004-04-26

打赏
举报

dongge2000(秋日私语)兄：
你提供的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分真的是没办法送了。：（

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写的

yunok 2004-04-26