KRIPTOGRAFI

Jenis-Jenis Kriptografi
 A. Pengertian Kriptografi Simetris

                  Kriptografi simetris adalah suatu kode hill atau yang lebih biasa dikenal dengan hill chiper yatu merupakan salah satu algoritma kriptografi kunci simetris. Hill cipher diciptakan oleh Lester S. Hill pada tahun 1929 .
kriptografi simetri adalah suatu  bentuk tulisan rahasia yang memperhatikan keseimbangan dan menggunakan syarat-syarat tertentu yang telah ditetapkan , yang mana syarat-syarat tersebut akan dijadikan sebuah kata kunci yang hanya orang tertentu saja yang bisa membacanya. Teknik kriptografi ini diciptakan dengan maksud untuk dapat menciptakan cipher yang tidak dapat dipecahkan menggunakan teknik analisis frekuensi. Hill cipher merupakan penerapan aritmatika modulo pada kriptografi, teknik kriptografi ini menggunakan sebuah matriks persegi sebagai kunci berukuran m x m sebagai kunci untuk melakukan enkripsi dan dekripsi. Dasar teori matriks yang digunakan dalam hill cipher antara lain perkalian antar matriks dan melakukan invers pada matriks.

KEAMANAN KOMPUTER

Quis Keamanan Komputer

1.      pengertian keamanan komputer menurut John D. Howard dan Gollmann

Menurut John D. Howard dalam bukunya “An Analysis of security incidents on the internet” menyatakan bahwa: Keamanan komputer adalah tindakan pencegahan dari serangan pengguna komputer atau pengakses jaringan yang tidak bertanggung jawab.

Menurut Gollmann pada tahun 1999 dalam bukunya “Computer Security” menyatakan bahwa Keamanan komputer adalah berhubungan dengan pencegahan diri dan deteksi terhadap tindakan pengganggu yang tidak dikenali dalam system komputer.

Jadi bisa disimpulkan keamanan komputer  adalah:

-          Suatu usaha pencegahan dan pendeteksian  penggunaan komputer secara tidak sah atau tidak diizinkan.

-          Usaha melindungi aset dan menjaga privacy dari para cracker  yang menyerang.

2.      Non Repudiation adalah merupakan salah satu aspek keamanan komputer yaitu aspek yang menjaga agar seseorang tidak menyangkal telah melakukan sebuah transaksi.

Contoh :

-          kertas print bukti transfer pada ATM

-          adanya perjanjian hitam di atas putih ( tanda tangan perjanjian dikuatkan dengan materai)

-          pengiriman e-mail ( send email )

3.      perbedaan antara kriptografi dan kriptanalisis

jika kriptografi itu bertujuan untuk mengenkripsi dan dekripsi pesan dengan suatu kunci, kriptografi berguna untuk menghindari terjadinya hal-hal seperti interruption, interception(penyadapan), fabrication, modification

sedangkan kriptanalisis bertujuan untuk mencari-cari kemungkinan plainteks yang terenkripsi tanpa menggunakan kunci.

4.      perbedaan jenis serangan interruption dengan fabrication

Interruption : Jenis serangan dengan teknis menghalangiinformasi yang dikirim. Serangan ditujukan kepada ketersediaan (availability) dari sistem.

tools : Dos attack

Contoh : informasi yang tidak kunjung sampai ( menjadi lambat ).

Fabrication : jenis Penyerangan dengan mengirim data atau pesan memanfaatkan identitas orang lain.

tools : buatan sendiri

Contoh : dari serangan jenis ini adalah memasukkan pesan-pesan palsu seperti e-mail palsu / web palsu ke dalam jaringan komputer.

5.      langkah yang perlu dilakukan untuk mengamankan computer server atau lingkungan network.

- upgrade sistem operasi

- gunakan firewall

- instal antivirus

- selalu update

- mencegah spyware

- amankan koneksi nirkabel ( wireless )

- membatasi resiko email spam

- backup

- keamanan fisik

6.      Enam ( 6 ) aspek keamanan komputer

·         Privacy : menjaga informasi dari orang yang tidak berhak mengakses.lebih kearah data-data yang sifatnya privat .

Contoh : e-mail seorang pemakai (user) tidak boleh dibaca oleh administrator.

Integrity : informasi tidak boleh diubah tanpa seijin pemilik informasi.

Contoh : e-mail di intercept di tengah jalan, diubah isinya, kemudian diteruskan ke alamat yang dituju.

·         Authentication : metode untuk menyatakan bahwa informasi betul-betul asli, atau orang yang mengakses atau memberikan informasi adalah betul-betul orang yang dimaksud.

contoh : dengan member pertanyaan-pertanyaan sebelum masuk / menyalakan komputer

·         Availability : berhubungan dengan ketersediaan informasi ketika dibutuhkan.

Contoh hambatan : “denial of service attack” (DoS attack), dimana server dikirimi permintaan (biasanya palsu) yang bertubi-tubi atau permintaan yang diluar perkiraan sehingga tidak dapat melayani permintaan lain atau bahkan sampai down, hang, crash.

·         Access Control: cara pengaturan akses kepada informasi.  berhubungan dengan masalah

·         Non Repudiation : yaitu cara menjaga agar seseorang tidak menyangkal bahwa telah melakukan sebuah transaksi.

contoh :pemberitahuan pesan / sms telah terkirim pada hand phone

database vb.net

Login Form VB.net                 

MEMBUAT LOGIN VB.Net
Berikut adalah cara untuk membuat login pada VB.net
• Membuat login pada VB.net
• Klik kanan pada project yang dibuat
• Add -> New item-> login form

• Klik 2x pada tombol ok
• Masukan sintax
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
If UsernameTextBox.Text = "aji" And PasswordTextBox.Text = "ganteng" Then
MDIParent1.Show()
Me.Visible = False
Else
MsgBox("login gagal,coba ulangi lagi")
End If
End Sub
* Lalu jalankan / running program tersebut
* Masukan username “robby” dan password “ganteng”

• Jika sudah bisa login dan muncul MDI Parent Form maka Login telah selesai.
• Selamat mencoba……

Diposkan oleh ROBBY di 02:58 0 komentar                            

Tampilan Menu ( MDI Parent Form)

MEMBUAT MDI PARENT FORM ( TAMPILAN MENU ) VB.NET
• Membuat tampilan menu pada vb.net
• Klik kanan projek->Add->New Item-> pilih “MDI Parent Form”
• Maka tampil seperti ini

• Kemudian ubah nama menu tersebut sesuai nama yang akan ditampilkan.

• Kemudian klik 2x, untuk mengganti sintaxnya
Private Sub ShowNewForm(ByVal sender As Object, ByVal e As EventArgs) Handles NewToolStripMenuItem.Click, NewToolStripButton.Click, NewWindowToolStripMenuItem.Click
Form1.Show()
End Sub
• Kemudian running Mdi Parent Form tersebut

• Jika sudah tampil seperti diatas maka form MDI Parent Form telah selesai
• Selamat mencoba……

Diposkan oleh ROBBY di 02:51 0 komentar

Cristal Report VB.Net

LANGKAH DALAM MEMBUAT CRISTAL REPORT DALAM VB.NET
Langsung saja pada, inti dari tutorial yang Saya ( Robby ) buat. Simak baik-baik………
Untuk membuat report langkah yang harusa kita lakukan adalah
• Klik Kanan pada project yang dibuat -> Add-> New Item
• Kemudian pilih Reporting-> Cristal Report
• Maka akan muncul tampilan seperti berikut.

• Kemudian pilih ok
• Lakukan langkah berikut. Pilih Create New Connection-> Ole Db (Ado)

• Maka muncul tampilan seperti ini
• Dan pilih “Microsoft Ole DB Provider for SQL Server” karena yang akan kita gunakan adalah database dengan menggunakan Microsoft SQL Server 2000.
• Klik next

• Dan muncul lagi yang demikian
• Untuk penggunaan server jika local isi dengan titik saja, ceklist pada integrated security dan pilih data base yang telah kita buat sebelumnya pada Microsoft SQL Server.
• Kemudian klik next-> finish

• Akan muncul kaya gini
• Sekarang database Jurusan telah muncul dan kita tinggal pilih tablenya seperti pada gambar
• Klik next

• Muncul seperti ini
• Klik pilihan “>>” untuk menentukan field mana yang akan dimunculkan pada report nanti.
• Klik next

• Kemudian next

• Klik next lagi

• Kemudian pilih tampilan report yang menarik dan sesuai dengan kebutuhannya.
• Lalu klik finish

• Maka akan muncul seperti ini, kemudian kita klik kanan “Preview Report”
•

• Maka hasil akan tampil seperti ini :

• Kemudian buat form baru yang akan digunakan untuk menampilkan report tersebut
• Klik kanan pada project-> add-> windows form….
• Pilih di toolbox berupa “Cristal Report Viewer”

• Kemudian klik kanan dan pilih “choose a cristal report”
• Pilih cristal report yang akan dilihat lalu klik Ok.
• Lalu running form tersebut, maka akan muncul yang kira-kira seperti ini :

• Sangat dibutuhkan ada kekurangan kritik atau saran yang membangun.
• Terima kasih…. Selamat Mencoba……………..

Diposkan oleh ROBBY di 02:38 0 komentar

Minggu, 15 Mei 2011

Materi VB

MATERI VB

Dalam membuat program kita biasa menggunakan database. Sebagai koneksi kita menggunakan module yang dibuat untuk mengkoneksikan dengan database Membuat modul koneksi dengan database adalah sebagai berikut :

Imports System.Data
Imports System.Data.Sql
Module koneksi
Public database As New OleDb.OleDbConnection
Public tampil2 As New OleDb.OleDbCommand
Public tampilkan As OleDb.OleDbDataReader
Public hasilcek As String

Public Sub bukakoneksi()
database.Close()
Try
database.ConnectionString = "provider=sqloledb.1;integrated security=SSPI;persist security info=false; initial catalog=cobasql;data source=."
database.Open()
MessageBox.Show("Koneksi kedatabase berhasil")
Catch ex As Exception
MessageBox.Show("koneksi gagal")
End
End Try
End Sub
End Module

Kemudian membuat sintax seperti ini dalam form yang baru.
Public Class Form2
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call bukakoneksi()
tampil2.Connection = database
tampil2.CommandType = CommandType.Text
tampil2.CommandText = "select * from jurusan where kdjur='" & Trim(TextBox1.Text) & "'"
tampilkan = tampil2.ExecuteReader

If tampilkan.HasRows = True Then
While tampilkan.Read()
If IsDBNull(tampilkan("kdjur")) Then
TextBox2.text = tampilkan("nmjur")
Else
TextBox2.Text = tampilkan("nmjur")
End If
End While
End If
End Sub

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

End Sub
End Class

kemudian membuat tampilan formnya sebagai berikut ;

Dan dilanjutkan dengan membuat sintax selanjutnya pada form baru selanjutnya ;

Public Class Form2
Sub kosong()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox1.Focus()
End Sub
Sub netral()
Button1.Text = "Tambah"
Button2.Text = "Ubah"
Button3.Text = "Hapus"
Button4.Text = "Keluar"
Button1.Enabled = True 'enable=funsi aktif/tdaknya sebuah objek
Button2.Enabled = True
Button3.Enabled = True
Button4.Enabled = True
End Sub
Sub celrecord()
Call bukakoneksi()
tampil2.Connection = database
tampil2.CommandType = CommandType.Text
tampil2.CommandText = "select * from jurusan where kdjur='" & Trim(TextBox1.Text) & "'"
tampilkan = tampil2.ExecuteReader
If tampilkan.HasRows = True Then ''ada atau tidak recod yg dimaksukkan
hasilcek = True
Else
hasilcek = False
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call simpankelompok()
End Sub
Sub simpankelompok()
If Button1.Text = "Tambah" Then
TextBox1.Text = ""
Button1.Text = "Simpan"
Button2.Enabled = False
Button3.Enabled = False
Button4.Text = "Batal"
TextBox1.Focus()
Else
If TextBox1.Text = "" Then Exit Sub ''then exit sub = keluar dari sub class dgan syarat textbox harus diisi/pengecekan validasi
If TextBox2.Text = "" Then Exit Sub
Call celrecord()
Try
If hasilcek = "False" Then
Call bukakoneksi()
tampil2.Connection = database
tampil2.CommandType = CommandType.Text
tampil2.CommandText = " Insert into Jurusan (kdjur,nmjur)values ('" & TextBox1.Text & "','" & TextBox2.Text & "')"
tampil2.ExecuteNonQuery()
Call kosong()
Else
MsgBox("Data sudah ada , silahkan cek data yang akan diinput ", MsgBoxStyle.Critical, "Input data") ''critical = ! dalam msgbox
End If
Catch ex As Exception
MsgBox(ex.ToString())
End Try
End If
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If Button4.Text = "Keluar" Then
Me.Close()
Else
Call kosong()
Call netral()
End If
End Sub
Sub ubahkelompok()
If Button2.Text = "Ubah" Then
TextBox1.Text = ""
Button2.Text = "Simpan"
Button1.Enabled = False
Button3.Enabled = False
Button4.Text = "Batal"
TextBox1.Focus()
Else
If TextBox1.Text = "" Then Exit Sub ''then exit sub = keluar dari sub class dgan syarat textbox harus diisi/pengecekan validasi
If TextBox2.Text = "" Then Exit Sub
Try
Call bukakoneksi()
tampil2.Connection = database
tampil2.CommandType = CommandType.Text
tampil2.CommandText = " Update Jurusan set nmjur='" & TextBox2.Text & "'where kdjur='" & TextBox1.Text & "'"
tampil2.ExecuteNonQuery()
Call kosong()
TextBox1.Focus()
Catch ex As Exception
MsgBox(ex.ToString())
End Try
End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Call ubahkelompok()
End Sub
Sub hapuskelompok()
If Button3.Text = "Hapus" Then
TextBox1.Text = " "
Button3.Text = "Ok"
Button1.Enabled = False
Button2.Enabled = False
Button4.Text = "Batal"
TextBox1.Focus()
Else
If TextBox1.Text = "" Then Exit Sub
If TextBox2.Text = "" Then Exit Sub
Try
Call bukakoneksi()
tampil2.Connection = database
tampil2.CommandType = CommandType.Text
tampil2.CommandText = " Delete from Jurusan where kdjur='" & Trim(TextBox1.Text)&"'"
tampil2.ExecuteNonQuery()
Call kosong()
TextBox1.Focus()
Catch ex As Exception
MsgBox(ex.ToString())
End Try
End If
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Call hapuskelompok()

End Sub

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If e.KeyChar = Chr(Keys.Enter) Then
If Button1.Text = "Simpan" Then
Call celrecord()
If hasilcek = False Then
TextBox2.Focus()
Else
MsgBox("Kode Sudah ada, silahkan ganti kode lain", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "Informasi")
tampilkan = tampil2.ExecuteReader
End If
Else
Call bukakoneksi()
tampil2.Connection = database
tampil2.CommandType = CommandType.Text
tampil2.CommandText = " select* from Jurusan where kdjur='" & Trim(TextBox1.Text) & "'"
tampil2.ExecuteNonQuery()

If tampilkan.HasRows = True Then
While tampilkan.Read()
If (IsDBNull(tampilkan("kdjur"))) Then
TextBox1.Focus()
Else
TextBox2.Text = tampilkan("nmjur")
TextBox2.Focus()
End If
End While
Else
MsgBox("Data tidak diketemukan", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "Tambah Data")
End If
End If
End If
End Sub

