Enkripsi adalah proses mengamankan suatu informasi dengan membuat informasi tersebut tidak dapat dibaca tanpa bantuan pengetahuan khusus.

Enkripsi dapat digunakan untuk tujuan keamanan, tetapi teknik lain masih diperlukan untuk membuat komunikasi yang aman, terutama untuk memastikanintegritas dan autentikasi dari sebuah pesan. Contohnya, Message Authentication Code (MAC) atau digital signature. Penggunaan yang lain yaitu untuk melindungi dari analisis jaringan komputer.

Sebuah cipher adalah sebuah algoritma untuk menampilkan enkripsi dan kebalikannya dekripsi, serangkaian langkah yang terdefinisi yang diikuti sebagai prosedur. Alternatif lain ialahencipherment. Informasi yang asli disebut sebagai plaintext, dan bentuk yang sudah dienkripsi disebut sebagai chiphertext. Pesan chipertext berisi seluruh informasi dari pesan plaintext, tetapi tidak dalam format yang didapat dibaca manusia ataupun komputer tanpa menggunakan mekasnisme yang tepat untuk melakukan dekripsi.

Cipher pada biasanya memiliki parameter dari sebagian dari informasi utama, disebut sebagai kunci. Prosedur enkripsi sangat bervariasi tergantung pada kunci yang akan mengubah rincian dari operasi algoritma. Tanpa menggunakan kunci, chiper tidak dapat digunakan untuk dienkirpsi ataupun didekripsi.

Bagaimakah Cara Membuat Huruf Korea Seperti Diatas ?

Langkah - Langkahnya Sebagai Berikut :

1. Buka program Visual Basic 6.0

2. Atur property objek sebagai berikut :

3. Menulis fungsi - fungsi yang saya ambil dari API GUIDE seperti dibawah ini :

- Fungsi yang berguna untuk membuat window region berupa pada sebuah window.
Private Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long

- Fungsi yang berguna untuk membuat window region berupa pada sebuah window.

Private Declare Function CreateRoundRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long

- Fungsi yang berguna untuk membuat region berupa polygon.

Private Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long

- Fungsi yang berguna untuk membuat fariasi yang ada pada window.

