Tugas psi pengertian dan jenis jenis virus pada komputer

  Pengertian dan jenis jenis virus pada komputer

        Virus komputer merupakan program        komputer yang dapat menggandakan atau  menyalin dirinya sendiri dan menyebar dengan   cara menyisipkan salinan dirinya kedalam program atau dokumen lain nya.

Efek dari virus komputer sangat beragam misal nya dengan merusak data pada dokumen, membuat pengguna komputer merasa terganggu. Perlu diketahui virus pada komputer pada umum nya bisa merusak software atau perangkat lunak komputer.

Virus komputer umum nya dapat merusak perangkat lunak komputer, dan tidak dapat  secara langsung merusak perangkat keras komputer,tetapi dapat mengakibatkan kerusakan dengan cara membuat program yang memaksa over process keperangkat tertentu.

    Macam macam virus pada komputer



1.Virus Trojan

Virus trojan adalah macam jenis nama virus komputer yang dibuat untuk tujuan mencuri data dan mengendalikan data yang ada di dalam komputer. Pada dasarnya trojan bukan sejenis virus, namun karena sifat trojan ini sangat menganggu maka orang-orang termasuk dalam golongan virus komputer. Untuk itu anda harus waspada akan keberadaan virus trojan 

Lokasi penyebaran yang utama yaitu akses yang terhubung ke internet, seperti email dan data pribadi yang tidak dipassword. Untuk mengatasinya yaitu dengan menggunakan antivirus khusus untuk trojan, seperti Trojan remover dan Trojan hunter.

2. Virus Worm

Virus worm adalah sejenis program yang dapat menggandakan diri. Secara umum worm tidak menginfeksi virus, namun keberadaannya cukup berbahaya dimana worm mampu menggandakan diri dengan cepat sehingga apabila  komputer yang terserang worm dalam waktu cukup lama, dapat membuat sistem komputer menjadi rapuh. Dimana worm ini akan memenuhi data dalam memori dan hardisk komputer.

Lokasi penyebarannya melalui email dan jaringan internet. Sedangkan untuk mengatasinya bisa menggunakan antivirus biasa. Jika menggunakan antivirus pro malah lebih optimal hasilnya.

3. Memory Resident virus

Memory Resident Virus, seperti namanya macam jenis nama virus komputer ini dibuat untuk menginfeksi RAM. Dengan kata lain, virus ini berada di dalam memori komputer. Memory Resident Virus biasanya akan aktif jika sistem operasi komputer dinyalakan.

Keberadaan virus ini akan mengganggu program komputer yang seharusnya berjalan secara normal. Efek yang ditimbulkan dari keberadaan memory resident virus yaitu akan membuat sistem operasi komputer menjadi lemot.

4. Web scripting virus

Seperti namanya web scripting virus adalah sebuah kode program yang digunakan untuk mempercantik konten dalam website. Namun kode inilah yang justru akan mengganggu program, biasanya virus ini akan muncul saat terhubung internet.

Untuk sistem proteksi bisa dilakukan dengan menginstall Microsoft tool bawaan windows. Lakukan scan secara teratur menggunakan aplikasi 

5. Multipartite virus

Seperti memory resident virus dimana macam jenis nama virus komputer ini bersembunyi dalam RAM yang nantinya akan menginfeksi  sistem operasi tertentu kemudian menginfeksi hardisk. Cara mengatasinya yaitu dengan membersihkan adanya bad sector dan lakukan disk defragmenter (jika menggunakan OS windows).

6. FAT virus

FAT (File Allocation Table) adalah macam jenis nama virus komputer yang bertujuan untuk merusak file. Biasanya virus ini akan bersembunyi di tempat penyimpanan data pribadi. Dimana kemampuan virus ini adalah menyembunyikan file penting kita, sehingga seakan-akan file tersebut hilang karena sulit untuk kita cari.