End Class

kemudian membuat tampilan formnya lagi sebagai berikut :

maka program selesai dan jangan lupa dibuat database terlebih dahulu dengan menggunakan SQL Server 2000. Untuk keterangan selanjutnya akan dibahas pada posting / update yang akan datang berikutnya…… tunggu tanggal mainnya…..

progaram vb.net for UAS

Membuat program data base tanpa koneksi database (hanya tampilan)

1. langkah yang pertama buat Design seperti berikut :

2.buat scribnya seperti berikut :

Public Class Form1

    Dim listitem As ListViewItem
    Dim listtxt(4) As String
    Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
        Call bersih()
    End Sub
    Sub bersih()
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        listtxt(0) = Trim(TextBox1.Text)
        listtxt(1) = Trim(TextBox2.Text)
        listtxt(2) = Trim(TextBox3.Text)
        listtxt(3) = Trim(TextBox4.Text)
        'untuk memasukkan ke listview dari variable
        listitem = New ListViewItem(listtxt)
        ListView1.Items.Add(listitem)

    End Sub
    Sub setlistview()
        ListView1.View = View.Details
        'untuk menentukan kolom
        ListView1.Columns.Add("Kode barang", 100, HorizontalAlignment.Center)
        ListView1.Columns.Add("Describtion", 130, HorizontalAlignment.Left)
        ListView1.Columns.Add("Spesifikasi", 150, HorizontalAlignment.Left)
        ListView1.Columns.Add("nomer mould", 100, HorizontalAlignment.Left)
    End Sub


    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        If Button5.Text = "close" Then
            Me.Close() 'me untuk menutup form diri sendiri
        Else
            Call bersih()
            Call normal()
        End If
    End Sub
    Sub normal()
        Button1.Text = "save"
        Button1.Enabled = True
        Button2.Text = "edit"
        Button2.Enabled = True
        Button3.Text = "delete"
        Button3.Enabled = True
        Button4.Text = "cancel"
        Button4.Enabled = True
        Button5.Text = "close"
        Button5.Enabled = True
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If Button2.Text = "edit" Then
            Button2.Text = "ubah"
            Button1.Enabled = False
            Button3.Enabled = False
            Button4.Enabled = False
            Button5.Text = "keluar"
        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If Button3.Text = "delete" Then
            Button3.Text = "hapus"
            Button1.Enabled = False
            Button2.Enabled = False
            Button4.Enabled = False
            Button5.Text = "keluar"
        End If
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If Button4.Text = "cancel" Then
            Button4.Text = "tunda"
            Button1.Enabled = False
            Button2.Enabled = False
            Button3.Enabled = False
            Button5.Text = "keluar"
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Call setlistview()
    End Sub
End Class
 

3.maka setelah dijalankan hasilnya akan seperti berikut :

Cara membuat program vb.net semi data base

Cara membuat program vb.net semi data base

1.buat design nya seperti gambar berikut

2. buat scribnya sebagai berikut :
Public Class Form1

'membuat variable array

Dim listtxt(3) As String
Dim listitem As ListViewItem


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'memasukan nilai ke variable array

listtxt(0) = Trim(TextBox1.Text)
listtxt(1) = Trim(TextBox2.Text)
listtxt(2) = Trim(TextBox3.Text)

'untuk memasukkan ke listview dari variable

listitem = New ListViewItem(listtxt)
ListView1.Items.Add(listitem)
End Sub

'setting colom listview

Sub setlistview()
ListView1.View = View.Details
'untuk menentukan kolom/nama kolom pada listbox
ListView1.Columns.Add("NPM", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("nama", 200, HorizontalAlignment.Left)
ListView1.Columns.Add("alamat", 100, HorizontalAlignment.Left)
End Sub

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

End Sub

Private Sub ListView1_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged

'ganti properti kiri listview1 kanan itemselectionchanged

'mangambil nilai dari listview

TextBox4.Text = e.Item.Text
End Sub
End Class

Hasilnya sebagai berikut :