Pustaka

Aplikasi Hp Samsung Banyak di Download Samsung merupakan salah satu pabrikan ponsel ternama yang memiliki banyak pengguna menyebar diberbagai Negara, termasuk Indonesia. Belakangan ini nama Samsung kian populer setelah perusahaan ponsel asal negeri gingseng ini sukses dengan beberapa produknya dengan menggandeng Android sebagai OS ponsel.

Aplikasi Java Pilihan Terbaru Java merupakan salah satu bahasa pemograman yang sangat populer. Lewat bahasa pemograman yang sangat familiar ini terciptalah sejumlah game dan aplikasi yang sangat menarik, pintar dan mengasyikkan.

Ada sejumlah game dan aplikasi favorit yang telah dihasilkan dari bahasa pemograman Java. Sebagian besar dari sekian aplikasi yang sudah tercipta saat ini telah menjadi aplikasi yang paling banyak digunakan oleh pengguna gadget.

Bagi kalangan pengguna gadget, aplikasi adalah salah satu perangkat lunak yang sangat menarik minat mereka. Selain memfungsikan gadget sebagai perangkat untuk berkomunikasi mereka juga menggunakannya untuk memainkan game.

Berikut beberapa game dan aplikasi ponsel yang sangat familiar yang diciptakan dari bahasa pemograman Java.

Game Hp China Touchscreen Favorit Download Ponsel pabrikan China dengan harganya yang jauh berada dibawah ponsel-ponsel pabrikan ternama, seperti Samsung, Sony Ericsson, Nokia atau pabrikan ponsel papan atas lainnya membuat sebagian besar pengguna ponsel lokal lebih memilih ponsel pabrikan China.

Sebagian pengguna ponsel memanfaatkan ponsel mereka untuk memainkan game selain untuk digunakan sebagai alat komunikasi. Para pengguna ponsel buatan China saling berburu game dan aplikasi kesukaan mereka melalui situs-situs penyedia game/aplikasi untuk ponsel China yang meraka gunakan.

Dalam beberapa waktu terakhir ini game dan aplikasi yang paling banyak dicari oleh pengguna handphone pabrikan China adalah game/aplikasi untuk ponsel China Touchscreen. Anda mungkin tertarik untuk mengetahui game dan aplikasi apa saja yang saat ini paling digemari oleh sebagian pengguna.

Dibawah ini adalah beberapa aplikasi/game touch screen untuk hp China yang paling banyak di download oleh sebagian besar pengguna ponsel China.

Jika anda tertarik dengan game dan aplikasi diatas, anda bisa mendownloadnya melalui situs-sit

Tags aplikasi hp china touch screen software hp china aplikasi hp china cross aplikasi tv untuk hp china download aplikasi hp china touchscreen aplikasi hp china java aplikasi hp china 220x176 aplikasi hp china 320x240 

Berikut ini adalah Source Code Program Enkripsi Dekripsi Data Dengan Menggunakan Algoritma Monoalpabetik VB 6.0 Ehm langsung aja ya. ni gua punya punya program untuk enkripsi dan dekripsi data dengan VB 6.0 dengan menggunakan algoritma Monoalpabetik.

Untuk Source nya nich aja ya...!!!

Keterangan metode monoalpabetik > Untuk pemetaan, digunakan string atau kalimat tertentu sebagai kunci.

Misalnya menggunakan nama seseorang.
String yang digunakan sebagai kunci tersebut, diekstrak, sehingga menjadi string dengan semua karakternya berbeda, tetapi urutan dalam string tetap sama.
Hasil ekstrak digunakan untuk menyusun nilai pemetaan dengan menambahkan karakter yang belum ada.

Contoh 4.1:

String kunci: RETANTYO WARDOYO
Diekstrak menjadi: RETANYOWD

String kunci: HARI INI TIDAK ADA KULIAH
Diekstrak menjadi: HARINTDKUL

Source Code
Private Sub cmd_dekrip_Click()
If keyword.Caption = "" Then
MsgBox "Isi Kunci dan Tekan Tombol Generate"
ElseIf txtchiper.Text = "" Then
MsgBox "Isi Chiper Text Terlebih Dahulu"
Else
Dim e, eo, o, oo, inp, inpo As String
Dim p, po As Integer
inp = txtchiper.Text
p = Len(txtchiper.Text)
inpo = keyword.Caption
po = Len(keyword.Caption)
For i = 1 To p
e = Mid(inp, i, 1)
For x = 1 To po
eo = Mid(inpo, x, 1)
If eo <> e Then
GoTo 1
Else
GoTo 2
End If
1 Next x
2 txtplain.Text = txtplain.Text + Mid(Label5.Caption, x, 1)
Next i
End If
End Sub

Private Sub cmd_Generate_Click()
keyword.Caption = ""
Dim Enkrip, Output, Inputan As String
Dim Panjang_Input As Integer
Inputan = key.Text + "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Panjang_Input = Len(key.Text + "ABCDEFGHIJKLMNOPQRSTUVWXYZ")
For i = 1 To Panjang_Input
Enkrip = Mid(Inputan, i, 1)
key2.Caption = Enkrip
Next i
End Sub

Private Sub Enkrip_Click()
If keyword.Caption = "" Then
MsgBox "Isi Kunci dan Tekan Tombol Generate"
ElseIf txtplain.Text = "" Then
MsgBox "Isi Plain Text Terlebih Dahulu"
Else
Dim e, o, inp As String
Dim p As Integer
inp = txtplain.Text
p = Len(txtplain.Text)
For i = 1 To p
e = Mid(inp, i, 1)
e = Asc(e) - 64
txtchiper.Text = txtchiper.Text + Mid(keyword.Caption, e, 1)
Next i
End If
End Sub

Private Sub Form_Load()
MsgBox "Program ini hanya menerima karakter A-Z Tanpa Tanda Baca"
End Sub

Private Sub key2_Change()
Dim enk, out, masuk As String
Dim panjang As Integer
masuk = keyword.Caption
panjang = Len(keyword.Caption)
For i = 1 To panjang
enk = Mid(masuk, i, 1)
If key2.Caption <> enk Then
GoTo 2
Else
GoTo 1
End If
2 Next i
keyword.Caption = keyword.Caption + key2.Caption
1 End Sub

Sedikit share ilmu diatas somoga bermanfaat dan bisa membatu anda belajar Source Code Program Enkripsi Dekripsi Data Dengan Menggunakan Algoritma Monoalpabetik VB 6.0, selamat mencoba dan semoga berhasil, amin,,

Sumber : http://organisasi.org/