Read More

Thank you!

Lorem Ipsum is simply dummy text of the printing and typesetting industry. Lorem Ipsum has been the industry's standard dummy text ever since the 1500s, when an unknown printer took a galley of type and scrambled it to make a type specimen book. It has survived not ...

QUIS KEAMANAN KOMPUTER


QUIS
NPM:43a87006090205
WAHYU KURNIAWAN

1. dalam hal aspek keamanan ada non repudation jelaskan maksudnya dan contohnya

maksudnya adalah keadaan dimana seseorang tidak bisa menyangkal jika file atau data yang dikirim terjadi kekurangan atau dimodif oleh "aorang ketiga".
contohnya
mr.x ingin mengirim data rahasia ke mr.y. tapi ketika ingin mengirimkan data via internet,jaringan internet tersebut sudah di sadap oleh mr.i sehingga lalu lintas data diketahui oleh mr.i yang memungkinkan untuk diubah

2. jelaskan mengapa keamanan komputer dibutuhkan?
- karena agar terhindar dari ancaman
- baik pencurian data,fisik,SOP pada suatu instansi atau perusahahaan
- karena ada yang harus di lindungi dan di jaga dari orang yang tidak bertanggung jawab


3. jelaskan langkah untuk melindungi server
secara fisik bisa digunakan kunci,gembok.untuk internal kita harus memberikan hak akses-
kepada orang yang bertangung jawab atas suatu server,jangan sembarang memberikan akses kepada orang lain.
dari segi eksternal bisa memasang firewall untuk meminimalisir terjadinya serangan seperti spyware,malware,spam
melakukan kontroling terhadap sesuatu tindakan yang mencurigakan.


4. Jelaskan pengertian keamanan computer menurut John D. Howard dan menurut Gollman, berikan analisis saudara terhadap teori mereka.
joh d.howard berpendapat bahwa Keamanan komputer adalah tindakan pencegahan dari serangan pengguna komputer atau pengakses jaringan yang tidak bertanggung jawab.
menurut gollman Keamanan komputer adalah berhubungan dengan pencegahan diri dan deteksi terhadap tindakan pengganggu yang tidak dikenali dalam sistem komputer
dari kedua pendapat tersebut memiliki kesamaan,yaitu sama sama berusaha melakukan pencegahan terhadap serangan,hanya yang membedakan gollman menekankan juga pada aspek deteksi serangan

5. Jelaskan perbedaan antara jenis serangan Fabrication dan interruption. Dan berikan contoh tools dalam jenis serangan tersebut.
-intruption lebih kepada serangan Dos (Denial of Service)
yang bertujuan untuk Menghabiskan bandwith, network flooding
Memungkinkan untuk spoofed originati address
Tools: ping broadcast, smurf
-fabrication agak mirip dengan intruption,ada juga yang menyerupai sebagai fake email padahal virus

6. tulis dan jelaskan beberapa aspek keamanan

authntication
keaslian bahwa data yang diterima benar benar dari yang diminta
integrity
pesan yang di terima asli tidak di modifikasi
non repudation
sang pengirim tidak bisa menyangkal jika terjadi perubahan yang tidak diketahuiolehnya, bahwa dialah yang mengirim data tersebut
authority
informasi yang ada pada sistem jaringan tidak dapat diakses oleh sembarang orang
privasi
data pribadi yang tidak boleh di akses orang lain

Read More

ALGORITMA ENKRIPSI ASIMETRIS

NAMA:WAHYU KURNIAWAN
NPM: 43A87006090205
KEAMANAN KOMPUTER

Algoritma Sandi Kunci-Asimetris

Skema ini adalah algoritma yang menggunakan kunci yang berbeda untuk proses enkripsi dan dekripsinya. Skema ini disebut juga sebagai sistem kriptografi kunci publik karena kunci untuk enkripsi dibuat untuk diketahui oleh umum (public-key)
atau dapat diketahui siapa saja, tapi untuk proses dekripsinya hanya dapat dilakukan oleh yang berwenang yang memiliki kunci rahasia untuk mendekripsinya,
disebut private-key. Dapat dianalogikan seperti kotak pos yang hanya dapat dibuka oleh tukang pos yang memiliki kunci tapi setiap orang dapat memasukkan surat ke
dalam kotak tersebut. Keuntungan algoritma model ini, untuk berkorespondensi secara rahasia dengan banyak pihak tidak diperlukan kunci rahasia sebanyak jumlah pihak tersebut,cukup membuat dua buah kunci, yaitu kunci publik bagi para korensponden untuk mengenkripsi pesan, dan kunci privat untuk mendekripsi pesan. Berbeda dengan skema kunci-simetris,jumlah kunci yang dibuat adalah sebanyak jumlah pihak yang diajak berkorespondensi.

