Campur Aduk File .Exe

Disini saya akan memaparkan bagaimana cara sederhana untuk mencampur adukkan 2 atau lebih file EXE menjadi satu dengan delphi. mungkin cara ini bisa dikatakan sebagai simulasi sederhana bagimana sebuah virus menginfeksi file lainnya tentu saja dengan pengembangan lebih lanjut (mis: penambahan signature pada tengah2 offset, dll) cara ini hanya menumpuk program korban dengan target dimana target akan dijadikan sebagai layer utama, berikut ini adalah screenshot daripada program tersebut :

kode untuk button yang captionnya “GABUNGKAN” adalah sebagai berikut :

procedure TForm1.Button1Click(Sender: TObject);
var fsIn: TFileStream;
fsOut: TFileStream;
src,target: string;
i: integer;
begin
try
if not(FileExists(Label1.Caption)) then
begin
ShowMessage(‘Tentukan dulu ya file utamanya…’);
exit;
end;

target:=Label1.Caption;
CopyFile(PChar(target),PChar(target + ‘.BACKUP’),false);

for i := 0 to ListBox1.Items.Count – 1 do
begin
if i = ListBox1.itemIndex then continue;

src:=ListBox1.Items.Strings[i];
fsIn:=TFileStream.Create(src,fmOpenRead);
fsOut:=TFileStream.Create(target,fmOpenRead or fmOpenWrite);

try
fsOut.Position:=fsOut.Size;
fsOut.CopyFrom(fsIn,fsIn.Size)
finally
fsIn.Free;
fsOut.Free;
end;
end;

Application.MessageBox(PChar(‘Penimpaan file berhasil dan diletakkan pada object utama :’ + #13 + #13 + Label1.Caption + #13 + #13 + ‘Backup file = ‘ + target + ‘.BACKUP’ + #13 + #13 + ‘Untuk melihat efeknya, amati perbedaan ukuran antara file hasil dengan file backup’),’Informasi’,MB_OK or MB_ICONINFORMATION )
except
Application.MessageBox(‘Gagal menggabungan File’,'Peringatan’,MB_OK or MB_ICONERROR);
end;
end;

kalo pingin lebih mudah, ini aq sedian hasil jadi + source codenya. silahkan donlot disini