Dampak Positif dan Negatif Facebook

Facebook, mungkin sudah tidak asing lagi bagi sebagian besar orang. Ya, facebook adalah salah satu situs jejaring sosial yang sangat digemari masyarakat saat ini. Mulai dari anak - anak sampai orang tua, siswa sampai mahasiswa, tukang bakso sampai direktur utama, pedangang kecil sampai pengusaha, dan sebagainya. Dan sudah sewajarnya, setiap teknologi baru, apapun bentuknya, pasti mempunyai dampak positif dan negatif. Begitu juga dengan facebook, punya dampak positif dan negatif juga. Berikut ini beberapa dampak positif dan negatif dari penggunaan facebook:


Dampak Positif :
Mempererat silaturahmi
Ya, mungkin ini adalah kegunaan dari facebook yang paling bisa kita rasakan. Bahkan dengan facebook, kita bisa menemukan kembali orang - orang yang pernah kita kenal di masa lalu.

Mengetahui potensi diri
Dalam facebook banyak terdapat kuis yang bermanfaat untuk mengetahui lebih banyak tentang siapa sih kita sebenarnya. Namun, kita juga harus tetap waspada, sebagian kuis yang terdapat dalam facebook mengandung unsur - unsur ramalan, dan sudah tentu anda paham bahwa percaya pada ramalan merupakan sebuah kesyirikan, dosa besar yang tidak akan diampuni oleh Allah ta'ala :D.

Media promosi
Jelas, facebook bisa digunakan sebagai media promosi, entah itu mempromosikan produk, jasa, instansi, atau hal lain. Bahkan, pada saat pemilu legislatif kemarin, sebagian caleg juga menggunakan facebook untuk media kampanyenya.

Sarana diskusi
Di facebook kita bisa bergabung dengan berbagai komunitas / grup.

Tempat curhat
Hmmm, yang ini mungkin bisa juga, kalau kita lagi dapet masalah, kita tinggal mengupdate status facebook kita dengan masalah yang sedang kita hadapi, ntar kalau ada orang yang peduli, pasti orang tersebut bakal memberi komen yang isinya mungkin cuma sekedar memberi semangat atau bahkan memberikan alternatif untuk menyelesaikan masalah. Tapi tempat curhat terbaik tetap, Allah swt, yang bisa menunjukkan jalan keluar atas setiap masalah yang kita hadapi. Betul ??? hehe.

Melihat perkembangan yang begitu pesat dari facebook. Terdapat beberapa dampak negatif (tidak sehat) yang melanda facebookmania dan jejaring sosial sekitarnya. Menurut saya dampak negatif ( tidak sehat ) dari facebook tersebut sebagai berikut :

1. Banyak waktu yang terbuang sia-sia dan tidak bermanfaat.
2. Penurunan produktifitas dalam bekerja ( yang jadi prioritas adalah facebook dulu ).
3. Berkurangnya silaturahmi di dunia nyata.
4. Dapat memicu pergaulan bebas yang tanpa batas. Terbuka peluang selingkuh heheheh……..
5. Menjadi faktor resiko penyakit degeneratif, seperti jantung, kanker, stroke. Karena kurang geraknya anggota tubuh.
6. Beresiko terjadinya beberapa penyakit fisik karena terlalu lama duduk dan memegang mouse. Seperti sakit punggung, nyeri sendi.
7. Anda juga kekurangan waktu tidur. Kehilangan waktu tidur dalam waktu lama dapat menyebabkan kantuk berkepanjangan, sulit berkonsentrasi, dan depresi dari sistem kekebalan.

Sumber : mengutip dari berbagai literatur.
Read More..

VIRUS Komputer

Saat Ini, pastilah kita semua selaku konsumen/pengguna jasa komputer dan jaringan ( internet ) sudah sangat sering mendengar istilah ‘virus’ yang terkadang meresahkan kita. Tulisan ini akan mengupas lebih jauh mengenai virus, yang nantinya diharapkan dapat membuat kita semua mengerti dan memahami tentang virus.

A.ASAL MUASAL VIRUS

1949, John Von Neuman, menggungkapkan " teori self altering automata "
yang merupakan hasil riset dari para ahli matematika.

1960, lab BELL (AT&T), para ahli di lab BELL (AT&T) mencoba-coba teori
yang diungkapkan oleh john v neuman, mereka bermain-main dengan teori
tersebut untuk suatu jenis permainan/game. Para ahli tersebut membuat
program yang dapat memperbanyak dirinya dan dapat menghancurkan program
buatan lawan.Program yang mampu bertahan dan menghancurkan semua program
lain, maka akan dianggap sebagai pemenangnya. Permainan ini akhirnya
menjadi permainan favorit ditiap-tiap lab komputer.semakin lama mereka
pun sadar dan mulai mewaspadai permainan ini dikarenakan program yang
diciptakan makin lama makin berbahaya, sehingga mereka melakukan
pengawasan dan pengamanan yang ketat.

1980, program tersebut yang akhirnya dikenal dengan nama "virus" ini
berhasil menyebar diluar lingkungan laboratorium, dan mulai beredar di
dunia cyber.

1980, mulailah dikenal virus-virus yang menyebar di dunia cyber.

B.PENGERTIAN VIRUS

" A program that can infect other programs by modifying them to include
a slighty altered copy of itself.A virus can spread throughout a computer
system or network using the authorization of every user using it to
infect their programs. Every programs that gets infected can also act as
a virus that infection grows “
( Fred Cohen )