Read More

TUGAS UAS VB.NET


Public Class Entry_Data_Penumpang

Private Sub tombol_input_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tombol_input.Click
Call simpan()
End Sub

Private Sub tombol_edit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tombol_edit.Click
Call ubah()
End Sub
Sub simpan()
If tombol_input.Text = "Input" Then
Call Koneksi()
tombol_input.Text = "Simpan"
tombol_edit.Enabled = False
tombol_delete.Enabled = False
tombol_exit.Text = "Batal"
Else
If no_text.Text = "" Then Exit Sub
If nm_text.Text = "" Then Exit Sub
Call cekrecord()
Try
If hasilcek = "False" Then
Call Koneksi()
Tampil.Connection = Database
Tampil.CommandType = CommandType.Text
Tampil.CommandText = "insert into penumpang values('" & no_text.Text & "','" & nm_text.Text & "','" & alamat_text.Text & "','" & nomer_text.Text & "')"
Tampil.ExecuteNonQuery()
Call Koneksi()
Call kosong()
MsgBox("Data Telah Tersimpan")
Else
MsgBox("Data sudah ada, silahkan cek data yang diinput", MsgBoxStyle.Critical, "Input Data")
End If
Catch ex As Exception
MsgBox(ex.ToString())
End Try
End If
End Sub
Sub kosong()
no_text.Text = ""
nm_text.Text = ""
alamat_text.Text = ""
nomer_text.Text = ""
End Sub
Sub cekrecord()
Call Koneksi()
Tampil.Connection = Database
Tampil.CommandType = CommandType.Text
Tampil.CommandText = "select * from penumpang where no_penumpang='" & Trim(no_text.Text) & "'"
Tampilkan = Tampil.ExecuteReader
If Tampilkan.HasRows = True Then
hasilcek = True
Else
hasilcek = False
End If
Call tutupKoneksi()
End Sub
Sub Hapus()
If tombol_delete.Text = "Delete" Then
Call kosong()
no_text.Text = ""
nm_text.Text = ""
tombol_delete.Text = "Ok"
tombol_input.Enabled = False
tombol_edit.Enabled = False

tombol_exit.Text = "Batal"
no_text.Focus()
Else
If no_text.Text = "" Then Exit Sub
If nm_text.Text = "" Then Exit Sub
Try
Call Koneksi()
Tampil.Connection = Database
Tampil.CommandType = CommandType.Text
Tampil.CommandText = "delete from penumpang where no_penumpang='" & Trim(no_text.Text) & "'"
Tampil.ExecuteNonQuery()
Call kosong()
MsgBox("Data Telah Dihapus")
Call kosong()
no_text.Focus()
Catch ex As Exception
MsgBox(ex.ToString())
End Try
End If
End Sub
Sub ubah()
If tombol_edit.Text = "Edit" Then
Call kosong()
tombol_edit.Text = "Simpan"
tombol_input.Enabled = False
tombol_delete.Enabled = False
tombol_exit.Text = "Batal"
no_text.Focus()
Else
If no_text.Text = "" Then Exit Sub
If nm_text.Text = "" Then Exit Sub
Try
Call Koneksi()
Tampil.Connection = Database
Tampil.CommandType = CommandType.Text
Tampil.CommandText = "update penumpang set nm_penumpang ='" & Trim(nm_text.Text) & "',alamat = '" & alamat_text.Text & "',no_tlp = '" & nomer_text.Text & "' where no_penumpang = '" & Trim(no_text.Text) & "'"
Tampil.ExecuteNonQuery()
Call kosong()
Catch ex As Exception
MsgBox(ex.ToString())
End Try
End If
End Sub
Sub netral()
tombol_input.Enabled = True
tombol_input.Text = "Input"
tombol_edit.Enabled = True
tombol_edit.Text = "Edit"
tombol_delete.Enabled = True
tombol_delete.Text = "Delete"
tombol_exit.Text = "Exit"
End Sub

Private Sub tombol_exit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tombol_exit.Click
If tombol_exit.Text = "Exit" Then
Me.Close()
Else
Call netral()
End If
End Sub

