cara membuat buku tamu di blog

Cara Buku Tamu
Membuat atau memasang buku tamu atau guestbook yang melayang di sisi kanan blogdi blog merupakan hal yang sangat menyenangkan untuk dilakukan karena selain dapat memperindah atau mempercantik tampilan blog dengan membuat butu tamu memberikan fitur yang menyenangkan dan sangat berguna untuk mempererat hubungan para blogger dengan blogger lain atau dengan pengunjung blog mereka.


Guestbook atau buku tamu merupakan salah satu dari kumpulan widget terbaik untuk blog karena widget tersebut cukup populer dikalangan para bloggger. Pada kesempatan kali ini setelah beberapa waktu yang lalu saya telah memberikan cara menambahkan widget jam di blog dan cara memasang lagu di blog yang juga merupakan widget yang paling digemari pengguna blog, saya akan memberikan cara membuat atau memasang buku tamu di blog blogger atau blogspot anda dengan langkah yang mudah dan cepat untuk dilakukan.

Cara membuat buku tamu di blog
1. Kunjungi cbox.ws
2. Daftar dengan klik “Get your own free Cbox now!”
3. Isi form pendaftaran dan pilih model buku tamu yang diinginkan di “style”
4. Klik “create my cbox”
5. Verifikasi email anda dan login kembali di cbox
6. Klik “look & feel”  dan atur buku tamu tersebut sesuai keinginan anda
7. Jika telah selesai mengatur klik “save” dan klik “apply”

Cara memasang buku tamu di blog sesuai keinginan
1. Di member area cbox klik “publish!” dan copy  kode yang diberikan dengan klik “copy to myclipboard”
2. Login ke blogger anda, klik “tata letak” dan “tambah widget” pada posisi yang anda inginkan
3. Pilih “HTML/Javascript”
4. Paste kan kode tersebut dan klik simpan.

Cara memasang buku tamu melayang atau menggantung disisi kanan blog
1. Login ke blogger- tata letak – dan tambah widget
2. Pilih “html/javascript”
3. Pastekan kode dibawah ini di kolom yang disediakan
<style type="text/css">
#gb{
position:fixed;
top:50px;
z-index:+1000;
}
* html #gb{position:relative;}
.gbtab{
height:100px;
width:30px;
float:left;
cursor:pointer;
background:url('https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg3WGeySfa0Mtvr3tNez2htGpoGVHERPwaXMXGF1IORu-du4qBpaoS_ss4h5bii2U-mAdem0I_6nZXQdwHRsQHfbBHe_ZpoSNODI_UWKlMBxSYrJjUM7SMJS8HE7jUMkhjPabnrRdzBhHo/s1600/bukutamu.png') no-repeat;
}
.gbcontent{
float:left;
border:2px solid #A5BD51;
background:#F5F5F5;
padding:10px;
}
</style>
<script type="text/javascript">
function showHideGB(){
var gb = document.getElementById("gb");
var w = gb.offsetWidth;
gb.opened ? moveGB(0, 30-w) : moveGB(20-w, 0);
gb.opened = !gb.opened;
}
function moveGB(x0, xf){
var gb = document.getElementById("gb");
var dx = Math.abs(x0-xf) > 10 ? 5 : 1;
var dir = xf>x0 ? 1 : -1;
var x = x0 + dx * dir;
gb.style.right = x.toString() + "px";
if(x0!=xf){setTimeout("moveGB("+x+", "+xf+")", 10);}
}
</script>
<div id="gb">
<div class="gbtab" onclick="showHideGB()"> </div>
<div class="gbcontent">
Silakan Pasang Kode Buku Tamu yang sudah di copy tadi Di Sini

<div style="text-align:right">
<a href="http://anonymouslikepeace.blogspot.com">[get this widget]</a>><a href="javascript:showHideGB()">
[Tutup]
</a>
</div>
</div>
</div>
<script type="text/javascript">
var gb = document.getElementById("gb");
gb.style.right = (30-gb.offsetWidth).toString() + "px";
</script></div></div>
4. Ubah tulisan berwarna hijau dengan kode yang anda dapat dari cbox tadi
5. Klik “simpan”

Tips Instalasi Visual Basic 6.0 di Windows 7