Pencegahan : amati dan perhatikan data yang tersimpan di dalam hardisk. Apabila kita mencurigai adanya file yang tidak pernah kita buat untuk disimpan, berarti itu adalah FAT virus.

7. Companion virus

Companion virus merupakan jenis virus yang juga akan dapat mengganggu data pribadi. Virus ini akan bersembunyi di dalam hardisk. Dimana kemampuan virus ini akan membuat ekstensi yang berbeda dari ekstensi file yang asli. Lokasi di dalam hardisk, biasanya berkumpul dengan file baru. Pencegahan : install scan antivirus dan juga download firewall.

8. Polymorpic virus

Polymorpic virus merupakan jenis virus yang berkemampuan untuk menyandikan diri dengan cara yang berbeda saat menginfeksi sistem. virus ini boleh dikatakan virus yang pintar karena virus ini dapat mengubah strukturnya setelah melaksanakan tugas sehingga membuat sulit dideteksi oleh anti virus.

9. Directory virus

Directory virus, jenis virus ini memiliki kemampuan menginfeksi file dengan ekstensi exe atau com, lalu file tersebut akan dipindahkan. Dimana saat file dijalankan, maka secara otomatis virus ini akan terdeteksi dan akan menginfeksi sistem yang lain.

10. Macro virus

Marco Virus adalah macam jenis nama virus yang memiliki tingkah laku yang sama dengan kebanyakan virus, namun virus ini dibuat dengan bahasa pemrograman suatu aplikasi bukannya bahasa pemrograman suatu sistem operasi,misalnya macro yang terdapat di dalam microsoft word.

11. Boot sector virus

Bad sector adalah jenis virus dibuat untuk menginfeksi bagian terkecil dalam hardisk (sektor boot). Boot sector virus biasanya bersembunyi dalam floppy disk.

12. Overwrite viruses

Overwrite virus adalah jenis virus yang memiliki kemampuan untuk menghapus file atau data tanpa mengubah ukuran file tersebut. Sehingga pengguna tidak akan merasa curiga akan keberadaannya.

13. Direct action viruses

Direct Action Virus adalah virus yang menginfeksi file AUTOXEC BAT. Dimana file ini terletak pada directory hardisk dengan kemampuan menginfeksi perangkat eksternal.

Tugas psi pengertian hacker

      Pengertian hacker dan macam nya

Hacker adalah seseorang yang melakukan keahlian dengan sistem komputer dan programan, istilah hacker digunakan untuk menggambarkan para revolusioner komputer yang menjadi cikal bakal para pendiri perusahaan komputer. Hacker banyak aktivitas nya ialah mengamankan sistem komputer agar tidak mudah disusupi dari program program jahat.

Berikut jenis jenis hacker

1. Whaite hat hacker adalah hacker yang memegang teguh standar etika, akses kesistem komputer dilakukan bukan untuk tujuan yang merugikan, tapi untuk menguji ketahanan sistem tersebut. Jadi hacker jenis ini senang mempelajari sebuah jaringan sistem, jadi whate hat hacker ialah hacker yang sebenar nya.

2. Black hat hacker adalah hacker berorientasi cruminal dengan sifat perusak, biasa nya mereka ada diluar security dan oleh para programers, biasa nya black hat hacker seorang memiliki pengetahuan tentang kecatatan sistem dan mengeksplotasinya untuk mendapat kan keuntungan pribadi.
Banyak black hat hacker ini mengutamakan kebebasan individu dari pada accessibility dari privacy dan security.black hat ini akan mencari cara untuk membuat lubang yang terbuka pada sistem menjadi semakin besar, black hat hacker ini akan bekerja menghasilkan keerusakan dan untuk mengancam dan memeras seseorang.

3. Red hat hacker
Secara sederhana, red hat hacker beerpikir dengan
 * hat (fire ),
*Intuition,
*opinion
*emotion (subjective).

4. Yellow hat hacker
Secara sederhana,yellow hat hacker berpikir dengan
*hat ( sun ),
*praise
*positive aspects (objective)

