感染EXE文件?(200分)

  • 主题发起人 主题发起人 lylyly
  • 开始时间 开始时间
to Jhdandcl:
能给我一份吗?
jackz@telekbird.com.cn
 
to Jhdandcl:
给我一份吧,谢谢
hzscq@sina.com
 
wlwlwlwl@163.net
 
lodgue@sina.com
 
已发出,请查收!
 
Jhdandcl,简单一点.
想文件捆绑器.
 
我也要,zane_sheep@263.net
 
Jhdandcl !
能给我一份吗?
superevon@yahoo.com
 
me ,zxg@cgrs.zgb.com.cn
 
TO lylyly其实已经实现了文件捆绑功能,不过每次只捆绑一个文件而已
,要捆绑多个文件方法一样,稍后再写一个例子给你.

TO lodgue Zane,yuhung, 已发出。
 
本人的大作(源码)
http://guanbh.top263.net/download/exe2.zip
绝对满足你的要求。
感染后连图标也不变。
有详细说明。
 
能否自己给自已写数据???
 
我也想要,doomj@263.net
 
to gbh,
你的文件捆绑起好像不能用亚

Jhdandcl !
源代码能给我一份吗?
ajim@163.com

 
我也要
xhyph@21cn.com
 
我也要,我也做过这样的程序,但想看看你是如何实现的?
lanxix@etang.com
 
老大
你的B程序要执行取出函数才可以的。参考:
Function Cjt_LoadFromFile(SourceFile,TargetFile :string):Boolean;
另外,你还可以取出来后运行,然后立刻删除该取出来的文件。
procedure TForm1.Button1Click(Sender: TObject);
var
hFile:THandle;
begin
hFile := CreateFile('a.exe',GENERIC_READ,FILE_SHARE_READ,nil,OPEN_EXISTING,FILE_FLAG_DELETE_ON_CLOSE,0);
WinExec('a.exe',SW_SHOW);
CloseHandle(hFile);
end;
运行程序,点击按钮,然后你会发现a.exe在硬盘上消失了,但是a.exe还在运行procedure TForm1.Button1Click(Sender: TObject);
 
没有消失呀。
 
Oh
我的操作系统是WIN2K,绝对是可以的啊,98没有安装.
另外,不能在DELPHI环境下运行该程序来操作,因为可能有文件锁定.
 
sun-song@163.net
谢了
 
后退
顶部