Sahli fadli

KARANG TARUNA

Posted by Unknown Posted on 22.20 with No comments

http://portal.mahkamahkonstitusi.go.id/eLaw/mg58ufsc89hrsg/1ffcf804f279dc9761388fca540279705bbdaefd0.pdf,

Karang Taruna adalah organisasi sosial kemasyarakatan sebagai wadah dan sarana pengembangan setiap anggota masyarakat yang tumbuh dan berkembang atas dasar kesadaran dan tanggung jawab sosial dari, oleh dan untuk masyarakat terutama generasi muda di wilayah desa/kelurahan terutama bergerak di bidang usaha kesejahteraan sosial.

Demikian disebutkan dalam Pasal 1 angka 1 Peraturan Menteri Sosial No. 77/HUK/2010 tentang Pedoman Dasar Karang Taruna (“Permensos 77/2010”) yang kami akses dari laman resmi Mahkamah Konstitusi.

Dari sini kita bisa lihat bahwa karang taruna berada di wilayah desa/kelurahan, seperti halnya Anda yang bekerja pada karang taruna di wilayah desa. Hal ini kembali ditegaskan dalam Pasal 4 Permensos 77/2010:

“Karang Taruna berkedudukan di desa/kelurahan di dalam wilayah hukum Negara Kesatuan Republik Indonesia.”

Perlu diketahui bahwa karang taruna termasuk sebagai Lembaga Kemasyarakatan. Berdasarkan Pasal 1 angka 14 Peraturan Menteri Dalam Negeri No. 5 Tahun 2007 tentang Pedoman Penataan Lembaga Kemasyarakatan (“Permendagri 5/2007”), karang taruna adalah Lembaga Kemasyarakatan yang merupakan wadah pengembangan generasi muda yang tumbuh dan berkembang atas dasar kesadaran dan rasa tanggung jawab sosial dari, oleh dan untuk masyarakat terutama generasi muda di wilayah desa/kelurahan atau komunitas adat sederajat dan terutama bergerak di bidang usaha kesejahteraan sosial, yang secara fungsional dibina dan dikembangkan oleh Departemen Sosial.

Sebelum membahas mengenai fungsi karang taruna, terlebih dahulu kita mengetahui tugas pokok karang taruna, yaitu secara bersama-sama dengan Pemerintah, Pemerintah Provinsi, dan Pemerintah Kabupaten/Kota serta masyarakat lainnya menyelenggarakan pembinaan generasi muda dan kesejahteraan sosial (Pasal 5 Permensos 77/2010).

Untuk menjalankan tugas pokok di atas, karang taruna mempunyai fungsi (Pasal 6 Permensos 77/2010):

a. mencegah timbulnya masalah kesejahteraan sosial, khususnya generasi muda;

b. menyelenggarakan kesejahteraan sosial meliputi rehabilitasi, perlindungan sosial, jaminan sosial, pemberdayaan sosial dan diklat setiap anggota masyarakat terutama generasi muda;

c. meningkatkan Usaha Ekonomi Produktif;

d. menumbuhkan, memperkuat dan memelihara kesadaran dan tanggung jawab sosial setiap anggota masyarakat terutama generasi muda untuk berperan secara aktif dalam penyelenggaraan kesejahteraan sosial;

e. menumbuhkan, memperkuat, dan memelihara kearifan lokal; dan

f. memelihara dan memperkuat semangat kebangsaan, Bhineka Tunggal Ika dan tegaknya Negara Kesatuan Republik Indonesia.

Sementara berdasarkan Pasal 17 Permendagri 5/2007, ada tambahan fungsi karang taruna, yaitu:

a. pengembangan kreatifitas remaja, pencegahan kenakalan, penyalahgunaan obat terlarang (narkoba) bagi remaja; dan

b. penanggulangan masalah-masalah sosial, baik secara preventif, rehabilitatif dalam rangka pencegahan kenakalan remaja, penyalahgunaan obat terlarang (narkoba) bagi remaja.

Melihat dari fungsi-fungsi karang taruna di atas, dapat diketahui bahwa fokus/target dibentuknya karang taruna di desa/kelurahan adalah generasi muda, khususnya dalam masalah perlindungan dan kesejahteraan sosialnya.

