pemograman menu strip kriptografi

Pemerograman Kriptografi pada Visual Basic

Pemrograman  Kriptografi ada 4 jenis yaitu :

1. Kriptografi Caesar Cipher

2. Kriptografi Vernam cipher

3. Kriptografi Gronsfeld

4. Kriptografi Vigenere

Nah pada postigan kali ini kita akan membahas ke empat Kriptografi tersebut dan kita akan mengetahui enkripsi dan dekripsi dan disini juga kita akan masukan ke empat jenis kriptografi tersebut ke dalam MenuStrip .

Setelah selesai  kamu ketik listing di bawah ini pada pada form di atas .

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, i)

            x = Chr(Asc(x) + 3)

            xkalimat = xkalimat + x

        Next

        Chiper.Text = xkalimat

    End Sub

    Private Sub Btndekrifsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btndekrifsi.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

End Class

Nah pada form2 kita menggunakan MenuStrip setelah selesai kamu design form nya kamu tinggal ketik listing di bawah ini .

Public Class Form2

    Private Sub KrifToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KrifToolStripMenuItem.Click

        Form1.MdiParent = Me

        Form1.Show()

    End Sub

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

        Form3.MdiParent = Me

        Form3.Show()

    End Sub

    Private Sub KriftografiGrondfeldToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KriftografiGrondfeldToolStripMenuItem.Click

        Form4.MdiParent = Me

        Form4.Show()

    End Sub

    Private Sub KriftografiVigenereToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KriftografiVigenereToolStripMenuItem.Click

        Form5.MdiParent = Me

        Form5.Show()

    End Sub

    Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click

        Close()

    End Sub

End Class

sekarang kita masuk ke pada kriptografi vernam , listing program nya ada di bawah ini .

Public Class Form3

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

        Plainteks.Text = ""

        Kunci.Text = ""

        Chiperteks.Text = ""

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.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 nEnec 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

            nEnec = ((nKata + nKunci) Mod 26)

            sPlain = sPlain & Chr((nEnec) + 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

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.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 nEnec 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

            nEnec = ((nKata - nKunci) Mod 26)

            sPlain = sPlain & Chr((nEnec) + 65)

        Next i

        Chiperteks.Text = sPlain

    End Sub

end Class

Disini kita masuk ke kriptogrfi  gronsfeld , listing program nya ada di bawah ini .

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 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

    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 Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.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) + 65)

        Next i

        Chipertext.Text = splain

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.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) + 65)

        Next i

        Chipertext.Text = splain

    End Sub

End Class

Kalau yang ini kita masuk ke kriptografi Vigenere , listing Program nya seperti berikut .

Public Class Form5

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

        plaintext.Text = ""

        chipertext.Text = ""

        Kunci.Text = ""

    End Sub

    Private Sub btn_enkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_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)) + 0

            nKunci = Asc(Mid(sKey, J, 1)) + 0

            nEnc = ((nKata + nKunci) Mod 256)

            sPlain = sPlain & Chr((nEnc))

        Next i

        chipertext.Text = sPlain

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.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)) + 0

            nKunci = Asc(Mid(sKey, J, 1)) + 0

            nEnc = ((nKata - nKunci) Mod 256)

            sPlain = sPlain & Chr((nEnc))

        Next i

        Chipertext.Text = sPlain

    End Sub

19 Keistimewaan Wanita dalam Islam

19 Keistimewaan Wanita dalam Islam

1. Doa wanita itu lebih makbul daripada lelaki karena sifat penyayang yang lebih kuat daripada lelaki. Ketika ditanya kepada Rasulullah SAW akan hal tersebut, jawab baginda , ”Ibu lebih penyayang daripada bapak dan doa orang yang penyayang tidak akan sia-sia.”

2. Wanita yang salehah (baik) itu lebih baik daripada 1000 lelaki yang saleh.

3. Barangsiapa yang menggembirakan anak perempuannya, derajatnya seumpama orang yang senantiasa menangis karena takut akan Allah. Dan orang yang takut akan Allah SWT akan diharamkan api neraka ke atas tubuhnya.

Surga itu di bawah telapak kaki ibu.

4. Wanita yang tinggal bersama anak-anaknya akan tinggal bersama aku (Rasulullah saw di dalam syurga).

5. Barangsiapa membawa hadiah (barang makanan dari pasar ke rumah lalu diberikan kepada keluarganya) maka pahalanya seperti melakukan amalan bersedekah. Hendaklah mendahulukan anak perempuan daripada anak lelaki.

6. Surga itu di bawah telapak kaki ibu;