Pertama kali istilah “virus” digunakan oleh Fred Cohen pada tahun 1984 di
Amerika Serikat. Virus komputer dinamakan “Virus” karena memiliki beberapa
persamaan mendasar dengan virus pada istilah kedokteran(biological viruses).

Virus komputer bisa diartikan sebagai suatu program komputer biasa.Tetapi
memiliki perbedaan yang mendasar dengan program-program lainnya,yaitu
virus dibuat untuk menulari program-program lainnya, mengubah,
memanipulasinya bahkan sampai merusaknya. Ada yang perlu dicatat disini,
virus hanya akan menulari apabila program pemicu atau program yang telah
terinfeksi tadi dieksekusi, disinilah perbedaannya dengan "worm". Tulisan
ini tidak akan bahas worm karena nanti akan mengalihkan kita dari
pembahasan mengenai virus ini.

C.KRITERIA VIRUS

Suatu program yang disebut virus baru dapat dikatakan adalah benar benar
virus apabila minimal memiliki 5 kriteria :

1. Kemampuan suatu virus untuk mendapatkan informasi
2. Kemampuannya untuk memeriksa suatu program
3. Kemampuannya untuk menggandakan diri dan menularkan
4. Kemampuannya melakukan manipulasi
5. Kemampuannya untuk menyembunyikan diri.

Sekarang akan coba dijelaskan dengan singkat apa yang dimaksud dari tiap
-tiap kemampuan itu dan mengapa ini sangat diperlukan.

1.Kemampuan untuk mendapatkan informasi

Pada umumnya suatu virus memerlukan daftar nama-nama file yang ada dalam
suatu directory, untuk apa? agar dia dapat mengenali program program apa
saja yang akan dia tulari,semisal virus makro yang akan menginfeksi semua
file berekstensi *.doc setelah virus itu menemukannya, disinilah kemampuan
mengumpulkan informasi itu diperlukan agar virus dapat membuat daftar/
data semua file, terus memilahnya dengan mencari file-file yang bisa
ditulari.Biasanya data ini tercipta saat program yang tertular/terinfeksi
atau bahkan program virus ini dieksekusi. Sang virus akan segera melakukan
pengumpulan data dan menaruhnya di RAM (biasanya :P ) , sehingga apabila
komputer dimatikan semua data hilang tetapi akan tercipta setiap program
bervirus dijalankan dan biasanya dibuat sebagai hidden file oleh virus .

2.Kemampuan memeriksa suat program

Suatu virus juga harus bias untuk memeriksa suatu program yang akan
ditulari, misalnya ia bertugas menulari program berekstensi *.doc, dia
harus memeriksa apakah file dokumen ini telah terinfeksi ataupun belum,
karena jika sudah maka dia akan percuma menularinya 2 kali. Ini sangat
berguna untuk meningkatkan kemampuan suatu virus dalam hal kecepatan
menginfeksi suatu file/program.Yang umum dilakukan oleh virus adalah
memiliki/ memberi tanda pada file/program yang telah terinfeksi
sehingga mudah untuk dikenali oleh virus tersebut . Contoh penandaan
adalah misalnya memberikan suatu byte yang unik disetiap file yang
telah terinfeksi.

3.Kemampuan untuk menggandakan diri

Kalo ini emang virus "bang-get", maksudnya tanpa ini tak adalah virus.
Inti dari virus adalah kemampuan mengandakan diri dengan cara menulari
program lainnya. Suatu virus apabila telah menemukan calon korbannya
(baik file atau program) maka ia akan mengenalinya dengan memeriksanya,
jika belum terinfeksi maka sang virus akan memulai aksinya untuk menulari
dengan cara menuliskan byte pengenal pada program/ file tersebut,dan
seterusnya mengcopikan/menulis kode objek virus diatas file/program
yang diinfeksi. Beberapa cara umum yang dilakukan oleh virus untuk
menulari/ menggandakan dirinya adalah:

a.File/Program yang akan ditulari dihapus atau diubah namanya. kemudian
diciptakan suatu file menggunakan nama itu dengan menggunakan virus
tersebut (maksudnya virus mengganti namanya dengan nama file yang dihapus)
b.Program virus yang sudah di eksekusi/load ke memori akan langsung
menulari file-file lain dengan cara menumpangi seluruh file/program
yang ada.

4.Kemampuan mengadakan manipulasi

Rutin (routine) yang dimiliki suatu virus akan dijalankan setelah virus
menulari suatu file/program. isi dari suatu rutin ini dapat beragam
mulai dari yang teringan sampai pengrusakan. rutin ini umumnya digunakan
untuk memanipulasi program ataupun mempopulerkan pembuatnya! Rutin ini
memanfaatkan kemampuan dari suatu sistem operasi (Operating System) ,
sehingga memiliki kemampuan yang sama dengan yang dimiliki sistem
operasi. misal:

a.Membuat gambar atau pesan pada monitor
b.Mengganti/mengubah ubah label dari tiap file,direktori,atau label dari
drive di pc
c.Memanipulasi program/file yang ditulari
d.Merusak program/file
e.Mengacaukan kerja printer , dsb

5.Kemampuan Menyembunyikan diri

Kemampuan Menyembunyikan diri ini harus dimiliki oleh suatu virus agar semua
pekerjaan baik dari awal sampai berhasilnya penularan dapat terlaksana.
langkah langkah yang biasa dilakukan adalah:

