Tugas MID Security System

Nama  : Fajar Deswantoro

Npm    : 14100552

Kelas   : Twitter 8

Tugas  : MID Security Sistem

  1. Jelaskan Keamanan eksternal, Keamanan interface, Keamanan internal?

Jawab

  1. Keamanan eksternal / external security

Berkaitan dengan pengamanan fasilitas komputer dari penyusup dan bencana seperti kebakaran /kebanjiran.

  1. Keamanan interface pemakai / user interface security
    Berkaitan dengan indentifikasi pemakai sebelum pemakai diijinkan mengakses program dan data yang disimpan
    C. Keamanan internal / internal security
    Berkaitan dengan pengamanan beragam kendali yang dibangun pada perangkat keras dan sistem operasi yang menjamin operasi yang handal dan tak terkorupsi untuk menjaga integritas program dan data.
  1. Jelaskan pengamanan fisik, pengaman akses, pengamanan data?

Jawab:

~ Pengamanan Fisik di mana seseorang dapat masuk ke dalam ruangan  server/jaringan dan dapat mengakses piranti tersebut secara illegal. Orang yang tidak berkepentingan ini bisa saja seorang tamu, staf pembersih, kurir pengantar paket, dan lainnya yang dapat masuk ke ruangan tersebut dan mengutak-atik piranti yang ada. Apabila seseorang memiliki akses terhadap ruangan tersebut, orang  tersebut bisa saja memasang program trojan horse di komputer, melakukan booting dari floppy disk, atau  mencuri data-data penting (seperti file password) dan membongkarnya di tempat yang lebih aman.

Untuk  menjaga keamanan, taruhlah server di ruangan yang dapat dikunci dan pastikan bahwa ruangan tersebut  dikunci dengan baik. Untuk menghindari pengintaian, gunakan screen-saver yang dapat di password. Atur  juga semua komputer untuk melakukan fungsi auto-logout setelah tidak aktif dalam jangka waktu tertentu.

~ Pengamanan Jaringan: Salah satu hal yang penting dalam komunikasi menggunakan computer untuk menjamin kerahasian data adalah enkripsi. Enkripsi adalah sebuah proses yang melakukan perubahan sebuah kode dari yang bisa dimengerti menjadi sebuah kode yang tidak bisa dimengerti (tidak terbaca). Enkripsi dapat diartikan sebagai kode atau chiper. Sebuah sistem pengkodean menggunakan suatu table atau kamus yang telah didefinisikan untuk mengganti kata dari informasi atau yang merupakan bagian dari informasi yang dikirim. Sebuah chiper menggunakan suatu algoritma yang dapat mengkodekan semua aliran data (stream) bit dari sebuah pesan menjadi cryptogram yang tidak dimengerti (unitelligible). Karena teknik cipher merupakan suatu sistem yang telah siap untuk di automasi, maka teknik ini digunakan dalam sistem keamanan komputer dan network.

Pada bagian selanjutnya kita akan membahas berbagai macam teknik enkripsi yang biasa digunakan dalam sistem sekuriti dari sistem komputer dan network.

  1. Jelaskan tipe-tipe ancaman terhadap komputer?

Jawab:

  • Interupsi
    Sumber daya sistem komputer dihancurkan atau menjadi tak tersedia atau tak berguna. Interupsi merupakan ancaman terhadap ketersediaan.
  • Intersepsi
    Pihak tak diotorisasi dapat mengakses sumber daya. Intersepsi merupakan ancaman terhadap keterahasiaan. Pihak tak diotorisasi dapat berupa orang atau progaram komputer.
  • Modifikasi
    Pihak tak diotorisasi tidak hanya mengakses tapi juga merusak sumber daya. Modifikasi merupakan ancaman terhadap integritas.
  • Fabrikasi
    Pihak tak diotorisasi menyisipkan atau memasukkan objek-objek palsu ke sistem. Fabrikasi merupakan ancaman terhadap integritas.
  1. Jelasakan program dikatakan virus?

Jawab:

– suatu aplikasi yang menyebab suatu program menjadi rusak (merusak data)

  1. Sebutkan Jenis-jenis Virus!jelaskan?

