Thank's
Featured Post Today
Latest Post
Tugas Kriptografi (Caesar, Vernan Gronsfled, Vigenera)
Mesran
Kawan-kawan kali ini saya akan posting kan Kriptografi di Blog saya,dimana Kriptografi merupakan proses penggabungan beberapa Text,Huruf,dan Simbol.
dan jika ingin pergi untuk melihat atauberkenalan dengan
pertama kita harus buat 5 form.
Dimana form1 sabagai form utama dan form2 sampai form5 merupakan form kriptografinya.
1. Pada form1 buatlah tampilan seperti ini
Buatlah kodenya Sebagai berikut
Public Class Form1
Private Sub CaesarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CaesarToolStripMenuItem.Click
Form2.Show()
End Sub
Private Sub ViernamToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ViernamToolStripMenuItem.Click
Form3.Show()
End Sub
Private Sub GronsfeldToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GronsfeldToolStripMenuItem.Click
form4.Show()
End Sub
Private Sub VigenoreToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VigenoreToolStripMenuItem.Click
form5.Show()
End Sub
Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
End
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
Public Class Form1
Private Sub CaesarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CaesarToolStripMenuItem.Click
Form2.Show()
End Sub
Private Sub ViernamToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ViernamToolStripMenuItem.Click
Form3.Show()
End Sub
Private Sub GronsfeldToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GronsfeldToolStripMenuItem.Click
form4.Show()
End Sub
Private Sub VigenoreToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VigenoreToolStripMenuItem.Click
form5.Show()
End Sub
Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
End
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
2. Pada form2 Kriptografi caesar seperti tampilan ini !
Buatlah kodenya sebagai berikut !
Public Class Form2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
PLAIN.Text = ""
CHIPER.Text = ""
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Close()
End Sub
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 Btndeskripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btndeskripsi.Click
Dim x As String = ""
Dim xenkripsi As String = ""
For i = 1 To Len(CHIPER.Text)
x = Mid(CHIPER.Text, i, i)
x = Chr(Asc(x) - 3)
xenkripsi = xenkripsi + x
Next
CHIPER.Text = xenkripsi
End Sub
End Class
3. Pada form3 Kriptografi Viernam seperti tampilan ini !
Public Class Form2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
PLAIN.Text = ""
CHIPER.Text = ""
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Close()
End Sub
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 Btndeskripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btndeskripsi.Click
Dim x As String = ""
Dim xenkripsi As String = ""
For i = 1 To Len(CHIPER.Text)
x = Mid(CHIPER.Text, i, i)
x = Chr(Asc(x) - 3)
xenkripsi = xenkripsi + x
Next
CHIPER.Text = xenkripsi
End Sub
End Class
3. Pada form3 Kriptografi Viernam seperti tampilan ini !
Buatlah kodenya Sebagai berikut !
Public Class Form3
Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
PLAINTEXT.Text = ""
KUNCI.Text = ""
CHIPPERTEXT.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 = 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
CHIPPERTEXT.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 Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Close()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
PLAINTEXT.Text = ""
KUNCI.Text = ""
CHIPPERTEXT.Text = ""
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 = ""
CHIPPERTEXT.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 = 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
CHIPPERTEXT.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 Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Close()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
PLAINTEXT.Text = ""
KUNCI.Text = ""
CHIPPERTEXT.Text = ""
End Sub
End Class
4. Pada form4 Kriptografi Gronsfeld seperti tampilan ini !
Buatlah kodenya sebagai berikut !
Public Class form4
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 = 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
CHIPPERTEXT.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 >= 48) And (tombol <= 57)) Or (tombol = 8)) Then
e.Handled = True
End If
End Sub
Private Sub form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
PLAINTEXT.Text = ""
KUNCI.Text = ""
CHIPPERTEXT.Text = ""
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
PLAINTEXT.Text = ""
KUNCI.Text = ""
CHIPPERTEXT.Text = ""
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Close()
End Sub
End Class
Public Class form4
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 = 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
CHIPPERTEXT.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 >= 48) And (tombol <= 57)) Or (tombol = 8)) Then
e.Handled = True
End If
End Sub
Private Sub form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
PLAINTEXT.Text = ""
KUNCI.Text = ""
CHIPPERTEXT.Text = ""
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
PLAINTEXT.Text = ""
KUNCI.Text = ""
CHIPPERTEXT.Text = ""
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Close()
End Sub
End Class
5. Pada form5 Kriptografi Vigenore seperti tampilan ini !
Buatlah kodenya Sebagai berikut !
Public Class form5
Private Sub form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
PLAINTEXT.Text = ""
KUNCI.Text = ""
CHIPPERTEXT.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 = 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
CHIPPERTEXT.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 >= 32) And (tombol <= 47)) 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
PLAINTEXT.Text = ""
KUNCI.Text = ""
CHIPPERTEXT.Text = ""
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Close()
End Sub
Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click
End Sub
End Class
Penasaran ea dengan hasilnya ya......
Silakan tekan F5 dan akan jalan seperti biasanya jika anda telah mengikuti cara seperti yang di atas
Sampai Disini postingan nya bro,, jika ada kata yang kurang menyenangkan mohon unutk dimaafkan :)
SalamPemilik
Public Class form5
Private Sub form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
PLAINTEXT.Text = ""
KUNCI.Text = ""
CHIPPERTEXT.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 = 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
CHIPPERTEXT.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 >= 32) And (tombol <= 47)) 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
PLAINTEXT.Text = ""
KUNCI.Text = ""
CHIPPERTEXT.Text = ""
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Close()
End Sub
Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click
End Sub
End Class
Penasaran ea dengan hasilnya ya......
Silakan tekan F5 dan akan jalan seperti biasanya jika anda telah mengikuti cara seperti yang di atas
Sampai Disini postingan nya bro,, jika ada kata yang kurang menyenangkan mohon unutk dimaafkan :)
SalamPemilik
Sejarah Sistem Operasi Komputer
Sejarah Sistem Operasi Komputer - Sistem oprasi komputer mengalami perkembangan yang sangat cepat, jika dibandingkan dengan sestem operasi komputer terdahulu maka sistem operasi yang kita rasakan sekarang ini adalah bentuk dari perkembangan sistem operasi tersebut. Nah sekarang saya admin dari <a href=http://polinuslaiaa.blogspot.com/>Polinus Laia</a> ingin membagikan artikel tentang SEJARAH SISTEM OPERASI KOMPUTER berdasarkan generasi terdahulu sampai sekarang ini. Mari kita simak sejarah sistem operasi pada komputer dibawah ini.
Sejarah sistem operasi komputer dibagi kedalam 4 generasi yaitu :
- Sistem operasi generasi pertama (Tahun 1945 - 1955).
Sistem operasi generasi pertama merupakan awal perkembangan sistem komputasi elektronik sebagai pengganti sistem komputasi mekanik. Pada generasi ini belum ada yang namanya sistem operasi komputer, maka sistem komputer diberi instruksi yang harus dikerjakan secara langsung. - Sistem operasi generasi ke-dua (Tahun 1955 - 1965).Sistem operasi generasi ke-dua memperkenalkan BPS (batch processing sistem) yaitu pekerjaan yang di kerjakan dalam satu rangkaian, lalu di eksekusi secara berururan. Pada generasi ini sistem komputer belum dilengkapi dengan sistem operasi, tetapi beberapa fungsi sistem operasi telah ada.
- Sistem operasi generasi ke-tiga (Tahun 1965 - 1960).
Pada generasi ini perkembangan sistem operasi dikembangkan untuk melayani banyak pemakai sekaligus, dimana user atau penguna dapat berkomunikasi lewat terminal secara online ke komputer, maka sistem operasi menjadi multi user (Digunakan oleh banyak penguna sekaligus). Dan multi programing (Melayani banyak program sekaligus). - Sistem operasi generasi ke-empat (Tahun 1980an--pasca 1980an).
Dewasa ini sistem operasi digunakan untuk jaringan komputer, dimana user menyadari keberadaan komputer - komputer yang saling terhubung satu dengan yang lain.
Jenis - Jenis sistem operasi komputer
Jenis sistem operasi yang bisa digunakan antara lain :
- Posix, Unix, Ms Dos, Ms WINDOWS, Linux, Apple dll.
Dari sekian banyak sistem operasi dapat dibagi menjadi dua berdasarkan kontak (interface) yaitu :- Coman line interface (CLI)
Coman line interface (CLI) adalah kontak user dengan perangkat keras berbasis text (huruf, angka, dan simbol atau tanda baca) contonya : MS Dos, posix, linux. - Grafical user interface (GUI)
Grafical user interface (GUI) adalah kontak user dengan perangkat keras berbasis gambar atau grafik. contohnya: Ms windows, unix, Linux
- Coman line interface (CLI)
Fungsi Dari sistem Operasi Komputer
Fungsi sistem operasi terbagi menjadi tiga, yaitu :
- Sebagai pengatur penggunaan perangkat keras oleh berbagai program Aplikasi serta para user.
- Sebagai pengawas penggunaan perangkat keras, Program aplikasi dan user (resource allocator).
- Sebagai pengendali yang bertujuan untuk Menghindari kekeliruan (error) dan penggunaan komputer yang tidak perlu.
Sasaran sistem operasi komputer
Sistem operasi mempunyai tiga sasaran utama, yaitu :
- Kenyamanan (Membuat user komputer menjadi lebih nyaman dalam mengunakan komputer).
- Efisien (Penggunaan sumber dasa sistem komputer tepat tujuan "terarah dan terkendali").
- Evolusi (Sistem Operasi harus dibagun, sehingga memungkinkan dan memudahkan pengembangan, pengujian dan menciptakan sistem operasi baru yang lebih bagus lagi.
