Minggu, 30 Juni 2013

TUGAS KRIPTOGRAFI


PERTAMA-TAMA BUAT DULU FORM MENU NYA:
TAMPILANNYA:

Public Class Form1

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

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

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

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

    Private Sub DesChiperToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DesChiperToolStripMenuItem.Click
        Form6.MdiParent = Me
        Form6.Show()
    End Sub

    Private Sub RC4ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RC4ToolStripMenuItem.Click
        Form7.MdiParent = Me
        Form7.Show()
    End Sub
End Class



Public Class Form2

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

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

    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
        End
    End Sub
End Class


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 Btnenkript_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnenkript.Click
        Dim J As Integer
        Dim Jum As Integer
        Dim sKey As String
        Dim nKata As Integer
        Dim nKunci As String
        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 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 Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
        End
    End Sub
End Class







 

Public Class Form4


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

    Private Sub Btnenkript_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnenkript.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 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 Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
        End
    End Sub
End Class











 

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 Btnenkript_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnenkript.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 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 Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
        End
    End Sub
End Class














Public Class Form6

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

    End Sub

    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
        End
    End Sub
End Class












Public Class Form7

    Private Sub Form7_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        plaintext.Text = ""
        kunci.Text = ""
        chipertext.Text = ""
    End Sub
    Private Function Rc4(ByVal message As String, ByVal password As String) As String
        Dim s = Enumerable.Range(0, 256).ToArray
        Dim i, j As Integer
        For i = 0 To s.Length - 1
            j = (j + Asc(password(i Mod password.Length)) + s(i)) And 255
            Dim temp = s(i)
            s(i) = s(j)
            s(j) = temp
        Next
        i = 0
        j = 0
        Dim sb As New System.Text.StringBuilder(message.Length)
        For Each c As Char In message
            i = (i + 1) And 255
            j = (j + s(i)) And 255
            Dim temp = s(i)
            s(i) = s(j)
            s(j) = temp
            sb.Append(Chr(s((s(i) + s(j)) And 255) Xor Asc(c)))
        Next
        Return sb.ToString
    End Function

    Private Sub Btnenkript_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnenkript.Click
        chipertext.Text = Rc4(plaintext.Text, kunci.Text)
    End Sub

    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
        End
    End Sub
End Class

Sabtu, 29 Juni 2013

10 Jenis Alat Perang Tercanggih di Dunia


Halo sobat semua Topik harian kali ini saya ingin berbagi pengetahuan tentang kemajuanteknology dunia yang diterapkan pada mesin-mesin  penghancur dalam peperangan, Bagi sobat yang belum tau tentang jenis alat perang tercanggih di dunia berikut ini adal beberapa alat perang tercanggih di duni yang berhasil saya rangkum dari berbagai sumber silahkan disimak.

1. Su-27 (Russia)
alat tempur tercanggih

Sukhoi Su-27 (kode NATO: Flanker) adalah pesawat tempur yang awalnya diproduksi oleh Uni Soviet, dan dirancang oleh Biro Disain Sukhoi. Pesawat ini direncanakan untuk menjadi saingan utama generasi baru pesawat tempur Amerika Serikat (yaitu F-14 Tomcat, F-15 Eagle, F-16 Fighting Falcon, dan F/A-18 Hornet). Su-27 memiliki jarak jangkau yang jauh, persenjataan yang berat, dan kelincahan yang tinggi. Pesawat ini sering disebut sebagai hasil persaingan antara Sukhoi dengan Mikoyan-Gurevich, karena Su-27 dan MiG-29 berbentuk mirip. Ini adalah keliru, karena Su-27 dirancang sebagai pesawat interseptor dan pesawat tempur superioritas udara jarak jauh, sedangkan MiG-29 dirancang untuk mengisi peran pesawat tempur pendukung jarak dekat.

2. MiG-35 Fulcrum


Mikoyan MiG-35 (bahasa Rusia: ????????? -35, Nama kode NATO: Fulcrum-F) adalah pengembangan lebih lanjut dari MiG-29M/M2 dan teknologi MiG-29K/KUB. Hal ini digolongkan sebagai jet tempur generasi 4 + + oleh produsen. [2] Prototipe pertama adalah modifikasi dari pesawat yang sebelumnya menjabat sebagai demonstran model MiG-29M2.
Sejauh ini 10 prototip telah dibangun dan saat ini tunduk pada uji coba lapangan yang luas. [3] MiG-35 adalah sekarang diklasifikasikan sebagai pesawat menengah berat badan karena berat maksimum lepas landas telah meningkat sebesar 30 persen yang melebihi kriteria sebelumnya dari klasifikasi.