5. Green hat hacker
Secara sederhana, seorang green hat hacker berpikir
* hat (sky)
*big picture
*conductor hat
*thinking about thinking
*overall process

Menunjukkan pada peerusahaan  konsultasi komputer security yang digunakan untuk menjalan kan bug test sebelum sistem dijalan kan.

6. Gray hat hacker dengan skill yang terkadang kadang bertindak secara legal dengan dengan itikad baik, tapi kadabg juga tidak. Ia adalah perpaduan dari white dan black hat hacker.
Mereka meng hack untuk kepentingan pribadi tapi tidak memiliki tujuan yang merusak.jimialibaba.blogspot.com

Tugas 3.1

Private Sub Cbokode_Click()
Dim merk, harga As String

Select Case Cbokode.Text
Case "Apple MC965 MacBook Air"
merk = "Apple MacBook Air MC965"
harga = "12800000"

Case "Apple MC966 MacBook Air"
merk = "Apple MacBook Air MC966"
harga = "15800000"

Case "Apple MC968 MacBook Air"
merk = "Apple MacBook Air MC968"
harga = "9900000"

Case "Apple MC969 MacBook Air"
merk = "Apple MacBook Air MC969"
harga = "11900000"

Case "Apple MC700 MacBook Pro"
merk = "Apple MacBook Pro MC700"
harga = "10800000"

Case "Apple MC721 MacBook Pro"
merk = "Apple MacBook Pro MC721"
harga = "15900000"

Case "Apple MC723 MacBook Pro"
merk = "Apple MacBook Pro MC723"
harga = "19300000"

Case "Apple MC724 MacBook Pro"
merk = "Apple MacBook Pro MC724"
harga = "13700000"

Case "Apple MC311 MacBook Pro"
merk = "Apple MacBook Pro MC311"
harga = "24200000"

Case "Apple MC313 MacBook Pro"
merk = "Apple MacBook Pro MC313"
harga = "11900000"

Case "Apple MC314 MacBook Pro"
merk = "Apple MacBook Pro MC314"
harga = "14700000"

Case "Apple MC318 MacBook Pro"
merk = "Apple MacBook Pro MC318"
harga = "17600000"

Case "Apple MC322 MacBook Pro"
merk = "Apple MacBook Pro MC322"
harga = "21300000"


End Select
Txtmerk.Text = merk
Txths.Text = harga
Txtjj.SetFocus
End Sub

Private Sub cmdKeluar_Click()
Unload Me
End Sub

Private Sub cmdLagi_Click()
Cbokode = ""
Txtmerk = ""
Txths = ""
Txtjj = ""
Txthp = ""
Txtdis = ""
Txttotal = ""
End Sub

Private Sub cmdProses_Click()
Dim dis As String
Txthp = Val(Txtjj) * Val(Txths)

Select Case Txthp.Text
Case Is > 140000000
dis = Val(Txthp) * 0.15
Case Is > 135000000
dis = Val(Txthp) * 0.1
Case Is > 130000000
dis = Val(Txthp) * 0.05
Case Is > 120000000
dis = Val(Txthp) * 0.02
End Select
Txtdis.Text = dis

Txttotal = Val(Txthp) - Val(Txtdis)
End Sub

Private Sub Form_Load()
Txtmerk.Enabled = False
Txths.Enabled = False
Txthp.Enabled = False
Txtdis.Enabled = False
Txttotal.Enabled = False