Setelah lama malas tidak otak-atik VB 6.0 karena setelah VB 6.0 diinstal di windows 7 tampilan/komposisi dari layar acak-acakan maka malam ini aktifitas otak-atik dimulai lagi, ternyata tips untuk mengatasi hal tersebut simpel dan semoga dalam otak-atik nanti tidak mengalami gangguan compatible dengan windows 7 ultimate.
Langsung saja Tips Instalasi VB 6.0 di Windows 7 :

1. Buka folder Visual Basic
2. Cari file setup.exe
3. Klik kanan setup.exe dan pilih Properties
4. Sesuaikan Properties File setup.exe dengan gambar di bawah ini :
5. Setelah selesai lakukan Instalasi seperti biasa, dan jika muncul peringatan seperti gambar di bawah ini klik Run Program.
6. Setelah selesai silahkan buka Project maka tampilan/komposisi layar Visual Basic sudah tidak acak-acakan lagi dan kembali seperti tampilan Windows XP SP 2, karena pada properties Setup.exe Tab Compability kita telah mencentang Disable Visual Themes, Disable Desktop Composition, Disable Display Scaling on high DPI Settings dan juga Run As Administrator.
7. Semoga bermanfaat.

Serpihan Kode Database Access

Pertama yang perlu disapkan adalah :
  • Nama Database : DBPembelajaran.mdb format Microsoft Office Access 2000
  • Nama Tabel : SiswaLogin
  • Nama Field dalam Tabel SiswaLogin : Nama Field Nama_Siswa TypeField Text dan field kedua   Nama Field NIS TypeField Text
  • Klik Menu Project Pilih References.. : Microsoft ActiveX Data Object 2.0 Library atau versi yang lebih tinggi.
Dibawah ini serpihan kode yang mungkin bermanfaat, silahkan...
1. a. Koneksi Dengan Database Yang Tidak Berpassword

Option Explicit
Dim db As ADODB.Connection
Dim adoPrimaryRSLoginSiswa As ADODB.Recordset

Private Sub Form_Load()
On Error GoTo err
        Set db = New ADODB.Connection
        db.CursorLocation = adUseClient
        db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;" & _
          "Data Source=" & App.Path & "\DBPembelajaran.mdb;"
err:
        If db.State = 1 Then
            MsgBox "Terkoneksi dengan database"
        ElseIf db.State = 0 Then
            MsgBox "Tidak Terkoneksi dengan database.", vbInformation, "Error"
        End If
End Sub
 


1. b. Koneksi Dengan Database Berpassword

Private Sub Form_Load()
On Error GoTo ERR
        Dim DBBerPassword
        Set DBBerPassword = New ADODB.Connection
        DBBerPassword.CursorLocation = adUseClient
        DBBerPassword.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DBPembelajaran - Copy.mdb" & ";Persist Security Info=False;Mode=12;Jet OLEDB:Database Password=TulisPasswordnya"
ERR:
        If DBBerPassword.State = 1 Then
            MsgBox "Terkoneksi dengan database"
        ElseIf DBBerPassword.State = 0 Then
            MsgBox "Tidak Terkoneksi dengan database.", vbInformation, "Error"
        End If
End Sub


2. Buka Record

Private Sub Command1_Click()
On Error GoTo err
        Set adoPrimaryRSLoginSiswa = New ADODB.Recordset
        adoPrimaryRSLoginSiswa.Open "TblSiswaLogin", db, adOpenStatic, adLockOptimistic
err:
        If adoPrimaryRSLoginSiswa.State = 1 Then
            MsgBox "Terkoneksi dengan Tabel"
        ElseIf adoPrimaryRSLoginSiswa.State = 0 Then
            MsgBox "Tabel tidak ditemukan, cek kembali tabel yang ada dalam database.", vbInformation, "Error"
        End If
End Sub


3. Cek Isi Field

Private Sub Command2_Click()
    adoPrimaryRSLoginSiswa.MoveFirst
    MsgBox "NAMA FIELD : " & adoPrimaryRSLoginSiswa.Fields(0).Name & _
    vbCrLf & "ISI FIELD RECORD PERTAMA : " & adoPrimaryRSLoginSiswa.Fields(0).Value, vbInformation
End Sub


