tag:blogger.com,1999:blog-78516466785793540792024-03-19T19:44:17.205+07:00Welcome To My Blog [JANGAN RUSUH]Tidak Ada Yang Spesial Di Blog SayaWelcome To My Bloghttp://www.blogger.com/profile/10335197185680357409noreply@blogger.comBlogger5125tag:blogger.com,1999:blog-7851646678579354079.post-30595823575474834862011-09-29T01:21:00.000+07:002011-09-29T01:21:14.220+07:00<div align="center">
<div id="Layer1" style="background-color: white; border-color: rgb(0, 0, 0) rgb(0, 0, 0) white white; border-style: none; border-width: 1px; height: 5000px; left: 0px; position: absolute; top: 0px; width: 800px; z-index: 1;">
<br />
<center>
<br /><b><span style="color: red; font-family: papyrus; font-size: large;">Attacked by : Fiqih Risky Saputra</span><br /><br /><img src="http://hamzajennings.com/wp-content/uploads/2008/07/hacked_11.jpg" /><br /><br />
<span style="color: red; font-family: papyrus; font-size: large;">FUCK Malaysia and ASSOCIATE<br /><span style="color: black;">Halaman Akan Segera Di alihkan Ke WEBSITE yang baru</span><br /><br /><span style="color: red; font-size: small;">d'charbonex In Here
</span></span></b></center></div>
</div>Welcome To My Bloghttp://www.blogger.com/profile/10335197185680357409noreply@blogger.com0tag:blogger.com,1999:blog-7851646678579354079.post-25044422214031802622011-08-13T11:13:00.000+07:002011-08-13T11:13:39.575+07:00cara Deface Facebook [HACKER]<b>Ini sengaja gwa share,biar lu lu pada bisa hack FB yg lu benci,tp jgn digunakan untuk yg macem²...
Pertama:
Defacing Facebook: A Security Case Study
Adrienne Felt, University of Virginia
felt@virginia.edu, www.cs.virginia.edu/felt/fbook
The Facebook Platform represents a powerful combination of social networking
and third-party gadget aggregation. Officially released in May 2007, the
Facebook API provides developers with millions of potential users and partial
access to their information. The highly personal nature of Facebook data and the
amplifying effects of the social network make it crucial that the Facebook
Platform does not enable third-party attacks. This paper describes Facebook’s
security mechanisms and presents a cross-site scripting vulnerability in
Facebook Markup Language that allows arbitrary JavaScript to be added to
application users’ profiles. The profile in the code can then defeat their antirequest
forging security measures and hijack the sessions of viewers.
Sisanya bisa dibaca <a href="http://www.cs.virginia.edu/felt/fbook/facebook-xss-censored.pdf"></a>
Kedua:
hayUk , Kita nge GIFAR yukz!!!
http://www.youtube.com/watch?v=5TgfKKX7uSQ&eurl=http%3A%2F%2F72%2E14%2E235%2E132%2Fsearch%3Fq%3D
cache%3AZXJURyAO3zkJ%3Ariosec%2Ecom%2Fhow%2Dto%2D
create%2Da%2Dgifar%2Bgifar%2Bfacebook%26cd%3D16%26hl%3D
&feature=player_embedded
Silahkan Di ubek " !!!
Upload FOto Ke dinding -> sebutkan Nama !! dan kena dech!!!
x-ace
Sisanya bisa dibaca http://echo.or.id/forum/viewtopic.php?p=107558&highlight=&sid=632a905890336fce5276b300a86ab0d5
http://www.smarthouse.com.au/Home_Office/Security_And_Support/M8Q8W9T6
Ketiga:
Spammers Deface Facebook Wall
By Mendelson Tiu | Monday | 31/03/2008
Fortinet is warning users of hijacked Facebook accounts posting deceptive messages on the ‘Wall’ that links to various spam sites.
Click to enlarge
The social website has a ‘Wall' that allow users to post comments on friends' profiles. Spammers post various messages (online pharmacy shops, free ringtones) on it by purchasing hijacked accounts from identity thieves who were able to hijack the victim's account.
One of the spamvertised links has been confirmed to resolve to a web host that also serves content for several pill pushing sites, involved in a criminal fraud ring. Included in this ring is Canadian Pharmacy, Fortinet says.
The Fortinet Global Security Research Team advises social networking site users to be wary of phishing attempts: when confronted by a login page or upon clicking a link contained in a friend's message, carefully check the login page URL.
Sisanya bisa dibaca http://www.smarthouse.com.au/Home_Office/Security_And_Support/M8Q8W9T6
Keempat:
Hack facebook, fake login facebook, deface facebook, cara mendapatkan password facebook pertanyaan2 seperti itu lah yg banyak di pertanyaakan oleh teman2 yg biasa hobynya suka jahil -_-”
Memang facebook lebih baik dibanding dengan friendster namun kita masih bisa mengakali untuk bagaimana cara mendapatkan password seseorang difacebook yaitu dengan menggunakan fake login atau login palsu untuk saat ini hanya itu saja yg saya bisa ^_^
Untuk mendapatkan scrip fake login bisa kamu download disini namun perlu di ingat penulis tidak bertanggung jawab atas akibat yg disebabkannya dan untuk cara menggunakan scrip ini silahkan utak-atik dan pelajari sendiri O_o
Demo login silahkan cek disini, sangat direkomendasikan untuk memasukan email dan password facebook anda yg sebenarnya. kekekekekekeeke…….
Gunakanlah scrip tersebut dengan bijak, trims banget buat family code :D
Sisanya bis<b></b>sa dibaca http://www.pelanginet.com/blog/hacking-facebook
Yach,sementara hanya segini saja artikelnya. Tapi tenang,masih bersambung kok.....
Semoga bermanfaat.....</b>Welcome To My Bloghttp://www.blogger.com/profile/10335197185680357409noreply@blogger.com0tag:blogger.com,1999:blog-7851646678579354079.post-59164870134184996932011-07-21T09:47:00.001+07:002011-07-21T09:49:40.727+07:00SMS GRATISMasukan Nomor Tujuan<br />
<br />
<input type=hidden name=teks value=><font size=1>
FREE SMS Gratis Indonesia</font><br>
<a href="https://www.facebook.com/sms.online.gratis#" target="_blank"><img src="no.gif" alt="Nomor HP" width="78" height="17" border="0" /></a><br />
<input class="field text small" type="text" maxlength="20" name="Phonenumbers" />
<br />
<a href="http://www.sms-online.web.id" target="_blank"><img src="sms.gif" alt="Isi SMS" width="78" height="17" border="0" /></a><br />
<textarea rows="4" cols="20" onKeyPress=check_length(this.form); onKeyDown=check_length(this.form); name=Text ></textarea>
<br />
<input id="saveForm" class="btTxt" type="submit" value="KIRIM" name="TOMBOL" />
<input value=160 name=text_num disabled="disabled" size="3" readonly="readonly" > huruf lagi
<br />Welcome To My Bloghttp://www.blogger.com/profile/10335197185680357409noreply@blogger.com0tag:blogger.com,1999:blog-7851646678579354079.post-13775158390578758142011-07-20T20:53:00.000+07:002011-07-20T20:53:44.589+07:00Cara Membuat VirusIni Sebenernya Bukan Virus tapi Hanya iSeng saja,Jika anda mengerti Bahasa Pemrograman pasti tau isi FLOOD SCRIPT,tapi banyak juga yg bilang ini Virus,tapi jika ini di coba di komputer anda pasti komputer anda akan Hang,susah di restart,susah di Shutdown oleh karena itu ini tidak akan saya post di blog saya bila anda ingin mengetahui caranya bisa add FB saya dan Kirim pesan <a href="http://www.facebook.com/fiqih.hacker">My Facebook</a> add dan tanyakan,nanti akan saya kasih tau cara pembuatan Virus Tersebut lewat PESAN VIA FACEBOOK,Software yg dibutuhkan hanya sebuah NOTEPAD pasti di setiap komputer tersedia NOTEPAD .<br />
NB; bukannya saya sok ,tp mencegah Copy Paste Dari BLOG BLOG atau Forum lainnya THX *-*<br />
<br />
<br />
<br />Welcome To My Bloghttp://www.blogger.com/profile/10335197185680357409noreply@blogger.com0tag:blogger.com,1999:blog-7851646678579354079.post-6577893728189767162011-07-20T19:37:00.001+07:002011-07-20T20:25:59.225+07:00Cara Membuat AntiVirus™ Menggunakan VB 6<div class="separator" style="background-color: black; clear: both; color: white; text-align: center;"></div><div class="separator" style="clear: both; text-align: center;"><a href="http://img-s3-01.mytextgraphics.com/quakemaker/2011/07/20/c361badb9825ed475977397c8c92b813.gif" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="57" src="http://img-s3-01.mytextgraphics.com/quakemaker/2011/07/20/c361badb9825ed475977397c8c92b813.gif" width="320" /></a></div><div class="separator" style="background-color: black; clear: both; color: white; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj9t439Yx7oejXHmyWrRx0r57zaY0JofFwn104F2pSMNN37QC0FzPWPSlHtfJBT8reC37f_2OMbNHjh54xTqtpxtJdq0IAWlbQpTuoKyJQC3N35CbIqzUujZfu-NrX8bztC7t2LMn-qWOs/s1600/A.jpeg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><br />
</a></div><div style="background-color: black; color: white; text-align: center;"><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhoM0YNHeclQsomI6yRgw8qgNd1abexXveaI1UC4OmkApy9WOcsLQ_d4Zqy0xKpXOc4Ro1hEdObZCOLRdMGR3D69Tuf1OELRsf-f2pOQu6vq_TOEIIu_UPQ6g9omY9kQbSQMlpC3VhYGgg/s1600/A.jpeg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhoM0YNHeclQsomI6yRgw8qgNd1abexXveaI1UC4OmkApy9WOcsLQ_d4Zqy0xKpXOc4Ro1hEdObZCOLRdMGR3D69Tuf1OELRsf-f2pOQu6vq_TOEIIu_UPQ6g9omY9kQbSQMlpC3VhYGgg/s1600/A.jpeg" /></a></div><br />
</div><div style="background-color: black; color: white; text-align: center;"><span style="font-size: small;"><b>Sekarang kehadiran para virus maker (–selanjutnya disingkat jadi VM<br />
saja) lokal telah membuat gerah para user komputer tanah air. Bisa<br />
dibayangkan bila dari sekian banyak virus lokal tidak satu-dua yang<br />
menghancurkan data (terutama bagi file office; word, excel, dll…). Bagi<br />
para vendor Anti Virus (–selanjutnya disingkat menjadi AV saja)<br />
fenomena ini adalah lahan bisnis untuk produk mereka. Sebut saja<br />
NORMAN, yang kini men-support perusahaan konsultan virus lokal<br />
(–VAKSIN.COM) , Symantec, McAffe, NOD32, dan sebagainya. Dengan<br />
menawarkan update definisi software AV tercepat, engine scanner paling<br />
sensitif, dan lain-lain merupakan kiat untuk memancing para korban<br />
virus membeli dan menggunakan software AV mereka. Bagi penulis sendiri<br />
hal ini memang agak memberatkan mengingat update file definisi atau<br />
engine AV tsb haruslah melalui koneksi internet. Lalu bagaimana yang<br />
tidak mempunyai akses sama sekali? Konsekuensinya iyalah tertinggal<br />
dalam hal pengenalan varian virus baru yang pada ujung-ujungnya membuat<br />
AV yang sudah terinstall bagai 'Macan Ompong'. Kalau kita membuat AV<br />
sendiri bagaimana? dengan database definisi yang bisa diupdate oleh<br />
kita bahkan dapat saling tukar dengan teman? Bisa saja, dengan syarat<br />
mau mempelajari sedikit teknik pemograman.<br />
<br />
Pertama kita harus mengerti bagaimana cara kerja<br />
sebuah AV sederhana, pada dasarnya sebuah software AV mempunyai<br />
komponen-komponen :<br />
<br />
<br />
1. Engine scanner, ini merupakan komponen utama AV<br />
dalam mengenali sebuah pattern virus. Engine ini dapat dikelompokkan<br />
menjadi statis dan dinamis. Statis dalam hal ini dapat disebut menjadi<br />
spesifik terhadap pattern tertentu dari sebuah file virus. Checksum<br />
merupakan salah satu contoh dari engine statis ini. Dinamis dalam<br />
artian dia mengenali perilaku 'umum' sebuah virus. Heuristic menjadi<br />
salah satu contohnya.<br />
<br />
2. Database definition, menjadi sebuah referensi dari sebuah pattern<br />
file virus. Engine statis sangat bergantung kepada komponen ini.<br />
<br />
3. Decompress atau unpacking engine, khusus untuk pengecekan file-file<br />
yang terkompresi (*.rar, *.zip, dll) atau kompresi atau packing untuk<br />
file PE seperti UPX, MeW , dll.<br />
<br />
Tidak jarang hasil dari pengecekan terhadap file<br />
suspect virus menghasilkan false-positive bahkan false-negative (–<br />
false-positive berarti file yang bersih dianggap thread oleh AV, dan<br />
false-negative berarti file yang 100% thread akan dianggap bersih).<br />
Semua itu dapat diakibatkan oleh ketidak-sempurnaan dari engine scanner<br />
itu sendiri. Misal<br />
<br />
pada contoh kasus Engine String scanner (–Engine scanner yang<br />
menyeleksi string-string dari file text-based), bila diterapkan rule 3<br />
out of 5 (– bila AV menemukan 3 dari daftar 5 string kategori<br />
malicious) maka AV akan memberikan bahwa file terindikasi sebuah thread<br />
yang positif. Padahal file tsb nyatanya tidak menimbulkan efek<br />
berbahaya bila dijalankan atau dieksekusi. Kesalahan scanning macam ini<br />
lazim ditemukan untuk file-file *.VBS, *.HTML, dll. Untuk penggunaan<br />
engine checksum sangat banyak ditemui di beberapa software AV lokal.<br />
Checksum yang lazim digunakan diantaranya CRC16, CRC32, MD5, dll.<br />
Dikarenakan mudah untuk diimplementasikan. Engine ini sendiri bukannya<br />
tanpa cacat, Checksum bekerja dengan memproses byte demi byte dari<br />
sebuah file dengan sebuah algoritma tertenu (– tergantung dari jenis<br />
checksum yang digunakan) sehingga menghasilkan sebuah format tertentu<br />
dari file tsb. Contoh checksum menggunakan CRC32 dan MD5 :<br />
<br />
* calCrc = CRC32(file_name_and_path)<br />
<br />
* calMD5 = MD5(file_name_and_path)<br />
<br />
Maka isi dari string calCrc adalah 7AF9E376,<br />
sedangkan untuk MD5nya adalah 529CA8050A00180790CF88B63468826A. Perlu<br />
diketahui bila virus menerapkan rutin yang mengubah byte tertentu dari<br />
badan virus tsb setiap kali maka penggunaan engine checksum ini akan<br />
kurang optimal karena bila 1 byte berubah dari file maka checksum juga<br />
akan berubah.<br />
<br />
Mari kita belajar membuat sebuah AV sederhana, yang diperlukan :<br />
<br />
<br />
1. Software Visual Basic 6.0<br />
<br />
2. Sedikit pemahaman akan pemograman Visual Basic 6.0<br />
<br />
3. Sampel file bersih atau virus (– opsional)<br />
<br />
First#<br />
<br />
Sekarang kita akan belajar membuat sebuah rutin sederhana untuk :<br />
<br />
- Memilih file yang akan dicek<br />
<br />
- Membuka file tersebut dalam mode binary<br />
<br />
- Memproses byte demi byte untuk menghasilkan Checksum<br />
<br />
Buka MS-Visual Basic 6.0 anda, lalu buatlah sebuah<br />
class module dan Form dengan menambahkan sebuah objek Textbox,<br />
CommonDialog dan Command Button. (Objek CommonDialog dapat ditambahkan<br />
dengan memilih Project -> COmponent atau Ctrl-T dan memilih<br />
Microsoft Common Dialog Control 6.0) Ketikkan kode berikut pada class<br />
module (kita beri nama class module tsb clsCrc) :<br />
<br />
<br />
================= START HERE ====================<br />
<br />
Private crcTable(0 To 255) As Long 'crc32<br />
<br />
Public Function CRC32(ByRef bArrayIn() As Byte, ByVal lLen As Long, Optional ByVal lcrc As Long = 0) As Long<br />
<br />
'bArrayIn adalah array byte dari file yang dibaca, lLen adalah ukuran atau size file<br />
<br />
Dim lCurPos As Long 'Current position untuk iterasi proses array bArrayIn<br />
<br />
Dim lTemp As Long 'variabel temp hasil perhitungan<br />
<br />
If lLen = 0 Then Exit Function 'keluar fungsi apabila ukuran file = 0<br />
<br />
lTemp = lcrc Xor &HFFFFFFFF<br />
<br />
<br />
For lCurPos = 0 To lLen<br />
<br />
lTemp = (((lTemp And &HFFFFFF00) \\ &H100) And &HFFFFFF) Xor (crcTable((lTemp And 255) Xor bArrayIn(lCurPos)))<br />
<br />
Next lCurPos<br />
<br />
CRC32 = lTemp Xor &HFFFFFFFF<br />
<br />
End Function<br />
<br />
Private Function BuildTable() As Boolean<br />
<br />
Dim i As Long, x As Long, crc As Long<br />
<br />
<br />
Const Limit = &HEDB88320<br />
<br />
For i = 0 To 255<br />
<br />
crc = i<br />
<br />
For x = 0 To 7<br />
<br />
If crc And 1 Then<br />
<br />
crc = (((crc And &HFFFFFFFE) \\ 2) And &H7FFFFFFF) Xor Limit<br />
<br />
Else<br />
<br />
<br />
crc = ((crc And &HFFFFFFFE) \\ 2) And &H7FFFFFFF<br />
<br />
End If<br />
<br />
Next x<br />
<br />
crcTable(i) = crc<br />
<br />
Next i<br />
<br />
End Function<br />
<br />
Private Sub Class_Initialize()<br />
<br />
BuildTable<br />
<br />
<br />
End Sub<br />
<br />
================= END HERE ====================<br />
<br />
Lalu ketikkan kode berikut dalam event Command1_Click :<br />
<br />
================= START HERE ====================<br />
<br />
Dim namaFileBuka As String, HasilCrc As String<br />
<br />
Dim CCrc As New clsCrc 'bikin objek baru dari class ClsCrc<br />
<br />
Dim calCrc As Long<br />
<br />
Dim tmp() As Byte 'array buat file yang dibaca<br />
<br />
Private Sub Command1_Click()<br />
<br />
<br />
CommonDialog1.CancelError = True 'error bila user mengklik cancel pada CommonDialog<br />
<br />
CommonDialog1.DialogTitle = "Baca File" 'Caption commondialog<br />
<br />
On Error GoTo erorhandle 'label error handle<br />
<br />
CommonDialog1.ShowOpen<br />
<br />
namafilbuka = CommonDialog1.FileName<br />
<br />
Open namafilbuka For Binary Access Read As #1 'buka file yang dipilih dengan akses baca pada mode binary<br />
<br />
ReDim tmp(LOF(1) - 1) As Byte 'deklarasi ulang untuk array, # Bugs Fixed #<br />
<br />
Get #1, , tmp()<br />
<br />
Close #1<br />
<br />
<br />
calCrc = UBound(tmp) 'mengambil ukuran file dari array<br />
<br />
calCrc = CCrc.CRC32(tmp, calCrc) 'hitung CRC<br />
<br />
HasilCrc = Hex(calCrc) 'diubah ke format hexadesimal, karena hasil perhitungan dari class CRC masih berupa numeric<br />
<br />
Text1.Text = HasilCrc 'tampilkan hasilnya<br />
<br />
Exit Sub<br />
<br />
erorhandle:<br />
<br />
If Err.Number <> 32755 Then MsgBox Err.Description 'error number<br />
32755 dalah bila user mengklik tombol cancel pada saat memilih file<br />
<br />
================= END HERE ====================<br />
<br />
<br />
COba anda jalankan program diatas dengan memencet<br />
tombol F5, lalu klik Command1 untuk memilih dan membuka file. Maka<br />
program akan menampilkan CRC32nya.<br />
<br />
Second#<br />
<br />
Kode diatas dapat kita buat menjadi sebuah rutin pengecekan file<br />
suspect virus dengan antara membandingkan hasil CRC32nya dan database<br />
CRC kita sendiri. Algoritmanya adalah :<br />
<br />
- Memilih file yang akan dicek<br />
<br />
- Membuka file tersebut dalam mode binary<br />
<br />
- Memproses byte demi byte untuk menghasilkan Checksum<br />
<br />
- Buka file database<br />
<br />
- Ambil isi file baris demi baris<br />
<br />
- Samakan Checksum hasil perhitungan dengan checksum dari file<br />
<br />
<br />
Format file database dapat kita tentukan sendiri, misal :<br />
<br />
- FluBurung.A=ABCDEFGH<br />
<br />
- Diary.A=12345678<br />
<br />
Dimana FluBurung.A adalah nama virus dan ABCDEFGH dalah Crc32nya. Jika<br />
kita mempunyai format file seperti diatas, maka kita perlu membaca file<br />
secara sekuensial per baris serta memisahkan antara nama virus dan<br />
Crc32nya. Dalam hal ini yang menjadi pemisah adalah karakter '='.<br />
<br />
Buat 1 module baru (– diberi nama module1) lalu isi dengan kode :<br />
<br />
================= START HERE ====================<br />
<br />
Public namaVirus As String, CrcVirus As String<br />
'deklarasi variabel global untuk nama dan CRC virus Public pathExe as<br />
String 'deklarasi variabel penyimpan lokasi file EXE AV kita<br />
<br />
Public Function cariDatabase(Crc As String, namaFileDB As String) As Boolean<br />
<br />
Dim lineStr As String, tmp() As String 'variabel penampung untuk isi file<br />
<br />
<br />
Open namaFileDB For Input As #1 'buka file dengan mode input<br />
<br />
Do<br />
<br />
Line Input #1, lineStr<br />
<br />
tmp = Split(lineStr, "=") 'pisahkan isi file bedasarkan pemisah karakter '='<br />
<br />
namaVirus = tmp(0) 'masukkan namavirus ke variabel dari array<br />
<br />
CrcVirus = tmp(1) 'masukkan Crcvirus ke variabel dari array<br />
<br />
If CrcVirus = Crc Then 'bila CRC perhitungan cocok/match dengan database<br />
<br />
cariDatabase = True 'kembalikan nilai TRUE<br />
<br />
Exit Do 'keluar dari perulangan<br />
<br />
<br />
End If<br />
<br />
Loop Until EOF(1)<br />
<br />
Close #1<br />
<br />
End Function<br />
<br />
================= END HERE ====================<br />
<br />
Lalu tambahkan 1 objek baru kedalam Form, yaitu<br />
Command button2. lalu ketikkan listing kode berikut kedalam event<br />
Command2_Click :<br />
<br />
================= START HERE ====================<br />
<br />
If Len(App.Path) <= 3 Then 'bila direktori kita adalah root direktori<br />
<br />
<br />
pathEXE = App.Path<br />
<br />
Else<br />
<br />
pathEXE = App.Path & "\\"<br />
<br />
End If<br />
<br />
CommonDialog1.CancelError = True 'error bila user mengklik cancel pada CommonDialog<br />
<br />
CommonDialog1.DialogTitle = "Baca File" 'Caption commondialog<br />
<br />
On Error GoTo erorhandle 'label error handle<br />
<br />
CommonDialog1.ShowOpen<br />
<br />
<br />
namafilbuka = CommonDialog1.FileName<br />
<br />
Open namafilbuka For Binary Access Read As #1 'buka file yang dipilih dengan akses baca pada mode binary<br />
<br />
ReDim tmp(LOF(1) - 1) As Byte 'deklarasi ulang untuk array # Bugs Fixed #<br />
<br />
Get #1, , tmp()<br />
<br />
Close #1<br />
<br />
calCrc = UBound(tmp) 'mengambil ukuran file dari array<br />
<br />
calCrc = CCrc.CRC32(tmp, calCrc) 'hitung CRC<br />
<br />
HasilCrc = Hex(calCrc) 'diubah ke format hexadesimal, karena hasil perhitungan dari class CRC masih berupa numeric<br />
<br />
If cariDatabase(HasilCrc, pathEXE & "DB.txt") Then 'bila fungsi bernilai TRUE<br />
<br />
<br />
MsgBox "Virus ditemukan : " & namaVirus 'tampilkan message Box<br />
<br />
End If<br />
<br />
Exit Sub<br />
<br />
erorhandle:<br />
<br />
If Err.Number <> 32755 Then MsgBox Err.Description 'error number<br />
32755 dalah bila user mengklik tombol cancel pada saat memilih file<br />
<br />
================= END HERE ====================<br />
<br />
Fitur AV sederhana ini dapat ditambahkan dengan<br />
fitur process scanner, akses registry, real-time protection (RTP) dan<br />
lain lain. Untuk process scanner pada dasarnya adalah teknik enumerasi<br />
seluruh proses yang sedang berjalan pada Sistem Operasi, lalu mencari<br />
letak atau lokasi file dan melakukan proses scanning. Fitur akses<br />
registry memungkinkan kita untuk mengedit secara langsung registry<br />
windows apabila akses terhadap registry (–Regedit) diblok oleh virus.<br />
Sedangkan fitur RTP memungkinkan AV kita berjalan secara simultan<br />
dengan windows explorer untuk mengscan direktori atau file yang sedang<br />
kita browse atau lihat. Untuk ketiga fitur lanjutan ini akan dibahas<br />
pada artikel selanjutnya.<br />
<br />
<br />
Kesimpulan#<br />
<br />
Tidak harus membeli software AV yang mahal untuk menjaga komputer kita<br />
dari ancaman virus, kita bisa membuatnya sendiri dengan fitur-fitur<br />
yang tak kalah bagusnya. Memang terdapat ketidaksempurnaan dalam AV<br />
buatan sendiri ini, tetapi setidaknya dapat dijadikan pencegah dari<br />
infeksi virus komputer yang semakin merajalela. Software AV sederhana<br />
ini dilengkapi oleh engine scanner statis dan database definisi. Tidak<br />
tertutup kemungkinan software AV ini ditingkatkan lebih advanced dalam<br />
hal engine scannernya.</b></span></div><div style="background-color: black; color: white; text-align: center;"><br />
</div><div style="background-color: black; color: white; text-align: left;"> NB; Jika belum punya Sotfware VB 6</div><div style="background-color: black; color: white; text-align: left;">saya menyediakan Microsoft Visual Basic 6 [Enterprise Edition] ukuran File 130.38mb</div><div style="background-color: black; color: white; text-align: left;">klik <a href="http://v5.indowebster.com/downloads/dgdfdg/y3q5s4n4j5s524n434j4i4c4e5w2r2742424/1">Download Ms Visual Basic 6.0 Enterprise</a></div><div style="background-color: black; color: white; text-align: center;"><span style="font-size: small;"><b><br />
</b></span></div><div style="background-color: black; color: white; text-align: center;"><br />
</div><div style="background-color: black; color: white; text-align: center;"><span style="font-size: small;"><b> </b></span></div><div style="background-color: black; color: white; text-align: center;"><span style="font-size: small;"><b> </b></span></div>Welcome To My Bloghttp://www.blogger.com/profile/10335197185680357409noreply@blogger.com0