Jawab:

  • Worm – Menduplikatkan dirinya sendiri pada harddisk. Ini membuat sumber daya komputer (Harddisk) menjadi penuh akan worm itu.
  • Trojan – Mengambil data pada komputer yang telah terinfeksi dan mengirimkannya pada pembuat trojan itu sendiri.
  • Backdoor – Hampir sama dengan trojan. Namun, Backdoor bisanya menyerupai file yang baik-baik saja. Misalnya game.
  • Spyware – Virus yang memantau komputer yang terinfeksi.
  • Rogue – merupakan program yang meniru program antivirus dan menampilkan aktivitas layaknya antivirus normal, dan memberikan peringatan-peringatan palsu tentang adanya virus. Tujuannya adalah agar pengguna membeli dan mengaktivasi program antivirus palsu itu dan mendatangkan uang bagi pembuat virus rogue tersebut. Juga rogue dapat membuka celah keamanan dalam komputer guna mendatangkan virus lain.
  • Rootkit – Virus yang bekerja menyerupai kerja sistem komputer yang biasa saja.
  • Polymorphic virus – Virus yang gemar beubah-ubah agar tidak dapat terdeteksi.
  • Metamorphic virus – Virus yang mengubah pengkodeannya sendiri agar lebih sulit dideteksi.
  • Virus ponsel – Virus yang berjalan di telepon seluler, dan dapat menimbulkan berbagai macam efek, mulai dari merusak telepon seluler, mencuri data-data di dalam telepon seluler, sampai membuat panggilan-panggilan diam-diam dan menghabiskan pulsa pengguna telepon seluler.
  1. Jelaskan bagaimana cara menanggulangi virus?

Jawab:

– Selalu scanning semua media penyimpanan eksternal yang akan digunakan.
– Jika anda terhubung ke internet, cobalah untuk mengkombinasikan antivirus dengan Firewall, Anti-spamming, dsb.
– Selalu waspada terhadap file-file yang mencurigakan, contoh: file dengan 2 buah exstension atau file executable yang terlihat mencurigakan.
– Untuk software freeware+shareware, ada baiknya anda mengambilnya dari situs resminya.
– Semampunya menghindari membeli barang bajakan, gunakan sofware-sofware open source.

  1. Jelaskan apa yang dimaksud Spyware?

Jawab:

Spyware adalah suatu program dengan tujuan menyusupi iklan tertentu (adware) atau

informasi penting di komputer pengguna. Spyware berpotensi menggangu kenyamanan pengguna dan mencuri data-data tertentu di komputer pengguna untuk dikirim ke hacker. Efek spyware akan menkonsumsi memory komputer sehingga komputer menjadi lambat atau hang

  1. Jelaskan Spyware ke komputer dan menggangulangi?

Jawab:

* Scan komputer anda secara rutin dengan anti-spyware program dan anti-virus yang terkini (update).
* Lengkapi browser anda dengan fitur-fitur keamanan yang tersedia.
* Sebaiknya aktifkan auto-update semua program yang anda miliki.
* Jangan sekali-kali klik OK atau SUBMIT/CANCEL pada pop-up windows yang muncul, langsung tutup saja dengan tombol Close. Karena sekali anda melakukan ini, maka akan muncul beberapa pop-up windows lainnya secara bertubi-tubi.

Tugas Baru

VB FAJAR

Private Sub Command1_Click()

Dim snpm As String

snpm = InputBox(“npm:”)

Adodc1.Recordset.MoveFirst

Adodc1.Recordset.Find “npm =” & snpm & “”

End Sub

 

Private Sub Command2_Click()

Text1.SetFocus

Adodc1.Recordset.AddNew

End Sub

 

Private Sub Command3_Click()

Adodc1.Recordset.Update

MsgBox “data berhasl disimpan…!!!”, vbOKOnly + vbInformation, “konfirmasi”

End Sub

 

Private Sub Command4_Click()

If MsgBox(“apakah anda yakin akan menghpusnya…???”, vbOKcancle + vbCritical, “konfirmasi”) = vbOK Then

Adodc1.Recordset.Delete

End Sub

 

Private Sub Command5_Click()

End

End Sub

Private Sub Form_Activate()

Text1.SetFocus

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

End Sub

 

Private Sub Text1_Change()

 

End Sub

 

Tugas

6

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub Cmdlagi_Click()
txtnama.SetFocus
txtnama.Text = “”
txtnpm.Text = “”
txtjur.Text = “”
txtps.Text = “”
txttm.Text = “”
txturut.Text = “”
End Sub

