Sabtu, 26 Januari 2019

Pengertian dan Jenis-jenis Virus pada Komputer


Virus Komputer adalah program / aplikasi yang dapat menggandakan dirinya sendiri dan menyebar dengan cara  menyisipkan dirinya pada program dan data lainnya . biasanya user tidak mengetahui jika komputer yang di milikinya terjangkit virus sampai salah satu data hilang atau program yang ada pada komputer tidak bisa di jalankan.
Virus komputer umumnya di buat untuk tujuan yang tidak baik , banyak Efek negatif yang di timbulkan oleh virus komputer seperti memperbanyak dirinya sendiri sehingga memori menjadi kecil, hal ini membuat komputer sering hang atau freeze, lalu mengubah ekstensi pada file dan program yang membuat program/file tersebut tidak bisa di gunakan, dan dapat juga mencuri data pribadi seseorang tanpa sepengetahuan orang tersebut. selain itu juga virus dapat merusak hardware pada komputer.
Faktanya hampir 95% virus menyerang pengguna sistem operasi windows. Sisanya menyerang Linux/GNU, Mac, FreeBSD, OS/2 IBM, dan Sun Operating System.

Jenis-jenis virus pada komputer


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.
 
Banyak sekali virus yang sudah menyebar dan sangat sulit di hentikan penyebarannya namun kita dapat melakukan beberapa cara untuk menghindari terjangkitnya virus pada komputer , salah satunya seperti postingan yang sudah saya buat sebelumnya 
selain itu juga kita dapat menggunakan antivirus yang dapat mendeteksi keberadaan virus pada komputer.sehingga data dan program menjadi aman.
CONTOH VIRUS KOMPUTER YANG SERING MENYERANG PARA PENGGUNA KOMPUTER
– Virus Shortcut.exe
virus yang merubah ekstensi program atau file menjadi shortcut. hal ini menyebabkan tidak dapat di aksesnya dokumen atau program yang ingin kita gunakan. 

– Virus: Trojan.LodearTrojan Horse menyerang apabila kita mendownload data dari internet.

– Virus: W32.Beagle.CO@mm
Adalah virus yang mengirimkan email massal terhadap situs yang mempunyai tingkat keamanan rendah.


– Virus: Backdoor.Zagaban
Virus trojan yang satu ini menginjeksi komputer tertentu untuk digunakan sebagai tempat berlindung untuk merusak network atau jaringan terkait.


– Virus: W32/Netsky-P
Virus ini mampu menyebarkan email massal dengan sendirinya kepada alamat email yang diproduksi oleh suatu file pada PC / local drive.


– Virus: W32/Mytob-GH
Virus penyebar email massal dan merupakan Trojan untuk IRC pada komputer berbasis Windows.


– Virus: W32/Mytob-EX
Virus yang menyebarkan email massal dan Trojan IRC yang mirip dengam W32-mytob-gh.


– Virus: W32/Mytob-AS, Mytob-BE, Mytob-C, and Mytob-ER
Keluarga virus ini mempunyai karasteristik yang sama atas apa yang mereka lakukan.


– Virus: Zafi-D
Meupakan virus pengirim email massal dan peer-to-peer yang membuat salinan sendiri kepada folder sistem windows dengan nama file nortonupdate. exe.


– Virus: W32/Netsky-D
Virus ini juga mengirimkan serangan melalui IRC backdoor yang berfungsi juga menginfeksi komputer yang lemah.


– Virus: W32/Zafi-B
Virus ini menyerang peer-to-peer (P2P) dan email virus akan dicopy dengan sendirinya pada sistem folder windows yang akan diberi nama otomastis secara acak.


– Virus Bagle.BC
Virus Bagle BC ini termasuk salah satu jenis virus yang berbahaya dan telah masuk peringkat atas jenis virus yang paling cepat mempengaruhi komputer kita. 
 
Saran saya agar tidak terkena virus , sebaiknya menginstall antivirus pad akomputer atau smartphone. dan jangan lupa untuk selalu mengupdate antivirus tersebut.

Pengertian dan Jenis-Jenis Hacker


Pengertian dan Jenis-Jenis Hacker – Hacker ialah Seseorang yang memiliki Keahlian berkaitan dengan sistem komputer dan pemrograman. Programmer istilah sendiri mengalami perkembangan pengertian dan definisi. Kata “hacker” mulai muncul di akhir tahun 1950-a, merujuk pada pengembang para mahir. Kemudian di Tahun 1970-an, istilah hacker digunakan untuk menggambarkan para revolusioner komputer yang menjadi cikal-bakal para pendiri perusahaan komputer. Akhir Tahun 1980-a, hacker kata identik dengan pembajakan fitur pengalihan dengan menghilangkan proteksi dan menjualnya. dan sebelumnya saat ini banyak yang mengartikan negatif bahwa hacker ialah seseorang yang menerobos sistem komputer guna mengumpulkan informasi, akses menolak, berkas cara menghapus atau cara mengacaukan sistem komputer.
Pengertian dan Jenis-Jenis Hacker
Pengertian negatif dari hacker tidaklah sepenuhnya benar, meskipun memang ada jenis hacker yang aksinya melakukan hal-hal demikian. Hacker jenis ini sering disebut sebagai chacker. Hacker Banyak Yang aktivitasnya ialah mengamankan sistem komputer agar tidak mudah disusupi dari program-program Jahat. Agar anda tidak terlalu menganggap negatif istilah hacker, ada baiknya anda mengenal beberapa jenis hacker yang ada sebelumnya saat ini.

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.