-Program asli/virus disimpan dalam bentuk kode mesin dan digabung dengan
program lain yang dianggap berguna oleh pemakai.
-Program virus diletakkan pada Boot Record atau track yang jarang
diperhatikan oleh komputer itu sendiri
-Program virus dibuat sependek mungkin, dan hasil file yang diinfeksi tidak
berubah ukurannya
-Virus tidak mengubah keterangan waktu suatu file
-dll


D.SIKLUS HIDUP VIRUS

Siklus hidup virus secara umum, melalui 4 tahap:

o Dormant phase ( Fase Istirahat/Tidur )
Pada fase ini virus tidaklah aktif. Virus akan diaktifkan oleh suatu kondisi
tertentu, semisal:tanggal yang ditentukan,kehadiran program lain/dieksekusinya
program lain, dsb. Tidak semua virus melalui fase ini

o Propagation phase ( Fase Penyebaran )
Pada fase ini virus akan mengkopikan dirinya kepada suatu program atau
ke suatu tempat dari media storage (baik hardisk, ram dsb). Setiap
program yang terinfeksi akan menjadi hasil “klonning” virus tersebut
(tergantung cara virus tersebut menginfeksinya)

o Trigerring phase ( Fase Aktif )
Di fase ini virus tersebut akan aktif dan hal ini juga di picu oleh beberapa
kondisi seperti pada Dormant phase

o Execution phase ( Fase Eksekusi )
Pada Fase inilah virus yang telah aktif tadi akan melakukan fungsinya.
Seperti menghapus file, menampilkan pesan-pesan, dsb


E.JENIS – JENIS VIRUS

Untuk lebih mempertajam pengetahuan kita tentang virus, Aku akan coba
memberikan penjelasan tentang jenis-jenis virus yang sering berkeliaran
di dunia cyber.

1.Virus Makro
Jenis Virus ini pasti sudah sangat sering kita dengar.Virus ini ditulis
dengan bahasa pemrograman dari suatu aplikasi bukan dengan bahasa
pemrograman dari suatu Operating System. Virus ini dapat berjalan apabila
aplikasi pembentuknya dapat berjalan dengan baik, maksudnya jika pada
komputer mac dapat menjalankan aplikasi word maka virus ini bekerja pada
komputer bersistem operasi Mac.
contoh virus:

-variant W97M, misal W97M.Panther
panjang 1234 bytes,
akanmenginfeksi NORMAL.DOT dan menginfeksi dokumen apabila dibuka.
-WM.Twno.A;TW
panjang 41984 bytes,
akan menginfeksi Dokumen Ms.Word yang menggunakan bahasa makro, biasanya
berekstensi *.DOT dan *.DOC
-dll

2.Virus Boot Sector
Virus Boot sector ini sudah umum sekali menyebar.Virus ini dalam menggandakan
dirinya akan memindahkan atau menggantikan boot sector asli dengan program
booting virus. Sehingga saat terjadi booting maka virus akan di load kememori
dan selanjutnya virus akan mempunyai kemampuan mengendalikan hardware standar
(ex::monitor, printer dsb) dan dari memori ini pula virus akan menyebar
eseluruh drive yang ada dan terhubung kekomputer (ex: floopy, drive lain
selain drive c).
contoh virus :

-varian virus wyx
ex: wyx.C(B) menginfeksi boot record dan floopy ;
panjang :520 bytes;
karakteristik : memory resident dan terenkripsi)
-varian V-sign :
menginfeksi : Master boot record ;
panjang 520 bytes;
karakteristik: menetap di memori (memory resident),terenkripsi, dan polymorphic)
-Stoned.june 4th/ bloody!:
menginfeksi : Master boot record dan floopy;
panjang 520 bytes;
karakteristik: menetap di memori (memory resident), terenkripsi dan menampilkan
pesan"Bloody!june 4th 1989" setelah komputer melakukan booting sebanyak 128 kali

3.Stealth Virus
Virus ini akan menguasai tabel tabel interupt pada DOS yang sering kita kenal
dengan "Interrupt interceptor" . virus ini berkemampuan untuk mengendalikan
instruksi instruksi level DOS dan biasanya mereka tersembunyi sesuai namanya
baik secara penuh ataupun ukurannya .
contoh virus:
-Yankee.XPEH.4928,
menginfeksi file *.COM dan *.EXE ;
panjang 4298 bytes;
karakteristik: menetap di memori, ukurantersembunyi, memiliki pemicu
-WXYC (yang termasuk kategori boot record pun karena masuk kategri stealth
dimasukkan pula disini), menginfeksi floopy an motherboot record;
panjang 520 bytes;
menetap di memori; ukuran dan virus tersembunyi.
-Vmem(s):
menginfeksi file file *.EXE, *.SYS, dan *.COM ;
panjang fie 3275 bytes;
karakteristik:menetap di memori, ukuran tersembunyi, di enkripsi.
-dll

4.Polymorphic Virus
Virus ini Dirancang buat mengecoh program antivirus,artinya virus ini selalu
berusaha agar tidak dikenali oleh antivirus dengan cara selalu merubah rubah
strukturnya setiap kali selesai menginfeksi file/program lain.

contoh virus:

-Necropolis A/B,
menginfeksi file *.EXE dan *.COM;
panjang file 1963 bytes;
karakteristik: menetap di memori, ukuran dan virus tesembunyi,terenkripsi dan
dapat berubah ubah struktur
-Nightfall,
menginfeksi file *.EXE;
panjang file 4554 bytes;
karakteristik : menetap di memori, ukuran dan virus tesembunyi,memiliki pemicu,
terenkripsidan dapat berubah-ubah struktur
-dll


