TUGAS :Vermina marbun,byandri,johan

  Nama –nama kelompok :   

1.Vermina Marbun (12110461)  kls : TI.P-1205

2.Byandri (12110529)

3.johan  (12110518)

1.Buatlah program agar yang tampil adalah huruf pertama nama anda

Kemudian hasilnya di print screen dan copy ke word

   #.looping

 

2. Buatlah program agar yang tampil adalah huruf pertama nama anda sebanyak 18 buah

 
3.hasil yang ditampilkan apabila dipergunakan Loop 103

    

4.program agar tampil mulai dari huruf pertama nama anda sampai huruf Z

  5. program yang tampil adalah sebagai berikut

  6. Hasil program agar yang tampil adalah mulai dari huruf pertama nama anda mundur sampai

       huruf A

    7. program Nama  saya ,Npm saya dan Nama ,Npm teman satu kelompok saya.

Tugas pemograman kriptografi

           pemograman kriptografi

Berikut ini adalah designya dan cara-cara penyelesaiannya

1. Tampilan dari menu utama 
    Berikut designya :

         

Dan berikut ini adalah cara memanggil form-form yang akan di  tampilkan dari menu utama :

Public Class Form1

   
    Private Sub PEMOGRAMANKRIPTOGRAFIToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PEMOGRAMANKRIPTOGRAFIToolStripMenuItem.Click
        Form2.MdiParent = Me
        Form2.Show()
    End Sub

    Private Sub PEMOGRAMANKRIPTOGRAFIToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PEMOGRAMANKRIPTOGRAFIToolStripMenuItem1.Click
        Form3.MdiParent = Me
        Form3.Show()
    End Sub

    Private Sub KRIPTOGRAFIToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KRIPTOGRAFIToolStripMenuItem.Click
        Form4.MdiParent = Me
        Form4.Show()
    End Sub

    Private Sub KRIPTOGRAFIVEGENERIToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KRIPTOGRAFIVEGENERIToolStripMenuItem.Click
        Form5.MdiParent = Me
        Form5.Show()
    End Sub



End Class

hasilnya :

2.Tampilan pemograman kriptografi caesar chiper 
   Berikut designya :

Cara penyelesaianya:

Public Class Form2

    Private Sub enkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles enkripsi.Click
        Dim x As String = ""
        Dim xkalimat As String = ""
        For i = 1 To Len(plaintext.Text)
            x = Mid(plaintext.Text, i, i)
            x = Chr(Asc(x) + 3)
            xkalimat = xkalimat + x
        Next
        chipertext.Text = xkalimat
    End Sub

    Private Sub deskripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles deskripsi.Click
        Dim x As String = ""
        Dim xkalimat As String = ""
        For i = 1 To Len(plaintext.Text)
            x = Mid(plaintext.Text, i, i)
            x = Chr(Asc(x) + 3)
            xkalimat = xkalimat + x
        Next
        plaintext.Text = xkalimat
    End Sub

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
        Dim vermina As Integer
        vermina = MsgBox("anda mau keluar ?", MsgBoxStyle.YesNo)
        If vermina = MsgBoxResult.Yes Then
            Me.Close()
        End If
    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
        plaintext.Text = ""
        chipertext.Text = ""
    End Sub

    Private Sub kkkriptogrfi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kkkriptogrfi.Click
        Me.Hide()
        kkkriptogrfi.Show()
    End Sub
End Class

hasilnya :

3.Tampilan pemograman kriptografi Gronsfeld
   Berikut designya :

Cara penyelesaianya:

Public Class Form3

    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Plaintext.Text = ""
        kunci.Text = ""
        chipertext.Text = "'"
    End Sub

    Private Sub enkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles enkripsi.Click
        Dim j As Integer
        Dim jum As Integer
        Dim skey As String
        Dim nkata As Integer
        Dim nkunci As Integer
        Dim skata As String
        Dim splain As String = ""
        Dim nEnc As Integer
        j = 0
        skata = Plaintext.Text
        jum = Len(skata)
        skey = kunci.Text
        For i = 1 To jum
            If j = Len(skey) Then
                j = 1
            Else
                j = j + 1
            End If
            nkata = Asc(Mid(skata, i, 1)) - 65
            nkunci = Asc(Mid(skey, j, 1)) - 65
            nEnc = ((nkata + nkunci) Mod 26)
            splain = splain & Chr((nEnc))


        Next i
        chipertext.Text = splain
    End Sub

    Private Sub kunci_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles kunci.KeyPress
        e.KeyChar = UCase(e.KeyChar)
        Dim tombol As Integer = Asc(e.KeyChar)
        If Not (((tombol >= 65) And (tombol <= 90)) Or (tombol = 8)) Then
            e.Handled = True
        End If
    End Sub

    Private Sub Plaintext_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Plaintext.KeyPress
        e.KeyChar = UCase(e.KeyChar)
        Dim tombol As Integer = Asc(e.KeyChar)
        If Not (((tombol >= 65) And (tombol <= 90)) Or (tombol = 8)) Then
            e.Handled = True
        End If
    End Sub

End Class

Hasilnya :

4.Tampilan pemograman kriptografi Gronsfeld

   Berikut designya :

Cara penyelesaianya:

Public Class Form4

    Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        plaintext.Text = ""

        chipertext.Text = ""

    End Sub

    Private Sub enkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles enkripsi.Click

        Dim j As Integer

        Dim jum As Integer

        Dim skey As String

        Dim nkata As Integer

        Dim nkunci As Integer

        Dim skata As String

        Dim splain As String

        Dim nEnc As Integer

        j = 0

        jum = Len(Text)

        splain = ""

        skey = kunci.Text

        skata = Text

        For i = 1 To jum

            If j = Len(skey) Then

                j = 1

            Else

                j = j + 1

            End If

            nkata = Asc(Mid(skata, i, 1)) - 65

            nkunci = Asc(Mid(skey, j, 1))

            nEnc = (nkata + nkunci) Mod 26

            splain = splain & Chr((nEnc) + 65)

        Next i

        chipertext.Text = splain

    End Sub

End Class

Hasilnya:

5.Tampilan pemograman kriptografi Gronsfeld

   Berikut designya :

Cara penyelesaianya:
Public Class Form5

    Private Sub Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        plaintext.Text = ""
        kunci.Text = ""
        chipertext.Text = ""
    End Sub

    Private Sub enkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles enkripsi.Click
        Dim j As Integer
        Dim jum As Integer
        Dim skey As String
        Dim nkata As Integer
        Dim nkunci As Integer
        Dim skata As String
        Dim splain As String
        Dim nEnc As Integer
        j = 0
        jum = Len(Text)
        splain = ""
        skey = kunci.Text
        skata = Text
        For i = 1 To jum
            If j = Len(skey) Then
                j = 1
            Else
                j = j + 1
            End If
            nkata = Asc(Mid(skata, i, 1))
            nkunci = Asc(Mid(skey, j, 1))
            nEnc = ((nkata + nkunci) Mod 256)
            splain = splain & Chr((nEnc))


        Next i
        chipertext.Text = splain
    End Sub

End Class

Hasilnya :

Demikianlah hasil kriptografi beserta penyelesaiannya.