Learning sistem keamanan

Merancang Sistem Keamanan Jaringan Komputer

yang Lebih Baik

Suatu organisasi dapat mempunyai dua atau lebih dari satu situs atau dimana tiap situs mempunyai jaringan sendiri. Bila organisasi besar, maka sangat dimungkinkan situs-situs tersebut mempunyai administrasi jaringan yang dibedakan menurut tujuan tertentu.

Bila situs-situs ini tidak terhubung melalui internet, tiap situs mungkin memiliki kebijakan keamanan sendiri. Bagaimanapun, bila situs-situs tersebut terhubung melalui internet, maka kebijakan keamanan harus mencakup tujuan dari semua situs yang saling terhubung. Pada umumnya suatu situs adalah bagian dari organisasi yang mempunyai beberapa komputer dan sumber daya yang terhubung ke dalam suatu jaringan.

Sumber daya tersebut misalnya :

- Workstation dan Laptop

- Komputer sebagai host atau server

- Interkoneksi: gateway, router, bridge, repeater

- Perangkat lunak aplikasi dan jaringan (NOS)

- Kabel-kabel jaringan

- Informasi di dalam file dan database

Kebijakan keamanan situs harus memperhatikan pula keamanan terhadap sumber daya tersebut. Karena situs terhubung ke jaringan lain, maka kebijakan keamanan harus memperhatikan kebutuhan dari semua jaringan yang saling terhubung. Hal ini penting untuk diperhatikan karena kemungkinan kebijakan keamanan situs dapat melindungi situs tersebut, namun berbahaya bagi sumber daya jaringan yang lain.

Suatu contoh dari hal ini adalah penggunaan alamat IP di belakang firewall, dimana alamat IP tersebut sudah digunakan oleh orang lain. Pada kasus ini, penyusupan dapat dilakukan terhadap jaringan di belakang firewall dengan melakukan IP

spoofing. Sebagai catatan, RFC 1244 membahas keamanan keamanan situs secara detail.

Kebijakan Keamanan Jaringan

Kebijakan keamanan menyediakan kerangka-kerangka untuk membuat keputusan yang spesifik, misalnya mekanisme apa yang akan digunakan untuk melindungi jaringan dan bagaimana mengkonfigurasi servis-servis. Kebijakan keamanan juga merupakan dasar untuk mengembangkan petunjuk pemrograman yang aman untuk diikuti user maupun bagi administrator sistem. Karena kebjikan keamanan

tersebut mencakup bahasan yang sangat luas, maka pada saat ini hanya akan dibahas inti permasalahan saja dan tidak akan membahas hal-hal yang bersifat spesifik dari segi teknologi.

Sebuah kebijakan keamanan mencakup hal-hal berikut ini:

1. Deskripsi secara detail tentang lingkungan teknis dari situs, hukum yang

    berlaku, otoritas dari kebijakan tersebut dan filosofi dasar untuk digunakan

    pada saat menginterpretasikan kebijakan tersebut.

2. Analisa risiko yang mengidentifikasi aset-aset situs, ancaman yang dihadapi

    oleh aset-aset tersebut dan biaya yang harus dikeluarkan untuk

    kerusakan/kehilangan aset-aset tersebut.

3. Petunjuk bagi administrator sistem untuk mengelola sistem

4. Definisi bagi user tentang hal-hal yang boleh dilakukan

5. Petunjuk untuk kompromi terhadap media dan penerapan hukum yang ada,

    serta memutuskan apakah akan melacak penyusup atau akan mematikan sistem dan

    kemudian memulihkannya lagi.

Faktor yang berpengaruh terhadap keberhasilan kebijakan keamanan antara lain

adalah:

- Komitmen dari pengelola jaringan

- Dukungan teknologi untuk menerapkan kebijakan keamanan tersebut

- Keefektifan penyebaran kebijakan tersebut

- Kesadaran semua user jaringan terhadap keamanan jaringan

Pihak pengelola jaringan komputer mengatur tanggung jawab terhadap keamanan jaringan, menyediakan training untuk personel-personel yang bertugas di bidang keamanan jaringan dan mengalokasikan dana untuk keamanan jaringan. Yang

termasuk pilihan-pilihan teknis yang dapat digunakan untuk mendukung keamanan