Selanjutnya mengenai wewenang karang taruna, pada dasarnya, pada Permensos 77/2010 tidak menyebutkan mengenai wewenang karang taruna. Adapun yang diatur dalam peraturan tersebut adalah wewenang beberapa pihak dalam menyelenggarakan program karang taruna. Pihak-pihak yang bertanggung jawab dan berwenang dalam penyelenggaraan program karang taruna adalah Pemerintah, Pemerintah Provinsi, dan Pemerintah Kabupaten/Kota, yang mana tanggung jawab dan wewenang tersebut dilaksanakan oleh Menteri Sosial, Gubernur, dan Bupati/Walikota (lihat Pasal 21 Permensos 77/2010).

Pada tabel berikut ini, akan kami uraikan tanggung jawab dan wewenang masing-masing pihak tersebut dalam penyelenggaraan program karang taruna:

No	Pihak yang Bertanggung Jawab dan Berwenang	Tanggung Jawab dan Wewenang	Dasar Hukum (Permensos 77/2010)
1	Menteri Sosial	a. menetapkan Pedoman Umum Karang Taruna; b. menetapkan standar dan indikator secara nasional; c. melakukan program percontohan; d. memberikan stimulasi; e. memberikan penghargaan; f. melakukan sosialisasi; g. melakukan monitoring; h. melaksanakan koordinasi; dan i. memantapkan Sumber Daya Manusia.	Pasal 22
2	Gubernur	a. melaksanakan tugas desentralisasi bidang Pemberdayaan Karang Taruna; b. melaksanakan tugas dekonsentrasi bidang Pemberdayaan Karang Taruna; c. melakukan program pengembangan; d. melakukan pembinaan kemitraan dengan Forum Pengurus Karang Taruna; e. memberikan penghargaan; f. melakukan sosialisasi; g. melakukan monitoring; dan h. melaksanakan koordinasi.	Pasal 23
3	Bupati/walikota	a. melaksanakan tugas pembantuan; b. melakukan penumbuhan Karang Taruna; c. melakukan pemutakhiran data Karang Taruna; d. melaksanakan pembinaan lanjutan; e. melakukan pembinaan kemitraan dengan Forum Pengurus Karang Taruna; f. memberikan penghargaan; g. melakukan sosialisasi; h. melakukan monitoring; dan i. melaksanakan koordinasi.	Pasal 24

Untuk tambahan informasi, sebagai peraturan pelaksana dari Permensos 77/2010, pada wilayah provinsi DKI Jakarta telah dibentuk Peraturan Gubernur DKI Jakarta No. 8 Tahun 2012 tentang Karang Taruna yang di dalamnya mengatur ketentuan yang lebih khusus lagi mengenai karang taruna seperti antara lain: organisasi, anggota dan pengurus karang taruna; musyawarah karang taruna; pembinaan; program kerja, keuangan; dan sebagainya.

Selain itu, dalam prakteknya, pelaksanaan karang taruna di desa juga ditetapkan lebih khusus oleh kepala desa setempat, contohnya dalam Keputusan Kepala Desa Jatilor Kecamatan Godong Kabupaten Grobogan Nomor : 411.4/17/2010 tentang Pengukuhan Pengurus Karang Taruna Desa Jatilor Kecamatan Godong Kabupaten Grobogan Masa Bhakti 2009 – 2012 yang khusus mengatur tentang kepengurusan karang taruna. Keputusan kepala desa tersebut kami akses dari laman resmi Pemerintah Desa Jatilor Kecamatan Godong Provinsi Jawa Tengah.

Keputusan ini sekaligus mengukuhkan pengurus Karang Taruna Desa Jatilor Kecamatan Godong Kabupaten Grobogan dengan susunan keanggotaan pengurus. Pengurus karang taruna desa ini melaksanakan program kerja baik secara mandiri maupun program kerja sama dengan pemerintah desa. Pengurus karang taruna dalam keputusan kepala desa tersebut antara lain terdiri dari: dewan pembina, ketua, wakil ketua, sekretaris, bendahara, dan seksi-seksi.

Demikian jawaban dari kami, semoga bermanfaat dan sekiranya dapat menjadi pedoman bagi Anda untuk bekerja sebagai sekretaris karang taruna di desa.

Dasar hukum:

1. Peraturan Menteri Dalam Negeri No. 5 Tahun 2007 tentang Pedoman Penataan Lembaga Kemasyarakatan;

2. Peraturan Menteri Sosial No. 77/HUK/2010 Tentang Pedoman Dasar Karang Taruna;

3. Peraturan Gubernur DKI Jakarta No. 8 tahun 2012 tentang Karang Taruna;

