Macam-macam Virus Komputer dan Cara Mengatasinya

Macam-macam Virus Komputer dan Cara Mengatasinya

Apa Pengertian dari Virus komputer?

Virus Komputer adalah sebuah program parasit pada komputer yang dapat menggandakan dirinya sendiri dan juga dapat menyebar pada komputer lain dengan cara menyisipkan dirinya didalam sebuah program atau data.
Biasanya data seseorang tidak sengaja memindahkan virus dari komputer satu ke komputer lainnya pada saat orang tersebut memindahkan data menggunakan flshdisk atau perangkat lain, sehingga virus tersebut akan menyusup pada flashdisk dan berpindah pada komputer yang lain.

Mengapa Virus komputer dibuat?Virus komputer dibuat dengan tujuan yang tidak baik yaitu untuk pencurian data pada komputer tanpa sepengetahuan dari pemiliknya. banyak efek negatif yang ditimbulakan oleh virus komputer diantaranya rusaknya data dan program pada komputer sehingga data tersebut tidak dapat dibuka, ataupun program yang ada pada komputer tidak dapat berjalan. Selain itu virus juga akan menggandakan dirinya sendiri dengan jumlah yang sangat banya sehingga akan memenuhi ruang pada komputer dan akan memperberat kinerja dan RAM dan prosessor.

Macam-macam Virus Komputer Diantaranya :