Private Sub Cmdbatal_Click()
txtnama.SetFocus
txtnama.Text = “”
txtnpm.Text = “”
txtjur.Text = “”
txtps.Text = “”
txttm.Text = “”
txturut.Text = “”
End Sub

Private Sub Cmdproses_Click()
Dim S As String
txttm.Text = “20” & Left(txtnpm.Text, 2)
S = Mid(txtnpm.Text, 3, 1)
If S = “1” Then
txtjur.Text = “Sistem Informasi”
ElseIf S = “2” Then
txtjur.Text = “Manajemen Informatika”
ElseIf S = “3” Then
txtjur.Text = “Tehnik Informatika”
ElseIf S = “4” Then
txtjur.Text = “Manajemen & Komp. Akuntansi”
End If
S = Mid(txtnpm.Text, 4, 2)
If S = “01” Then
txtps.Text = “Strata Satu”
ElseIf S = “02” Then
txtps.Text = “Diploma Tiga”
ElseIf S = “03” Then
txtps.Text = “Diploma Empat”
ElseIf S = “04” Then
txtps.Text = “Diploma Dua”
End If
txturut.Text = Right(txtnpm.Text, 4)
End Sub

Private Sub Form_activate()
txtnama.SetFocus
txtnama.Text = “”
txtnpm.Text = “”
txtjur.Text = “”
txtps.Text = “”
txttm.Text = “”
txturut.Text = “”
End Sub

Private Sub Txtnama_Keypress(Keyascii As Integer)
If Keyascii = 13 Then
txtnpm.SetFocus
End If
End Sub

 

PT TIDAK MASUK TIDAK APA-APA

9

Private Sub cmdBTL_Click()
txtNK.SetFocus
txtGOL.Text = “”
txtKS.Text = “”
txtS.Text = “”
txtTH.Text = “”
txtJB.Text = “”
txtBG.Text = “”
txtGPOK.Text = “”
txtTNJ.Text = “”
txtTTAL.Text = “”
txtNK.Text = “”
txtNIK.Text = “”
End Sub

Private Sub cmdKL_Click()
End
End Sub

Private Sub cmdLG_Click()
txtNK.SetFocus
txtGOL.Text = “”
txtKS.Text = “”
txtS.Text = “”
txtTH.Text = “”
txtJB.Text = “”
txtBG.Text = “”
txtGPOK.Text = “”
txtTNJ.Text = “”
txtTTAL.Text = “”
txtNK.Text = “”
txtNIK.Text = “”
End Sub

Private Sub cmdPRS_Click()
Dim gl, ks, s As String
Dim th, jb, bg As Variant
Dim gp, tnj, ttal As Long
txtTH.Text = Left(txtNIK.Text, 4)
a = Mid(txtNIK.Text, 5, 1)
If a = “A” Then
gl = “A”
jb = “Manager”
gp = “4000000″
tnj = “1025000″
ElseIf a = “B” Then
gl = “B”
jb = “Ka. Seksi”
gp = “3500000″
tnj = “975000″
ElseIf a = “C” Then
gl = “C”
jb = “Staff”
gp = “3000000″
tnj = “950000″
End If
txtGOL.Text = gl
txtJB.Text = jb
txtGPOK.Text = gp
txtTNJ.Text = tnj
a = Right(txtNIK.Text, 3)
If a = “KEU” Then
bg = “Accounting”
ElseIf a = “ADM” Then
bg = “Administrasi”
ElseIf a = “SDM” Then
bg = “General Affair”
ElseIf a = “EDP” Then
bg = “IT Unit”
ElseIf a = “SDP” Then
bg = “Security”
End If
txtBG.Text = bg
a = Mid(txtNIK.Text, 7, 1)
If a = “S” Then
ks = “S”
s = “Single”
ElseIf a = “M” Then
ks = “M”
s = “Menikah”
ElseIf a = “J” Then
ks = “J”
s = “Janda”
ElseIf a = “D” Then
ks = “D”
s = “Duda”
End If
txtKS.Text = ks
txtS.Text = s
txtTTAL.Text = Val(txtGPOK.Text) + Val(txtTNJ.Text)
End Sub

Private Sub txtNK_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtNIK.SetFocus
End If
End Sub

Data Buku Perpustakaan Milik Bersama 2

8

Private Sub cmdbatal_Click()
cbo.SetFocus
cbo.Text = “”
txta.Text = “”
txtb.Text = “”
txtc.Text = “”
txtd.Text = “”
txte.Text = “”
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
cbo.SetFocus
cbo.Text = “”
txta.Text = “”
txtb.Text = “”
txtc.Text = “”
txtd.Text = “”
txte.Text = “”
End Sub

