Membuat Cryptography : Encryption & Decryption Dengan VB.Net 2008

Pada sharing tutorial kali ini gw membahas bagaimana membuat encryption & decryption menggunakan fasilitas program VB.Net. Banyak keuntungan dalam menggunakan fasilitas cryptography itu sendiri. Para ‘intruders’ / orang yang tidak bertanggung jawab mempunyai banyak cara untuk mengambil data-data penting yang telah kita simpan seperti password. Data-data penting tersebut haruslah di proteksi sedemikian rupa dengan tingkat pengawasan yang sesuai. Nah dengan adanya fasilitas penggunaan cryptography, ‘bahaya’ besar tersebut dapat diminimalisirkan.

Berikut ini langkah-langkah dalam pembuatan aplikasi sederhana kaitannya dengan encryption & decryption :

 

Buat Form seperti pada gambar Tampilan Program diatas. Adapun Attributes dalam form tersebut adalah :

• (1) : Textbox – txtInput
• (2) : Textbox – txtEncrypt
• (3) : Textbox – txtDecrypt
• (4) : Button – btnEncrypt
• (5) : Button – btnDecrypt

Setelah selesai membuat form seperti pada gambar diatas maka langkah selanjutnya adalah peng-codingan aplikasi :
1. Buat Module terlebih dahulu. Nama module terserah dengan keinginan teman-teman. Di program ini gw beri nama modProcedures. Codingnya sbb :

Imports System.Text

Imports System.Windows.Forms

Module modProcedures

'public variables

Private Const INT_lens As Integer = 1

Public str As StringBuilder

Public searchStr As String

Dim b As Integer = 6

Dim p() As Integer = {2, 4, 7, 9, 3, INT_lens}

Dim i As Integer

Dim j As Integer

Dim k As Integer

Dim c As Integer

Dim lens As Integer

'Encrypt function

Public Function Encrypt(ByVal inputstr As String)

str = New StringBuilder(inputstr)

lens = str.Length

While (lens < b) OrElse (lens Mod b)

str.Append(" ")

lens += INT_lens

End While

For i = 0 To ((lens / b) - INT_lens)

For j = 0 To (b - INT_lens)

k = p(j) + 100

c = (6 * i + j)

str.Replace(str.Chars(c), Chr(Asc(str.Chars(c)) + k), c, INT_lens)

Next

Next

Return str.ToString

str = Nothing

End Function

'Decrypt function

Public Function Decrypt(ByVal inputstr As String)

str = New StringBuilder(inputstr)

lens = str.Length

While (lens < b) OrElse (lens Mod b)

str.Append(" ")

lens += INT_lens

End While

For i = 0 To ((lens / b) - INT_lens)

For j = 0 To (b - INT_lens)

k = p(j) + 100

c = (6 * i + j)

str.Replace(str.Chars(c), Chr(Asc(str.Chars(c)) - k), c, INT_lens)

Next

Next

Return str.ToString

str = Nothing

End Function

 =======================================================

2. Setelah itu baru kita masuk ke coding di form yang telah dibuat. Codingnya sbb :

Public Class Form1

Private Sub btnEncrypt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEncrypt.Click

Me.txtEncrypt.Text = Encrypt(Me.txtInput.Text)

End Sub

Private Sub btnDecrypt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDecrypt.Click

Me.txtDecrypt.Text = Decrypt(Me.txtEncrypt.Text)

 End Sub

End Class

========================================================

                                Contoh Program Encryption & Decryption Dengan VB.Net

Program ini adalah contoh paling sederhana dari penggunaan cryptography. Dapat dimodifikasi sesuai dengan kebutuhan teman-teman. Apabila ada masukan dan hal-hal yang kurang dimengerti langsung isi comment dibawah ^_^

Read More

Membuat Program Kontak Berfoto dengan VB.NET dan SQLServer

Biasanya jika membuat program sederhana yang menggunakan basisdata (database), program kontak-lah yang sering menjadi kasus. Karena membuat programnya kontak tidak ada proses yang berarti hanya mengisi data, simpan dan ditampilkan kembali. Kali ini saya akan berbagi membuat program kontak lengkap dengan foto dari isi kontak menggunakan bahasa pemrograman Visual Basic.NET 2008 dan basisdatanya menggunakan SQLServer2008. Program ini juga dapat dicoba menggunakan versi sebelumnya.

Ada beberapa tahapan yang harus dilakukan untuk membuat program kontak ini, yaitu :

A. Menyiapkan Basisdata Buatlah database dengan nama yang dipilih, misal vbnet_saya. Kemudian buatlah sebuah table sesuai dengan skrip SQL dibawah ini :

 

 

CREATE TABLE [dbo].[tbl_kontak](
 [id] [varchar](6) NOT NULL,
 [nama] [varchar](50) NULL,
 [alamat] [varchar](50) NULL,
 [phone] [varchar](50) NULL,
 [email] [varchar](50) NULL,
 [foto] [varchar](50) NULL
) ON [PRIMARY]

Jika pernyataan diatas di-eksekusi maka akan tercipta sebuah table yang bernama tbl_kontak.

B. Membuat Project Baru Visual Basic.NET Sekarang memulai membuat project baru di Visual Basic.NET, untuk pertama kali tambahkan sebuah Class yang berisi pernyataan koneksi ke basisdata. Caranya dari menu Project, pilih Add Item, pilih Class, kemudian berinama clskoneksi.vb dan masukkan kodenya.  Kode koneksi harus disesuaikan dengan nama database (YYYY) dan nama server (XXXXX) yang digunakan.