5.Virus File/Program
Virus ini menginfeksi file file yang dapat dieksekusi langsung dari sistem operasi,
baik itu file application (*.EXE), maupun *.COm biasanya juga hasil infeksi
dari virus ini dapat diketahui dengan berubahnya ukuran file yang diserangnya.


6.Multi Partition Virus
Virus ini merupakan gabungan dariVirus Boot sector dan Virus file: artinya
pekerjaan yang dilakukan berakibat dua, yaitu dia dapat menginfeksi file-
file *.EXE dan juga menginfeksi Boot Sector.



F.BEBERAPA CARA PENYEBARAN VIRUS

Virus layaknya virus biologi harus memiliki media untuk dapat menyebar,virus
computer dapat menyebar keberbagai komputer/mesin lainnya juga melalui berbagai
cara, diantaranya:

1.Disket, media storage R/W
Media penyimpanan eksternal dapat menjadi sasaran empuk bagi virus untuk
dijadikan media. Baik sebagai tempat menetap ataupun sebagai media penyebarannya.
Media yang bias melakukan operasi R/W (read dan Write) sangat memungkinkan untuk
ditumpangi virus dan dijadikan sebagai media penyebaran.

2.Jaringan ( LAN, WAN,dsb)
Hubungan antara beberapa computer secara langsung sangat memungkinkan suatu
virus ikut berpindah saat terjadi pertukaran/pengeksekusian file/program
yang mengandung virus.

3.WWW (internet)
Sangat mungkin suatu situs sengaja di tanamkan suatu ‘virus’ yang akan
menginfeksi komputer-komputer yang mengaksesnya.

4.Software yang Freeware, Shareware atau bahkan Bajakan
Banyak sekali virus yang sengaja di tanamkan dalam suatu program yang di
sebarluaskan baik secara gratis, atau trial version yang tentunya sudah
tertanam virus didalamnya.

5.Attachment pada Email, transferring file
Hampir semua jenis penyebaran virus akhir-akhir ini menggunakan email attachment
dikarenakan semua pemakai jasa internet pastilah menggunakan email untuk
berkomunikasi, file-file ini sengaja dibuat mencolok/menarik perhatian, bahkan
seringkali memiliki ekstensi ganda pada penamaan filenya.


G.PENANGULANGANNYA

1.Langkah-Langkah untuk Pencegahan
Untuk pencegahan anda dapat melakukan beberapa langkah-langkah berikut :
o Gunakan Antivirus yang anda percayai dengan updatean terbaru, tdak
perduli appun merknya asalkan selalu di update, dan nyalakan Auto protect
o Selalu men-scan semua media penyimpanan eksternal yang akan di gunakan,
mungkin hal ini agak merepotkan tetapi jika Autoprotect anti virus anda
bekerja maka prosedur ini dapat dilewatkan.
o Jika Anda terhubung langsung ke Internet cobalah untuk mengkombinasikan
Antivirus anda dengan Firewall, Anti spamming, dsb

2.Langkah-Lagkah Apabila telah Terinfeksi

o Deteksi dan tentukan dimanakah kira-kira sumber virus tersebut apakah disket,
jaringan, email dsb, jika anda terhubung ke jaringan maka ada baiknya anda
mengisolasi computer anda dulu (baik dengan melepas kabel atau mendisable
dari control panel)
o Identifikasi dan klasifikasikan jenis virus apa yang menyerang pc anda,
dengan cara:
- Gejala yang timbul, misal : pesan, file yang corrupt atau hilang dsb
- Scan dengan antivirus anda, jika anda terkena saat Autoprotect berjalan
berarti vius definition di computer anda tidak memiliki data virus ini,
cobalah update secara manual atau mendownload virus definitionnya untuk
anda install. Jika virus tersebut memblok usaha anda untuk mengupdatenya
maka ,upayakan untuk menggunakan media lain (komputer) dengan antivirus
updatean terbaru.
o Bersihkan, setelah anda berhasil mendeteksi dan mengenalinya maka usahakan
segera untuk mencari removal atau cara-cara untuk memusnahkannya di situs
-situs yang memberikan informasi perkembangan virus. Hal ini jika antivirus
update-an terbaru anda tidak berhasil memusnahkannya.
o Langkah terburuk, jika semua hal diatas tidak berhasil adalah memformat
ulang komputer anda .

PENUTUP

Semoga pembahasan mengenai Virus ini dapat memberikan manfaat khususnya
bagi penulis yang sedang belajar dan bagi kita semua umumnya, Tulisan
ini ditujukan untuk pembelajaran semata sehingga sangat diharapkan kritik
dan sarannya. Apabila banyak kekurangan pada tulisan ini harap dimaklumi.


sumber : http://ezine.echo.or.id/ oleh: iby
Read More..

Membuat CommandButton Seperti Stop Kontak Lampu

Pengunjung yang menginginkan bagaimana jika sebuah tombol dapat bertindak seperti tombol stop-kontak lampu. Jika belum ditekan, maka tombol akan kelihatan masuk ke dalam, dan ketika ditekan sekali lagi, tombolnya akan keluar (normal kembali). Demikian seterusnya bergantian. Mau tahu code-nya seperti apa? Simak selengkapnya berikut ini.
Code :