7. Barangsiapa mempunyai tiga anak perempuan atau tiga saudara perempuan atau dua anak perempuan atau dua saudara perempuan lalu dia bersikap ihsan dalam pergaulan dengan mereka dan mendidik mereka dengan penuh rasa takwa serta sikap bertanggungjawab, maka baginya adalah surga.

8. Apabila memanggil akan dirimu dua orang ibu bapakmu, maka jawablah panggilan ibumu terlebih dahulu.

9. Daripada Aisyah r.a.”Barangsiapa yang diuji dengan sesuatu daripada anak-anak perempuannya lalu dia berbuat baik kepada mereka, maka mereka akan menjadi penghalang baginya daripada api neraka."

10. Wanita yang taat berkhidmat kepada suaminya akan tertutuplah pintu-pintu neraka dan terbuka pintu-pintu surga. Masuklah dari mana saja pintu yang dia kehendaki dengan tidak dihisab.

Maka semua ikan-ikan di laut, burung di udara, malaikat di langit, matahari dan bulan semua beristighfar baginya.

11. Wanita yang taat pada suaminya, maka semua ikan-ikan di laut, burung di udara, malaikat di langit, matahari dan bulan semua beristighfar baginya selama dia taat kepada suaminya serta menjaga salat dan puasanya.

12. Aisyah r.a berkata, “Aku bertanya kepada Rasulullah, siapakah yang lebih besar haknya terhadap wanita?” Jawab Rasulullah SAW, “Suaminya.” ”Siapa pula berhak terhadap lelaki?” Jawab Rasulullah SAW, “Ibunya.”

13. Perempuan apabila sembahyang lima waktu, puasa di bulan Ramadhan, memelihara kehormatannya serta kepada suaminya, masuklah dia dari pintu surga mana saja yang dikehendaki.

14. Tiap perempuan yang menolong suaminya dalam urusan agama, maka Allah SWT memasukkan dia ke dalam surga terlebih dahulu daripada suaminya (10.000 tahun).

15. Apabila seseorang perempuan mengandung janin dalam rahimnya, maka beristighfarlah para malaikat untuknya. Allah SWT mencatatkan baginya setiap hari dengan 1.000 kebajikan dan menghapuskan darinya 1.000 kejahatan.

16. Apabila seseorang perempuan mulai sakit hendak bersalin, maka Allah SWT mencatatkan baginya pahala orang yang berjihad pada jalan Allah.

Ibu.

17. Apabila seseorang perempuan melahirkan anak, keluarlah dia dari dosa-dosa seperti keadaan ibunya melahirkannya.

18. Apabila telah lahir anak lalu disusui, maka bagi ibu itu setiap satu tegukan daripada susunya diberi satu kebajikan.

19. Apabila semalaman seorang ibu tidak tidur dan memelihara anaknya yang sakit, maka Allah SWT memberinya pahala seperti memerdekakan 70 orang hamba dengan ikhlas untuk membela agama Allah SWT.

Pendidikan Karakter

”Pendidikan Karakter Untuk Membangun Keberadaban Bangsa”, adalah kearifan dari keaneragaman nilai dan budaya kehidupan bermasyarakat. Kearifan itu segera muncul, jika seseorang membuka diri untuk menjalani kehidupan bersama dengan melihat realitas plural yang terjadi. Oleh karena itu pendidikan harus diletakan pada posisi yang tepat, apalagi ketika menghadapi konflik yang berbasis pada ras, suku dan keagamaan. pendidikan karakter bukanlah sekedar wacana tetapi realitas implementasinya, bukan hanya sekedar kata-kata tetapi tindakan dan bukan simbol atau slogan, tetapi keberpihak yang cerdas untuk membangun keberadaban bangsa Indonesia. Pesan akhir tulisan ini, berikan layanan yang terbaik kepada Pendidik dan Tenaga Kependidikan sehingga terwujud masyarakat yang ”beradab” yang mengimplementasikan nilai-nilai luhur bangsa Indonesia. Pembiasaan berperilaku santun dan damai adalah refreksi dari tekad kita sekali merdeka, tetap merdeka.

Mengapa Melalui Pendidikan?