cn = New OleDb.OleDbConnection("Provider=SQLOLEDB.1;

Integrated Security=SSPI;
Persist Security Info=False;User ID=sa;Password=;

Initial Catalog=YYYY;Data Source=XXXXX")

Kode dapat didownload disini.

C. Membuat Form Kontak

Setelah membuat class untuk koneksi database, selanjutnya buatlah sebuah form kontak. Untuk menambahkan form baru, klik menu Project, pilih Add Windows Form, kemudian berinama form tersebut dengan frmKontak.vb. Untuk form kontak dibutuhkan beberapa objek yaitu, Label, TextBox, Button dan ListView. Dibawah ini adalah layout form kontak : 

 

D. Kode Form Kontak

Agar form dapat berfungsi dibutuhkan kode untuk mengontrol jalannya objek form tersebut.  Jika program dieksekusi maka akan memeriksa ke database IDKontak terakhir, jika belum ada maka akan mencetak KON001, jika sudah ada maka akan menambahkan 1 angka pada angka terakhir. Pada Listview (lstKontak) akan menampilkan isi table tbl_kontak yang terurut berdasarkan nama.

Untuk menambahkan data baru cukup memasukkan nama, alamat, telepon dan email pada kolom yang ada. Untuk menambahkan foto cukup meng-klik kotak foto maka akan muncul kotak dialog untuk memilih foto yang diinginkan. Kemudian klik tombol Simpan untuk menyimpan data yang dimasukkan.

Untuk mengubah data yang diinginkan cukup memilih nama dalam ListView maka akan muncul data yang siap di-edit pada form. Lakukan perubahan terhadap nama, alamat, telepon, email dan foto, kemudian klik tombol Ubah.

Untuk menghapus data, lakukan langkah seperti meng-edit data dan menekan tombol Hapus. Sedangkan tombol Batal untuk membatalkan semua proses yang telah dilakukan.

Setiap memilih baris data pada Listview maka form akan memuat data yang dipilih dan menampilkan foto kontak.

Berikut ini adalah hasil dari eksekusi program kontak.

 

 

Program ini masih banyak kekurangan, sekiranya dapat disempurnakan kembali. Selamat mencoba.

Read More

Membuat Laporan di VB.Net 2008 dengan Crystal Report

Di postingan Kali ini kita akan membuat laporan sederhana menggunakan Crystal Report, Crystal Report yang kita gunakan adalah versi yang dibundle bersama Visual Studio 2008.

Pertama-tama buat database di SQL Server dan beri nama testing. Kemudian buat tabel tbl_buku seperti berikut ini : 

Buat project baru VB.Net 2008 lalu berinama bikinlaporan kemudian buatlah sebuah code file untuk koneksi caranya (Project - Add New Item -> Pilih Code File). Isikan kode berikut ini :

Imports System.Data.SqlClient  
 Public Module modulkoneksi  
 #Region "Deklarasi Variabel"  
   Public koneksi As SqlConnection = Nothing  
   Public cmd As SqlCommand = Nothing  
 #End Region  
 #Region "Fungsi Testing Koneksi Database"  
   Public Sub TestKoneksi()  
     Dim connString As String = "Data Source=ZHENLONK-342572;Initial Catalog=testing;Integrated Security=True"  
     koneksi = New SqlClient.SqlConnection(connString)  
     Try  
       koneksi.Open()  
       koneksi.Close()  
     Catch ex As Exception  
       MessageBox.Show("Database Connection Error : " & ex.Message)  
     End Try  
   End Sub  
 #End Region  
 End Module  

untuk Data Source (nama Server) dan Initial Catalog (nama Database) dapat disesuaikan dengan kondisi di komputer anda.

Untuk membuat file laporan, klik project - Add new Item - Crystal Report dan beri nama laporan.rpt (lihat gambar berikut)

Kemudian pada kotak dialog Crystal Report Gallery pilih As a Blank Report dan kita akan mendapat report kosong.

Munculkan Field Explorer (Apabila tidak muncul dapat dipanggil melalui menu Crystal Report - Field Explorer). Melalui Field Explorer klik kanan Database Fields dan pilih Database Expert, lalu pada Tree View pilih Create New Connection - OLE DB (ADO) lalu pilih Microsoft OLE DB Provider for SQL Server dan klik Next. Lalu pada settingan Server masukkan nama server anda (Atau bisa gunakan Computer Name), dalam hal ini saya menggunakan Integrated Security (bila anda tidak menggunakannya, masukkan username dan password login SQL Server anda) kemudian pilih database di opsi Database. Kemudian Klik Next dan Finish.


Koneksi sudah terbentuk, lalu pindahkan tabel tbl_buku sebagai selected tables dan Klik OK. Lihat gambar :

Melalui Field Explorer klik Database Fields, masukkan Field-field di tabel tbl_buku ke lembar laporan dan atur seperti contoh dibawah ini dan Save.

Buka Form1 dan melalui Toolbox cari CrystalReportViewer dan masukkan ke Form1. Melalui properties CrystalReportViewer, isikan ReportSource dengan laporan yang kita buat tadi. Run (F5) VB dan Report akan ditampilkan.
 
Jangan lupa untuk mengganti nama server SQL Servernya dengan nama server SQL Server di komputer / laptop anda.

Read More

SEMUA REVIEW GADGET

REVIEW IPAD 2

Read More