Program Kriptografi Visual Basic 2008

Assalamualaikum,wr.wb

Salam blogger :)

Saya mau review hasil pelajaran Microsoft visual Basic saya tentang "Kriptografi Caesar"
Kriptografi caesar ini adalah bahasa Rahasia atau bahasa keamanan yang di gunakan pada zaman Romawi Kuno yang di gunakan pada Seorang kaisar Romawi Kuno Yang bernama Julio Caesar.
Beliau menggunakan bahasa tersebut kepada tentaranya untuknya menyampaikan surat dalam susunan strategi peperangan.
Kriptografi itu sendiri adala suatu kode alat yang dapat memecahakan kode dari bahasa yang digunakan oleh caesar pada zamannya.
Dan Pada zaman kita sekarang ini sudah tidak menggunakan kriptografitapi menggunakan "Bit"

Baiklah sedikit tentang blog saya ini semoga dapat berguna
Ini langsung saja saya berikan contoh kriptografi itu sendiri melalui program Visual Basic 2008

Pertama sekali
Kita harus masuk ke program visual basic 2008
click Create Project
setelah itu design project seperti di bawah ini, "Ini hanya contoh ya" :)

Untuk Membuat design tersebut, yang di gubakan dalam toolbox ialah :

• Label
• Text Box
• Button

dan ini lah syntax dari program tersebut : 

Public Class Form1

    Private Sub btnEnkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnkripsi.Click

        Dim x As String = ""

        Dim xkalimat As String = ""

        For i = 1 To Len(plain.Text)

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

            x = Chr(Asc(x) + 3)

            xkalimat = xkalimat + x

        Next

        plain.Text = xkalimat

    End Sub

    Private Sub btnDeskripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDeskripsi.Click

        Dim x As String = ""

        Dim xkalimat As String = ""

        For i = 1 To Len(chiper.Text)

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

            x = Chr(Asc(x) - 3)

            xkalimat = xkalimat + x

        Next

        chiper.Text = xkalimat

    End Sub

    Private Sub btnexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnexit.Click

        Dim tanya As String

        tanya = MsgBox("Anda Yakin Ingin Keluar ?", MsgBoxStyle.Question + MsgBoxStyle.YesNo)

        If tanya = vbYes Then

            Me.Close()

        Else

            Exit Sub

        End If

    End Sub

End Class

Hasilnya yakni sebagai berikut:

Semoga bermanfaat :)

Author : Tri

Share this

Related Posts