Kriptografi

Assalamu'alaikum wr. wb

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

Program untuk menampilkan hasil ke listview untuk kasus Perhitungan Penjualan Barang

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Kode.Items.Add("TS001")
        Kode.Items.Add("TS002")
        Kode.Items.Add("VG001")
        Kode.Items.Add("VG002")
        rancangan_table()
    End Sub



    Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.SelectedIndexChanged

        Dim x As String
        x = Microsoft.VisualBasic.Left(Kode.Text, 2)
        If x = "TS" Then
            Merk.Text = "Toshiba"
            x = Microsoft.VisualBasic.Right(Kode.Text, 3)
            If x = "001" Then
                Nama.Text = "Flashdisk 4GB"
           

Membuat Form Nilai Mahasiswa

Listing Program :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        NPM.Items.Add("12110982")
        NPM.Items.Add("12110040")
        NPM.Items.Add("12113456")
        NPM.Items.Add("12118890")
        NPM.Items.Add("12113435")

        KDosen.Items.Add("D001")
        KDosen.Items.Add("D002")
        KDosen.Items.Add("D003")
        KDosen.Items.Add("D004")
        KDosen.Items.Add("D005")

        Kodematkul.Items.Add("M001")
        Kodematkul.Items.Add("M002")
        Kodematkul.Items.Add("M003")
        Kodematkul.Items.Add("M004")
        Kodematkul.Items.Add("M005")

        Dim i As Integer
        For i = 100 To 1 Step -1
            Nhadir.Items.Add(i)
            NT.Items.Add(i)
            NU.Items.Add(i)
            NUS.Items.Add(i)
        Next i

    End Sub

    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
        Select Case NPM.Text

Informasi Penjualan Menggunakan Bahasa C\C++

Listing Program:

#include"stdio.h"
#include"conio.h"
void main()
{
int i,kode[15],jumlah[15],jumdata=5;
char*produk;
float harga,total,disc,pembayaran;

printf("\nInput Data Penjualan");
for(i=0;i  <jumdata; i++){
    printf("\nKode Produk :"); scanf("%d",&kode[i]);
    printf("\nJumlah Produk :"); scanf("%d",&jumlah[i]);
}
clrscr();
printf("\nInformasi Penjualan Produk");
printf("\n-------------------------------------------------------------------------------");
printf("\nNo Kode  Produk                  Harga   Jumlah    Total    Discount Pembayaran");
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.2*total;
     pembayaran=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,pembayaran);
     }
     printf("\n--------------------------------------------------------------------------------");
}

Hasil Program:

SEMUANYA TENTANG VIRUS KOMPUTER

Cara Virus Komputer Bekerja

Virus komputer: Sebuah kode komputer yang mampu "berbiak dengan sendirinya" yang menempelkan sebagian atau seluruh kodenya pada file atau aplikasi, dan mengakibatkan komputer Anda melakukan hal-hal yang tidak Anda inginkan.

Virus-virus komputer merupakan penyakit umum dalam dunia teknologi modern. Mereka dapat menyebar dengan cepat melalui jaringan komputer yang terbuka seperti Internet, dan mengakibatkan kerugian hingga milyaran dolar dalam waktu singkat. Lima tahun yang lalu, peluang untuk terjangkiti sebuah virus dalam periode 12 bulan adalah 1 berbanding 1000; sekarang perbandingan itu naik drastis hingga 1 berbanding 10. Statistik vital dari virus:

· Virus-virus masuk ke dalam sistem Anda melalui
e-mail, download, floppy disk yang terinfeksi, atau (kadang-kadang) oleh hacking.

· Dari definisinya, sebuah virus harus dapat melakukan "pembiakan sendiri" (alias membuat kloning atau salinan dari dirinya sendiri) untuk dapat menyebar.

· Saat ini terdapat ribuan jenis virus, tetapi hanya sedikit yang ditemukan "di belantara" (berkeliaran, tak terdeteksi, di dalam jaringan) karena sebagian besar dari virus yang dikenal lahir dari laboratorium, yang merupakan varian dari virus "liar" yang banyak terdapat di dunia.

· Akibat yang ditimbulkan virus bervariasi, mulai dari yang menjengkelkan hingga yang sangat merusak, akan tetapi virus yang paling sederhana pun memiliki kecenderungan untuk merusak karena adanya bug pada kode komputer mereka (karena programmer virusnya sangat ceroboh atau memang punya niat jahat).

