#Delphi: Self Copy Application

30 12 2009

Program sederhana ini terdiri dari sebuah form dan sebuah button. Bila button di klik, maka program tersebut akan mereplikasikan dirinya sendiri ke tempat / path / directory lain (yang sudah kita tentukan di source code). Efek negatifnya bisa diterapkan pada kode jahat yang bersifat merusak seperti “virus”. Tulisan sederhana ini hanya sebagai pengetahuan semata.

Source Code :

procedure TForm1.Button1Click(Sender: TObject);
const
newName = 'C:\namaaplikasi.exe';
begin
copyfile(PChar(application.exename), PChar(newName), false);
end;

Program ini akan menggandakan dirinya ke drive C:/ dengan nama “namaaplikasi.exe”

Reff: google


Actions

Information

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s




%d bloggers like this: