Enkripsi Password

Proses login pada sebuah aplikasi merupakan prosedur wajib untuk mempermudah pengelolaan perihal penggunaan aplikasi. Agar password yang bersifat rahasia ini aman tersimpan pada sebuah aplikasi perlu adanya proses enkrispsi terlebih dahulu. Enkripsi atau pengkodean karakter dari aslinya menjadi karakter tertentu dengan rumus atau formula tertentu merupakan prosedur yang sering dijumpai pada proses inputan, penyimpanan, pembacaan dari suatu password. Password yang telah ter-enkripsi akan disimpan sebagai karakter yang berbeda dengan aslinya. Enkripsi yang akan kita bahas ialah enkripsi dngan metode mengubah  karakter aslinya dengan karakter baru mengunakan formula yang ditentukan berdasarkan kode ascii.

Sebuah textbox (A)  dimasukan karakter “ CONTOH “ dalam bentuk capital. Akan menghasilkan nilai =

C  = 67

O  = 79

N  = 78

T =  84

O = 79

H =  72

Setiap huruf tersebut akan di ubah nilai ascii(Chr) sehingga tidak berbentuk aslinya menggunakan formula yang telah kita tentukan.

Nilai tersebut akan di enkripsi dengan rumus

// pemesanan variabel

// nilai awal d adalah kosong “ ”

// txt password sebagai a

// variable I bertipe integer

// perulangan dengan i brnilai 1 sampai panjang karakter  a(txtpassword)

// b = mengambil dari a, berdasarkan jumlah i, 1 karakter

// c (chr) = nilai dari b yang telah ditambah 10

// d = vriabel d itu sendiri ditambah variable c.

// mengulang i.

Berikut  contoh proses enkripsi dari koding diatas;

*A(textbox) diisi dengan "Aku"

Dari proses perulangan diatas dapat diperoleh hasil dari enkripsi "Aku" adalah " lu"( lihat tabel diatas)

Dengan enkripsi, penyimpanan password menjadi lebih aman.

Demikian semoga bermanfaat.

Read More

Auto Number ( penomoran automatis untuk kode unik ) VB.NET

Kadang kala kita membutuhkan sebuah fungsi penomoran otomatis pada kode atau id unik pada suatu record. Id ini misalnnya id pelanggan, id transaksi, id barang dan lain lain. id id tersebut harusnya muncul secara otomatis agar menghemat waktu dalam menginput data.
beriut cara membuat penomoran otomatis tersebut:
1.sebagai contoh txtid parkir yang akan dibuat id otomatis. Sedngakan inisial id tersebut ber awalna P.
         

  2. Form tersebut misalnya terhubung dengan tb_parkir dengan field Id_Parkir. Maka kodingnya sebagai berikut;

  TxtIdParkir.Enabled = False

        Dim strSementara As String = ""

        Dim strIsi As String = ""

        cmd = New SqlCommand("select * from Tb_Parkir order by ID_Parkir desc", conn)

        rd = cmd.ExecuteReader

        If rd.Read Then

            strSementara = Mid(rd.Item("ID_Parkir"), 2, 2)

            strIsi = Val(strSementara) + 1

            TxtIdParkir.Text = "P" + Mid("0", 1, 2 - strIsi.Length) & strIsi

        Else

            TxtIdParkir.Text = "P01"

        End If

        TxtPlatnomor.Focus()        

  3.  koding tersebut akan menghasilkan kode id dari p01, p02 ,,, dan seterusnya.

     pertama x dijalankan karena id terakhir adalah p08 maka id parkir terisi PO9.

   setelah data disimpan, auto number akan menghasilkan P10 pada Id Parkir.

 Semoga bermanfaat.. dan jangan lupa dokumentasikan ilmu anda...!

Read More