1. TrojanTrojan adalah sebuah virus komputer yang dibuat dengan tujuan untuk mengendalikan dan mencuri data pada komputer. Trojan biasanya menyebar melalui internet dan lokasi dari penyebaran trojan adalah email ataupun data pribadi yang tidak diberi password.Untuk Mengatasi virus trojan dengan menggunakan Trojan Remover atau Trojan Hunter2. WormWorm adalah sebuah virus komputer yang dapat menggandakan dirinya sendiri. Hal yang paling berbahaya dari worm adalah dia dapat melipatgandakan dirinya sendiri dengan sangat cepat sehingga jika komputer terkena virus worm dengan waktu yang cukup lama maka worm akan memenuhi kapasitas dari harddisk dan membuat memori menjadi penuh.Cara mengatasi virus jenis worm ini dengan menggunakan antivirus biasa, atau dengan antivirus versi pro akan mendapatkan hasil yang lebih maksimalBaca Juga: Pengertian dan Fungsi Antivirus3. Memory Resident VirusMemory Resident Virus yaitu sebuah virus yang dapat menginfeksi RAM komputer. Efek yang ditimbulkan dari virus jenis ini adalah komputer menjadi lemot.Cara mengatasi virus jenis ini dengan menggunakan antivirus, akan tetapi antivirus yang digunakan juga harus diupdate secara berkala.4. Web Scripting VirusWeb Scripting Virus adalah sebuah program yang digunakan untuk mempercantik konten dari sebuah website, akan tetapi program ini dimanfaatkan untuk mengganggu dengan tujuan tertentu.Untuk mengatasi virus jenis ini dapat menggunakan Microsoft tool bawaan windows dan lakukan scan secara teratur.5. Multipartite VirusMultipartite Virus adalah sebuah virus komputer yang terdiri dari file-file yang menginfeksi sistem operasi tertentu. Virus jenis ini biasanya bersembunyi pada RAM dan akan menginfeksi dari harddisk.Cara mengatasi virus jenis ini yaitu dengan melakukan Disk Defragmenter.6. FAT VirusFAT Virus atau File Allocation Table Virus adalah sebuah virus komputer yang dibuat dengan tujuan untuk merusak file pada lokasi tertentu. File yang terkena virus ini biasanya akan disembunyikan seolah-olah file tersebut hilang.Cara mengatasi virus ini dengan melakukan scan dengan antivirus yang sudah diupdate secar berkala.7. Companion virusCompanion virus adalah sebuah virus komputeryang dibuat untuk mengganggu data pribadi. Lokasinya berada di dalam hardisk. Tetapi mempunyai ciri ekstensi yang berbeda.Pencegahan : install scan antivirus dan juga download firewall.8. Polymorpic virusPolymorpic virus adalah sebuah virus komputer yang mempunyai kemampuan untuk menyandikan diri dengan cara yang berbeda-beda pada waktu menginfeksi sistem. Contoh : Marburg, tuareg dan elken.Cara mencegah yaitu dengan menginstall antivirus high end.9. Directory virusDirectory virus adalah jenis virus yang menginifeksi file dengan ekstensi exe atau com, kemudian memindahkannya. Sehingga ketika file tersebut dipanggil untuk dijalankan, maka secara otomatis virus akan beraksi untuk menginfeksi sistem yang lain.Cara mengatasi virus ini yaitu dengan melakukan format dan install ulang semua program dan sistem operasi.10. Macro virusMacros Virus adalah virus komputer yang mempunyai kemampuan untuk menginfeksi file makro seperti doc, Xls, Pps dan Mdb. Selain itu virus jenis ini akan menginfeksi email yang berisi dokumen.Cara mengatasi dengan menghindari membuka email yang tidak dikenal dan juga menonaktifkan program makro.11. Boot sector virusBoot sector virus adalah sebuah virus komputer yang dapat menginfeksi bagian terkecil dalam sebuah hardisk yang disebut sektor boot.  Lokasinya bersembunyi di dalam floppy disk. Sehingga ketika sistem berjalan dia bisa berpindah kemama-mana untuk melakukan aksi infeksinya. Contoh : Polyboot.B, Anti EXE.Cara paling ampuh untuk mengatasinya yaitu dengan memastikan floppy disk pada posisi write protect.12. Overwrite virusesOverwrite viruses adalah sebuah virus komputer yang mempunyai kemampuan untuk menghapus file atau data yang terinfeksi tanpa mengubah ukuran file tersebut. Sehingga kita tidak akan merasa curiga tentang keberadaannya. Contoh : Way, Trj.Reboot, Trivial.88.D.Satu-satunya cara untuk mengatasinya yaitu dengan menghapus file yang terinfeksi.13. Direct action virusesDirect action viruses adalah sebuah virus komputer yang mempunyai kemampuan menginfeksi file jenis AUTOXEC BAT. Yang terletak pada direktori hardisk. Jenis ini akan beraksi ketika sistem operasi dijalankan. Jenis virus ini mempunyai kemampuan untuk menginfeksi perangkat eksternal seperti hardisk eksternal dan flashdisk. Contoh Vienna.Cara mengatasinya dengan menginstall scan antivirus.

Jenis-Jenis Hacker

Jenis-Jenis Hacker

Hacker dibedakan menjadi beberapa bagian, yaitu antara lain sebagai berikut:

1. White Hat Hacker

White Hat Hacker ialah hacker yang memegang teguh standar etika, akses ke sistem komputer dilakukan bukan untuk tujuan yang merugikan, tetapi untuk menguji ketahanan sistem tersebut. Jadi, hacker jenis ini senang mempelajari sebuah jaringan sistem, bahkan banyak dari mereka yang disewa sebagai konsultan keamanan. White Hat Hacker inilah ialah hacker yang sebenarnya.

2. Black Hat Hacker

Black Hat Hacker ialah jenis hacker yang aktivitasnya menerobos sistem keamanan komputer untuk melakukan kerusakan, seperti: cara menghapus berkas, identitas pencurian, penipuan kartu kredit dan berbagi aktvitas lainnya yang merugikan. Hacker jenis ini disebut juga sebagai chacker.

3. Grey Hat Hacker

Grey Hat Hacker ialah seseorang yang menganut standar etika ganda dalam melaksanakan hackingnya. Sekali Waktu hacker mungkin ini menjunjung etika hacker, namun di waktu yang lain aktivitasnya melanggar batas-batas hukum. Jadi, Kelompok hacker ini berada di hacker topi antara white dan black hat hacker.

