CARA MEMBUAT PEMOGRAMAN KRIPTOGRAFI DENGAN VB 2008

CARA MEMBUAT PEMOGRAMAN KRIPTOGRAFI DENGAN VB 2008

OKE GUYS KALI INI SAYA AKAN MEMBERI TAHU BAGAIMANA CARA PEMBUATAN KRIPTOGRAFI DENGAN VB 2008. OKE LANGSUNG SAJA YA...

Berikut ini adalah desaign dan cara-cara penyelesaiannya

1. Tampilan dari menu utama

berikut desainnya:

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

    Private Sub MenuStrip1_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles MenuStrip1.ItemClicked

    End Sub

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

    End Sub

End Class

Hasilnya:

2. Tampilan pemograman kriptografi caesar chiper
    berikut desaign nya:

Cara penyelesain nya:

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 lia As Integer
        lia = MsgBox("anda mau keluar ?", MsgBoxStyle.YesNo)
        If lia = 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

Berikut hasil penggunaan enkripsi:

3. Cara penyelesaian  pemograman kriptografi vernam chiper:
    berikut desaign nya:

cara penyelesaian nya:

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) + 65)


        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 menggunakan enkripsi:

4. kriptografi gronfeld:
    berikut desain nya:

berikut penyelesaian nya:

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

berikut hasil nya:

5. CARA penggunaan kristografi vigenere
    Berikut desaign nya:

Berikut ini penyelesaian nya:

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

berikut hasil nya:

Demikian lah bagian dari kristografi dan cara penyelesaian nya.

Aplikasi Memperindah dan Mempercantik Dektop

Kata Desktop dalam Komputer atau laptop adalah Suatu Lembaran Kerja On-screen Untuk penggunaan Shortcut Pada Sebuah Aplikasi. Nah, Bagi Sobat yang sudah bosan dengan Tampilan Default Desktop sobat ? Bisa simak Aplikasi Memperindah dan Mempercantik Dektop ini !

Real Desktop Pro

Real Desktop Pro adalah Sebuah aplikasi yang mampu Membuat Tampilan Laptop sobat menjadi 3D.Kebanyakan Pengguna Aplikasi ini menggunakan Background Sebuah Ruangan Seperti PadaGambar

Download Click Here | Upload from real-desktop.de

Fences

Fences, dalam bahasa indonesia yang berarti pagar ini adalah Sebuah Aplikasi khusus yang berfungsi untuk merapikan Shortcut pada desktop sobat sehingga Lebih terlihat Rapi Selain itu kita bisa Mengelompokkan Shorcut sesuai keinginan kita untuk memudahkan pengguna untuk mencari Aplikasi mana yang ingin dibuka

Download Click Here | Upload from stardock.com

Rocketdock

Aplikasi ini sudah tak asing lagi di telinga para pengguna Komputer atau laptop di Indonesia ! Rocketdock Adalah Sebuah Aplikasi Merapikan Shortcut Semacam Fences.Namun, Tampilan Shortcut pada rocketdock hanya Memakan Sedikit tempat dan Tampilannya yang cumaVertikal dan horizontal

Download Click Here | Upload from rocketdock.com

Rainmeter

Rainmeter Adalah Aplikasi gadget pada desktop semacam windows sidebar. Namun, aplikasi lebih terkesan dengan tampilannya yang super keren ditambah lagi dengan ribuan Theme yang bisa sobat download !

Cara Mempercantik Tampilan Layar Deskop Windows 7

1.DESKHEDRON

 Deskhedron, aplikasi ini mampu membuat desktop virtual 3 dimensi. bedanya, aplikasi ini tak perlu di-install, gratis, file kecil, tapi tidak ada pilihan untuk meng-costimisasi tampilannya, yang ada hanya pilihan untuk menambah atau mengurangi jumlah desktop virtual… jumlah desktop virtual awal hanya 2, tapi bisa kita tambah, dan menurut panduan sih bisa sampai 9 desktop, tapi pas kucoba maksimal sampai 7 desktop, lebih dari itu aplikasi akan berhenti… cara pakai-nya cukup klik icon deskhedron di tray, atau klik Ctrl+Shift+Z dan tekan panah kanan atau kiri…

