ABDUL RAHIM: 2013

Rabu, 25 Desember 2013

Program Sederhana Enkripsi dan Dekripsi Dengan VB.NET 2008

Assalamu'alaikum warahmatullahi wabarakatuh

disini kita akan membahas tentang cara membuat kriptografi menggunakan VB. NET 2008

Pertama, kita desain dulu form aplikasinya, sebagai contoh bisa di lihat pada gambar dibawah ini :

Gbr 1 Sumber Koleksi Pribadi

Properti yang saya setting pada form diatas adalah
Label1 : Ganti properti TEXT dengan Password
Label2 : Ganti properti TEXT dengan Enkripsi
Label3 : Ganti properti TEXT dengan Dekripsi

TextBox1 : Ganti properti NAME dengan txtPass
TextBox2 : Ganti properti NAME dengan txtEnkripsi
TextBox2 : Ganti properti NAME dengan txtDeskripsi

Button1 : Ganti properti NAME dengan btnProses & Properti TEXT dengan Proses
Button1 : Ganti properti NAME dengan btnRefresh & Properti TEXT dengan Refresh

Kedua, kita diharuskan untuk menambahkan Reference ke dalam VB.NET kita, yaitu "system.security" caranya klik Project - Add Reference - pada tampilan dibawah pilih "system.security" - klik OK

Gbr 2 Sumber Koleksi Pribadi

Ketiga, masuk ke kodingannya nih kawan, hehehehe ane copas dari Projectnya langsung nih

'Masukkan bagian ini wajib banget kalau ga ntr fungsi Enkrip & Dekrip ga jalan
Imports System.Security.Cryptography
Imports System.Text

'Bagian Form Class kawan
Public Class Form1

Sub BERSIH()
txtPass.Focus()
txtPass.Clear()
txtEnkripsi.Clear()
txtDeskripsi.Clear()
txtEnkripsi.Enabled = False
txtDeskripsi.Enabled = False
End Sub

'Proses Enkripsi & Dekripsi di atur pada dua SUB dibawah ini
#Region "Enkripsi_Dekripsi_md5"
'Ini adalah sub untuk enkripsi karakterk dengan MD5
Sub ENKRIPSI()
Dim DES As New TripleDESCryptoServiceProvider()
Dim hashMD5 As New MD5CryptoServiceProvider()

DES.Key = hashMD5.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(txtPass.Text))
DES.Mode = CipherMode.ECB
Dim DESEncrypt As ICryptoTransform = DES.CreateEncryptor()
Dim Buffer As Byte() = System.Text.ASCIIEncoding.ASCII.GetBytes(txtPass.Text)
txtEnkripsi.Text = Convert.ToBase64String(DESEncrypt.TransformFinalBlock(Buffer, 0, Buffer.Length))
End Sub

'Ini adalah sub Dekripsi dengan MD5
Sub DEKRIPSI()
Dim DES As New TripleDESCryptoServiceProvider()
Dim hashMD5 As New MD5CryptoServiceProvider()

DES.Key = hashMD5.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(txtPass.Text))
DES.Mode = CipherMode.ECB
Dim DESDecrypt As ICryptoTransform = DES.CreateDecryptor()
Dim Buffer As Byte() = Convert.FromBase64String(txtEnkripsi.Text)
txtDeskripsi.Text = System.Text.ASCIIEncoding.ASCII.GetString(DESDecrypt.TransformFinalBlock(Buffer, 0, Buffer.Length))
End Sub

#End Region

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

Private Sub btnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProses.Click
Call ENKRIPSI()
Call DEKRIPSI()
End Sub

Private Sub btnRefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRefresh.Click
Call BERSIH()
End Sub
End Class

Keempat, Project siap di jalankan, seharusnya hasilnya akan seperti dibawah. Pada saat TextBox Password di isi dengan karakter dan di klik Button Proses maka proses Enkripsi dan Dekripsi akan dilakukan.

Gbr Sumber Koleksi Pribadi

Demikian artikel ini saya buat, semoga bermanfaat bagi teman2 semua, Amin..... dilain kesempatan Insya Allah saya akan coba buat implementasi dari proses Enkripsi dan Dekripsi ke Form Login, Insya Allah..........
Wassalamu'alaikum....

Minggu, 08 Desember 2013

Input harga photocopy

Public Class Form1

Private Sub BtnProses_Click(sender As Object, e As EventArgs) Handles BtnProses.Click
If Jlh_lembar.Text >= 200 Then
Hrg_Perlembar.Text = "90"
End If

To_har.Text = Val(Hrg_Perlembar.Text) * Val(Jlh_lembar.Text)

If To_har.Text >= "500000" Then
Diskon.Text = 0.15 * To_har.Text
Else
Diskon.Text = 0

Pembayaran.Text = Val(To_har.Text - Diskon.Text)

End If
End Sub

Private Sub BtnHapus_Click(sender As Object, e As EventArgs) Handles BtnHapus.Click
Jlh_lembar.Text = ""
Hrg_Perlembar.Text = ""
To_har.Text = ""
Diskon.Text = ""
Pembayaran.Text = ""
End Sub

Private Sub BtnKeluar_Click(sender As Object, e As EventArgs) Handles BtnKeluar.Click
End
End Sub
End Class

program listview 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("AC001")
kode.Items.Add("AC002")
kode.Items.Add("AS001")
kode.Items.Add("AS002")
buat_tabel()
End Sub
Sub buat_tabel()
LV.Columns.Add("No. Pembelian", 70, HorizontalAlignment.Center)
LV.Columns.Add("Kode Barang", 70, HorizontalAlignment.Left)
LV.Columns.Add("Nama", 100, HorizontalAlignment.Left)
LV.Columns.Add("Merek", 90, HorizontalAlignment.Left)
LV.Columns.Add("Harga", 80, HorizontalAlignment.Left)
LV.Columns.Add("Jumlah Barang", 75, HorizontalAlignment.Left)
LV.Columns.Add("Total Harga", 95, HorizontalAlignment.Left)
LV.View = View.Details
LV.GridLines = True
LV.FullRowSelect = True
End Sub
Sub isi_tabel()
Dim lst As New ListViewItem
lst.Text = Pembelian.Text
lst.SubItems.Add(kode.Text)
lst.SubItems.Add(nama.Text)
lst.SubItems.Add(merek.Text)
lst.SubItems.Add(harga.Text)
lst.SubItems.Add(jumlah.Text)
lst.SubItems.Add(total.Text)
LV.Items.Add(lst)
End Sub

Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged
Dim s = Microsoft.VisualBasic.Left(kode.Text, 2)
Dim p = Microsoft.VisualBasic.Right(kode.Text, 1)
If kode.Text = "AC001" Then
nama.Text = "Flashdisk 6 GB"
If s = "AC" Then
merek.Text = "ACCER"
End If
If p = "1" Then
harga.Text = "60000"
End If
ElseIf (kode.Text = "AC002") Then
nama.Text = "Flashdisk 4 GB"
If s = "AC" Then
merek.Text = "ACCER"
End If
If p = "2" Then
harga.Text = "50000"
End If
ElseIf (kode.Text = "AS001") Then
nama.Text = "Flashdisk 6 GB"
If s = "AS" Then
merek.Text = "ASSUS"
End If
If p = "1" Then
harga.Text = "70000"
End If
ElseIf (kode.Text = "AS002") Then
nama.Text = "Flashdisk 4 GB"
If s = "AS" Then
merek.Text = "ASSUS"
End If
If p = "2" Then
harga.Text = "80000"
End If
End If
End Sub

Private Sub Btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsimpan.Click
total.Text = harga.Text * jumlah.Text
isi_tabel()
Pembelian.Text = ""
kode.Text = ""
nama.Text = ""
merek.Text = ""
harga.Text = ""
jumlah.Text = ""
total.Text = ""
End Sub