4. Menghubungkan Isi Field Ke Control

Private Sub Command3_Click()
    Set Me.Text1.DataSource = adoPrimaryRSLoginSiswa
    Set Me.Text2.DataSource = adoPrimaryRSLoginSiswa
    
    Me.Text1.DataField = "NAMA_SISWA"
    Me.Text2.DataField = "NIS"
    
End Sub


5. Mengecek Field Kosong (IsNull)

Private Sub Command4_Click()
    'DI PROPERTY Text3 MultiLine pilih True
    'DI PROPERTY Text3 ScrollBars pilih 3
    Text3.Text = "MENGECEK FIELD NIS KOSONG"
    adoPrimaryRSLoginSiswa.MoveFirst
    While Not adoPrimaryRSLoginSiswa.EOF
    If IsNull(adoPrimaryRSLoginSiswa.Fields("NIS")) = True Then
        Text3.Text = Text3.Text & vbCrLf & "NO : " & adoPrimaryRSLoginSiswa.AbsolutePosition & ". " & adoPrimaryRSLoginSiswa.Fields("NAMA_SISWA").Value & " KOSONG"
    ElseIf IsNull(adoPrimaryRSLoginSiswa.Fields("NIS")) = False Then
        Text3.Text = Text3.Text & vbCrLf & "NO : " & adoPrimaryRSLoginSiswa.AbsolutePosition & " TIDAK KOSONG "
    End If
        adoPrimaryRSLoginSiswa.MoveNext
    Wend
End Sub


6. Navigasi

Private Sub Command5_Click()
    If adoPrimaryRSLoginSiswa.AbsolutePosition = 1 Or adoPrimaryRSLoginSiswa.RecordCount = 0 Then
        Beep
    Else
        adoPrimaryRSLoginSiswa.MoveFirst 'Ke record Pertama
    End If
    Me.Label2.Caption = "NO. " & adoPrimaryRSLoginSiswa.AbsolutePosition
End Sub

Private Sub Command6_Click()
    If adoPrimaryRSLoginSiswa.AbsolutePosition = 1 Or adoPrimaryRSLoginSiswa.RecordCount = 0 Then
        Beep
    Else
        adoPrimaryRSLoginSiswa.MovePrevious "Ke record Sebelumnya    End If
    Me.Label2.Caption = "NO. " & adoPrimaryRSLoginSiswa.AbsolutePosition
End Sub

Private Sub Command7_Click()
    If adoPrimaryRSLoginSiswa.AbsolutePosition = adoPrimaryRSLoginSiswa.RecordCount Or adoPrimaryRSLoginSiswa.RecordCount = 0 Then
        Beep
    Else
        adoPrimaryRSLoginSiswa.MoveNext 'Ke record Selanjutnya    End If
    Me.Label2.Caption = "NO. " & adoPrimaryRSLoginSiswa.AbsolutePosition
End Sub

Private Sub Command8_Click()
    If adoPrimaryRSLoginSiswa.AbsolutePosition = adoPrimaryRSLoginSiswa.RecordCount Or adoPrimaryRSLoginSiswa.RecordCount = 0 Then
        Beep
    Else
        adoPrimaryRSLoginSiswa.MoveLast 'Ke record Terakhir    End If
    Me.Label2.Caption = "NO. " & adoPrimaryRSLoginSiswa.AbsolutePosition
End Sub


6. Mendapatkan Tabel Dalam database

Private Sub Command9_Click()
Dim NamaTabel As ADODB.Recordset
Set NamaTabel = db.OpenSchema(adSchemaTables)
    While Not NamaTabel.EOF
        If NamaTabel!TABLE_TYPE = "TABLE" Then Text4.Text = Text4.Text & vbCrLf & NamaTabel!TABLE_NAME
        NamaTabel.MoveNext
    Wend
End Sub


7. Mendapatkan Field Dalam Tabel

Private Sub Command10_Click()
Dim Column As ADODB.Field
If adoPrimaryRSLoginSiswa.State = adStateOpen Then
    For Each Column In adoPrimaryRSLoginSiswa.Fields
        Text5.Text = Text5.Text & vbCrLf & Column.Name
    Next
End If
End Sub


8. Membuat Tabel - Create Table