Private Sub tombol_delete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tombol_delete.Click
Call Hapus()
End Sub

Private Sub no_text_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles no_text.KeyPress
If e.KeyChar = Chr(Keys.Enter) Then
If tombol_edit.Text = "Save" Then
Call cekrecord()
If hasilcek = False Then
nm_text.Focus()
Else
MsgBox("Kode sudah ada, silahkan ganti kode lain", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "Infromasi")
no_text.Focus()
End If
Else
Call Koneksi()
Tampil.Connection = Database
Tampil.CommandType = CommandType.Text
Tampil.CommandText = "select * from penumpang where no_penumpang='" & Trim(no_text.Text) & "'"
Tampilkan = Tampil.ExecuteReader
If no_text.Text = "" Then
MsgBox("Masukan Data Terlebih Dahulu", MsgBoxStyle.Information, "Pesan")
Else
If Tampilkan.HasRows = True Then
While Tampilkan.Read()
If IsDBNull(Tampilkan("no_penumpang")) Then
nm_text.Focus()
Else
nm_text.Text = Tampilkan("nm_penumpang")
alamat_text.Text = Tampilkan("alamat")
nomer_text.Text = Tampilkan("no_tlp")
End If
End While
Else
MsgBox("Data tidak diketemukan", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "Tambah Data")
End If
End If
End If
End If
End Sub
End Class

Read More

DATA PEMESANAN BUS(TUGAS UTS)


Public Class Form_sampul

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

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
tiket.Show()

End Sub

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

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Entry_Data_Penumpang.Show()

End Sub
End Class



Public Class Form1
Dim isi(8) As String
Dim liat As ListViewItem

Sub bersih()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox6.Text = ""
TextBox5.Text = ""
ComboBox1.Text = "Bandung"
ComboBox2.Text = "Ekonomi"
End Sub
Sub isicombo()
ComboBox1.Items.Add("Jakarta")
ComboBox1.Items.Add("Bandung")
ComboBox1.Items.Add("Surabaya")
ComboBox1.Items.Add("Yogyakarta")
ComboBox1.Items.Add("Madiun")
End Sub
Sub isicombo1()
ComboBox2.Items.Add("Ekonomi")
ComboBox2.Items.Add("Ac")
ComboBox2.Items.Add("Bisnis")
ComboBox2.Items.Add("Eksekutif")
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Button1.Text = "Input" Then
Button1.Text = "Simpan"
Button2.Enabled = False
Button3.Enabled = False
Button5.Text = "Batal"
Button4.Enabled = False
Else
isi(0) = Trim(TextBox1.Text)
isi(1) = Trim(TextBox3.Text)
isi(2) = Trim(TextBox6.Text)
isi(3) = Trim(TextBox5.Text)
isi(4) = Trim(DateTimePicker1.Value)
isi(5) = Microsoft.VisualBasic.Left(Trim(ComboBox1.Text), 15)
isi(6) = Microsoft.VisualBasic.Left(Trim(ComboBox2.Text), 15)
isi(7) = Trim(TextBox2.Text)
liat = New ListViewItem(isi)
ListView1.Items.Add(liat)
Call bersih()
TextBox1.Focus()
End If
End Sub

Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
Call bersih()
Call isicombo()
Call isicombo1()
Call piuw()

End Sub


Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
If Button5.Text = "Exit" Then
Me.Close()
Else
Call bersih()
Call normal()

End If
End Sub
Sub normal()
Button1.Text = "Input"
Button1.Enabled = True
Button2.Text = "Edit"
Button2.Enabled = True
Button3.Text = "Delete"
Button3.Enabled = True
Button4.Text = "Cek Bus"
Button4.Enabled = True
Button5.Text = "Exit"
Button5.Enabled = True