4. Script Kiddie Hacker

Script Kiddie Hacker ialah seseorang yang tidak mahir dengan sistem komputer, namun seseorang ini mampu menerobos sebuah sistem komputer dengan menggunakan perangkat lunak atau yang dibuat orang lain.

5. Hacktivist Hacker

Hacktivist Hacker ialah jenis hacker yang menggunakan kemampuannya untuk menyebarkan pesan-pesan tertentu, seperti (politik, agama, ideologi, dll). Mereka melakukan kerusakan situs untuk menampilkan pesan mereka di situs korban.

 Yellow Hat Hacker

Secara sederhana, Yellow Hat Hacker memiliki sepesifikasi sebagai berikut :

· Hat ( Sun )

· Praise

· Positive Aspect ( Objective )

5. Green Hat Hacker

Secara sederhana, Green Hat Hacker memiliki sepesifikasi sebagai berikut :

· Hat ( Plant )

· Alternatives

· New Approaches

· Everything goes ( Speculatif )

6. Blue Hat Hacker

Secara sederhana, Blue Hat Hacker memiliki sepesifikasi sebagai berikut :

· Hat (Sky)

· Big Picture

· Conductor hat

· Thinking about thinking

· Overall process (overview)

· Menunjuk kepada perusahaan konsultasi komputer security yang digunakan untuk menjalankan bug test sebelum sistem dijalankan.

3.5 tugas visual basic

Private Sub Cmdbatal_Click()
Txtnk.SetFocus
Txtgol = ""
Txtks = ""
Txtst = ""
Txtth = ""
Txtjb = ""
Txtbag = ""
Txtgp = ""
Txttjg = ""
Txttg = ""
Txtterbilang = ""
Txtnk = ""
Txtnik = ""
End Sub

Private Sub Cmdkeluar_Click()
End
End Sub

Private Sub Cmdlagi_Click()
Txtnk.SetFocus
Txtgol = ""
Txtks = ""
Txtst = ""
Txtth = ""
Txtjb = ""
Txtbag = ""
Txtgp = ""
Txttjg = ""
Txttg = ""
Txtterbilang = ""
Txtnk = ""
Txtnik = ""
End Sub

Private Sub Cmdproses_Click()
Dim s As String
s = Mid(Txtnik, 5, 1)
If s = "A" Then
Txtgol = "A"
Txtjb = "Manager"
Txtgp = "4000000"
Txttjg = "1025000"
ElseIf s = "B" Then
Txtgol = "B"
Txtjb = "Ka. Seksi"
Txtgp = "3500000"
Txttjg = "975000"
ElseIf s = "C" Then
Txtgol = "C"
Txtjb = "Staff"
Txtgp = "3000000"
Txttjg = "925000"
End If
s = Mid(Txtnik, 7, 1)
If s = "S" Then
Txtks = "S"
Txtst = "Single"
ElseIf s = "M" Then
Txtks = "M"
Txtst = "Menikah"
ElseIf s = "J" Then
Txtks = "J"
Txtst = "Janda"
ElseIf s = "D" Then
Txtks = "D"
Txtst = "Duda"
End If
s = Right(Txtnik, 3)
If s = "KEU" Then
Txtbag = "Accounting"
ElseIf s = "ADM" Then
Txtbag = "Administrasi"
ElseIf s = "SDM" Then
Txtbag = "General Affair"
ElseIf s = "EDP" Then
Txtbag = "IT Unit"
ElseIf s = "SPM" Then
Txtbag = "Security"
End If
Txtth = Left(Txtnik, 4)
Txttg = Val(Txtgp) + Val(Txttjg)
Txtterbilang.Text = Terbilang(Txttg.Text)
Txtnk.SetFocus
End Sub

