Masalah keamanan merupakan suatu aspek penting dalam pengiriman data
maupun informasi melalui jaringan. Hal
ini disebabkan karena kemajuan di bidang jaringan komputer dengan
konsep open system-nya sehingga
memudahkan seseorang untuk masuk ke dalam
jaringan tersebut. Hal tersebut dapat mengakibatkan proses pengiriman data
menjadi tidak aman dan dapat saja dimanfaatkan
oleh orang maupun pihak lain yang tidak bertanggung jawab, untuk mengambil data
ataupun informasi ditengah jalan. Oleh karena itu, dibutuhkan suatu sistem
keamanan yang dapat menjaga kerahasiaan suatu data maupun informasi, sehingga
data tersebut dapat dikirimkan dengan
aman. Salah satu cara untuk menjaga keamanan dan kerahasiaan suatu data maupun
informasi adalah
dengan teknik
enkripsi dan dekripsi guna membuat pesan, data, maupun informasi agar tidak
dapat di baca atau di mengerti oleh sembarang orang, kecuali untuk penerima
yang berhak.
Berikut contoh Program Enkripsi dan Deskripsi dengan menambahkan variabel, operasi matematis dan angka pengacak.
Proses kerja dari Enkripsi dan Deskripsi :
Berikut Source Codenya program enkripsi dan deskripsi diatas :
Option
Explicit
Public
Function Kript(Text As String, X As Integer, Y As Integer, Z As Integer) As
String
Dim strTemp
As String
Dim i As
Integer
For i = 1
To Len(Text)
If
Asc(Mid$(Text, i, 1)) < 128 Then
strTemp = Asc(Mid$(Text, i, 1)) + 128 - X +
Y - Z
ElseIf
Asc(Mid$(Text, i, 1)) > 128 Then
strTemp =
Asc(Mid$(Text, i, 1)) - 128 + X - Y + Z
End If
Mid$(Text,
i, 1) = Chr(strTemp)
Next i
Kript =
Text
End
Function
Private Sub
Command1_Click()
Text1.Text
= ""
Text2.Text
= ""
Text3.Text
= ""
End Sub
Private Sub
Command2_Click()
Unload Me
End Sub
Private Sub
Crypt_Click()
Text2.Text
= Kript(Text1.Text, 1, 2, 3)
End Sub
Private Sub
Decrypt_Click()
Text3.Text
= Kript(Text2.Text, 1, 2, 3)
End Sub
mkasih bos,nambah pengetahuan ana..
BalasHapusOk sama-sama Mas.brow
BalasHapusterkait dengan penerapan enkripsi, bisa diunduh artikel berikut http://repository.gunadarma.ac.id/bitstream/123456789/2274/1/01-03-010-Penerapan%5BRangga%5D.pdf
BalasHapusOk. terima kasih link artikelnya. ?
BalasHapusVideo Mesum Anak Ingusan ( tahun 2000 )
BalasHapusVideo Mesum Bandung Lautan Asmara ( Tahun 2001
)
Video Mesum Casting Sabun ( Tahun 2002 )
Video Kamar Ganti / Ganti Baju Artis
Indonesia ( Tahun 2003 )
Video
Mesum Belum Ada Judul ( Tahun 2005 )
Video Mesum Anggota DPR ( Tahun 2006 )
Video Mesum Ariel
Peter Pan vs Luna Maya vs Cut Tari vs Aura Kasih vs BCL ( Tahun 2010 )