Private Sub Btnhapusdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapusdata.Click
LV.Items.Remove(LV.SelectedItems(0))
End Sub

Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click
LV.Items.Clear()
End Sub

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

Private Sub jumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlah.KeyPress
If Asc(e.KeyChar) = 13 Then
total.Text = jumlah.Text * harga.Text
End If
End Sub
End Class

Kamis, 05 Desember 2013

TUGAS PENILAIAN MAHASISWA

Public Class Form1

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub Nilai_Mahasisiwa_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
npm.Items.Add("12110070")
npm.Items.Add("12110077")
npm.Items.Add("12110089")

kddosen.Items.Add("AERDOS112")
kddosen.Items.Add("BBODOS113")
kddosen.Items.Add("KDOS114")

kdmatkul.Items.Add("KDMAT001")
kdmatkul.Items.Add("KDMAT002")
kdmatkul.Items.Add("KDMAT003")

Dim i As Integer
For i = 100 To 1 Step -1
nlhadir.Items.Add(i)
Next
For i = 100 To 1 Step -1
nltugas.Items.Add(i)
Next
For i = 100 To 1 Step -1
nluts.Items.Add(i)
Next
For i = 100 To 1 Step -1
nluas.Items.Add(i)
Next
End Sub

Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
If npm.Text = "12110079" Then
nama.Text = "Abdul Rahim"
jurusan.Text = "Teknik Informatika"
jenjang.Text = "S1"
ElseIf npm.Text = "12110070" Then
nama.Text = "ucok"
jurusan.Text = "Sistem Informasi"
jenjang.Text = "D1"
Else
nama.Text = "Arifin"
jurusan.Text = "Manajemen Informatika"
jenjang.Text = "D3"
End If
End Sub

Private Sub kddosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kddosen.SelectedIndexChanged
If kddosen.Text = "AERDOS112" Then
nmdosen.Text = "Mesran, M.kom"
ElseIf kddosen.Text = "BBODOS113" Then
nmdosen.Text = "Pilipus Tarigan, ST, M.kom"
ElseIf kddosen.Text = "KDOS114" Then
nmdosen.Text = "Abdul Sani S, S.kom"
End If
End Sub

Private Sub kdmatkul_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdmatkul.SelectedIndexChanged
If kdmatkul.Text = "KDMAT001" Then
nmmatkul.Text = "Pemograman Visual"
ElseIf kdmatkul.Text = "KDMAT002" Then
nmmatkul.Text = "Arsitektur Komputer"
ElseIf kdmatkul.Text = "KDMAT003" Then
nmmatkul.Text = "Sistem Operasi"
End If
End Sub

Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
nlakhir.Text = 0.1 * nlhadir.Text + 0.15 * nltugas.Text + 0.3 * nluts.Text + 0.45 * nluas.Text
If nlakhir.Text >= 80 Then
nlhuruf.Text = "A"
ElseIf nlakhir.Text >= 70 Then
nlhuruf.Text = "B"
ElseIf nlakhir.Text >= 60 Then
nlhuruf.Text = "C"
ElseIf nlakhir.Text >= 50 Then
nlhuruf.Text = "D"
Else
nlhuruf.Text = "E"
End If

If nluas.Text >= 50 Then
keterangan.Text = "LULUS"
Else
keterangan.Text = "GAGAl"
End If
End Sub
Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
Me.Close()
npm.Focus()
End Sub

Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

npm.Text = ""
nama.Text = ""
jenjang.Text = ""
jurusan.Text = ""
kddosen.Text = ""
nmdosen.Text = ""
kdmatkul.Text = ""
nmmatkul.Text = ""
nlhadir.Text = ""
nltugas.Text = ""
nluts.Text = ""
nluas.Text = ""
nlakhir.Text = ""
nlhuruf.Text = ""
keterangan.Text = ""
End Sub
End Class