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.