3. MIA2 Abrams

MIA2 Abrams! Ini tank tercanggih andalan Amerika Serikat dan mampumelibas musuh-musuhnya di seluruh dunia. Baju besinya dilapisi uranium, sementara lapisan dalam tank dilapisi Kevlar untuk menjamin keselatan kru tank.
  1. Mampu menghancurkan tank lain dalam radius 4 Km.
  2. Tiga senapan mesin menambah seram tank berbobot 62,5 ton ini.
  3. MIA2 Abrams memiliki daya jelajah 400 km dan kecepatan maksimun 67 Km.
  4. MIA2 Abrams dioperasikan 4 awak. Masing-masing bertugas sebagai komandan tank, penembak, pengisi peluru, serta pengemudi.
  5. Senjatanya mengandalkan meriam M256 120mm.

4. Tank Tipe 99 China


Selain jenis Tank Tipe 90, China mengembangkannya menjadi Tank tercanggih Tipe 99.
  • berkolaborasi dengan Rusia. Tank Tipe 90 dilengkapi meriam kaliber 125 mm dan cocok digunakan dengan misil 9K119 Refleks yang dikenal sebagai pembuhun tank kelas berat.
  • Tank ini memiliki daya jelajah 600 km, dengan tanki tambahan.
  • Kecepatan maksimum 60 km/jam di jalan offroad dan 80 km di jalan raya. Cukup ngebut untuk ukuran tank kelas berat.
  • Tank Tipe 90 memiliki perlindungan 1.000-1 200 mm. Cukup tebal untuk menahan gempuran dalam pertempuran antar tank kelas berat. Bobotnya 54 ton dan dioperasikan 4 awak.

5. M14


M1 dan M14. Fitur inovatifnya meliputi bahan campuran plastik dan logam ringan, sistem reload (mengisi ulang peluru) yang mudah dan penggunaan peluru kaliber 5.56mm.

Type: Semi or Fully Automatic Assault Rifle
Country of Origin: United States
Caliber: 5.56 x 45 mm (.223 inch)
Cartridge Capacity: 20-30 rounds
Muzzle Velocity: Approximately 3,281 feet per second
Rate of Fire: 700-950 rounds per minute

7. Rubis Class â€" France



Kecepatan mencapai 25 roughness dengan spesifikasi senjata tempur 4 Anti-submarine tubesF17 mod2 torpedoes14 Exocet SM39OR, Mines in locate of torpedoes.

8. Victor threesome Class â€" Soviet Union


Kecepatan mencapai 32 roughness dengan spesifikasi senjata tempur 2 x SS-N-15 ‘Starfish’ anti-submarine missiles, plus 2 x SS-N-21 ‘Sampson’ voyage missiles or 2 x SS-N-16 ‘Stalion’ missiles2 x 650-mm and 6 x 533-mm gesture tubes (two 533-mm tubes with 406-mm liners). 6 x 650-mm torpedoes an up to 18 x 533-mmOR, 36 connector mines in locate of torpedoes.

9. Peluru Kendali Anti-Balistik

Peluru kendali anti-balistik adalah peluru kendali dengan fungsi utama untuk menyergap dan menghancurkan peluru kendali balistik lawan. Rudal anti-balistik jarak pendek antara lain Arrow buatan Israel dan MIM-104 Patriot buatan AS. Sedangkan rudal anti-balistik yang dirancang untuk melawan ICBM sebelumnya hanya ada dua yaitu Safeguard AS yang menggunakan LIM-49A Spartan dan Sprint serta A-35 Rusia. A-35 kemudian dikembangkan menjadi A-135 yang menggunakan Gorgon dan Gazelle. Amerika Serikat kemudian mengembangkan Ground-Based Midcourse Defense.







10. Peluru Kendali Darat ke Udara


Peluru kendali darat ke udara adalah peluru kendali yang diluncurkan dari darat untuk menghancurkan pesawat. Istilah terkenal untuk rudal jenis ini adalah SAM yang merupakan singkatan dari rudal darat ke udara dalam bahasa Inggris yaitu suface-to-air missile. Rudal darat ke udara dapat diluncurkan dari lokasi tetap atau kendaraan peluncur. SAM terkecil yang dikembangkan oleh Uni Soviet dapat dibawa dan diluncurkan oleh seorang tentara. SAM juga dapat diluncurkan dari kapal, contoh dari jenis ini adalah Aegis.