Private Declare Function CombineRgn Lib "gdi32" (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long

- Fungsi yang berguna untuk membuat persegi dengan sudut yang tumpul (melengkung).

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Declare Function ReleaseCapture Lib "user32" () As Long

4. Menulis kode untuk region pada form load dengan menekan f7 atau klik 2x pada form tersebut :

Private Sub Form_Load()

'huruf g/k

dpai1 = CreateRectRgn(90, 100, 300, 320)

dpai2 = CreateRectRgn(180, 140, 220, 320)

dpai3 = CreateRectRgn(90, 100, 220, 140)

CombineRgn dpai1, dpai1, dpai2, 1

CombineRgn dpai1, dpai1, dpai3, 2

'huruf (d/t)

dpai4 = CreateRectRgn(260, 100, 300, 320)

dpai6 = CreateRectRgn(260, 100, 390, 140)

dpai7 = CreateRectRgn(260, 280, 390, 320)

'dpai5 = CreateRectRgn(390, 100, 350, 320)

CombineRgn dpai1, dpai1, dpai4, 2

CombineRgn dpai1, dpai1, dpai6, 2

CombineRgn dpai1, dpai1, dpai7, 2

'CombineRgn dpai1, dpai1, dpai5, 2

'huruf (eu)

dpai8 = CreateRectRgn(430, 100, 600, 140)

dpai9 = CreateRectRgn(430, 320, 480, 320)

CombineRgn dpai1, dpai1, dpai8, 2

CombineRgn dpai1, dpai1, dpai9, 2

'huruf (i)

dpai13 = CreateRectRgn(630, 150, 670, 320)

dpai14 = CreateRectRgn(640, 150, 670, 320)

CombineRgn dpai1, dpai1, dpai13, 2

CombineRgn dpai1, dpai1, dpai14, 2

'huruf (ma/m)

dpai15 = CreateRectRgn(860, 100, 900, 280)

dpai16 = CreateRectRgn(860, 100, 750, 140)

dpai17 = CreateRectRgn(900, 280, 750, 320)

dpai18 = CreateRectRgn(730, 100, 770, 320)

CombineRgn dpai1, dpai1, dpai15, 2

CombineRgn dpai1, dpai1, dpai16, 2

CombineRgn dpai1, dpai1, dpai17, 2

CombineRgn dpai1, dpai1, dpai18, 2

'huruf (Na)

dpai17 = CreateRectRgn(950, 280, 1150, 320)

dpai18 = CreateRectRgn(990, 100, 950, 320)

CombineRgn dpai1, dpai1, dpai17, 2

CombineRgn dpai1, dpai1, dpai18, 2

'huruf (Ra)

dpai17 = CreateRectRgn(90, 360, 220, 340)

dpai18 = CreateRectRgn(220, 420, 200, 350)

dpai19 = CreateRectRgn(90, 440, 220, 420)

dpai20 = CreateRectRgn(90, 540, 110, 420)

dpai21 = CreateRectRgn(90, 540, 220, 520)

CombineRgn dpai1, dpai1, dpai17, 2

CombineRgn dpai1, dpai1, dpai18, 2

CombineRgn dpai1, dpai1, dpai19, 2

CombineRgn dpai1, dpai1, dpai20, 2

CombineRgn dpai1, dpai1, dpai21, 2

'huruf (Ba/B/P)

dpai18 = CreateRectRgn(250, 540, 270, 340)

dpai17 = CreateRectRgn(250, 480, 370, 460)

dpai19 = CreateRectRgn(250, 540, 370, 520)

dpai20 = CreateRectRgn(370, 540, 350, 340)

CombineRgn dpai1, dpai1, dpai18, 2

CombineRgn dpai1, dpai1, dpai17, 2

CombineRgn dpai1, dpai1, dpai19, 2

CombineRgn dpai1, dpai1, dpai20, 2

'huruf (Kha/Kh)

dpai17 = CreateRectRgn(390, 340, 530, 360)

dpai18 = CreateRectRgn(530, 540, 510, 340)

dpai19 = CreateRectRgn(410, 440, 510, 460)

CombineRgn dpai1, dpai1, dpai17, 2

CombineRgn dpai1, dpai1, dpai18, 2

CombineRgn dpai1, dpai1, dpai19, 2

'huruf (Tha/Th)

dpai17 = CreateRectRgn(550, 340, 670, 360)

dpai18 = CreateRectRgn(550, 540, 570, 340)

dpai19 = CreateRectRgn(550, 430, 680, 450)

dpai20 = CreateRectRgn(550, 540, 680, 520)

CombineRgn dpai1, dpai1, dpai17, 2

CombineRgn dpai1, dpai1, dpai18, 2

CombineRgn dpai1, dpai1, dpai19, 2

CombineRgn dpai1, dpai1, dpai20, 2

'huruf (Pha/P)

dpai17 = CreateRectRgn(820, 340, 690, 360)

dpai18 = CreateRectRgn(750, 540, 730, 340)

dpai19 = CreateRectRgn(770, 540, 790, 340)

dpai20 = CreateRectRgn(820, 540, 690, 520)

CombineRgn dpai1, dpai1, dpai17, 2

CombineRgn dpai1, dpai1, dpai18, 2

CombineRgn dpai1, dpai1, dpai19, 2

CombineRgn dpai1, dpai1, dpai20, 2

'huruf (a)

dpai17 = CreateRectRgn(970, 430, 860, 410)

dpai18 = CreateRectRgn(850, 540, 870, 340)

CombineRgn dpai1, dpai1, dpai17, 2

CombineRgn dpai1, dpai1, dpai18, 2

'huruf (ae)

dpai18 = CreateRectRgn(1010, 540, 990, 340)

dpai17 = CreateRectRgn(1200, 430, 990, 410)

dpai19 = CreateRectRgn(1200, 540, 1100, 340)

CombineRgn dpai1, dpai1, dpai18, 2

CombineRgn dpai1, dpai1, dpai17, 2

CombineRgn dpai1, dpai1, dpai19, 2

SetWindowRgn Form.hwnd, dpai1, True

End Sub

5.  Simpan program lalu jalankan (tekan f5)

SEMOGA BERMANFAAT..... :-)

Langkah pertama membuat file DLL :
1. Buka program visual basic
2. Pilih ActiveX DLL dan open
3. Masukkan rumus sesuai pilihan
4. Ketika ada rumus menggunakan integer maka rubah menjadi double dengan cara :
    a. Blok pada kata integer
    b. Tekan tombol ctrl+h pada kayboard
    c. Pilih replace with ketikkan double
    d. Klik replace all dan close
