Cara Meng-encryption Projeck dengan Visual Basic 6

Cara Meng-encryption Projeck dengan visual basic 6 - Walaupun Visual Basic tidak menyediakan method khusus yang mengimplementasikan algoritma enkripsi atau deskripsi namun tidak menghalangi keinginan kita untuk mewujudkan enkripsi / deskripsi data. Salah satunya pendekatan yang bisa kita gunakan untuk mengenkripsi dan mendeskripsi data adalah teknik penggeseran karakter

Teknik dasar penggeseran karakter adalah menambah atau mengurangi karakter dengan tujuan menyembunyikan atau mengembalikan pesan. Prinsipnya, jumlah penggeseran antara proses enkripsi / deskripsi  harus sama. Artinya , jika enkripsi / deskripsi menambahkan x karakter, maka deskripsi akan mengurangi sebanyak x karakter

Walaupun tekniknya sederhana, namun pendekatan ini sudah mampu menghasilkan keluaran yang sulit untuk diinterpretasikan secara langsung.

Private Function Enkripsi (ByVal strIn As String) As String

   Dim i As Integer

   Dim lngLen As Long

   Dim StrTmp As String

   StrTmp = vbNullString

‘ Mendapatkan panjang string masukan

lngLen = len (Trim$(strIn))

i = 1

Do while i <= lngLen

   ‘ Enkripsi per-karakter

   strTmp = CStr (strTmp) & Chr$ ((Asc(Trim$(strIn), i, 1)) +17))

   ‘ Increment counter  i

   i = i + 1

Loop

‘ Mengembalikan string terenkripsi

Enkripsi = strTmp

End Function

Untuk mengembalikan dua terenkripsi ke bentuk semula (mendeskripsi), kita menggunakan pendekatan yang sama. Pada prinsipnya, disini kita melakukan langkah kebalikanya. Jadi sebelumya ada penambahan (penggeseran) sebanyak tujuh belas karakter, maka kita kurangi sebanyak jumlah yang sama.

Private Function Enkripsi (ByVal strIn As String) As String

    Dim i As Integer

    Dim lngLen As Long

    Dim StrTmp As String

    StrTmp = vbNullString

‘ Mendapatkan panjang string masukan

lngLen = len (Trim$(strIn))

i = 1

Do while i <= lngLen

    ‘ Enkripsi per-karakter

    strTmp = CStr (strTmp) & Chr$ ((Asc(Trim$(strIn), i, 1))-17))

    ‘ Increment counter  i

i = i + 1

Loop

‘ Mengembalikan string terenkripsi

Enkripsi = strTmp

End Function

Cara Meng-encryption Projeck dengan Visual Basic 6 2013-01-12T03:33:00+07:00 Rating: 4.5 Diposkan Oleh: Unknown