Private Sub Command11_Click()
    Dim Cmd As New ADODB.Command
    Cmd.ActiveConnection = db
    Cmd.CommandText = "create table TabelBaru (NAMA_SISWA varchar(20), KELAS varchar(5), TENTANG_SISWA LongChar, Foto LongBinary)"
    Cmd.Execute
End Sub


9. Menambahkan Field Di Tabel Yang Sudah Ada - Add Field In Exists Table

Private Sub Command12_Click()
'Tambahkan references Microsoft ADO Ext. 2.1 for DDL and Security atau versi lebih tinggi
    Dim Xconx As ADODB.Connection
    Dim Xcmd As ADODB.Command
    Dim Xrs As ADODB.Recordset
    Dim m_MDBdatabase As String
    Dim m_MDBtable As String

'Tambahkan columns di tabel yang sudah ada
    Dim ADOXcat As ADOX.Catalog
    Dim MStbl As ADOX.table
    Dim MScol As ADOX.Column
    
    m_MDBdatabase = App.Path & "\DBPembelajaran.mdb"
    m_MDBtable = "TblSiswaLogin"

'Membuat koneksi
    Set Xconx = New ADODB.Connection
    Set Xcmd = New ADODB.Command
    Set Xrs = New ADODB.Recordset
    Set Xconx = CreateObject("ADODB.Connection")
    Xconx.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Persist Security Info=False;" & _
    "Data Source=" & m_MDBdatabase
    Set Xrs = CreateObject("ADODB.Recordset")
    Xrs.CursorLocation = adUseServer

'Mengirimkan MDB dan table ke catalog
    Set ADOXcat = New ADOX.Catalog
    ADOXcat.ActiveConnection = _
    "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=" & m_MDBdatabase
    Set MStbl = ADOXcat.Tables(m_MDBtable)

'Menambahkan columns/Field ke tabel yang ada
    MStbl.Columns.Append "NILAI", adDouble
    MStbl.Columns.Append "KETERANGAN", adVarWChar, 255
    MStbl.Columns.Append "TANGGAL_LAHIR", adDate
    
'Bersihkan
    ADOXcat.ActiveConnection.Close
    Set ADOXcat = Nothing
    Set MStbl = Nothing
    Set MScol = Nothing
    Set Xconx = Nothing
    Set Xcmd = Nothing
    Set Xrs = Nothing
End Sub


10. Hapus Semua Record Dalam Tabel

Private Sub Command13_Click()
    db.Execute "DELETE FROM TBLsiswalogin"
End Sub


11. Hapus Tabel

Private Sub Command14_Click()
'Tambahkan references Microsoft DAO 3.6 Object Library atau versi lebih tinggi
    Dim ConMateri As Database, AdoDao%
    Set ConMateri = OpenDatabase(App.Path & "\DBPembelajaran.MDB", False, False, "MS Access;Pwd=dbpwd")
    Dim TbDef As TableDefs
    Set TbDef = ConMateri.TableDefs
    ConMateri.TableDefs.Delete "NamaTabelYangAkanDiHapus"
End Sub

pengertian tentang macam hacking dan lain - lainnya

Selamat siang semua, hehe.. sekarang saya mau posting tentang apa yg dimaksud dengan hacker, phreaker, cracker, scammer, defacer, script kiddies, hacker wannabe, dan newbie.. hihi ^^
oke langsung saja.. cekidot !

Hacker 

adalah Hacker merupakan golongan profesional komputer atau IT, mereka boleh terdiri daripada jurutera komputer, pengaturcara dan sebagainya yang memiliki pengetahuan tinggi dalam sesuatu sistem komputer. Hacker mempunyai minat serta pengetahuan yang mendalam dalam dunia IT sehingga berkeupayaan untuk mengenal pasti kelemahan sesutu sistem dengan melakukan uji cuba terhadap sesuatu sistem itu. Namun, para hacker tidak akan melakukan sebarang kero\usakkan terhadap sesuatu sistem itu dan ia adalah merupakan etika seorang hacker.



Cracker,