'Deskripsi: Membuat sebuah tombol kelihatan ditekan ke dalam saat ditekan
' sama seperti jika Anda menekan tombol stop-kontak lampu di rumah;
' maka tombol akan kelihatan masuk ke dalam, kemudian ketika Anda
' menekan sekali lagi, maka tombol akan kembali normal kembali...
' demikian seterusnya secara bergantian untuk penekanan berikutnya.
'Pembuat : Masino Sinaga (admin@masinosinaga.com)
'Diupload : Jumat, 3 Oktober 2008
'Persiapan: 1. Buat 1 Project baru dengan 1 Form, 1 Module, dan 1 Commandbutton.
' 2. Copy-kan coding berikut ke dalam editor form & module ybt.
'-------------------------------------------------------------------------------

'Ketika Anda mengklik Command1 pertama kali, maka tombol kelihatan masuk ke dalam.
'Ketika Anda mengklik Command1 selanjutnya, tombol akan kelihatan normal kembali.
'Demikian seterusnya bergantian... :-)
'Pengertian "klik" di atas tidak hanya event Click saja, tapi bisa dengan
'menekan Enter atau tombol Spasi di keyboard saat tombol dalam keadaan focus.

'--- Coding ini di Module...
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As _
Long, lParam As Any) As Long
Public Const BM_SETSTATE = &HF3
Public Const WM_LBUTTONDOWN = &H201
Public Const WM_LBUTTONUP = &H202
'--- Akhir coding di Module...

'--- Coding berikut di Form ---
Dim blnTekan As Boolean

Private Sub Command1_Click()
If blnTekan = False Then
Call SendMessage(Command1.hwnd, BM_SETSTATE, 1, ByVal 0&)
blnTekan = True
Exit Sub
ElseIf blnTekan = True Then
blnTekan = False
Call SendMessage(Command1.hwnd, BM_SETSTATE, 0, ByVal 0&)
End If
End Sub
'--- Akhir coding di Form...

Sumber : http://www.masinosinaga.com by.iby
Read More..

Mengetahui Kode ASCII Tombol Keyboard yang Ditekan

Tips berikut pasti akan dianggap sebagai hal yang sangat sepele bagi mereka yang sudah hafal kode ASCII dari setiap tombol keyboard. Tapi bagi mereka yang masih pemula di Visual Basic 6 atau bagi mereka yang tidak hafal sama sekali dan ingin mendapatkan kode ASCII dari setiap tombol di keyboard, tips berikut ini layak Anda jadikan sebagai acuan.
Code :

'Deskripsi: Mengetahui kode ASCII tombol keyboard melalui penekanan
' tombol keyboard di sebuah form.
'Pembuat : Masino Sinaga (admin@masinosinaga.com)
'Tanggal : Senin, 13 Oktober 2008
'Persiapan: 1. Buat satu project standard exe dengan satu form
' 2. Copy-paste code berikut ke editor form yang bertalian
'-------------------------------------------------------------------

'Tekan tombol yang Anda kehendaki ketika Form1 sudah muncul
'Amati kode ASCII-nya setelah Anda menekan tombol keyboard
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
MsgBox "Kode ASCII tombol yang baru Anda tekan = " & KeyCode
End Sub

'Jalankan program dengan menekan F5 dari IDE VB6
Private Sub Form_Load()
'Nilai property KeyPreview form harus diset dulu ke True
Me.KeyPreview = True
End Sub


Sumber : http://www.masinosinaga.com by.iby
Read More..

Mengencrypt/decrypt Suatu String

Banyak cara untuk merahasiakan suatu data, di mana salah satunya dengan mengencrypt atau mengacak data tersebut. Contoh ini menunjukkan kepada Anda salah satu cara sederhana untuk mengencrypt suatu data, termasuk mendecrypt atau mengembalikan kepada data semula.

Code :

'Deskripsi: Melakukan encrypt/decrypt (acak/normalkan) terhadap
' suatu string berdasarkan kode tertentu. Sangat cocok
' untuk menyimpan informasi sederhana namun rahasia.
'Pembuat : Masino Sinaga (admin@masinosinaga.com)
'Diupload : Rabu, 15 Mei 2002
'Persiapan: 1. Buat 1 Project baru dengan 1 Form dan 2 Commandbutton
' 2. Copy-kan coding berikut ke editor form yang bertalian.
----------------------------------------------------------------------

'Tips ini sangat berguna untuk mengacak password atau informasi rahasia
'lainnya. Anda bisa menyimpan string yang sudah ter-enkrip ke suatu file
'sehingga user yang tidak berhak tidak dapat membacanya walaupun dia
'bisa membuka file tersebut.

'Tombol Command1 akan mengencrypt string.
'Untuk menormalkan string tersebut, klik tombol Command2.

Dim Code As String, DataString As String, Temp As String

Sub Translate()
Dim I As Integer
Dim location As Integer
Temp$ = ""
For I% = 1 To Len(DataString$)
location% = (I% Mod Len(Code$)) + 1
Temp$ = Temp$ + Chr$(Asc(Mid$(DataString$, I%, 1)) Xor _
Asc(Mid$(Code$, location%, 1)))
Next I%
End Sub

Private Sub Command1_Click()
'Code di bawah adalah rumus pengenkripsian. Ganti 'abcdefghijk'
'dengan string apapun yang Anda inginkan, bahkan Anda dapat
'mengubah panjang dari string Code ini.
Code = "abcdefghijk"
'Ganti 'Masino Sinaga' dengan string yang akan Anda encrypt.
DataString = "Masino Sinaga"
Translate
MsgBox (Temp$)
End Sub