Minggu, 13 Januari 2019

tugas 3.5


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


Private Sub Command1_Click()
Dim s As String
Txttt = "20" & Mid(Cbokode, 2)
s = Right(Cbokode, 1)
If s = "A" Then
Txtpenerbit = "Andi Offset Yogyakarta"
ElseIf s = "I" Then
Txtpenerbit = "Indah Surabaya"
ElseIf s = "S" Then
Txtpenerbit = "Salema Empat"
ElseIf s = "E" Then
Txtpenerbit = "Elek Media Komputindo"
ElseIf s = "M" Then
Txtpenerbit = "Maxicom"
End If
s = Left(Cbokode, 3)
If s = "SIM" Then
Txtjb = "Sistem Informasi Manajemen"
Txtpengarang = "Fadiya Ulfa"
Txtharga = "75900"
ElseIf s = "EDP" Then
Txtjb = "Elektronik Data Processing"
Txtpengarang = "Nurul Agustin"
Txtharga = "62000"
ElseIf s = "MNJ" Then
Txtjb = "Manajemen"
Txtpengarang = "Riyan Hidayat"
Txtharga = "42000"
ElseIf s = "CDR" Then
Txtjb = "Corel Draw"
Txtpengarang = "Siti Nur Khotimah"
Txtharga = "53000"
ElseIf s = "RPL" Then
Txtjb = "Rekayasa Perangkat Lunak"
Txtpengarang = "Winda Erlianti"
Txtharga = "83000"
End If
End Sub


Private Sub Command2_Click()
Cbokode.SetFocus
Cbokode = ""
Txtjb = ""
Txtpengarang = ""
Txttt = ""
Txtpenerbit = ""
Txtharga = ""
End Sub

Private Sub Command3_Click()
Cbokode.SetFocus
Cbokode = ""
Txtjb = ""
Txtpengarang = ""
Txttt = ""
Txtpenerbit = ""
Txtharga = ""
End Sub

Private Sub Command4_Click()
End
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

tugas 3.3




Private Sub Cmdproses_Click()
Dim s As String
s = Left(Txtkode, 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
Txttp = Val(Txtjt) * Val(Txtht)
Txtjt.SetFocus
End Sub

Private Sub Command2_Click()
Txtkode.SetFocus
Txtkode = ""
Txtht = ""
Txtjk = ""
Txtjb = ""
Txtjt = ""
Txttp = ""
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Txtjt_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txttp = Val(Txtjt) * Val(Txtht)
End If
End Sub

tugas 3.2


Private Sub Cmdproses_Click()
Dim s As String
s = Left(Txtkode, 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
Txttp = Val(Txtjt) * Val(Txtht)
Txtjt.SetFocus
End Sub

Private Sub Command2_Click()
Txtkode.SetFocus
Txtkode = ""
Txtht = ""
Txtjk = ""
Txtjb = ""
Txtjt = ""
Txttp = ""
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Txtjt_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txttp = Val(Txtjt) * Val(Txtht)
End If

End Sub

tugas 3.1



Private Sub Cbokode_Click()
Dim merk, Harga, HM As Integer
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 Cmdhitung_Click()
Cbokode.SetFocus
Cbokode = ""
Txtmerk = ""
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
Txtmerk = "Apple MC965 MacBook Air"
Txths = "12800000"
ElseIf s = "MC966" Then
Txtmerk = "Apple MC966 MacBook Air"
Txths = "15800000"
ElseIf s = "MC968" Then
Txtmerk = "Apple MC968 MacBook Air"
Txths = "9900000"
ElseIf s = "MC969" Then
Txtmerk = "Apple MC968 MacBook Air"
Txths = "11900000"
ElseIf s = "MC700" Then
Txtmerk = "Apple MC700 MacBook Pro"
Txths = "10800000"
ElseIf s = "MC721" Then
Txtmerk = "Apple MC721 MacBook Pro"
Txths = "15900000"
ElseIf s = "MC723" Then
Txtmerk = "Apple MC723 MacBook Pro"
Txths = "19300000"
ElseIf s = "MC724" Then
Txtmerk = "Apple MC724 MacBook Pro"
Txths = "13700000"
ElseIf s = "MC311" Then
Txtmerk = "Apple MC311 MacBook Pro"
Txths = "24200000"
ElseIf s = "MC313" Then
Txtmerk = "Apple MC313 MacBook Pro"
Txths = "11900000"
ElseIf s = "MC314" Then
Txtmerk = "Apple MC314 MacBook Pro"
Txths = "14700000"
ElseIf s = "MC318" Then
Txtmerk = "Apple MC318 MacBook Pro"
Txths = "17600000"
ElseIf s = "MC322" Then
Txtmerk = "Apple MC322 MacBook Pro"
Txths = "21300000"
End If
Txthp = Val(Txths) * Val(Txtjj)

Select Case Txthp.Text
Case Is > 140000000
DISC = 0.15 * Val(Txthp)
Case Is > 135000000
DISC = 0.1 * Val(Txthp)
Case Is > 130000000
DISC = 0.05 * Val(Txthp)
Case Is > 125000000
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 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