5. Nama project diganti "bangun" dan nama class diganti "rumus"
6. Klik file dan pilih make bangun.dll
7. Buat folder dan klik ok

Langkah Kedua buat desain :
1. Buka program visual basic
2. Pilih Standart EXE
3. Pilih project
4. Pilih references
5. Pilih nama project dll yang sudah dibuat tadi "bangun"
6. Klik ok
7. Desain sesuain keinginan, misalnya seperti contoh yang sudah dijelaskan sebelumnya, jadi langsung aja masuk ke perhitungan persegi panjang.
8. Buat frame pada from dengan caption "persegi panjang"

9. Didalam frame buat frame lagi dengan nama caption "keliling persegi panjang"
    a. buat table dengan nama panjang dan lebar
    b. buat textbok pada tabel panjang di property name diganti "p" dan tabel lebar dengan name diganti "l" kemudian semua text dikosongkan. 

    c. buat lagi textbok pada property name "kell" dan text "hasil"
    d. buat commendbutton pada property name "hkell" dan caption "hitung"

    e. klik 2x pada tombol hitung dan ketikkan :
        Dim api As New bangun.rumus
        Private Sub hkell_Click()
        kell = api.kell_ppanjang(Val(p), Val(l))
        End Sub

10. Buat kembali frame pada caption beri nama "luas persegi panjang"
    a. buat table dengan nama panjang dan lebar
    b. buat textbok pada tabel panjang di property name diganti "p2" dan tabel lebar dengan name diganti "l2" kemudian semua text dikosongkan. 

    c. buat lagi textbok pada property name "luas" dan text "hasil"
    d. buat commendbutton pada property name "hluas" dan caption "hitung"
    e. klik 2x pada tombol hitung dan ketikkan :
        Dim api As New bangun.rumus
        Private Sub hluas_Click()
        luas = api.luas_ppanjang(Val(p2), Val(l2))
        End Sub

11. Begitulah cara membuat rumus menggunakan ActiveX DLL, bangun datar dan bangun ruang lainnya, berikut ini contoh gambar persegi panjang :

SELAMAT MENCOBA SEMOGA BERHASIL.....  :-)

1. Buka Visual Basic

2. Buat Class Modules :

    a. klik kanan pada form yang terletak pada project explorer

    b. pilih add

    c. lalu pilih class module dan open

    d. tulis rumus bangun datar dan bangun ruang yang sudah dipilih
    e. save rumus pada class modules dengan format .cls
3. Masuk klik frame pada form dan atur sesuai keinginan, lalu hias dan beri tombol-tombol catanya seperti yang sudah dibahas sebelumnya, seperti gambar berikut :

4.  Apabila ingin melingkan misalnya pada persegi panjang klik 2x pada tombol persegi dan ketikkan :
Private Sub Command2_Click()
Form5.Show
End Sub

5. buat frame pada caption beri nama "keliling persegi panjang"
    a. buat table dengan nama panjang dan lebar
    b. buat textbok pada tabel panjang di property name diganti "p" dan tabel lebar dengan name diganti "l" kemudian semua text dikosongkan.
    c. buat lagi textbok pada property name "kell" dan text "hasil"
    d. buat commendbutton pada property name "hkell" dan caption "hitung"
    e. klik 2x pada tombol hitung dan ketikkan :
        Dim api As New Class1
        Private Sub hkell_Click()
        kell.Text = api.kell_ppanjang(Val(p.Text), Val(l.Text))
        End Sub

6. buat kembali frame pada caption beri nama "luas persegi panjang"
    a. buat table dengan nama panjang dan lebar
    b. buat textbok pada tabel panjang di property name diganti "p" dan tabel lebar dengan name diganti "l" kemudian semua text dikosongkan.
    c. buat lagi textbok pada property name "luas" dan text "hasil"
    d. buat commendbutton pada property name "hluas" dan caption "hitung"
    e. klik 2x pada tombol hitung dan ketikkan :
        Dim api As New Class1
        Private Sub hluas_Click()
        luas.Text = api.luas_ppanjang(Val(p1.Text), Val(l1.Text))
        End Sub

7. begitu seterusnya dengan bangun darar dan bangun ruang yang lainnya, serta berikut contoh gambar :

INGAT JANGAN MUDAH MENYERAH....