Private Sub Command2_Click()
DataString = Temp$
Translate
MsgBox (Temp$)
End Sub

Sumber artikel :http://www.masinosinaga.com by.iby
Read More..

Membuat Judul Form Rata Tengah

Pernahkah Anda ingin membuat judul form (form caption) Anda kira-kira menjadi kelihatan rata tengah? Berikut ini solusinya.
Code :

'Deskripsi: Membuat judul form Anda kira-kira kelihatan rata tengah
'Pembuat : Diterjemahkan oleh Masino Sinaga (admin@masinosinaga.com)
'Diupload : Jumat, 10 Mei 2002
'Persiapan: 1. Buat 1 Project baru dengan 1 Form dan 1 Module.
' 2. Copy-kan coding berikut ke dalam editor form & module ybt.
'----------------------------------------------------------------------------

'Coding ini di Module...
Public Sub CenterC(frm As Form)
Dim SpcF As Integer 'Jumlah spasi yg dapat muat
Dim clen As Integer 'Panjang tulisan
Dim oldc As String 'Tulisan yg lama
Dim i As Integer
oldc = frm.Caption
Do While Left(oldc, 1) = Space(1)
DoEvents
oldc = Right(oldc, Len(oldc) - 1)
Loop
Do While Right(oldc, 1) = Space(1)
DoEvents
oldc = Left(oldc, Len(oldc) - 1)
Loop
clen = Len(oldc)
If InStr(oldc, "!") <> 0 Then
If InStr(oldc, " ") <> 0 Then
clen = clen * 1.5
Else
clen = clen * 1.4
End If
Else
If InStr(oldc, " ") <> 0 Then
clen = clen * 1.4
Else
clen = clen * 1.3
End If
End If
'Periksa berapa karakter dapat muat
SpcF = frm.Width / 61.2244 'Berapa banyak ruang yg
'tersedia di caption tsb
SpcF = SpcF - clen
If SpcF > 1 Then
DoEvents 'Mempercepat program
frm.Caption = Space(Int(SpcF / 2)) + oldc
Else 'Jika form terlalu kecil untuk spasi
frm.Caption = oldc
End If
End Sub
'--- Akhir coding di Module...

'Coding ini di Form...
Dim oldsize As Long

Private Sub Form_Resize()
If Me.Width = oldsize Then 'Jika lebar form berubah
Exit Sub 'tidak perlu mengubah letak captionnya.
Else
CenterC Me
oldsize = Me.Width
End If
End Sub

Private Sub Form_Load()
CenterC Me
oldsize = Me.Width
End Sub
'--- Akhir Coding di Form...

Sumber Artikel :http://www.masinosinaga.com by.iby
Read More..

Membuat Efek Ledakan pada Form

Suatu ketika Anda ingin memberikan efek ledakan pada saat pemunculan awal suatu form. Bagaimana caranya? Berikut ini solusinya.
Code:

'Deskripsi: Membuat suatu efek ledakan pada pemunculan awal suatu form.
'Pembuat : Masino Sinaga (admin@masinosinaga.com)
'Persiapan: 1. Buat 1 Project baru dengan 1 Form dan 1 Module, dan 1 Commandbutton.
' 2. Copy-kan coding berikut ke dalam editor Module/Form ybt.
'----------------------------------------------------------------------------------

'--- Coding ini di Module...
#If Win16 Then
Type RECT
Left As Integer
Top As Integer
Right As Integer
Bottom As Integer
End Type
#Else
Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
#End If

#If Win16 Then
Declare Sub GetWindowRect Lib "User" (ByVal hwnd As Integer, lpRect As RECT)
Declare Function GetDC Lib "User" (ByVal hwnd As Integer) As Integer
Declare Function ReleaseDC Lib "User" (ByVal hwnd As Integer, ByVal hdc As _
Integer) As Integer
Declare Sub SetBkColor Lib "GDI" (ByVal hdc As Integer, ByVal crColor As Long)
Declare Sub Rectangle Lib "GDI" (ByVal hdc As Integer, ByVal X1 As Integer, _
ByVal Y1 As Integer, ByVal X2 As Integer, ByVal Y2 As Integer)
Declare Function CreateSolidBrush Lib "GDI" (ByVal crColor As Long) As Integer
Declare Function SelectObject Lib "GDI" (ByVal hdc As Integer, ByVal hObject _
As Integer) As Integer
Declare Sub DeleteObject Lib "GDI" (ByVal hObject As Integer)
#Else
Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, _
lpRect As RECT) As Long
Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal _
hdc As Long) As Long
Declare Function SetBkColor Lib "gdi32" (ByVal hdc As Long, ByVal _
crColor As Long) As Long
Declare Function Rectangle Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, _
ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Declare Function CreateSolidBrush Lib "gdi32" (ByVal crColor As Long) As Long
Declare Function SelectObject Lib "user32" (ByVal hdc As Long, ByVal hObject _
As Long) As Long
Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
#End If

Sub ExplodeForm(f As Form, Movement As Integer)
Dim myRect As RECT
Dim formWidth%, formHeight%, i%, X%, Y%, Cx%, Cy%
Dim TheScreen As Long
Dim Brush As Long
GetWindowRect f.hwnd, myRect
formWidth = (myRect.Right - myRect.Left)
formHeight = myRect.Bottom - myRect.Top
TheScreen = GetDC(0)
Brush = CreateSolidBrush(f.BackColor)
For i = 1 To Movement
Cx = formWidth * (i / Movement)
Cy = formHeight * (i / Movement)
X = myRect.Left + (formWidth - Cx) / 2
Y = myRect.Top + (formHeight - Cy) / 2
Rectangle TheScreen, X, Y, X + Cx, Y + Cy
Next i
X = ReleaseDC(0, TheScreen)
DeleteObject (Brush)
End Sub