Function Terbilang(Angka As String) As String
Dim n1 As String
Dim nangka, Strjmlhuruf$, intpecahan As Integer, strpecahan$, urai$, Bil1$, strtot$, bil2$
Dim x, Y, z, i As Integer
    
For i = 1 To Len(Angka)
If Not Mid(Angka, i, 1) = "." Then
nangka = nangka + Mid(Angka, i, 1)
End If
Next
    
If Len(LTrim(nangka)) = 0 Then
terbit = "Nol Rupiah"
Exit Function
End If
Strjmlhuruf = LTrim(RTrim((nangka)))
intpecahan = Val(Right(Mid(Angka, 15, 2), 2))
If (intpecahan = 0) Then
strpecahan = ""
End If
x = 0
Y = 0
urai = ""
    
While (x < Len(Strjmlhuruf))
x = x + 1
strtot = Mid(Strjmlhuruf, x, 1)
Y = Y + Val(strtot)
z = Len(Strjmlhuruf) - x + 1
    
Select Case Val(strtot)
Case 1
If (z = 1 Or z = 7 Or z = 10 Or z = 13) Then
Bil1 = "Satu "
ElseIf (z = 4) Then
If (x = 1) Then
Bil1 = "Se"
Else
Bil1 = "Satu "
End If
ElseIf (z = 2 Or z = 5 Or z = 8 Or z = 11 Or z = 14) Then
x = x + 1
strtot = Mid(Strjmlhuruf, x, 1)
z = Len(Strjmlhuruf) - x + 1
bil2 = ""
    
Select Case Val(strtot)
Case 0
Bil1 = "Sepuluh "
Case 1
Bil1 = "Sebelas "
Case 2
Bil1 = "Dua Belas "
Case 3
Bil1 = "Tiga Belas "
Case 4
Bil1 = "Empat Belas "
Case 5
Bil1 = "Lima Belas "
Case 6
Bil1 = "Enam Belas "
Case 7
Bil1 = "Tujuh Belas "
Case 8
Bil1 = "Delapan Belas "
Case 9
Bil1 = "Sembilan Belas "
End Select
Else
Bil1 = "Se"
End If
    
Case 2
Bil1 = "Dua "
Case 3
Bil1 = "Tiga "
Case 4
Bil1 = "Empat "
Case 5
Bil1 = "Lima "
Case 6
Bil1 = "Enam "
Case 7
Bil1 = "Tujuh "
Case 8
Bil1 = "Delapan "
Case 9
Bil1 = "Sembilan "
Case Else
Bil1 = ""
End Select
    
If (Val(strtot) > 0) Then
If (z = 2 Or z = 5 Or z = 8 Or z = 11 Or z = 14) Then
bil2 = "Puluh "
ElseIf (z = 3 Or z = 6 Or z = 9 Or z = 12 Or z = 15) Then
bil2 = "Ratus "
Else
bil2 = ""
End If
Else
bil2 = ""
End If
If (Y > 0) Then
Select Case z
Case 4
bil2 = bil2 + "Ribu "
Y = 0
Case 7
bil2 = bil2 + "Juta "
Y = 0
Case 10
bil2 = bil2 + "Milyar "
Y = 0
Case 13
bil2 = bil2 + "Trilyun "
Y = 0
End Select
End If
urai = urai + Bil1 + bil2
Wend
    
urai = urai + strpecahan
Terbilang = urai & "Rupiah "
Terbilang = LCase(Terbilang)
n1 = UCase(Left(Terbilang, 1))
Terbilang = n1 & Mid(Terbilang, 2, Len(Terbilang) - 1)
End Function

Tugas 3.2 visual basic

Private Sub Cmdbatal_Click()
Cbokodebuku.SetFocus
Cbokodebuku = ""
Txtjb = ""
Txtpengarang = ""
Txttt = ""
Txtpenerbit = ""
Txtharga = ""
End Sub

Private Sub Cmdkeluar_Click()
End
End Sub