End Sub
Sub piuw()
ListView1.View = View.Details
ListView1.Columns.Add("No Pesan", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("No Penumpang", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("No Bus", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("No Kursi", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Tgl Berangkat", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Tujuan", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Kelas", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Harga", 100, HorizontalAlignment.Center)
End Sub

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

End Sub

End Class


Public Class tiket
Dim isi(15) As String
Dim liat As ListViewItem
Sub bersih()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""
TextBox10.Text = ""
TextBox11.Text = ""
ComboBox1.Text = "Bandung"
ComboBox2.Text = "Ekonomi"

End Sub
Sub isicombo()
ComboBox1.Items.Add("Jakarta")
ComboBox1.Items.Add("Bandung")
ComboBox1.Items.Add("Surabaya")
ComboBox1.Items.Add("Yogyakarta")
ComboBox1.Items.Add("Madiun")
End Sub
Sub isicombo1()
ComboBox2.Items.Add("Ekonomi")
ComboBox2.Items.Add("Ac")
ComboBox2.Items.Add("Bisnis")
ComboBox2.Items.Add("Eksekutif")
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Button1.Text = "Input" Then
Button1.Text = "Simpan"
Button2.Enabled = False
Button3.Enabled = False
Button5.Text = "Batal"
Button4.Enabled = False
Else
isi(0) = Trim(TextBox1.Text)
isi(1) = Trim(TextBox3.Text)
isi(2) = Trim(TextBox6.Text)
isi(3) = Trim(TextBox5.Text)
isi(4) = Trim(TextBox5.Text)
isi(5) = Trim(TextBox5.Text)
isi(6) = Trim(DateTimePicker1.Value)
isi(7) = Trim(DateTimePicker1.Value)
isi(8) = Microsoft.VisualBasic.Left(Trim(ComboBox1.Text), 15)
isi(9) = Microsoft.VisualBasic.Left(Trim(ComboBox2.Text), 15)
isi(10) = Trim(TextBox2.Text)
isi(11) = Trim(TextBox5.Text)
isi(12) = Trim(TextBox5.Text)
isi(13) = Trim(TextBox5.Text)
isi(14) = Trim(TextBox5.Text)
isi(15) = Trim(TextBox5.Text)
liat = New ListViewItem(isi)
ListView1.Items.Add(liat)
Call bersih()
TextBox1.Focus()
End If
End Sub

Private Sub tiket_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
Call bersih()
Call isicombo()
Call isicombo1()
Call piuw()

End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
If Button5.Text = "Exit" Then
Me.Close()
Else
Call bersih()
Call normal()

End If
End Sub
Sub normal()
Button1.Text = "Input"
Button1.Enabled = True
Button2.Text = "Edit"
Button2.Enabled = True
Button3.Text = "Delete"
Button3.Enabled = True
Button4.Text = "Bayar"
Button4.Enabled = True
Button5.Text = "Exit"
Button5.Enabled = True

End Sub
Sub piuw()
ListView1.View = View.Details
ListView1.Columns.Add("No Tiket", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("No Pesan", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("No Penumpaag", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("No Bus", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("No Kursi", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Kd Pts", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Tgl Berangkat", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Tgl Bayar", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Tujuan", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Kelas Bus", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Harga", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Jum Tiket", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Total", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Pot Harga", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Bayar", 100, HorizontalAlignment.Center)
End Sub

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

End Sub
End Class


Public Class Entry_Dan_Cek_Bus
Dim isi(5) As String
Dim liat As ListViewItem
Private Sub Entry_Dan_Cek_Bus_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
Call bersih()
Call isicombo()
Call isicombo1()
Call piuw()

End Sub
Sub bersih()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
ComboBox1.Text = "Bandung"
ComboBox2.Text = "Ekonomi"

End Sub
Sub isicombo()
ComboBox1.Items.Add("Jakarta")
ComboBox1.Items.Add("Bandung")
ComboBox1.Items.Add("Surabaya")
ComboBox1.Items.Add("Yogyakarta")
ComboBox1.Items.Add("Madiun")
End Sub
Sub isicombo1()
ComboBox2.Items.Add("Ekonomi")
ComboBox2.Items.Add("Ac")
ComboBox2.Items.Add("Bisnis")
ComboBox2.Items.Add("Eksekutif")
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Button1.Text = "Input" Then
Button1.Text = "Simpan"
Button3.Enabled = False
Button3.Enabled = False
Button5.Text = "Batal"
Button4.Enabled = False
Else
isi(0) = Trim(TextBox1.Text)
isi(1) = Trim(TextBox3.Text)
isi(2) = Trim(TextBox2.Text)
isi(3) = Microsoft.VisualBasic.Left(Trim(ComboBox1.Text), 15)
isi(4) = Microsoft.VisualBasic.Left(Trim(ComboBox2.Text), 15)
liat = New ListViewItem(isi)
ListView1.Items.Add(liat)
Call bersih()
TextBox1.Focus()
End If
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
If Button5.Text = "Exit" Then
Me.Close()
Else
Call bersih()
Call normal()

End If
End Sub
Sub normal()
Button1.Text = "Input"
Button1.Enabled = True
Button3.Text = "Edit"
Button3.Enabled = True
Button3.Text = "Delete"
Button3.Enabled = True
Button4.Text = "Cari"
Button4.Enabled = True
Button5.Text = "Exit"
Button5.Enabled = True

End Sub
Sub piuw()
ListView1.View = View.Details
ListView1.Columns.Add("No Bus", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("No Kursi", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Tgl Berangkat", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Tujuan", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Kelas", 100, HorizontalAlignment.Center)
End Sub

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

End Sub
End Class


Public Class Entry_Data_Penumpang
Dim isi(4) As String
Dim liat As ListViewItem
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
If Button1.Text = "Input" Then
Button1.Text = "Simpan"
Button2.Enabled = False
Button3.Enabled = False
Button4.Text = "Batal"
Button4.Enabled = False
Else
isi(0) = Trim(TextBox1.Text)
isi(1) = Trim(TextBox3.Text)
isi(2) = Trim(TextBox2.Text)
isi(3) = Trim(TextBox4.Text)
liat = New ListViewItem(isi)
ListView1.Items.Add(liat)
Call bersih()
TextBox1.Focus()

End If
End Sub

Private Sub Entry_Data_Penumpang_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
Call bersih()
Call piuw()

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If Button4.Text = "Exit" Then
Me.Close()
Else
Call bersih()
Call normal()
End If

End Sub
Sub normal()
Button1.Text = "Input"
Button1.Enabled = True
Button2.Text = "Edit"
Button2.Enabled = True
Button3.Text = "Delete"
Button3.Enabled = True
Button4.Text = "Exit"
Button4.Enabled = True

End Sub
Sub piuw()
ListView1.View = View.Details
ListView1.Columns.Add("No Penumpang", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Nm Penumpang", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Alamat", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("No Tlp", 100, HorizontalAlignment.Center)
End Sub

Private Sub ListView1_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged
TextBox1.Text = e.Item.Text
End Sub
End Class

Read More

Tugas Jarkom cara setting DNS

Buka Yast Control Center

 Kemudian pilih Network Services / DNS Server
 Kemudian Pilih Tab Forwarders lalu pilih “Set Forwarders Manually”
 Pada Kolom IP Address ketikkan alamat DNS Forwarders
 Kemudian Klik Tombol Add
Contoh Seperti gambar dibawah ini:



Kemudian Pilih DNS Zones yang ada pada panel sebelah kiri
 Pada kolom name ketikkan domain name (wahyu-kurniawan.com)
 Lalu Klik Tombol Add
Seperti gambar dibawah ini:


Pada Kolom Configured DNS Zones Pilih Zone dari domain name yang telah kita masukkan sebelumnya. Yaitu wahyu-kurniawan.com. Klik edit.
Pilih Tab NS Records. Pada Kolom “Name Server to Add” ketikkan Name
Server (ns1.wahyu-kurniawan.com). lalu Klik add.
Seperti gambar dibawah ini:


Setelah selesai di Tab NS Records kita lanjutkan Pilih Tab MX Records
Pada kolom address ketikkan mail dan pada priority masukkan angka 3 kemudian klik add.
Seperti gambar dibawah ini:



Sekarang kita lanjut lagi Pilih Tab Records
➢ Pertama masukkan record ns
 Ketikkan ns1 pada kolom Record Key
 lalu pada kolom Type Pilih “A: Domain Name Translation”
 Value → 192.168.100.1 alamat IP dari ns1.wahyu-kurniawan.com

➢ Masukkan record www
 Ketikkan www pada kolom Record Key
 lalu pada kolom Type Pilih “A: Domain Name Translation”
 Value → 192.168.100.1 alamat IP dari www.wahyu-kurniawan.com
➢ Masukkan record mail
 Ketikkan mail pada kolom Record Key
 lalu pada kolom Type Pilih “A: Domain Name Translation”
 Value → 202.43.115.83 alamat IP dari mail.wahyu-kurniawan.com

➢ Masukkan record zimbra
 Ketikkan zimbra pada kolom Record Key
 lalu pada kolom Type Pilih “CNAME: Alias for Domain Name”
 Value → www karena zimbra adalah alias dari www.wahyu-kurniawan.com

➢ Masukkan record ftp
 Ketikkan ftp pada kolom Record Key
 lalu pada kolom Type Pilih “A: Domain Name Translation”
 Value → 192.168.100.1 alamat IP dari ftp.wahyu-kurniawan.com
Seperti gambar dibawah ini :


➢ Klik OK
➢ Kemudian Klik Finish.

Setelah selesai, kita testing apakah sudah bisa digunkan,untuk mengetahuinya
Dengan cara :

➢ Buka konsole
➢ login sebagai root
➢ kemudian restart dns server dengan perintah

/etc/init.d/named restart

➢ Kemudian ketikkan
ns1.wahyu=kurniawan.com
➢ Jika DNS Server Anda berjalan dengan Benar maka akan muncul output seperti ini:

wahyu-kurniawan.com:/home/linux_user # nslookup ns1.wahyu-kurniawan.com
Server: 192.168.100.1
Address: 192.168.100.1#53
Name: ns1.wahyu-kurniawan.com
Address: 192.168.100.1
wahyu-kurniawan.com:/home/linux_user #

Read More

Tugas Pemrograman


Source Kode :


Public Class Form1
Dim d As Integer = 0
Dim a As Button
Dim b As Point

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If d = 0 Then
b = Button2.Location
d = 1
a = Button2
Else
a.Location = Button2.Location
Button2.Location = b
d = 0
End If
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If d = 0 Then
b = Button1.Location
d = 1
a = Button1
Else
a.Location = Button1.Location
Button1.Location = b
d = 0


End If

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If d = 0 Then
b = Button3.Location
d = 1
a = Button3
Else
a.Location = Button3.Location
Button3.Location = b
d = 0
End If
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If d = 0 Then
b = Button4.Location
d = 1
a = Button4
Else
a.Location = Button4.Location
Button4.Location = b
d = 0
End If
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
If d = 0 Then
b = Button5.Location
d = 1
a = Button5
Else
a.Location = Button5.Location
Button5.Location = b
d = 0
End If
End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
If d = 0 Then
b = Button6.Location
d = 1
a = Button6
Else
a.Location = Button6.Location
Button6.Location = b
d = 0
End If
End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
If d = 0 Then
b = Button7.Location
d = 1
a = Button7
Else
a.Location = Button7.Location
Button7.Location = b
d = 0
End If
End Sub

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
If d = 0 Then
b = Button8.Location
d = 1
a = Button8
Else
a.Location = Button8.Location
Button8.Location = b
d = 0
End If
End Sub

Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
If d = 0 Then
b = Button9.Location
d = 1
a = Button9
Else
a.Location = Button9.Location
Button9.Location = b
d = 0
End If
End Sub
End Class

Read More

tugas jarkom 2

Setting IP Address dan DHCP pada linux suse

DHCP (Dynamic Host Control Protocol) adalah sebuah mekanisme yang memunkinkan sebuah server untuk memberikan IP Address secara dinamik bagi client. Client melakukan permintaan IP Address kepada server, dan server memberikan alokasi bagi si client tersebut. Mekanisme ini akan sangat memberikan keuntungan bagi manajemen jaringan di karenakan proses setting IP Address tidak harus dilakukan manual untuk setiap client yang ada.
Package yang digunakan untuk membuat dhcp pada suse adalah dhcp-server.

1. Untuk menginstall ketik yast –i dhcp-server.


2. Setelah itu atur dhcp dengan mengedit file vi /etc/dhcpd.conf
Penjelasan:
Subnet : 255.255.255.0
Range : 192.168.200.226
Option domain-name-servers : 192.168.200.2
Option domain-name : wahyu

3. Simpan konfigurasinya dan restart dhcp menggunakan konsole rcdhcpd restart. Jika muncul tampilan seperti dibawah, berati dhcp interfacenya belum disetting. Untuk mensetting interface tersebut, edit file vi /etc/sysconfig/dhcpd

4. Pada baris ke 17, tulisan DHCPD_INTERFACE=”“ dalam tanda petik isi nama eth yang digunakan. Contoh seperti pada gambar dibawah. Restart dhcp dan dhcp siap digunakan.

Untuk menguji dhcp pada client, pastikan setting ipnya di obtain dahulu. Alias dikosongkan agar saat kabel lan di pasang pada interface client, client otomatis meminta ip dari server.
Hasil dari konfigurasi dhcp server seperti gambar dibawah.

Read More