· Software antivirus yang ada di pasaran saat ini dapat mendeteksi hampir semua jenis virus yang ada, tetapi harus diupdate secara reguler untuk menjaga keefektifannya.

Sebuah virus hanyalah sebuah program komputer. Seperti

PROGRAM KASIR SEDERHANA DENGAN JAVA

Listing Program

/*

 * To change this template, choose Tools | Templates

 * and open the template in the editor.

 */

package penjualan;

/**

 *

 * @author yudo

 */

import java.util.Scanner;

public class Penjualan {

    public static void main(String[] args) {

         int jlh_data,pilihan,total,bayar,total1,harga = 0;//deklarasi integer

    

        String namamakanan;

        Scanner input = new Scanner(System.in);

        System.out.println("==================");//mencetak nilai dari objek

        System.out.println("===Menu Makanan===");//mencetak nilai dari objek

        System.out.println("| 1. Mie Ayam     |");//mencetak nilai dari objek

        System.out.println("| 2. Nasi Goreng  |");//mencetak nilai dari objek

        System.out.println("| 3. Mie Goreng   |");//mencetak nilai dari objek

        System.out.println("| 4. Mie Rebus    |");//mencetak nilai dari objek

        System.out.println("==================");//mencetak nilai dari objek

        System.out.print("Silahkan pilih yang anda pesan : ");//mencetak nilai dari

PENGERTIAN BAHASA PEMROGRAMAN

PENGERTIAN BAHASA PEMROGRAMAN 

Bahasa pemrograman (programming language). apa itu? bahasa pemrograman adalah suatu komando atau perintah yang dibuat manusia untuk membuat komputer menjadi memiliki fungsi tertentu. bahasa pemrograman ini adalah suatu susunan aturan penulisan (sintaks) yang membentuk kode kode yang kemudian akan diterjemahkan oleh program kompiler menjadi bahasa rakitan (assembly) dan terus diolah hingga dimengerti oleh mesin. Komputer hanya mengerti bahasa mesin. menurut tingkat kedekatannya bahasa pemrograman ( programming language) terdiri dari

bahasa mesin. yaitu bahasa yang digunakan untuk memprogram komputer dengan menggunakan kode semacam kode biner misalnya.00100001010100100

Bahasa Tingkat Rendah, atau dikenal dengan istilah bahasa rakitan (bah.Inggris Assembly), yaitu memberikan perintah kepada komputer dengan memakai kode-kode singkat (kode mnemonic), contohnya MOV, SUB, CMP, JMP, JGE, JL, LOOP, dsb

Bahasa Tingkat Menengah, yaitu bahasa komputer yang memakai campuran instruksi dalam kata-kata bahasa manusia (lihat contoh Bahasa Tingkat Tinggi di bawah) dan instruksi yang bersifat simbolik, contohnya {, }, ?, <<, >>, &&, ||, dsb.

5. Bahasa Tingkat Tinggi, yaitu bahasa komputer yang memakai instruksi berasal dari unsur kata-kata bahasa manusia, contohnya begin, end, if, for, while, and, or, dsb 

sebagian besar bahasa pemrograman adalah bahasa tingkat tinggi. bahasa tingkat tinggi adalah bahasa pemrograman yang memiliki struktur dan kemiripan seperti bahasa menusia ya itu bahasa inggris. contoh bahasa pemrograman adalah PASCAL yang kita pelajari di situs pascal ini. sementara bahasa tingkat menengah misalnya bahasa C..

saat ini banyak bahasa pemrograman yang ada di dunia. masing masing punya kelebihan dalam kemudahan mempelajari dan merancangnya. diantara bahasa pemrograman yang populer antara lain

FORTAN

 FORTAN ( formula translation). pertama kali dikembangkan pada tahun 1956 oleh Jhon Backus di IBM. ditujukan untuk mempermudah pembuatann aplikasi matematika , ilmu pengetahuan dan teknik. FORTAN merupakan bahasa pemrograman tingkat tinggi yang pertama ada. keunggulan fortan terletak pada dukungan untuk menangani perhitungan , termasuk bilangan kompleks. Kelemahan bahasa ini adalah