Private Sub Cmdlagi_Click()
Cbokodebuku.SetFocus
Cbokodebuku = ""
Txtjb = ""
Txtpengarang = ""
Txttt = ""
Txtpenerbit = ""
Txtharga = ""
End Sub

Private Sub Cmdproses_Click()
Dim S As String
Txttt = "20" & Right(Cbokodebuku, 2)
S = Left(Cbokodebuku, 1)
If S = "A" Then
Txtpenerbit = "Andi Offset Yogyakarta"
ElseIf S = "I" Then
Txtpenerbit = "Indah Surabaya"
ElseIf S = "S" Then
Txtpenerbit = "Salemba Empat"
ElseIf S = "E" Then
Txtpenerbit = "Elek Media Komputindo"
ElseIf S = "M" Then
Txtpenerbit = "Maxicom"
End If
S = Mid(Cbokodebuku, 3, 3)
If S = "SIM" Then
Txtjb = "Sistem Informasi Managemen"
Txtpengarang = "Yati Nur Oktavia"
Txtharga = "75900"
ElseIf S = "EDP" Then
Txtjb = "Elektronik Data Processing"
Txtpengarang = "Imam Tarmizi"
Txtharga = "62000"
ElseIf S = "MNJ" Then
Txtjb = "Manajemen"
Txtpengarang = "Valentina Mariana Adiwianti"
Txtharga = "42000"
ElseIf S = "CDR" Then
Txtjb = "Corel Draw"
Txtpengarang = "Riyan Suhandi"
Txtharga = "53000"
ElseIf S = "RPL" Then
Txtjb = "Rekayasa Perangkat Lunak"
Txtpengarang = "Sinta Umpu Singa"
Txtharga = "83000"
End If
End Sub

Private Sub Form_Load()
Cbokodebuku.AddItem "A-SIM-01"
Cbokodebuku.AddItem "I-EDP-02"
Cbokodebuku.AddItem "S-MNJ-03"
Cbokodebuku.AddItem "E-CDR-04"
Cbokodebuku.AddItem "M-RPL-05"
End Sub

3.4 tugas visual basic

 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.SetFocus

cbokode = ""

txtjudul = ""

txtpengarang = ""

txttahun = ""

txtpenerbit = ""

txtharga = ""



End Sub



Private Sub cmdproses_Click()

Dim R As String

txttahun.Text = "20" & Mid(cbokode.Text, 5, 2)

R = Left(cbokode.Text, 3)

If R = "SIM" Then

txtjudul.Text = "Sistem Informasi Manajemen"

txtpengarang.Text = "Fadiya Ulfa"

txtharga.Text = "75900"

ElseIf R = "EDP" Then

txtjudul.Text = "Elektronik Data Processing"

txtpengarang.Text = "Nurul Agustina"

txtharga.Text = "62000"

ElseIf R = "MNJ" Then

txtjudul.Text = "Manajemen"

txtpengarang.Text = "Rian Hidayat"

txtharga.Text = "42000"

ElseIf R = "CDR" Then

txtjudul.Text = "Corel Draw"

txtpengarang.Text = "Siti Nur Khotimah"

txtharga.Text = "53000"

ElseIf R = "RPL" Then

txtjudul.Text = "Rekayasa Perangkat Lunak"

txtpengarang.Text = "Winda Erlianti"

txtharga.Text = "83000"

End If



R = Right(cbokode.Text, 1)

If R = "A" Then

txtpenerbit.Text = "Andi Offset Yogyakarta"

ElseIf R = "I" Then

txtpenerbit.Text = "Indah Surabaya"

ElseIf R = "S" Then

txtpenerbit.Text = "Salemba Empat"

ElseIf R = "E" Then

txtpenerbit.Text = "Elek Media Komputindo"

ElseIf R = "M" Then

txtpenerbit.Text = "Maxicom"

End If

End Sub



Private Sub Form_Load()

cbokode.AddItem "SIM-09-A"

cbokode.AddItem "EDP-10-I"

cbokode.AddItem "MNJ-11-S"

cbokode.AddItem "CDR-12-E"

cbokode.AddItem "RPL-13-M"

End Sub

3.3 tugas visual basic

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
txtkt.SetFocus
txtkt = ""
txtht = ""
txtjk = ""
txtjb = ""
txtjt = ""
txttotalp = ""
End Sub

Private Sub Cmdproses_Click()
Dim s As String
s = Left(txtkt, 3)
If s = "BIM" Then
txtjk = "BIMA"
txtht = "50000"
txtjb = "16.00"
ElseIf s = "EKO" Then
txtjk = "EKONOMI"
txtht = "35000"
txtjb = "19.00"
ElseIf s = "MUT" Then
txtjk = "MUTIARA"
txtht = "23000"
txtjb = "17.00"
ElseIf s = "SEN" Then
txtjk = "SENJA"
txtht = "15000"
txtjb = "20.00"
End If
txttotalp = Val(txtjt) * Val(txtht)
txtjt.SetFocus
End Sub

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

3.1 tugas visual basic

Private Sub Cmdhitung_Click()
Cbokode.SetFocus
Cbokode = ""
txtmrk = ""
txths = ""
txtjj = ""
txthp = ""
txtdis = ""
txttb = ""

End Sub

Private Sub Cmdkeluar_Click()
End

End Sub

Private Sub Cmdproses_Click()
Dim s, DISC As String
s = Mid(Cbokode, 7, 5)
If s = "mc965" Then
txtmrk = "Apple macbook air mc965"
txths = "12800000"
ElseIf s = "MC966" Then
txtmrk = "Apple macbook air mc966"
txths = "15800000"
ElseIf s = "mc966" Then
txtmrk = "apple macbook air mc968"
txths = "9900000"
ElseIf s = "mc968" Then
txtmrk = "apple macbook air mc969"
txths = "11900000"
ElseIf s = "mc969" Then
txtmrk = "apple macbook air mc700"
txths = "10800000"
ElseIf s = "mc700" Then
txtmrk = "apple macbook air mc721"
txths = "15900000"
ElseIf s = "mc721" Then
txtmrk = "apple macbook air mc723"
txths = "19300000"
ElseIf s = "mc723" Then
txtmrk = "apple macbook air mc724"
txths = "13700000"
ElseIf s = "mc724" Then
txtmrk = "apple macbook air mc311"
txths = "24200000"
ElseIf s = "mc311" Then
txtmrk = "apple macbook air mc313"
txths = "11900000"
ElseIf s = "mc313" Then
txtmrk = "apple macbook air mc314"
txths = "14700000"
ElseIf s = "mc314" Then
txtmrk = "apple macbook air mc318"
txths = "17600000"
ElseIf s = "mc318" Then
txtmrk = "apple macbook air mc322"
txths = "21300000"
ElseIf s = "mc322" Then
End If
txthp = Val(txths) * Val(txtjj)
Select Case txthp.Text
Case Is > 140000000
DISC = 0.15 * Val(txthp)
Case Is > 135000000
DISC = 0.05 * Val(txthp)
Case Is > 130000000
DISC = 0.02 * Val(txthp)
End Select
txtdis.Text = DISC
txttb = txthp - DISC
End Sub


Private Sub Form_Load()
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 air"
Cbokode.AddItem "apple mc721 macbook air"
Cbokode.AddItem "apple mc723 macbook air"
Cbokode.AddItem "apple mc724 macbook air"
Cbokode.AddItem "apple mc311 macbook air"
Cbokode.AddItem "apple mc313 macbook air"
Cbokode.AddItem "apple mc314 macbook air"
Cbokode.AddItem "apple mc318 macbook air"
Cbokode.AddItem "apple mc322 macbook air"
End Sub