jaringan komputer antara lain:

1. Authentikasi terhadap sistem

2. Audit sistem untuk akuntabilitas dan rekonstruksi

3. Enkripsi terhadap sistem untuk penyimpanan dan pengiriman data penting

4. Tool-tool jaringan, misalnya firewall dan proxy

Hal-hal Praktis Pendukung

Di bawah ini adalah hal-hal praktis yang perlu dilakukan untuk mendukung keamanan jaringan komputer, antara lain:

- Memastikan semua account mempunyai password yang sulit untuk ditebak. Akan

  lebih baik bila menggunakan OTP (One Time Password)

- Menggunakan tool, misalnya MD5 checksums, sebuah teknik kriptografi untuk

  memastikan integritas perangkat lunak sistem

- Menggunakan teknik pemrograman yang aman pada saat membuat perangkat lunak

- Selalu bersikap waspada terhadap penggunaan dan konfigurasi jaringan komputer

- Memeriksa secara rutin apakah vendor memiliki perbaikan-perbaikan terhadap lubang

  keamanan yang terbaru dan selalu menjaga sistem selalu mengalami upgrading

  terhadap keamanan

- Memeriksa secara rutin dokumen-dokumen dan artikel on-line tentang bahaya

  keamanan dan teknik mengatasiny. Dokumen dan artikel seperti ini dapat ditemukan

  pada situs-situs milik incident response teams, misalnya CERT (Computer Emergency

  Response Team – http://www.cert.org dan Computer Security Incident Response

  Team – http://www.CSIRT.org)

- Mengaudit sistem dan jaringan dan secara rutin memeriksa daftar log. Beberapa situs

  yang mengalami insiden keamanan melaporkan bahwa audit yang dikumpulkan minim

  sehingga sulit untuk mendeteksi dan melacak penyusupan

http://www.marion.web.id/merancang-sistem-keamanan-jaringan-komputer-yang-le

bih-baik.html

Learnig Vb

PROGRAM RENTAL VCD

Bismillah Hirohman Nirohim.
Hay Sobat amik.... apa kabarnya? saya harap baik" sehat selalu ya..
nah kali ini saya akan membahas tentang cara membuat program aplikasi Visual Basic “rental vcd”, mudah kok sobat cara nya, ok langsung ajadeh ya sobat !!

chech it out!

sebelum kita membuat program tersebut kita harus tau apa saja ketentuan nya..
ketentuan nya sbb:
1.buat combo kode film diisi dengan (A,B,C,D)
2. - jika kode = A maka Asal = "India" sewa per hari = 5000
    - jika kode = B maka Asal = "China" sewa perhari = 4000
    - jika kode = C maka Asal = "Amerika" sewa perhari = 6000
    - jika kode = D maka Asal = "Indonesia" sewa perhari  = 7000
3.Lama  = tanggal kembali - tanggal pinjam
4. Denda di berikan untuk lama pinjam yang lebih dari 2 hari. keterlambatan 2 hari pertama di dendakan denda 300 perhari keterlambatan hari berikut nya di kenakan denda 400 perhari.

nah seperti itu lah kira- kira ketentuan program yang akan kita buat kali ini sob...

cara membuat nya sepetri ini sob.
Click 2 kali gambar untuk memperbesar gambar.

1.buka program Visual Basic 6.0 Sobat lalu buka standard.exe.

2. tekan ctrl + T dan check list microsoft windows common controls -26.0

3.design lah standard.exe tersebut seperti gambar di bawah.

penjelasan:

   -1buah combobox

- 7 buah textbox

- 2 buah DTpicker

- 8 buah listbox

- 10 buah label

DTpicket

Combobox

Label

Listbox

Textbox

       

4.setelah di design seperti gambar, click view Code.

5.ketik script nya ..

Dim tot As Double
Sub bersih()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Combo1 = "pilih"
End Sub

Private Sub Combo1_Click()
If Combo1 = "A" Then
Text1 = "India"
Text2 = 5000
ElseIf Combo1 = "B" Then
Text1 = "China"
Text2 = 4000
ElseIf Combo1 = "C" Then
Text1 = "Amerika"
Text2 = 6000
ElseIf Combo1 = "D" Then
Text1 = "Indonesia"
Text2 = 7000
End If
DTPicker2.SetFocus
End Sub

Private Sub Command1_Click()
Unload Me
End Sub

Private Sub DTPicker2_Change()
Text3 = DTPicker2 - DTPicker1
If Text3 = 3 Then
Text4 = 300
Text5.SetFocus
ElseIf Text3 >= 3 Then
Text4 = Val(Text3) * 400
Text4 = Val(Text4) - 800
Text5 = Val(Text3) * Val(Text2) + Val(Text4)
Text5.SetFocus
ElseIf Text3 <= 1 Then
MsgBox "maaf anda salah memasukkan tanggal kembali", vbCritical
Text3 = ""
Text4 = ""
Text5 = ""
DTPicker2.SetFocus
End If
End Sub

Private Sub Form_Load()
Call bersih
Combo1.AddItem "A"
Combo1.AddItem "B"
Combo1.AddItem "C"
Combo1.AddItem "D"
End Sub
Private Sub Text5_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
List1.AddItem Combo1
List2.AddItem Text1
List3.AddItem Text2
List4.AddItem DTPicker1
List5.AddItem DTPicker2
List6.AddItem Text3
List7.AddItem Text4
List8.AddItem Text5
Call qtotal(List8)
Text7 = tot
Call qtotal(List7)
Text6 = tot
Call bersih
Combo1.SetFocus
End If
End Sub

Dim tot As Double
Sub bersih()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Combo1 = "pilih"
End Sub

Private Sub Combo1_Click()
If Combo1 = "A" Then
Text1 = "India"
Text2 = 5000
ElseIf Combo1 = "B" Then
Text1 = "China"
Text2 = 4000
ElseIf Combo1 = "C" Then
Text1 = "Amerika"
Text2 = 6000
ElseIf Combo1 = "D" Then
Text1 = "Indonesia"
Text2 = 7000
End If
DTPicker2.SetFocus
End Sub

Private Sub Command1_Click()
Unload Me
End Sub

Private Sub DTPicker2_Change()
Text3 = DTPicker2 - DTPicker1
If Text3 = 3 Then
Text4 = 300
Text5.SetFocus
ElseIf Text3 >= 3 Then
Text4 = Val(Text3) * 400
Text4 = Val(Text4) - 800
Text5 = Val(Text3) * Val(Text2) + Val(Text4)
Text5.SetFocus
ElseIf Text3 <= 1 Then
MsgBox "maaf anda salah memasukkan tanggal kembali", vbCritical
Text3 = ""
Text4 = ""
Text5 = ""
DTPicker2.SetFocus
End If
End Sub

Private Sub Form_Load()
Call bersih
Combo1.AddItem "A"
Combo1.AddItem "B"
Combo1.AddItem "C"
Combo1.AddItem "D"
End Sub
Private Sub Text5_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
List1.AddItem Combo1
List2.AddItem Text1
List3.AddItem Text2
List4.AddItem DTPicker1
List5.AddItem DTPicker2
List6.AddItem Text3
List7.AddItem Text4
List8.AddItem Text5
Call qtotal(List8)
Text7 = tot
Call qtotal(List7)
Text6 = tot
Call bersih
Combo1.SetFocus
End If
End Sub

Sub qtotal(a As ListBox)
total = 0
For i = 0 To a.ListCount - 1
total = total + a.List(i)
Next i
tot = total
End Sub

Penjelasan Scrip Di Atas:

(A)

 Sub bersih()
 Text1 = ""
 Text2 = ""
 Text3 = ""
 Text4 = ""
 Text5 = ""
 Combo1 = "pilih"
 End Sub

 -> adalah script yang akan di panggil dengan mengetik -> Call bersih.

  End Sub <-> adalah penutup untuk Sub



 (B)

 Sub qtotal(a As ListBox)
 total = 0
 For i = 0 To a.ListCount - 1
 total = total + a.List(i)
 Next i
 tot = total
 End Sub

 -> adalah script yang akan di panggil dengan mengetik -> Call qtotal(list).

  End Sub <-> adalah penutup untuk Sub


 (C)

Private Sub Combo1_Click()
If Combo1 = "A" Then
Text1 = "India"
Text2 = 5000
ElseIf Combo1 = "B" Then
Text1 = "China"
Text2 = 4000
ElseIf Combo1 = "C" Then
Text1 = "Amerika"
Text2 = 6000
ElseIf Combo1 = "D" Then
Text1 = "Indonesia"
Text2 = 7000
End If
DTPicker2.SetFocus
End Sub

->adalah jika combobox1 di click = "A" maka text 1 akan tertulis "india" dan text 2 = "5000"
          ataw jika combobox1 di click "B" maka text 1 akan tertulis "China" dan text 2= "4000"
          ataw jika combobox1 di click "C" maka text 1 akan tertulis "Amerika" dan text 2= "6000"
          ataw jika combobox1 di click "D" maka text 1 akan tertulis "Indonesia" dan text 2= "7000"
                        DTPicker2.SetFocus adalah -> cursor akan automatis berpindah fokus ke DTPicker2
           END if <-> adalah penutup untuk if
          End Sub <-> adalah penutup untuk Sub
(D)
Private Sub DTPicker2_Change()
Text3 = DTPicker2 - DTPicker1
If Text3 = 3 Then
Text4 = 300
Text5.SetFocus


->adalah jika DTpicker2 berubah value,text3 = tanggal kembali di kurang tanggl pinjam.
  jika text3 = 3 maka text4 = 300 cursor akan automatis berpindah ke text5.

 (E)
ElseIf Text3 >= 3 Then
Text4 = Val(Text3) * 400
Text4 = Val(Text4) - 800
Text5 = Val(Text3) * Val(Text2) + Val(Text4)
Text5.SetFocus


->adalah jika text3 = besar sama 3 maka text4 = variabel text3 di kali 400
         text4 = variabel text3 di kurang 800
         text5 = variabel text3 di kali variabel text2 di tambah variabel text4
          cursor akan automatis berpindah ke text5.
 (F)
ElseIf Text3 <= 1 Then
MsgBox "maaf anda salah memasukkan tanggal kembali", vbCritical
Text3 = ""
Text4 = ""
Text5 = ""
DTPicker2.SetFocus
End If
End Sub

->adalah jika text3 kecil dari 1 maka
  akan keluar pesan "maaf anda salah memasukkan tanggal kembali"
  text3 = automatis di kosongkan
  text4 = automatis di kosongkan
  text5 = automatis di kosongkan
  cursor akan automatis berpindah ke DTPicker2
  END if <-> adalah penutup untuk if
  End Sub <-> adalah penutup untuk Sub


(G)
Private Sub Form_Load()
Call bersih
Combo1.AddItem "A"
Combo1.AddItem "B"
Combo1.AddItem "C"
Combo1.AddItem "D"
End Sub
->adalah jika program di jalankan maka
 combo1 akan automatis tertulis A,B,C dan D . jadi kita bisa memilih yang A/B/C/D.

(H)
Private Sub Text5_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
List1.AddItem Combo1
List2.AddItem Text1
List3.AddItem Text2
List4.AddItem DTPicker1
List5.AddItem DTPicker2
List6.AddItem Text3
List7.AddItem Text4
List8.AddItem Text5
Call qtotal(List8)
Text7 = tot
Call qtotal(List7)
Text6 = tot
Call bersih
Combo1.SetFocus
End If
End Sub
->adalah jika di text5 anda tekan enter maka
  combo1 akan pindah ke list 1
 Text1 akan pindah ke list 2
 Text2 akan pindah ke list 3
 DTPicker1 akan pindah ke list 4
 DTPicker2 akan pindah ke list 5
 Text3 akan pindah ke list 6
 Text4 akan pindah ke list 7
 Text5 akan pindah ke list 8

sub qtotal di panggil untuk list7 dan text6 = hasil penjumlahan dari list 7
sub qtotal di panggil untuk list8 dan text7 = hasil penjumlahan dari list 8
sub bersih di panggil dan cursor akan berpindah auto matis ke combo1
  END if <-> adalah penutup untuk if
  End Sub <-> adalah penutup untuk Sub

sekian tutorial tentang cara membuat program rental VCD ini dan semoga tutorial ini bermanfaat bagi sobat semua yang lagi belajar ..