“Education is not a preparation of life, but it’s life itself”. Demikianlah pendapat John Dewey ketika beliau berusaha menjelaskan tentang ranah pendidikan yang sesungguhnya. Pendidikan adalah kehidupan. Oleh karena itu, benar kata WD Rendra dalam salah satu puisinya telah mempertanyakan tentang adanya “papan tulis-papan tulis para pendidik yang terlepas dari persoalan kehidupan”. Mengapa? Proses pendidikan di sekolah ternyata masih lebih mengutamakan aspek kognitifnya ketimbang afektif dan psikomotoriknya. Bahkan konon Ujian Nasional pun lebih mementingkan aspek intelektualnya ketimbang aspek kejujurannya. Konon tingkat kejujuran Ujian Nasional itu hanyalah 20%, karena masih banyak peserta didik yang menyontek dalam pelbagai cara dalam mengerjakan Ujian Nasional itu.

Dalam bukunya tentang Kecerdasan Ganda (Multiple Intelligences), Daniel Goleman mengingatkan kepada kita bahwa kecerdasan emosional dan sosial dalam kehidupan diperlukan 80%, sementara kecerdasan intelektual hanyalah 20% saja. Dalam hal inilah maka pendidikan karakterdiperlukan untuk membangun kehidupan yang lebih beradab, bukan kehidupan yang justru dipenuhi dengan perilaku biadab. Maka terpikirlah oleh para cerdik pandai tentang apa yang dikenal dengan pendidikan karakter (character education).

Pendidikan Karakter dan Peningkatan Daya Saing Bangsa

Pilarkarakter yang mana yang harus dikembangkan di Indonesia? Sesungguhnya semua pilar karakter tersebut memang harus dikembangkan secara holistik melalui sistem pendidikan nasional di negeri ini. Namun, secara spesifik memang juga ada pilar-pilar yang perlu memperoleh penekanan. Sebagai contoh, pilar karakter kejujuran (honesty) sudah pasti haruslah lebih mendapatkan penekanan, karena negeri ini masih banyak tindak KKN dan korupsi. Demikian juga dengan pilar keadilan (fairness) juga harus lebih memperoleh penekanan, karena kenyataan di lapangan menunjukkan bahwa banyak pendukung pemilukada yang kalah ternyata tidak mau secara legowo mengakui kekalahannya. Selain itu, fenomena tawuran antarwarga, antarmahasiswa, dan antaretnis, juga sangat memerlukan pilar karakter toleransi (tolerance), rasa hormat (respect), dan persamaan (equality).

Untuk tujuan khusus, misalnya membangkitkan semangat bagi para olahragawan yang akan bertanding di tingkat internasional, maka pilar rasa percaya diri (trustworthiness) dan keberanian (courage) juga harus mendapatkan penekanan tersendiri.

Akhirnya, dengan pendidikan yang dapat meningkatkan semua potensi kecerdasan anak-anak bangsa, dan dilandasi dengan pendidikan karakternya, diharapkan anak-anak bangsa di masa depan akan memiliki daya saing yang tinggi untuk hidup damai dan sejahtera sejajar dengan bangsa-bangsa lain di dunia yang semakin maju dan beradab.

riko setia setiap saat

Program Informasi Penjualan Produk Dengan Discount

Berikut ini adalah contoh program mengenai Informasi Penjualan Produk Dengan Discount :

#include "stdio.h"
#include "conio.h"

void main(){
    int i, kode[15], jumlah[15], jumdata=5;
    char*produk;
    float harga, total, disc, bayar;

    printf("\Input Data Penjualan");
    for(i=0;i<jumdata;i++){
        printf ("\nKode Produk :"); scanf("%d",&kode[i]);
        printf ("Jumlah Produk :"); scanf("%d",&jumlah[i]);
    }
    clrscr();
    printf ("\n                        Informasi Penjualan Produk");
    printf ("\n ---------------------------------------------------------------------------");
    printf ("\n No Kode Produk                  Harga  Jumlah   Total    Discount    Bayar");
    printf ("\n ---------------------------------------------------------------------------");
    for(i=0;i<jumdata; i++){
        if(kode[i]==1){
            produk = "TV"; harga = 2000000;
        }else if(kode[i]==2){
            produk = "DVD"; harga = 650000;
        }else if(kode[i]==3){
            produk = "CD ROOM"; harga = 450000;
        }
        total = harga*jumlah[i];
        if (total<2000000){
            disc=0.1*total;
        }else if (total<4000000){
            disc=0.15*total;
        }else if (total>4000000){
            disc=0.2*total;
        }else{
            disc=0;
        }
        bayar = total-disc;
        gotoxy(1,6+i); printf(" %i   %d   %s", i+1, kode[i], produk);
        gotoxy(30,6+i); printf("%10.0f   %i  %10.0f %10.0f%10.0f", harga, jumlah[i], total, disc, bayar);
    }
    printf("\n ---------------------------------------------------------------------------");
}

Hasil tampilan program: