Kriptografi Metode Sembarang Menggunakan VB Net

Jumat, 13 Desember 2013 | 09:18 WIB | Dibaca : 1830 kali | Kategori : Prog VB.NET
Kriptografi Metode Sembarang Menggunakan VB Net

Program dibawah ni merupakan kriptogafi tanpa metode atau gampangnya sembarang metode. Gimana tidak memang tidak membahas metode metode seperti Caesar, ROT13, VIGENERE ataupun yang keren seperti AES, RC6 :)

Pada Program VB Net ini hanya membahas yang Enkripsi saja. Setiap karakter di sandikan dengan sembarang karakter, seperti contoh :

A dirubah menjadi !
B dirubah menjadi @

dan berikutya, program ini hanya dari karakter A..Z. tidak untuk simbol yang lain.

Berikut program kriptografi sembarang methode

Public Class Form1

    Function RubahChar(ByVal xchar As String) As String
        Dim xtxt As String = ""
        Select Case xchar
            Case "A" : xtxt = "!"
            Case "B" : xtxt = "@"
            Case "C" : xtxt = "#"
            Case "D" : xtxt = "$"
            Case "E" : xtxt = "%"
            Case "F" : xtxt = "^"
            Case "G" : xtxt = "*"
            Case "H" : xtxt = "("
            Case "I" : xtxt = ")"
            Case "J" : xtxt = "-"
            Case "K" : xtxt = "="
            Case "L" : xtxt = "_"
            Case "M" : xtxt = "+"
            Case "N" : xtxt = "{"
            Case "O" : xtxt = "}"
            Case "P" : xtxt = ":"
            Case "Q" : xtxt = "'"
            Case "R" : xtxt = ","
            Case "S" : xtxt = "."
            Case "T" : xtxt = "<"
            Case "U" : xtxt = ">"
            Case "V" : xtxt = "?"
            Case "W" : xtxt = "/"
            Case "X" : xtxt = "|"
            Case "Y" : xtxt = "\"
            Case "Z" : xtxt = "`"
        End Select
        RubahChar = xtxt
    End Function

    Private Sub btnEnkrip_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnkrip.Click
        Dim kalimat As String = ""
        Dim x As String = ""
        For I = 1 To Len(Plain.Text)
            x = Microsoft.VisualBasic.Mid(Plain.Text, I, 1)
            x = RubahChar(x)
            kalimat = kalimat + x
        Next
        Chiper.Text = kalimat
    End Sub
End Class

Yah mudah mudahan dengan sembarang metode ini membuat kalian lebih paham dan menyukai dengan kriptografi :)

Tag : Kriptografi Metode Sembarang Menggunakan VB Net, kriptografi, program vb net, program kriptografi


Bila berita ini bermanfaat silahkan share Kriptografi Metode Sembarang Menggunakan VB Net ini dengan teman anda, Terima kasih sebelumnya

Berikan Komentar Anda Pada Berita Kriptografi Metode Sembarang Menggunakan VB Net

Anda berada di halaman Kriptografi Metode Sembarang Menggunakan VB Net, dan telah membaca artikel Kriptografi Metode Sembarang Menggunakan VB Net. Artikel Kriptografi Metode Sembarang Menggunakan VB Net bisa anda peroleh pada halaman http://www.mesran.web.id/berita-660-kriptografi-metode-sembarang-menggunakan-vb-net.html . Anda bisa meng-COPY/PASTE artikel ini dengan meletakkan link Kriptografi Metode Sembarang Menggunakan VB Net sebagai sumbernya.
Web Rekomendasi
Publikasi Ilmiah
 Copyright (c) 2011 - 2018 mesran.web.id