Private Sub cmdproses_Click()
Dim jb, pg, tt As String
Dim pt, hg As Variant
txtc.Text = “20″ & Mid(cbo.Text, 5, 2)
a = Left(cbo.Text, 3)
If a = “sim” Then
jb = “sistem informasi management”
pg = “fadiya ulfa”
hg = “75900″
ElseIf a = “edp” Then
jb = “elektronic data processing”
pg = “nurul agustina”
hg = “62000″
ElseIf a = “mnj” Then
jb = “manajemen”
pg = “rian hidayat”
hg = “42000″
ElseIf a = “cdr” Then
jb = “coreldraw”
pg = “siti nur khotimah”
hg = “53000″
ElseIf a = “rpl” Then
jb = “rekayasa perangkat lunak”
pg = “winda erlianti”
hg = “83000″
End If
txta.Text = jb
txtb.Text = pg
txte.Text = hg
a = Right(cbo.Text, 1)
If a = “a” Then
pt = “andi offset yogyakarta”
ElseIf a = “i” Then
pt = “indah surabaya”
ElseIf a = “s” Then
pt = “selemba empat”
ElseIf a = “e” Then
pt = “elek media komputindo”
ElseIf a = “m” Then
pt = “maxicom”
End If
txtd.Text = pt
End Sub

Private Sub Form_Load()
cbo.AddItem “sim-09-a”
cbo.AddItem “edp-10-i”
cbo.AddItem “mnj-11-s”
cbo.AddItem “cdr-12-e”
cbo.AddItem “rpl-13-m”
End Sub

 

Data Buku Perpustakaan Milik Bersama 1

7

Private Sub cmdbatal_Click()
cbo.SetFocus
cbo.Text = “”
txta.Text = “”
txtb.Text = “”
txtc.Text = “”
txtd.Text = “”
txte.Text = “”
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
cbo.SetFocus
cbo.Text = “”
txta.Text = “”
txtb.Text = “”
txtc.Text = “”
txtd.Text = “”
txte.Text = “”
End Sub

Private Sub cmdproses_Click()
Dim jb, pg, tt As String
Dim pt, hg As Variant
txtc.Text = “20″ & Right(cbo.Text, 2)
a = Mid(cbo.Text, 3, 3)
If a = “sim” Then
jb = “sistem informasi management”
pg = “yati nur oktavia”
hg = “75900″
ElseIf a = “edp” Then
jb = “elektronic data processing”
pg = “imam tarmizi”
hg = “62000″
ElseIf a = “mnj” Then
jb = “manajemen”
pg = “valentina mariana adiwianti”
hg = “42000″
ElseIf a = “cdr” Then
jb = “coreldraw”
pg = “riyan suhandi”
hg = “53000″
ElseIf a = “rpl” Then
jb = “rekayasa perangkat lunak”
pg = “sinta umpu singa”
hg = “83000″
End If
txta.Text = jb
txtb.Text = pg
txte.Text = hg
a = Left(cbo.Text, 1)
If a = “a” Then
pt = “andi offset yogyakarta”
ElseIf a = “i” Then
pt = “indah surabaya”
ElseIf a = “s” Then
pt = “selemba empat”
ElseIf a = “e” Then
pt = “elek media komputindo”
ElseIf a = “m” Then
pt = “maxicom”
End If
txtd.Text = pt
End Sub

Private Sub Form_Load()
cbo.AddItem “a-sim-01″
cbo.AddItem “i-edp-02″
cbo.AddItem “s-mnj-03″
cbo.AddItem “e-cdr-04″
cbo.AddItem “m-rpl-05″
End Sub

HURUF MUTU MAHASISWA STMIK PRINGSEWU

Untitled4

Private Sub Cbo_Click()

Dim nama, jurusan, HM As String

 

Select Case cbo.Text

Case “12100369”

nama = “AHMAD SODIKIN”

jurusan = “Sistem Informasi”

Case “12201111”

nama = “FAJAR DESWANTORO”

jurusan = “Manajemen Informatika”

Case “12201109”

nama = “AYU OKTAVIANI”

jurusan = “Manajemen Informatika”

End Select

txtnama.Text = nama

txtjr.Text = jurusan

txtquis.SetFocus