4. Keputusan Kepala Desa Jatilor Kecamatan Godong Kabupaten Grobogan Nomor : 411.4/17/2010 tentang Pengukuhan Pengurus Karang Taruna Desa Jatilor Kecamatan Godong Kabupaten Grobogan Masa Bhakti 2009 – 2012.

Kriptografi

Posted by Unknown Posted on 07.33 with No comments

Kali ini saya berbagi postingan tentang kriptografi, dimana kriftografi tersebut terbagi atas:

    kriptografi caesar chiper
    enkripsi kriptografi vernam
    kriptografi gronfeld

Sebelum kita membuka ketiga aplikasi tersebut pertama kita membuat aplikasi Menu dahulu agar nanti aplikasi tersebut dibuka dalam satu aplikasi menu..

1. Aplikasi Menu

Dibawah ini merupakan tampilan aplikasi Menu

dan berikut ini adalah alikasi manu yang telah dijalankan.

adapun listing program nya adalah sebagai berikut ini:

Public Class Menu

    Private Sub CaesarChiperToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CaesarChiperToolStripMenuItem.Click
        Form1.MdiParent = Me
        Form1.Show()
    End Sub

    Private Sub EnkripsiKriftografiVernamvbToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EnkripsiKriftografiVernamvbToolStripMenuItem.Click
        Enkripsi_Kriftografi_Vernam.MdiParent = Me
        Enkripsi_Kriftografi_Vernam.Show()
    End Sub

    Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click
        Dim a As String
        a = MsgBox("Apakah Anda Yakin Ingin Keluar..... !!!", MsgBoxStyle.YesNo)
        If a = vbYes Then
            Me.Close()
        End If
    End Sub

    Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        CaesarChiperToolStripMenuItem.PerformClick()
    End Sub

    Private Sub CaesarChiperToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CaesarChiperToolStripMenuItem1.Click
        Form1.MdiParent = Me
        Form1.Show()
    End Sub

    Private Sub EnkripsiKriftografiVernamToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EnkripsiKriftografiVernamToolStripMenuItem.Click
        Enkripsi_Kriftografi_Vernam.MdiParent = Me
        Enkripsi_Kriftografi_Vernam.Show()
    End Sub

    Private Sub KriftografiGronfeld_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KriftografiGronfeld.Click
        Kriptografi_Gronsfeld.MdiParent = Me
        Kriptografi_Gronsfeld.Show()
    End Sub

End Class

2. Kriptografi Caesar Chiper

Berikut ini adalah tampilan Kriptorafi Caesar Chiper :

Dan Berikut ini adalah listing programnya :

Public Class Form1

    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(plain.Text)
            x = Mid(plain.Text, i, i)
            x = Chr(Asc(x) + 3)
            xkalimat = xkalimat + x
        Next
        chiper.Text = xkalimat

    End Sub

    Private Sub Dekripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Dekripsi.Click
        Dim X As String = ""
        Dim XKALIMAT As String = ""

        For i = 1 To Len(chiper.Text)
            X = Mid(chiper.Text, i, i)
            X = Chr(Asc(X) - 3)
            XKALIMAT = XKALIMAT + X
        Next
        plain.Text = XKALIMAT
    End Sub

End Class

3. Kriptografi Enkripsi Vernam

Berikut ini adalah Tampilan Kriptografi Enkripsi Vernam :

Listing Program Kriptografi Enkripsi Vernam:

Public Class Enkripsi_Kriftografi_Vernam

    Private Sub Enkripsi_Kriftografi_Vernam_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        plainteks.Text = ""
        kunci.Text = ""
        chiperteks.Text = ""
    End Sub

    Private Sub bntenkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bntenkripsi.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 = plainteks.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) + 65)
        Next i
        chiperteks.Text = sPlain
    End Sub

    Private Sub plainteks_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles plainteks.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 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

End Class

4. Kriptografi Gronfeld

Berikut ini adalah tampilan Kriptografi Gronfeld:

Listing Program Kriptografi Gronfeld:

Public Class Kriptografi_Gronsfeld

    Private Sub Kriptografi_Gronsfeld_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        plainteks.Text = ""
        kunci.Text = ""
        chiperteks.Text = ""
    End Sub

    Private Sub btnenkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnenkripsi.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 = plainteks.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) + 65)
        Next i
        chiperteks.Text = sPlain
    End Sub

    Private Sub plainteks_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles plainteks.KeyPress
        If ((e.KeyChar >= "0" And e.KeyChar <= "9") And e.KeyChar <> vbBack) Then e.Handled = True
    End Sub

    Private Sub kunci_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles kunci.KeyPress
        If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True
    End Sub