cracker bisa di kategorikan sebagai orang yang memahami jenis pemrograman tingkat tinggi dan sedikit pengetahuan jaringan. UMUM-nya kracker kebanyakan membuat kemampuan untuk membuah sebuah program untuk meng-disfungsikan/
me-manipulasi jalur yang seharusnya. Contohnya: kracker membuat sebuah program agar program yang seharusnya berbayar menjadi gratis. kracker tidak terlalu memahami seluk beluk jaringan mereka kebanyakan umum-nya cenderung menyukai segala sesuatu yang bersifat GRATISAN.
Defacer,


Pernah ada suatu kasus saya melihat orang dengan bangganya memamerkan nama panggilannya didalam sebuah website milik orang lain. Lalu berkata “Website itu sudah aku hack” HACK? SUMPE LO? defacer kebanyakan umum-nya adalah orang iseng yang sedang ingin mencoba mencari tau baik dari segi ilmu, kemampuan, dan jati diri… kebiasaan yang paling mudah diketahui adalah mereka gemar merubah tampilan website menggunakan/memanfaatkan kelemahan bug/kecacatan dalam sebuah program. Defacer umumnya tidak begitu memahami tentang level pemrograman mereka lebih cenderung memahami tentang kinerja sebuah webserver beserta script yang ada didalamnya.



Phreaker,


Mungkin jarang di Indonesia yang pernah mendengar kata ini. Phreaker ini sebenarnya hampir sama sifatnya dengan kracker dimana sama-sama menyukai GRATISAN. Bedanya Phreaker lebih fokus ke dalam bug jaringan/telekomunikasi. Contoh mudahnya orang bisa menelpon ato ngenet gratis padahal seharusnya berbayar, atau contoh lainnya seseorang menggunakan bug yang ada didalam sebuah perusahaan telekomunikasi (meskipun tidak diketahui bocornya informasi ini hasil sendiri atau diberi tahu orang dalam) itu adalah salah satu kegiatan phreaking dan orang yang melakukannya di sebut phreaker.
Hacker Wannabe, 

ini yang sangat banyak dan mudah di jumpai di Indonesia banyaaaaaaakkkkkkkkk sekaliiiii… terutama di forum-forum. Saya kurang paham arti harfiah hacker wannabe tapi sebenarnya ini lebih cenderung mengarah ke psikologi dimana umum-nya para hacker wannabe ini ingin melakukan sesuatu yang gila dan di luar kenormalan baik di dalam cakupan kemampuannya atau diluar kemampuannya dengan tujuan mendapatkan pengakuan “hebat” atau “mampu” dari orang di sekitarnya. Contoh paling mudah kalau kalian punya teman yang mengaku bisa/jago hacking facebook/friendster dia termasuk dalam kategori hacker wannabe ini…

Script kiddies



, Ini juga sangat mudah dan banyaaaaaaaaaaaaaaaaaaaaaaaaak
bisa di temukan di Indonesia. Kebanyakan script kiddies ini kebanyakan berbicara blablabla padahal sebenarnya dasar tentang apa yang dia lakukan dia tidak paham. Script kiddies bisa di masukkan dalam kategori advanced user dimana keahliannya adalah “menggunakan” bukan “menemukan” apalagi sampai tingkat “menciptakan” kebanyakan manusia bergaya script kiddies adalah para defacer yang suka merubah tampilan website dengan menggunakan tools/software/program yang bukan buatannya/hasil pemikirannya sendiri.

Scammer

Kalau ini sih dulu sempat booming di Indonesia sekitar tahun 2000-2005 kalau di Indonesia dulu di beri julukan frauder alias penipu dunia maya yang cenderung menyukai melakukan penipuan/manipulasi/
generalisasi kartu kredit untuk mendapatkan beberapa barang kesukaannya. Hampir sama jenisnya dengan kracker/phreaker namun sangat ceroboh dan bodoh. Umumnya scammer/frauder ini memahami tentang seluk beluk jaringan namun sangat buta tentang pemrograman dasar dan keamanan.

Newbie… kalau yang ini sih sudah tidak perlu di letakkan dalam posisi abu-abu. Group newbie ini memang benar-benar pemula alias orang yang mungkin benar-benar baru menggunakan komputer. Kebanyakan newbie bisa berkembang menjadi Hacker, kracker, Defacer, Phreaker, Hacker Wannabe, Script kiddies, sampai Scammer. Newbie ini seperti sebuah telur yang akan ditentukan oleh tingkat pengetahuannya untuk menangkap sebuah pelajaran atau keadaan lingkungannya. Newbie bisa berubah menjadi apa saja asal ada pendukungnya dan bagaimana cara dia menilai sesuatu berdasarkan pikirannya.