Langkah pertama klik frame pada from dan atur sesuai keinginan anda, lalu ketikan kata-kata seperti       gambar berikut agar terlihat cantik :

Langkah ke dua kita buat gambar klik pada Picture Box dan letakkan pada from lalu pada property pilih picture yang akan digunakan dan klik open hasilnya sebagai berikut :

Langkah ke tiga buat tombol klik pada commend button geser ke form, pada tabel property "caption" diganti dengan "bangun datar" dan "name" diganti "datar". begitu juga dengan tombol yang lainnya tetapi pada "caption dan name" sesuai yang anda inginkan, berikut ini gambaran tombol button :

Apabila ingin melinkkan tombol bangun datar klik 2x pada tombol bangun datar menggunakan perintah sebagai berikut:
Private Sub datar_Click()
b_bgndatar.Show
End Sub

Begitu pula pada tombol bangun ruang klik 2x pada tombol bangun ruang dan ketikkan :
Private Sub ruang_Click()
c_bgnruang.Show
End Sub

Sedangkan tombol button keluar klik 2x pada tombol button keluar dan ketikkan :
Private Sub keluar_Click()
Unload Me
End Sub

Langkah ke empat, buat form baru dengan name "b_bgndatar" dan caption "bangun datar" dan  klik frame pada from dan atur sesuai keinginan anda, lalu buat tombol klik pada commend button geser ke form, pada tabel property misal pada "caption" diganti dengan "persegi" dan "name" diganti "persegi". begitu juga dengan tombol yang lainnya tetapi pada "caption dan name" sesuai yang anda inginkan, berikur gambaran pada form bangun datar.

apabila ingin melinkkan tombol persegi agar masuk ke proses persegi klik 2x pada persegi lalu ketikkan :
Private Sub persegi_Click()
d_persegi.Show
End Sub

Begitu pula dengan tombol-tombol berikutnya perintahnya seperti diatas tinggal ke form berapa yang akan di linkkan.

Langkah ke empat misalnya kita membuat persegi buat form baru dengan name "d_persegi" dan caption "persegi" dan  klik frame pada from dan atur sesuai keinginan anda.
1. pada frame keliling persegi buat label sengan nama sisi.
2. buat textbok lalu pada properrty "name" diberi nama  "s" sedangkan teksnya dikosongkan.
3. buat tombol untuk menghitung klik commend button dan pada property "name" diganti "hkell" dan     "caption" diganti "hitung".
4. klik 2x pada tombol hitung dan ketikan rumus sebagai berikut :
Private Sub hkell_Click()
kellp = 4 * Val(s)
kell.Caption = kellp
End Sub

lalu buat frame kembali untuk membuat luas persegi
1. buat label dengan nama sisi
2. buat textbok lalu pada properrty "name" diberi nama  "s2" sedangkan teksnya dikosongkan.
3. buat tombol untuk menghitung klik commend button dan pada property "name" diganti "htgluas" dan     "caption" diganti "hitung".
4. klik 2x pada tombol hitung dan ketikan rumus sebagai berikut :

Private Sub htgluas_Click()

luasp = Val(s2) * Val(s2)

luas.Caption = luasp

End Sub

sedangkan pada form d_persegi apabila sudah selesai dijalankan agar tampilan form itu langsug hilang maka menggunakan perintah sebagai berikut :

Private Sub Form_Load()

b_bgndatar.Visible = False

End Sub

lalu beri keterangan dan gambar agar terlihat cantik dan interaktif, seperti gambar sebagai berikut :

begitu seterusnya dalam bangun ruang dan bangun datar, akan tetapi rumus-rumusnya yang berbeda.
                                                   

                                                        SELAMAT MENCOBA....

Untuk membuat tombol button yang pertama kita lakukan adalah kita klik pada tolls sebelah pojok kiri dengan nama Commend Button lalu kita geser ke dalam tabel form dan jangan lupa pada caption pada pojok kanan ganti namanya dengan bangun datar sehingga seperti gambar berikut ini :

Apabila kita ingin menglinkkan ke form 2 atau ke form lainnya maka kita klik 2x misalnya pada tombol bangun datar kita link ke form 2 maka kita gunakan perintah sebagai berikut :
Private Sub datar_Click()
Form2.Show
End Sub

Selanjutnya kita buat agar form 1 di klik maka akan lanjut ke form 2 dan form 1 tersebut tidak kelihatan maka kita klik 2x pada form 2 dan ketikkan perintah seperti di bawah ini :
Private Sub Form_Load()
Form1.Visible = False
End Sub

