Tempat Belajar Bahasa Pemrograman

Fungsi

Tujuan Utama Encrypt dan Descript teks adalah untuk merubah karakter teks sehingga tidak mudah dibaca atau dipahami orang lain, metode ini banyak dipakai untuk proteksi seperti dunia Internet, Bank baik proteksi password, pengiriman pesan, pengirimandata dan lain-lain. 

Pengertian Encrypt

Pengertian Descrypt

Module yang diperlukan

Public Function Des(Enc As String, pw_keamanan As String) As String
    Dim qu, x As Integer
    For x = 1 To Len(Enc)
        qu = Asc(Mid$(Enc, x, 1)) - Asc(Mid$(pw_keamanan, (x Mod Len(pw_keamanan)) + 1, 1))
        Des = Des & Chr$(qu And &HFF)
    Next x
End Function

Public Function Enc(Des As String, pw_keamanan As String) As String
    Dim qu, x As Integer
    For x = 1 To Len(Des)
        qu = Asc(Mid$(Des, x, 1)) + Asc(Mid$(pw_keamanan, (x Mod Len(pw_keamanan)) + 1, 1))
        Enc = Enc & Chr$(qu And &HFF)
    Next x
End Function

Format Encrypt

[Var/Object] = Enc([Kalimat yang ingin diubah],[Password keamanan])

Contoh Encrypt

Text1.Text = Enc("Indra","planet-vb6")

[Var/Object] = Des([Kode yang ingin diubah],[Password keamanan])

Text1.Text = Des("ÕÏÒ×ÕMéïÑÚÈŽÆâŽé‚p™","planet-vb6")