Carder


Ketika dunia web pertamakali memperkenalkan keindahannya, mulailah muncul beberapa aksi pengrusakan-pengrusakan kecil yang dilakukan oleh para script kiddies. Tujuan utama tak lainhanyalah demi mendapatkan pengakuan (dari kelompoknya sendiri maupun masyarakat). Seiring dengan maraknya organisasi-organisasi yang menerapkan apikasi bisnis berbasis web, tujuan itu mulai berubah. Bukan lagi pengakuan yang mereka incar, tetapi aksi-aksi itu mulai mengarah pada sesuatu yang selama ini populer di kalangan umat manusia hehehe.. apalagi kalo bukan dengan tujuan kekayaan ($uang$). Professional dalam bidang ini mampu menyusup dalam sistem korban tanpa terdeteksi, keudian mencari file database atau log-log transaksi untuk mendapatkan rincian nomor-nomor kartu kredit. Mereka inilah yang kemudian disebut sebagai CARDER, para perampok cyber.
Pada intinya, untuk melakukan penyalahgunaan kartu kredit, yang diperlukan hanyalah nomor kartu, nama pemilik, dan tangal kadaluwarsanya. Jadi, misi utama seorang carder adalah bagaimana mendapatkan nomor-nomor kartu kredit orang lain, kemudian melakuakn transaksi pembelian dengan nomor kartu kredit itu.

Di urut berdasarkan tingkat kemampuan dan berbahaya-nya reputasi berdasarkan kategori :

1. Hacker

2. Phreaker

3. Cracker

4. Scammer

5. Defacer

6. Script kiddies

7. Hacker wannabe

8. Newbie

kalo saya lebih menuju Phreaker
lalu kamu masuk kategori yang mana...??



Pengertian Carding, Hacking, Cracking, Defacing

CARDING

Carding adalah berbelanja menggunakan nomor dan identitas kartu kredit orang lain, yang diperoleh secara ilegal, biasanya dengan mencuri data di internet. Sebutan pelakunya adalah Carder. Sebutan lain untuk kejahatan jenis ini adalah cyberfroud alias penipuan di dunia maya. Menurut riset Clear Commerce Inc, perusahaan teknologi informasi yang berbasis di Texas – AS , Indonesia memiliki carder terbanyak kedua di dunia setelah Ukrania. Sebanyak 20 persen transaksi melalui internet dari Indonesia adalah hasil carding. Akibatnya, banyak situs belanja online yang memblokir IP atau internet protocol (alamat komputer internet) asal Indonesia. Kalau kita belanja online, formulir pembelian online shop

tidak mencantumkan nama negara Indonesia. Artinya konsumen Indonesia tidak diperbolehkan belanja di situs itu.

Menurut pengamatan ICT Watch, lembaga yang mengamati dunia internet di Indonesia, para carder kini beroperasi semakin jauh, dengan melakukan penipuan melalui ruang-ruang chatting di mIRC. Caranya para carder menawarkan barang-barang seolah-olah hasil carding-nya dengan harga murah di channel. Misalnya, laptop dijual seharga Rp 1.000.000. Setelah ada yang berminat, carder meminta pembeli mengirim uang ke rekeningnya. Uang didapat, tapi barang tak pernah dikirimkan.

HACKING

Hacking adalah kegiatan menerobos program komputer milik orang/pihak lain. Hacker adalah orang yang gemar ngoprek komputer, memiliki keahlian membuat dan membaca program tertentu, dan terobsesi mengamati keamanan (security)-nya. Hacker memiliki wajah ganda; ada yang budiman ada yang pencoleng.

Hacker Budiman memberi tahu kepada programer yang komputernya diterobos, akan adanya kelemahan-kelemahan pada program yang dibuat, sehingga bisa “bocor”, agar segera diperbaiki. Sedangkan, hacker pencoleng, menerobos program orang lain untuk merusak dan mencuri datanya.

CRACKING