nih contoh gambar deskhedron

 DOWNLOAD

2.winflip

Dalam Windows Vista terdapat beberapa fitur pemanis visual yang dimasukkan yang disebut dengan Aero. Salah satunya adalah tampilan Flip 3D, dengan menekan tombol Windows Logo + Tab yang mengganti fitur ALT+TAB yang lama, fitur ini memudahkan kita untuk berpindah dari jendela satu ke jendela lainnya serta memiliki tampilan visual yang lebih bagus.
Lalu bagaimana dengan pengguna Windows XP? Apakah bisa menggunakan fitur tersebut?

Bagi pengguna Windows XP gak usah berkecil hati, terdapat software yang dapat menampilkan Flip 3D seperti terdapat pada Windows Vista, yaitu WinFlip. Winflip mengganti fitur alt+tab pada windows XP menjadi tampilan Flip3D. Tidak hanya itu, kita bisa menggunakan mouse untuk menampilkan Flip3D dan berpindah antar window, yaitu dengan menekan tombol tengah mouse, dan memilih windows dengan klik.

Hmm… menurut saya software ini lumayan bagus untuk mempermudah kita berpindah antar windows serta memiliki tampilan yang baik. Patut dicoba lah…pokoknya, bagi anda yang pengen fitur Vista ini ada pada windows XP anda.

nih contoh gambar winflip

 DOWNLOAD

3.NVIENNA SIDEBAR

aplikasi yang satu ini berguna untuk menampilkan sidebar yang bisa ditaruh di sebelah kiri desktop atau sebelah kanan desktop, yah seperti aplikasi Google Desktop … Sejauh pengetahuanku sewaktu menggunakannya, widget untuk sidebar ini sudah diatur sedemikian rupa, diriku tidak menemukan menu untuk menambah atau mengurangi widget, ataupun menu untuk memilih tema background sidebar. Namun hal itu tak jadi masalah bagiku karena widget yang tersedia sudah cukup lengkap, mulai dari tombol restart, stand by dan shutdown, drive space indicator, cpu and ram indicator, dan masih banyak lagi, backgroundnya pun sudah menarik dengan tema transparan… Pokoknya aplikasi ini pantas untuk dicoba… Nie dia tampilan dari Vienna Sidebar 1.3 :

 DOWNLOAD 

 

4.FENCES

Jika anda memiliki terlalu banyak icon di desktop anda, terkadang hal tersebut membuat desktop anda tampak berantakan dan sangat sulit untuk menemukan icon yang anda cari. Untuk merapikan desktop anda, anda bisa merapikan, mengatur dan mengelompokkan icon anda berdasarkan kategori maupun tipenya. Fences, software yang didevelop oleh stardock ini bisa anda gunakan untuk mengelompokkan icon di desktop anda dalam sebuah kotak yang disebut “Fences”. Berapa harga software ini? Jika anda bertanya hal ini di pusatgratis, maka tentu saja jawabannya adalah gratis!

nih contoh gambar nya

 DOWNLOAD

Cara Membuat Tema Windows 7 Sendiri

1. DOWNLOAD Aplikasinya di sini

2. extract file hasil download di atas, lalu jalankan file ave15_setup.exe..

3. setelah install selesai, Copy 2 file yang ada di folder Crack (launch_vsb.exe danVistaStyleBuilder.exe) ke folder instalasi (C:\Program Files\AveApps\Windows Style Builder)

catatan: Pilih OverWrite ya..

4. jalankan file "launch_vsb.exe"

5. Klik open dan klik Start New Visual Style

Lalu proses pembuatan pun di mulai

Sekian