Cbokode.AddItem "Apple MC965 MacBook Air"
Cbokode.AddItem "Apple MC966 MacBook Air"
Cbokode.AddItem "Apple MC968 MacBook Air"
Cbokode.AddItem "Apple MC969 MacBook Air"
Cbokode.AddItem "Apple MC700 MacBook Pro"
Cbokode.AddItem "Apple MC721 MacBook Pro"
Cbokode.AddItem "Apple MC723 MacBook Pro"
Cbokode.AddItem "Apple MC724 MacBook Pro"
Cbokode.AddItem "Apple MC311 MacBook Pro"
Cbokode.AddItem "Apple MC313 MacBook Pro"
Cbokode.AddItem "Apple MC314 MacBook Pro"
Cbokode.AddItem "Apple MC318 MacBook Pro"
Cbokode.AddItem "Apple MC322 MacBook Pro"

End Sub

Tugas 3.5

Private Sub cmdBatal_Click()
txtNama = ""
txtNik = ""
txtGol = ""
txtKode = ""
txtStatus = ""
txtTahun = ""
txtJabatan = ""
txtBagian = ""
txtGapok = ""
txtTunjangan = ""
txtTotalg = ""
txtTerbilang = ""
End Sub

Private Sub cmdKeluar_Click()
End
End Sub

Private Sub cmdLagi_Click()
txtNama = ""
txtNik = ""
txtGol = ""
txtKode = ""
txtStatus = ""
txtTahun = ""
txtJabatan = ""
txtBagian = ""
txtGapok = ""
txtTunjangan = ""
txtTotalg = ""
txtTerbilang = ""
End Sub

Private Sub cmdProses_Click()
Dim kode As String

txtTahun = Left(txtNik.Text, 4)
txtKode = Mid(txtNik, 6 ,1)

kode = Mid(txtNik.Text, 5, 1)
If kode = "A" Then
txtGol = "A"
txtJabatan = "Manager"
txtGapok = "4000000"
txtTunjangan.Text = "1025000"
ElseIf kode = "B" Then
txtGol = "B"
txtJabatan = "Ka. Seksi"
txtGapok = "3500000"
txtTunjangan = "975000"
ElseIf kode = "C" Then
txtGol = "C"
txtJabatan = "Staff"
txtGapok = "Ka. Seksi"
txtTunjangan = "925000"
End If

kode = Right(txtNik, 3)
If kode = "KEU" Then
txtBagian = "Accounting"
ElseIf kode = "ADM" Then
txtBagian = "Administrasi"
ElseIf kode = "SDM" Then
txtBagian = "General Affair"
ElseIf kode = "EDP" Then
txtBagian = "IT Unit"
ElseIf kode = "SPM" Then
txtBagian = "Security"
End If

kode = Mid(txtNik, 6, 1)
If kode = "S" Then
txtStatus = "Single"
ElseIf kode = "M" Then
txtStatus = "Menikah"
ElseIf kode = "J" Then
txtStatus = "Janda"
ElseIf kode = "D" Then
txtStatus = "Duda"
End If

txtTotalg = Val(txtGapok) + Val(txtTunjangan)

If txtTotalg.Text <> "" Then
    txtTerbilang.Text = AngkaTerbilang(txtTotalg.Text) + "Rupiah"
Else
    txtTerbilang.Text = ""
End If

End Sub

Private Sub Form_Load()
txtGol.Enabled = False
txtKode.Enabled = False
txtStatus.Enabled = False
txtTahun.Enabled = False
txtJabatan.Enabled = False
txtBagian.Enabled = False
txtGapok.Enabled = False
txtTunjangan.Enabled = False
txtTotalg.Enabled = False
txtTerbilang.Enabled = False
End Sub

Private Sub txtTotalg_Change()
On Error Resume Next
If txtTotalg.Text <> "" Then
    txtTerbilang.Text = AngkaTerbilang(txtTotalg.Text) + "Rupiah"
Else
    txtTerbilang.Text = ""
End If
End Sub

Module 3.5
'membuat fungsi angka terbilang
Public Function AngkaTerbilang(ByVal nilai As Currency) As String
Dim satuan As Variant
satuan = Array("", "Satu", "Dua", "Tiga", "Empat", "Lima", "Tujuh", "Delapan", "Sembilan", "Sepuluh", "Sebelas")
Select Case nilai
    Case 0 To 11
        AngkaTerbilang = "" + satuan(Fix(nilai))
    Case 12 To 19
        AngkaTerbilang = AngkaTerbilang(nilai Mod 10) + "Belas"
    Case 20 To 99
        AngkaTerbilang = AngkaTerbilang(Fix(nilai / 10)) + "Puluh" + AngkaTerbilang(nilai Mod 10)
    Case 100 To 199
        AngkaTerbilang = "Seratus" + AngkaTerbilang(nilai - 100)
    Case 200 To 999
        AngkaTerbilang = AngkaTerbilang(Fix(nilai / 100)) + "Ratus" + AngkaTerbilang(nilai Mod 100)
    Case 1000 To 1999
        AngkaTerbilang = "Seribu" + AngkaTerbilang(nilai - 1000)
    Case 2000 To 999999
        AngkaTerbilang = AngkaTerbilang(Fix(nilai / 1000)) + "Ribu" + AngkaTerbilang(nilai Mod 1000)
    Case 1000000 To 999999999
        AngkaTerbilang = AngkaTerbilang(Fix(nilai / 1000000)) + "Juta" + AngkaTerbilang(nilai Mod 1000000)
    Case Else
    AngkaTerbilang = AngkaTerbilang(Fix(nilai / 1000000000)) + "Milyar" + AngkaTerbilang(nilai Mod 1000000000)
End Select
End Function

Tugas 3.2

Private Sub cmdBatal_Click()
Cbokode = ""
TxtJudul = ""
TxtPengarang = ""
TxtTahun = ""
TxtPenerbit = ""
TxtHarga = ""
Cbokode.SetFocus
End Sub

Private Sub cmdKeluar_Click()
End
End Sub

Private Sub cmdLagi_Click()
Cbokode = ""
TxtJudul = ""
TxtPengarang = ""
TxtTahun = ""
TxtPenerbit = ""
TxtHarga = ""
Cbokode.SetFocus
End Sub

Private Sub cmdProses_Click()
Dim kode As String

kode = Mid(Cbokode.Text, 3, 3)
If kode = "SIM" Then
TxtJudul.Text = "Sistem Informasi Manajemen"
TxtPengarang.Text = "Yati Nur Oktavia"
TxtHarga.Text = "75900"
ElseIf kode = "EDP" Then
TxtJudul.Text = "Elektronik Data Processing"
TxtPengarang.Text = "Imam Tarmizi"
TxtHarga.Text = "62000"
ElseIf kode = "MNJ" Then
TxtJudul.Text = "Manajemen"
TxtPengarang.Text = "Valentina Mariana Adiwianti"
TxtHarga.Text = "42000"
ElseIf kode = "CDR" Then
TxtJudul.Text = "Corel Draw"
TxtPengarang.Text = "Riyan Suhandi"
TxtHarga.Text = "53000"
ElseIf kode = "RPL" Then
TxtJudul.Text = "Rekayasa Perangkat Lunak"
TxtPengarang.Text = "Sinta Umpu Singa"
TxtHarga.Text = "83000"
End If

kode = Left(Cbokode.Text, 1)
If kode = "A" Then
TxtPenerbit.Text = "Andi Offset Yogyakarta"
ElseIf kode = "I" Then
TxtPenerbit.Text = "Indah Surabaya"
ElseIf kode = "S" Then
TxtPenerbit.Text = "Salemba Empat"
ElseIf kode = "E" Then
TxtPenerbit.Text = "Elek Media Komputindo"
ElseIf kode = "M" Then
TxtPenerbit.Text = "Mexicom"
End If

TxtTahun.Text = "20" & Right(Cbokode.Text, 2)
End Sub

Private Sub Form_Load()
TxtJudul.Enabled = False
TxtPengarang.Enabled = False
TxtTahun.Enabled = False
TxtPenerbit.Enabled = False
TxtHarga.Enabled = False

Cbokode.AddItem "A-SIM-01"
Cbokode.AddItem "I-EDP-02"
Cbokode.AddItem "S-MNJ-03"
Cbokode.AddItem "E-CDR-04"
Cbokode.AddItem "M-RPL-05"
End Sub

Tugas 3.3

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
txtkt = ""
txtht = ""
txtjk = ""
txtjb = ""
txtjt = ""
txttotalb = ""
End Sub

Private Sub cmdproses_Click()
Dim kode As String

kode = Left(txtkt.Text, 3)
If kode = "BIM" Then
txtht.Text = "50000"
txtjk.Text = "BIMA"
txtjb.Text = "16.00"
ElseIf kode = "EKO" Then
txtht.Text = "35000"
txtjk.Text = "EKONOMI"
txtjb.Text = "19.00"
ElseIf kode = "MUT" Then
txtht.Text = "23000"
txtjk.Text = "MUTIARA"
txtjb.Text = "17.00"
ElseIf kode = "SEN" Then
txtht.Text = "15000"
txtjk.Text = "SENJA"
txtjb.Text = "20.00"
End If
txtjt.SetFocus
End Sub

Private Sub Form_Load()
txtht.Enabled = False
txtjk.Enabled = False
txtjb.Enabled = False
txttotalp.Enabled = False
End Sub

Private Sub txtjt_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttotalp = Val(txtht) * Val(txtjt)
End If
End Sub

Tugas 3.4

Private Sub cmdBatal_Click()
Cbokode = ""
TxtJudul = ""
TxtPengarang = ""
TxtTahun = ""
TxtPenerbit = ""
TxtHarga = ""
Cbokode.SetFocus
End Sub

Private Sub cmdKeluar_Click()
End
End Sub

Private Sub cmdLagi_Click()
Cbokode = ""
TxtJudul = ""
TxtPengarang = ""
TxtTahun = ""
TxtPenerbit = ""
TxtHarga = ""
Cbokode.SetFocus
End Sub

Private Sub cmdProses_Click()
Dim kode As String

kode = Left(Txtkode.Text, 3)
If kode = "SIM" Then
TxtJudul.Text = "Sistem Informasi Manajemen"
TxtPengarang.Text = "Fadiya Ulfa"
TxtHarga.Text = "75900"
ElseIf kode = "EDP" Then
TxtJudul.Text = "Elektronik Data Processing"
TxtPengarang.Text = "Nurul Agustina"
TxtHarga.Text = "62000"
ElseIf kode = "MNJ" Then
TxtJudul.Text = "Manajemen"
TxtPengarang.Text = "Rian Hidayat"
TxtHarga.Text = "42000"
ElseIf kode = "CDR" Then
TxtJudul.Text = "Corel Draw"
TxtPengarang.Text = "Siti Nur Khotimah"
TxtHarga.Text = "53000"
ElseIf kode = "RPL" Then
TxtJudul.Text = "Rekayasa Perangkat Lunak"
TxtPengarang.Text = "Winda Erlianti"
TxtHarga.Text = "83000"
End If

kode = Right(Txtkode.Text, 1)
If kode = "A" Then
TxtPenerbit.Text = "Andi Offset Yogyakarta"
ElseIf kode = "I" Then
TxtPenerbit.Text = "Indah Surabaya"
ElseIf kode = "S" Then
TxtPenerbit.Text = "Salemba Empat"
ElseIf kode = "E" Then
TxtPenerbit.Text = "Elek Media Komputindo"
ElseIf kode = "M" Then
TxtPenerbit.Text = "Mexicom"
End If

TxtTahun.Text = "20" & Mid(Txtkode.Text, 5, 2)
End Sub

Private Sub Form_Load()
TxtJudul.Enabled = False
TxtPengarang.Enabled = False
TxtTahun.Enabled = False
TxtPenerbit.Enabled = False
TxtHarga.Enabled = False
End Sub