End Sub

 

Private Sub Cmdbatal_Click()

cbo.SetFocus

cbo.Text = “”

txtnama.Text = “”

txtjr.Text = “”

txtquis.Text = “”

txttugas.Text = “”

txtuts.Text = “”

txtuas.Text = “”

txtna.Text = “”

txtm.Text = “”

End Sub

 

Private Sub cmdk_Click()

End

End Sub

 

Private Sub cmdprs_Click()

Dim na As Integer

Dim HM As Variant

quis = Val(txtquis.Text)

tugas = Val(txttugas.Text)

uts = Val(txtuts.Text)

uas = Val(txtuas.Text)

na = (quis + tugas + uts + uas) / 4

txtna.Text = na

 

Select Case txtna.Text

Case Is > 80

HM = “A”

Case Is > 70

HM = “B”

Case Is > 60

HM = “C”

Case Is > 50

HM = “D”

Case Is < 50

HM = “E”

End Select

txtm.Text = HM

End Sub

 

Private Sub Form_Load()

cbo.AddItem “12100369”

cbo.AddItem “12201111”

cbo.AddItem “12201109”

End Sub

 

Private Sub txtquis_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txttugas.SetFocus

End If

End Sub

 

Private Sub txttugas_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtuts.SetFocus

End If

End Sub

 

Private Sub txtuts_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtuas.SetFocus

End If

End Sub

tugas 1

Untitled2

Private Sub cbogolongan_Click()

Dim gapok, pajak, tunjangan, total As Variant

Select Case cbogolongan.Text

Case “I”

gapok = 1300000

tunjangan = 150000

Case “II”

gapok = 3000000

tunjangan = 100000

Case “III”

gapok = 3500000

tunjangan = 150000

Case “IV”

gapok = 5000000

tunjangan = 200000

Case Else

gapok = 0

tunjangan = 0

End Select

total = gapok + tunjangan

pajak = total * 0.1

txtgapok.Text = gapok

txttunjangan.Text = tunjangan

txtpajak.Text = pajak

txttotal.Text = total – pajak

End Sub

 

Private Sub Cmdbatal_Click()

txtnpm.SetFocus

txtnpm.Text = “”

txtnama.Text = “”

cbogolongan.Text = “”

txtgapok.Text = “”

txttunjangan.Text = “”

txtpajak.Text = “”

txttotal.Text = “”

End Sub

 

Private Sub cmdkeluar_Click()

End

End Sub

 

Private Sub cmdlagi_Click()

txtnpm.Text = “”

txtnama.Text = “”

cbogolongan.Text = “”

txtgapok.Text = “”

txttunjangan.Text = “”

txtpajak.Text = “”

txttotal.Text = “”

End Sub

 

Private Sub Form_load()

cbogolongan.AddItem “I”

cbogolongan.AddItem “II”

cbogolongan.AddItem “III”

cbogolongan.AddItem “IV”

End Sub

 

Public Sub kosong()

txtnpm.SetFocus

txtnpm.Text = “”

txtnama.Text = “”

cbogolongan.Text = “”

txtgapok.Text = “”

txttunjangan.Text = “”

txtpajak.Text = “”

txttotal.Text = “”

End Sub

 

Private Sub txtnpm_keypress(keyascii As Integer)

If keyascii = 13 Then

txtnama.SetFocus

End If

End S

 

 

Microsoft VB

Untitled8

Private Sub Check1_Click()
If Check1.Value = 1 Then
Label1.FontBold = True
Else: Label1.FontBold = False
End If
End Sub

Private Sub Check2_Click()
If Check2.Value = 1 Then
Label1.FontItalic = True
Else: Label1.FontItalic = False
End If
End Sub

Private Sub Check3_Click()
If Check3.Value = 1 Then
Label1.FontUnderline = True
Else: Label1.FontUnderline = False
End If
End Sub

Private Sub Check4_Click()
If Check4.Value = 1 Then
Label1.FontStrikethru = True
Else: Label1.FontStrikethru = False
End If
End Sub

Private Sub Command1_Click()
End
End Sub

Private Sub Option1_Click()
Label1.ForeColor = vbRed
End Sub

Private Sub Option2_Click()
Label1.ForeColor = vbGreen
End Sub

Private Sub Option3_Click()
Label1.ForeColor = vbBlue
End Sub

Private Sub Option4_Click()
Label1.ForeColor = vbYellow
End Sub