Cracking adalah hacking untuk tujuan jahat. Sebutan untuk cracker adalah hacker bertopi hitam (black hat hacker). Berbeda dengan carder yang hanya mengintip kartu kredit, cracker mengintip simpanan para nasabah di berbagai bank atau pusat data sensitif lainnya untuk keuntungan diri sendiri. Meski sama-sama menerobos keamanan komputer orang lain, hacker lebih fokus pada prosesnya. Sedangkan cracker lebih fokus untuk menikmati hasilnya.

DEFACING

Defacing adalah kegiatan mengubah halaman situs/website pihak lain, seperti yang terjadi pada situs Menkominfo dan Partai Golkar, BI baru-baru ini dan situs KPU saat pemilu 2004 lalu. Tindakan deface ada yang semata-mata iseng, unjuk kebolehan, pamer kemampuan membuat program, tapi ada juga yang jahat, untuk mencuri data dan dijual kepada pihak lain.

PHREAKING

Phreaking adalah praktek hacking menggunakan telepon, atau mempergunakan media telepon atau peralatan telepon agar si pelaku bisa masuk ke sistem tersebut. Di negara kita phreaking ini belum begitu populer dilakukan.

Program Kalkulator Lengkap Dengan Visual Basic 6.0

Langsung aja ya sob..., untuk tampilan pada program visual basic seperti pada gambar 1 dan penampakan pada saat dijalankan pada gambar 2.

Program Kalkulator Dengan Visual Basic 6.0
gambar 1

Program Kalkulator Lengkap Visual Basic 6.0
gambar 2


Untuk rumus kalkulator hampir sama dengan yang kalkulator sederhana hanya dipersingkat dalam satu prosedure saja agar mudah dalam mengatasi memori penyimpanan dan errornya :-D .
Kurang lebih rumusnya seperti ini :
Private Sub cmdOP_Click(Index As Integer)

On Error GoTo CheckIfOverFlowErr 

If bWasError Then
    Beep
    Exit Sub
End If

If bOp = True And bEqual = False Then 
 nOp = Index 'Remember the last operatore
 Exit Sub 'And..Exit sub
    ElseIf bEqual = True And bOp = True Then 
        If nOp = 1 Or nOp = 2 Then 
            nLastNum = 0 
                Else
                    nLastNum = 1 
        End If
End If

If nOp = 0 Then
    nResult = CDbl(lblOutput.Caption)
End If

Select Case nOp

    Case 1 '+
        nResult = nResult + nLastNum
    Case 2 '-
        nResult = nResult - nLastNum
    Case 3 '*
        nResult = nResult * nLastNum
    Case 4 '/
        
        If nLastNum = 0 Then
            lblOutput.Caption = "Cannot divide by zero."
            bWasError = True
            Exit Sub
            Else
                nResult = nResult / nLastNum
        End If
        
End Select

nOp = Index
bOp = True
bEqual = False
lblOutput.Caption = nResult

If Left$(lblOutput.Caption, 1) = "." Then
    lblOutput.Caption = "0" & nResult
End If

btnFocusEqual.SetFocus

Exit Sub
CheckIfOverFlowErr:

If Err.Number = 6 Then
    lblOutput.Caption = "Value is over max calculation limit."
    bWasError = True
End If

End Sub

Wadaw.. hash :- S Sepertinya panjang juga kalau semua source codenya ditampilkan diartikel ini  ( bilang aja males ngetik lagi Xixixi.. :-D )
atau...
untuk lengkapnya langsung saja sedot sob...

Download Source Code Kalkulator Lengkap dengan Visual Basic 6.0

Kira-kira demikian Contoh Program Visual Basic kali ini, next time saya share juga contoh program penjualan visual basic yang sederhana sampai yang komplek.
Jadi please... balik sini lagi ya sob..
n' Makasih untuk kunjungannya See U...

Database Sederhana Mysql, Acces, Excel Dan Sqlserver Dengan Visual Basic 6.0

On 1:45 AM - No comments