End Class

NB: Sebelum kita memasukan koding pemanggilan pada menu kita harus membuat program Kriptografinya terlebih dahulu, agar nanti Program Aplikasi Menu dapat dijalankan.

Demikianlah Artikel Kriptografi saya, semoga bermanfaat bagi anda para pembaca

Listing Program

Posted by Unknown Posted on 06.59 with No comments

Listing Program

Form Menu

http://2.bp.blogspot.com/-F1RLY6Nj6R0/Utk-ffclUFI/AAAAAAAAAVM/K1VC2RoRur4/s1600/Menu.jpg

Public Class Menu

    Private Sub ClloseToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClloseToolStripMenuItem.Click
        End
    End Sub

    Private Sub KriptografiCaesarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KriptografiCaesarToolStripMenuItem.Click
        Kriptografi_Caesar.Show()
    End Sub

    Private Sub KriptografiVernamToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KriptografiVernamToolStripMenuItem.Click
        Kriptografi_Vernam_Chiper.Show()
    End Sub

    Private Sub KriptografiGronsfeldToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KriptografiGronsfeldToolStripMenuItem.Click
        Kriptografi_Gronsfeld.Show()
    End Sub

    Private Sub KriptografiViginereToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KriptografiViginereToolStripMenuItem.Click
        Kriptografi_Viginere.Show()
    End Sub
End Class

Form Kriptografi Caesar

http://3.bp.blogspot.com/-qAuD9ia-MOM/Utk-q9HjrpI/AAAAAAAAAVU/ASx62MP7d3c/s1600/Caesar.jpg

Public Class Kriptografi_Caesar

    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(plainteks.Text)
            x = Mid(plainteks.Text, i, i)
            x = Chr(Asc(x) + 3)
            xkalimat = xkalimat + x
        Next
        Chiperteks.Text = xkalimat
    End Sub

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

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

    End Sub
End Class

Form Kriptografi Vernam

Public Class Kriptografi_Vernam_Chiper

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

    Private Sub btnenkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnenkripsi.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 = plainteks.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) + 65)
        Next i
        chiperteks.Text = sPlain
    End Sub

    Private Sub plainteks_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles plainteks.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 plainteks_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles plainteks.TextChanged

    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 kunci_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kunci.TextChanged

    End Sub
End Class

Form Kriptografi Gronsfeld

http://4.bp.blogspot.com/-WmBDQ9S1pow/Utk-rzICmiI/AAAAAAAAAVc/suMigJLOdXM/s1600/Gronsfeld.jpg

Public Class Kriptografi_Gronsfeld

    Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        plainteks.Text = ""
        kunci.Text = ""
        chiperteks.Text = ""

    End Sub

    Private Sub plainteks_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles plainteks.KeyPress
        If ((e.KeyChar >= "0" And e.KeyChar <= "9") And e.KeyChar <> vbBack) Then e.Handled = True
    End Sub

    Private Sub kunci_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles kunci.KeyPress
        If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True
    End Sub

    Private Sub Btnenkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnenkripsi.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 = plainteks.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)) - 48

            nEnc = ((nKata + nKunci) Mod 26)
            sPlain = sPlain & Chr((nEnc) + 65)
        Next i
        chiperteks.Text = sPlain
    End Sub
End Class

Form Kriptografi Viginere

http://1.bp.blogspot.com/-RSH_rXmSny4/Utk-ucMNdSI/AAAAAAAAAVs/_Lq8JmOfBzc/s1600/Vernam.jpg

Public Class Kriptografi_Viginere

    Private Sub btnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProses.Click
        Chipertext.Text = Enkripsi(Plaintext.Text, Kunci.Text)
    End Sub

    Function Enkripsi(ByVal Teks As String, ByVal Kunci As String) As String
        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(Teks)
        sPlain = ""
        sKey = Kunci
        sKata = Teks
        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
        Enkripsi = sPlain
    End Function

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

    End Sub
End Class

Hasil Printout

http://1.bp.blogspot.com/-ZqIMlayXAVY/UtlBpbnURmI/AAAAAAAAAWI/e6i5GcRU4ZM/s1600/hasil.png

http://2.bp.blogspot.com/-x50TCySRp6o/UtlBp_v9YHI/AAAAAAAAAWQ/GxI9ZtVxal0/s1600/hasil2.png

Listing Program

Form Menu