Public Sub ImplodeForm(f As Form, Movement As Integer)
Dim myRect As RECT
Dim formWidth%, formHeight%, i%, X%, Y%, Cx%, Cy%
Dim TheScreen As Long
Dim Brush As Long
GetWindowRect f.hwnd, myRect
formWidth = (myRect.Right - myRect.Left)
formHeight = myRect.Bottom - myRect.Top
TheScreen = GetDC(0)
Brush = CreateSolidBrush(f.BackColor)
For i = Movement To 1 Step -1
Cx = formWidth * (i / Movement)
Cy = formHeight * (i / Movement)
X = myRect.Left + (formWidth - Cx) / 2
Y = myRect.Top + (formHeight - Cy) / 2
Rectangle TheScreen, X, Y, X + Cx, Y + Cy
Next i
X = ReleaseDC(0, TheScreen)
DeleteObject (Brush)
End Sub
'--- Batas coding di Module...

'--- Coding ini di Form...
Private Sub Command1_Click()
'Ganti '500' di bawah dengan kecepatan dari efek ledakan form.
Call ImplodeForm(Me, 500)
End
Set Form1 = Nothing
End Sub

Private Sub Form_Load()
Call ExplodeForm(Me, 500) 'ledakan form
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Call ImplodeForm(Me, 500) 'pengembalian form
End Sub

sumber artikel : http://www.masinosinaga.com by.iby
Read More..

Sejarah Visual Basic 6

Sejarah Visual Basic diawali dari perkembangan bahasa BASIC di darthmouth College, Amerika Serikat, pada awal tahun 1960-an. Sejak semula BASIC memang dirancang untuk mudah dipelajari. Begitu sederhananya sehingga nyaris semua pakar pemrograman komputer menggunakan BASIC sebagai bahasa pemrograman pertamanya. Pada tahun 1982 IBM/PC diperkenalkan pada masyarakat, Microsoft pun membuat sistem operasi MS-DOS untuk komputer ini.
Didalamnya disertakan pula bahasa BASIC yang dikenal sebagai QuickBasic (QBASIC). Pada tahun 1990-an era DOS berlalu digantikan era Windows. Tampilan grafis windows yang sangat bagus dan lebih interaktif mengubah pemrograman dari pekerjaan yang memusingkan kepala menjadi sebuah pekerjaan yang sangat menyenangkan. Microsoft pun akhirnya membuat BASIC versi Windows yang dikenal dengan Microsoft Visual Basic.

Visual Basic memungkinkan pembuatan aplikasi Grapichal User Interface (GUI) atau pemrograman yang menggunakan tampilan grafis sebagai alat komunikasi dengan pemakainya. Pembuatan tampilan user interface dapat dilakukan dengan meletakkan object-object grafis ke lembar (form) yang sudah disediakan oleh Visual Basic.

Visual Basic Merupakan bahasa pemrograman Visual sehingga dapat mempermudah dalam mendesain tampilan program atau lebih dikenal dengan istilah user interface. Hal ini sangat bermanfaat untuk membuat program yang bekerja dalam lingkungan windows yang tampilannya lebih rumit. Dengan Bahasa Pemrograman biasa / Non Visual, Waktu seorang programmer lebih banyak dihabiskan untuk mendesain tampilan program dibandingkan dengan penulisan program utamanya. Visual basic adalah suatu bahasa pemrogramman visual yang merupakan pengembangan terakhir dari Basic.

Bahasa Pemrogramman Visual Basic 6.0 merupakan perangkat lunak yang memiliki kesamaan dengan bahasa Pemrogramman Basic dan bekerja pada lingkungan sistem operasi Windows. Pemrogramman Visual Basic 6.0 juga memberikan kemudahan bagi programmer dalam membuat sebuah program, karena dalam Bahasa pemrogramman Visual Basic 6.0 telah disediakan fasilitas-fasilitas pendukung yang mudah penggunaannya tanpa menambah syntax program yang berbelit-belit seperti pada beberapa Bahasa pemrogramman lainnya, yang tentunya akan lebih banyak menyita waktu dan pemikiran. Selain kemudahan tersebut, Visual Basic 6.0 juga memiliki kecepatan proses yang tinggi dan keunggulan dalam file eksekusi yang dihasilkan, yang mampu berdiri sendiri diluar software pembangunnya serta kecilnya file eksekusi yang dihasilkan.

dikutip dari http://www.digituck.com oktober09 by.iby
Read More..

Etika Profesi TI Programmer Komputer

Programmer Komputer adalah profesi yang bertugas untuk membuat sebuah program melalui bantuan bahasa pemrograman yang dapat digunakan untuk menyelesaikan permasalahan melalui otomasi dengan bantuan perangkat lunak atau software.
Tugas inti dari seorang programmer sama seperti tugas sebuah program itu sendiri. Sebuah program itu didesain dan dikembangkan agar mampu membatu manusia sebagi pengguna (user) dalam mengatasi kegiatan kesehariannya. Jadi, tugas seorang programmer komputer adalah menolong manusia menyelesaikan kegiatan sehari-harinya dengan bantuan komputer. Dari hal tersebut, terlihat jelas bahwa seorang programmer komputer merupakan orang yang sangat berjasa kepada masyarakat, seperti halnya dokter, perawat, akuntan dan lainnya.