contoh program database sederhana visual basic 6
Dalam Belajar Pemrograman Visual Basic 6.0 tidak lepas dari masalah pengolahan data yang tentunya menggunakan salah satu database, disini saya sertakan contoh program koneksi database sederhana untuk mysql, Acces, Excel, SqlServer dan Oracle
( haha.. diborong semua database , maksudnya sekalian saja gitu sob.. biar ndak usah cari referensinya ditempat lain :-D ). 
Penggunaan database disini diterapkan pada saat login form, dimana setelah membuka database kita harus mengakses tabel yang menyimpan nama user dan passwordnya.
Untuk langkah-langkahnya kira-kira sebagai berikut ( kok kira-kira sih... ) :

1. Tambahkan References Microsoft ActiveX Data Object 2.1 Library

Versi minimal biasanya ‘Microsoft ActiveX Data Object 2.1 Library
database sederhana visual basic 6.0

2. Koneksi Database MySQL dengan vb 6.0

Pada koneksi ke database ke mysql yang perlu diinstall adalah database dan Connector / ODBC MySQL
Link Download MySql
ConnectionString MySql :
connstr = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=contohdb"

3. Koneksi Database MS Access dengan vb 6.0

ConnectionString MS Access :
connstr = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\contohdb.mdb"

4. Koneksi Database Excel dengan vb 6.0

Penggunaan Excel sebagai database dengan ConnectionString :
connstr = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\contohdb.xls;" & "Extended Properties=Excel 8.0;"

5. Koneksi Database Sql Server dengan vb 6.0

ConnectionString pada MS Sql Server :
connstr = "Provider=SQLOLEDB.1;Password=aa;Persist Security Info=True;User ID=sa;Initial Catalog=contohdb;Data Source=localhost"

6. Koneksi Database Oracle dengan vb 6.0

Jika database oracle tidak diinstall di pc sobat, maka diperlukan minimal oracle client harus diinstall sebagai driver perantara antara visual basic dan database oracle itu sendiri.
ConnectionString untuk database Oracle :
connstr = "Provider=MSDAORA.1;Password=aa;User ID=sys;Data Source=contohdb;Persist Security Info=False"

Perbedaan utama koneksi database pada visual basic 6.0 diatas adalah cara mendefinifikan driver pada ConnectionString nya, seperti terlihat pada source code listing program visual basic 6.0 berikut :

Nama File: Form1.frm
Private Sub Command1_Click()
On Error GoTo SALAH
Dim ConnDB As New ADODB.Connection
Dim TBUser As New ADODB.Recordset
     
    If Combo1.ListIndex = 0 Then ' Koneksi Database Access
        connstr = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\contohdb.mdb"
    ElseIf Combo1.ListIndex = 1 Then ' Koneksi Database Excel
        connstr = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\contohdb.xls;" & "Extended Properties=Excel 8.0;"
    ElseIf Combo1.ListIndex = 2 Then ' Koneksi Database Sql Server
        connstr = "Provider=SQLOLEDB.1;Password=aa;Persist Security Info=True;User ID=sa;Initial Catalog=contohdb;Data Source=localhost"
    ElseIf Combo1.ListIndex = 3 Then ' Koneksi Database MySql
        connstr = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=contohdb"
    ElseIf Combo1.ListIndex = 4 Then ' Koneksi Database Oracle
        connstr = "Provider=MSDAORA.1;Password=aa;User ID=sys;Data Source=contohdb;Persist Security Info=False"
    End If
     
    ConnDB.Open connstr
    TBUser.Open "Select * from tbuser where NamaUser ='" & Text1.Text & "'", ConnDB
     
    Do Until TBUser.EOF
        i = i + 1: TBUser.MoveNext
    Loop
     
    If i > 0 Then
        TBUser.MoveFirst
        If TBUser.Fields("PasswordUser") = Text2.Text Then
            MsgBox "Login Berhasil !"
        Else: MsgBox "maaf password tidak sesuai.. !"
        End If
    Else
        MsgBox "Nama User tidak ditemukan.. !"
    End If
     
    Unload Me
Exit Sub
SALAH:
    MsgBox "Tidak dapat konek ke Database..!"
    Unload Me
End Sub
Private Sub Command2_Click()
    Unload Me
End Sub
Private Sub Form_Load()
    Combo1.ListIndex = 0
End Sub

Download Source Code

Demikian contoh program database sederhana dengan visual basic 6.0 mudah-mudah cukup bermanfaat untuk referensi belajar visual basic.

Daftar Software Portable