Vigenere Chiper by lottocool

VIEWS: 2,409 PAGES: 7

									             Enkripsi File Menggunakan Vigenere Chiper
        Program ini merupakan aplikasi kriptografi menggunakan bahasa pemrograman Visual
Basic 6.0 dengan mengimplementasikan Vigenere Chiper.
Sejarah Vigenere Chiper
        Ditemukan oleh Giovan Battista Bellaso pada tahun 1553 dalam bukunya La cifra del Sig.
Giovan Battista Bellaso.
        Kemudian Blaise de Vigenère pada abad ke 19 mempublikasikan temuan serupa dengan
tambahan autokey, dan kemudian cipher ini disebut Vigenère cipher karena kesalahan sejarah.
        Vigenere cipher mempergunakan tabel sebagai berikut (disebut juga tabula recta)
sebagai alat untuk mengenkripsi dan mendekripsi
Tabula Recta




Contoh Vigenere Chiper
Plaintext      : vigenereciphers    v = 21
Key            : keykeykeykeykey    k = 10
Ciphertext     : fmeorcbiastfovq (21 + 10) mod 26 = 5  f
Note:
a=0 b=1 c=2 d=3 e=4 f=5 g=6 h=7 i=8 j=9 k=10 l=11 m=12 n=13 o=14 p=15 q=16 r=17 s=18 t=19
u=20 v=21 w=22 x=23 y=24 z=25
        Proses enkripsi dapat direprsentasikan menggunakan operator aritmetik modulo setelah
sebelumnya setiap huruf transformasi kedalam angka menggunakan ASCII code. Proses
enkripsi suatu huruf dengan dengan pergeseran n dapat dinyatakan secara matematis sebagai
berikut:
                           ChiperText = (Plain Text + Key) mod 26


Sedangkan proses dekripsinya dapat dinyatakan sebagai berikut:


                            Plaintext = (ChiperText – Key) mod 26



Aplikasi Kriptografi Menggunakan Visual Basic 6.0




Kode Listing Program :
Sub dekrip()

On Error Resume Next

Text1.Text = ""
a = Len(chiper.Text)

c=1

For i = 1 To a

  b = Asc(Mid(UCase(hasil.Text), i, 1))

    If b > 64 And b < 123 Then

             If c > Len(kunci.Text) Then

                 Do

                    c=c-1

                 Loop Until c = 1

             Else

             End If

           d = Asc(Mid(UCase(kunci.Text), c, 1))

           e = b - (d - 65)

             If e < 65 Then

                 g = 91 - (65 - e)

             Else

                 g=e

             End If

           f = Chr(g)

           c=c+1

    Else

           f = Chr(b)

    End If

  Text1.Text = Text1.Text + f

  If LCase(hasil.Text) = hasil.Text Then

    Text1.Text = LCase(Text1.Text)

  Else
  End If

Next i



End Sub

Private Sub Command1_Click()

On Error Resume Next

hasil.Text = ""

a = Len(chiper.Text)

c=1

For i = 1 To a

  b = Asc(Mid(UCase(chiper.Text), i, 1))

    If b > 64 And b < 123 Then

             If c > Len(kunci.Text) Then

                 Do

                    c=c-1

                 Loop Until c = 1

             Else

             End If

           d = Asc(Mid(UCase(kunci.Text), c, 1))

           e = b - (d - 65)

             If e < 65 Then

                 g = 91 - (65 - e)

             Else

                 g=e

             End If

           f = Chr(g)

           c=c+1
    Else

           f = Chr(b)

    End If

  hasil.Text = hasil.Text + f

  If LCase(chiper.Text) = chiper.Text Then

    Text1.Text = LCase(Text1.Text)

  Else

  End If

Next i

End Sub



Private Sub Command2_Click()

On Error Resume Next

hasil.Text = ""

a = Len(chiper.Text)

c=1

For i = 1 To a

  b = Asc(Mid(UCase(chiper.Text), i, 1))

    If b > 64 And b < 123 Then

         If c > Len(kunci.Text) Then

           Do

                c=c-1

           Loop Until c = 1

         Else

         End If

    d = Asc(Mid(UCase(kunci.Text), c, 1))

    e = b + (d - 65)
         If e > 90 Then

             g = 65 + (e - 91)

         Else

             g=e

         End If

      f = Chr(g)

      c=c+1

      Else

      f = Chr(b)

      End If

  hasil.Text = hasil.Text + f

  If LCase(chiper.Text) = chiper.Text Then

      hasil.Text = LCase(hasil.Text)

  Else

  End If

Next i

Call dekrip

End Sub

Private Sub Command3_Click()

hasil.Text = ""

kunci.Text = ""

chiper.Text = ""

End Sub



Private Sub Command4_Click()

End

End Sub
TUGAS KEAMANAN INFORMASI
      Vigenere Chiper




                   OLEH

       1. ARVIN WONGSARI (51008005)

      2. NOVIANTI KANDAW (51008030)

     3. RIYAN UTOMO TOHIR (51008038)

   4. NG.STEVEN CALVIN WINNER (51008085)




     STMIK KHARISMA MAKASSAR
               MAKASSAR
               2010-2011

								
To top