Sedangkan bangun ruang perintahnya sama dengan yang di atas, dan tombol keluar kita klik 2x dan ketikan perintah sebagai berikut :
Private Sub keluar_Click()
exit()
End Sub

Pertama kali kita lakukan adalah kita harus memastikan bahwa Form tersebut sudah dalam kondisi terpilih apabila tidak maka klik pada Form tersebut.

Kemudian Klik Menu Tools – Menu Editor untuk menampilkan jendela menu editor. maka akan muncul tampilan sebagai berikut :

Pada menu editor kita bisa membuat menu toolbar sebagai berikut :

Kemudian Klik OK. Sehingga pada tampilan form menu utama, akan tampil menu

seperti berikut :

Begitulah cara membuat text menubar.

IDE Visual Basic

IDE (Integrated Developement Environment) Visual Basic yang merupakan Lingkungan Pengembangan Terpadu bagi programmer dalam mengembangkan aplikasinya. Dengan menggunakan IDE programmer dapat membuat user interface, melakukan koding, melakukan testing dan debuging serta menkompilasi program menjadi executable.

Menjalankan IDE

Pilih menu Start, pilih menu Command, dan pilih Microsoft Visual Basic 6.0 dan akhirnya Microsoft Visual Basic 6.0.

Lalu Memilih jenis ProjectSesaat anda aktif di IDE Visual Basic, maka akan dihadapkan pada suatu pilihan jenis Project yang ingin buat seperti yang ditunjukan oleh gambar di bawah ini. Sebagai langkah awal dari proses belajar adalah memilih project Standard EXE.

Ada beberapa project yang biasa digunakan oleh pengguna Visual Basic, antara lain:

1.  Standard EXE: Project standar dalam Visual Basic dengan komponen -komponen standar. Jenis project ini sangat sederhana, tetapi memiliki keunggulan bahwa semua komponennya dapat diakui oleh semua unit komputer dan semua user meskipun bukan administrator. Pada buku ini akan digunakan project Standard EXE ini, sebagai konsep pemrograman visualnya.

2.  ActiveX EXE: Project ini adalah project ActiveX berisi komponen-komponen
kemampuan intuk berinteraksi dengan semua aplikasi di sistem operasi windows.

3.  ActiveX DLL: Project ini menghasilkan sebuah aplikasi library yang selanjutnya
dapat digunakan oleh semua aplikasi di sistem operasi windows.

4.  ActiveX Control: Project ini menghasilkan komponen-komponen baru untuk
aplikasi Visual Basic yang lain.

5.  VB Application Wizard: Project ini memandu pengguna untuk membuat aplikasi secara mudah tanpa harus pusing-pusing dengan perintah-perintah pemrograman.

6.  Addin: Project seperti Standard EXE tetapi dengan berbagai macam komponen tambahan yang memungkinkan kebebasan kreasi dari pengguna.

7.  Data project: Project ini melengkapi komponennya dengan komponen-komponen database. Sehingga bisa dikatakan project ini memang disediakan untuk keperluan pembuatan aplikasi database.

8.  DHTML Application: Project ini digunakan untuk membuat aplikasi internet
pada sisi client (client side) dengan fungsi-fungsi DHTML.

9.  IIS Application: Project ini menghasilkan apliaksi internet pada sisi server
(server side) dengan komponen-komponen CGI (Common Gateway Interface).Jendela IDE

Gambar di atas  terdapat jendela-jendela yang perlu di perhatikan adalah sebagai berikut :

1.   Menu Bar, digunakan untuk memilih tugas-tugas tertentu seperti menyimpan project, membuka project, dll

2.  Main Toolbar, digunakan untuk melakukan tugas-tugas tertentu dengan cepat.

3.  Jendela Project, jendela ini berisi gambaran dari semua modul yang terdapat dalam aplikasi.

4.  Jendela Form Designer, jendela ini merupakan tempat anda untuk merancang user interface dari aplikasi anda. Jadi jendela ini menyerupai kanvas bagi seorang pelukis.

5.  Jendela Toolbox, jendela ini berisi komponen-komponen yang dapat anda gunakan untuk mengembangkan user interface.

6.  Jendela Code, merupakan tempat bagi anda untuk menulis koding. Anda dapat menampilkan jendela ini dengan menggunakan kombinasi Shift-F7.