Seperti halnya seorang dokter, pengacara , atau bidang lainnya, programmer komputer juga memiliki kode etik. Kode etik merupakan sesuatu hal yang harus menjadi bagian dari seorang programmer komputer. Kode etik bersumber dari kode etik yang digunakan dalam perkumpulan programmer internasional. Adapun kode etik programmer komputer antara lain :

1. Programmer komputer tidak boleh membuat atau mendistribusikan (menyebarkan) Malware.
2. Programmer komputer tidak boleh membuat kode sebuah program yang sulit untuk diikuti atau ditelusuri dengan sengaja
3. Programmer komputer tidak boleh membuat dokumentasi yang membingungkan atau tidak akurat dengan sengaja
4. Programmer komputer tidak boleh menggunakan ulang kode yang mempunyai hak cipta, kecuali telah membeli atau meminta izin
5. Tidak boleh mencari keuntungan tambahan dari proyek yang didanai oleh pihak kedua tanpa izin
6. Tidak boleh mencuri software khususnya development tools
7. Tidak boleh mencela atau mempermalukan profesi programmer komputer
8. Tidak dengan sengaja membuat atau mengenalkan bug, dan kemudia mengklaim untuk fixing bug, atau memberikan stimulasi untuk update versi terakhir
9. Tidak boleh menulis kode yang dengan sengaja menjatuhkan kode programmer lain untuk mengambil keuntungan dalam menaikkan status
10. Tidak boleh mengambil keuntungan dari pekerjaan orang lain

Dari beberapa kode etik programmer yang dibsebutkan diatas, dapat dijadikan sebagai “Golden Rule” yaitu “Memperlakukan orang lain sebagaimana kamu ingin diperlakukan.

dikutip dari http://pekerjaonline.wordpress.com by. iby
Read More..

Menuntut Ilmu

Islam mendorong Muslim untuk belajar dan menuntut ilmu. Menuntut ilmu bagi Muslim bukan sekadar kewajiban yang berlaku sepanjang hayat (long life education), tetapi dinilai sebagai ibadah yang dipersembahkan kepada Yang Maha Berilmu.
Menuntut ilmu membuka kesempatan bagi Muslim untuk mendapatkan surga Allah, seperti hadis: ''Siapa meniti jalan menuntut ilmu, Allah akan memudahkan jalannya menuju surga.'' (HR Muslim). Orang yang menuntut ilmu sama kedudukannya dengan jihad fi sabilillah; ''Siapa keluar untuk menuntut ilmu, maka ia berada di jalan Allah (fi sabilillah) sampai ia kembali.'' (HR Tirmidzi).

Ilmu sebagai nur (cahaya) yang diberikan Allah kepada manusia. Ilmu merupakan hidayah yang menerangi seseorang menjalani kehidupan ini. Oleh sebab itu, Allah menempatkan orang berilmu pada kedudukan yang tinggi di kalangan manusia. Allah berfirman, ''Niscaya Allah akan meninggikan orang-orang yang beriman di antaramu dan orang-orang yang diberi ilmu pengetahuan beberapa derajat. Dan Allah Maha Mengetahui apa yang kamu kerjakan.'' (QS Al Mujadillah [58]: 11).

Ayat ini menegaskan bahwa Allah mengangkat derajat orang-orang berilmu terhadap orang yang kurang ilmunya. Orang yang ditinggikan Allah derajatnya karena ilmu tentu akan mendapat kemuliaan di hadapan-Nya dan manusia. Melalui ilmu, Muslim takut dan mendekatkan diri dengan baik kepada Allah, seperti firman-Nya, ''Sesungguhnya yang takut kepada Allah di antara hamba-hamba-Nya, hanyalah ulama. Sesungguhnya Allah Mahaperkasa lagi Maha Pengampun.'' (QS 35: 28). Ayat ini mengisyaratkan bahwa semakin banyak ilmu seseorang, terutama ilmu tentang Allah, maka ia semakin menyadari keagungan dan kebesaran Allah sehingga merasa kecil di hadapan-Nya. Perasaan ini menimbulkan rasa takut untuk melanggar aturan Allah dan mendorong senantiasa mendekat diri kepada-Nya.

Ilmu yang dimiliki Muslim bukan untuk dibanggakan di hadapan manusia karena hal itu dapat menjadi bumerang dan merugikan dirinya, seperti hadis: ''Janganlah kamu menuntut ilmu untuk saling membanggakan diri di hadapan para ulama, mendebat orang-orang bodoh, dan menyombongkan diri di depan majelis. Karena, siapa yang melakukannya, maka hendaknya ia berhati-hati dengan api neraka.'' (HR Ibn Majah).
Islam menginginkan orang yang berilmu mengamalkan ilmunya demi kebaikan diri dan orang lain. Ilmu pada seseorang ibarat sebatang pohon dan amal sebagai buahnya. Perintah belajar dan menuntut ilmu bertujuan meningkatkan kuantitas dan kualitas amal Muslim. Dengan amal itu pula, Muslim memperoleh kebahagiaan di dunia dan selamat di akhirat.

Orang yang tidak mengamalkan ilmu lebih buruk dari orang bodoh. Ia mendapat murka Allah di dunia dan mendapat siksaan dari-Nya di akhirat. Bahkan, ia akan mendapat siksa yang berat dan termasuk orang yang pertama kali merasakan azab neraka.

Read More..