Membuat Enkripsi/Denkripsi Sederhana VB.NET

Sebenarnya ada banyak logika untuk membuat sebuah Enkripsi/Dekripsi sebuah text data. Bahkan ada juga metode Enkripsi yang sudah ditersedia seperti MD5. Cuman itu tergantung dari logika setiap orang bagaimana dia meng-Enkripsi/Dekripsikan text data tersebut.
Berikut ini adalah contoh sederhana dalam meng-Enkripsi/Dekripsi text atau mungkin program anda.


Public Function Encrypt(ByVal Plain As String, ByVal key1 As String) As String
Dim i As Integer
Dim Letter As String
For i = 1 To Len(Plain)
Letter = Mid$(Plain, i, 1)
Mid$(Plain, i, 1) = Chr(Asc(Letter) + Asc(Mid(key1, 3, 1)) + i)
Next i
Encrypt = Plain
End Function

Public Function Decrypt(ByVal Encrypted As String, ByVal key1 As String) As String
Dim i As Integer
Dim Letter As String
For i = 1 To Len(Encrypted)
Letter = Mid$(Encrypted, i, 1)
Mid$(Encrypted, i, 1) = Chr(Asc(Letter) - Asc(Mid(key1, 3, 1)) - i)
Next i
Decrypt = Encrypted
End Function


Silahkan kembangkan sendiri ya...

Semoga bermanfaat....

Categories

Widget by Scrapur