Akun Pribadi

AKUN 

Jangan lupaa ya di add  and follow ,oklel !

 

  
  

                                             

       

                         

.::thanks for visiting ::.

program kriptografi visual basic

Program Kriptografi

ketikkan coding dibawah ini :

Public Class Form1

    Private Sub btn_enkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_enkripsi.Click

        Dim x As String = ""

        Dim w As String = ""

        For i = 1 To Len(plain.Text)

            x = Mid(plain.Text, i, i)

            x = Chr(Asc(x) + 3)

            w = w + x

        Next

        chiper.Text = w

    End Sub

    Private Sub btn_deskripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_deskripsi.Click

        Dim x As String = ""

        Dim n As String = ""

        For i = 1 To Len(chiper.Text)

            x = Mid(chiper.Text, i, i)

            x = Chr(Asc(x) - 3)

            n = n + x

        Next

        plain.Text = n

    End Sub

    Private Sub btn_keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_keluar.Click

        End

    End Sub

End Class