Cara Memunculkan Run, Folder Options Dan Task Manager

Assalamualaikum..

Jika anda menemui Virus yang menghilangkan Run, Folder Options, bahkan menonaktifkan menu Task Manager. Tak perlu repot saya akan membantu anda yang tak tau bagaimana memunculkannya kembali.

Langka awalnya adalah:

1. Buka Menu Explorer
2. Masuk ke drive system, misalnya System anda pada drive C
3. Klick Windows – system32
4. Cari nama Gpedit atau Gpedit.exe
5. Jalankan file tersebut data kemudian Klick User Configuration
6. Pilih Administrative Templates
7. Lalu pilih Start Menu And Taskbar
8. Cari Tulisan Remove Run Menu From Start Menu
9. Klick kanan lalu Properties dan pilih Disabled
10. Kemudian Ok dan Refresh komputer anda
Lihat apakah Run anda sudah kembali seperti semula jika sudah jangan tutup Gpedit tadi karena saya akan memberi tau bagaimana memunculkan Task Manager.

Langkah – langkah:

1. Sama seperti cara diatas, masuk ke User Configuration
2. Pilih Administrative Templates
3. Klick System
4. Klick Ctrl+Alt+Del Options
5. Klick kanan lalu Properties dan pilih disabled untuk mengaktifkan dan enabled untuk menghilangkan Task Manager
6. Klick Ok dan refresh komputer anda

Kemudian lihat apa Task Magernya sudah mucul, kemudian langkah yang harus anda lakukan jika ingin Folder Optionsnya muncul adalah

1. Masuk ke User Configuration dari menu gpedit.msc
2. Pilih Administrative Templates
3. Kemudian Masuk kemenu Windows Components
4. Pilih Windows Explorer
5. Cari Removes The Folder Options Menu Item From The Tools menu
6. Klick kanan lalu Properties dan pilih disabled
7. Klick Ok dan refresh komputer anda


Ok Seepp...



 





Sumber

Portable Editor Software | GiliSoft SlideShow Movie Creator Pro 4.5


GiliSoft Pencipta Film SlideShow adalah mudah digunakan namun foto slide software.With kuat itu, Anda dapat menggabungkan foto Anda ke dalam video dengan musik dan efek transisi 2D/3D untuk berbagi dengan teman-teman Anda, dan Anda dapat dengan mudah mengubah koleksi foto Anda ke video pribadi dalam format AVI, MPEG, WMV, DivX, MP4, H.264/AVC, AVCHD, MKV, RM, MOV, XviD atau 3GP.

Mudah-beroperasi dengan antarmuka yang ramah, Anda diaktifkan untuk membuat video foto lebih personal dengan menambahkan latar belakang musik dari audio diimpor, menambahkan efek transisi antara gambar, mengatur urutan orientasi dan menampilkan foto-foto yang diimpor dan dll Apa yang dapat Anda bayangkan , Anda dapat memiliki semua itu dengan Pencipta Slideshow GiliSoft Film.

Fitur dan Manfaat:

• Dukungan Format Beberapa Foto
Dukungan format beberapa gambar, termasuk jpg, jpeg, png, bmp.

• Jauhkan foto apsect
Dukungan otomatis menambahkan area hitam untuk menjaga aspek foto asli.

• Mudah untuk mengedit foto
Anda dapat menyesuaikan arah foto dan menambahkan deskripsi foto.

• Dukungan Berbagai Berkas Audio
Dukungan impor MP3, WAV, WMA, OGG, FLAC, M4A, file AU, bahkan dapat mengimpor format video yang didukung meliputi AVI, MPEG, WMV, MP4, FLV, MKV, H.264/MPEG-4 AVC, AVCHD, dll.

• Banyak efek transisi 2D/3D
Mendukung lebih dari 300 efek transisi video yang berbeda 2D/3D.

• User-defined header dan Trailer
Dukungan merancang header dan trailer video slideshow, Anda bisa memilih gambar atau klip video sebagai materi.

• Pratinjau Instan dan Nyaman
Mendukung real-time tayangan slide foto pratinjau, Anda dapat melihat perubahan pengaturan.

• Dukungan untuk format ekspor berbagai video
Dukungan video mengekspor dalam format AVI, MPEG, WMV, DivX, MP4, H.264/AVC, AVCHD, MKV, RMVB, MOV, XviD atau 3GP.

Home Page - http://www.gilisoft.com/product-slideshow-creator.htm

Click Here To Download Password

Click here to download Portable Utillities Software - Privacy Eraser Pro v9.0

Portable Converter Software | CloneDVD mobile 1.8.0.2 Beta Multilingual


CloneDVD ponsel mengkonversi film DVD Anda dengan cepat dan mudah ke format yang perangkat mobile Sony PSP, Apple iPod Video, X5 iAudio, Creative Labs ZEN Vision, dll) bisa bermain. Anda juga dapat mengkonversi DVD anda ke format file lainnya, seperti DivX, XviD, AVI, MP4, dll Dengan ponsel CloneDVD Anda dapat menempatkan film favorit Anda atau serial TV pada peralatan mobile video Anda dan menonton mereka dimanapun dan kapanpun Anda inginkan.

Biarkan anak-anak menonton kartun favorit mereka di dalam mobil. Memasukkan interface user-friendly Elby yang CloneDVD dan proyek sumber terbuka direkayasa baik FFmpeg sebagai mesin konversi membuat CloneDVD mobile cepat, mudah digunakan dan kualitas produk yang sangat cukup murah. Menyalin DVD ke mesin mobile video Anda adalah dicapai dalam beberapa klik mouse dan tanpa perlu untuk rip ke hard-disk anda. Perhatikan bahwa menyalin DVD dilindungi juga memerlukan AnyDVD.

Fitur Mobile CloneDVD:
* Mengkonversi film DVD untuk bermain pada peralatan mobile video seperti Sony PSP, Apple iPod Video, X5 iAudio, Creative Labs ZEN Vision, dll
* Mengkonversi film DVD ke format file lain seperti DivX, XviD, AVI, MP4, dll
* Utilises kualitas gambar mesin konversi yang tinggi
* Mendukung multi-sudut film DVD
* Gambar Video menunjukkan ikhtisar dari semua judul DVD dipilih
* Sasaran bebas ukuran disesuaikan
* Mendukung bab pemangkasan
* Sangat mudah digunakan: asisten Filmstrip unik kami akan memandu Anda langkah-demi-langkah melalui semua pengaturan - mudah untuk pemula
* Gambar snapshot sementara mengubah
* Logging jendela tersedia
* Stabil, cepat dan tidak memerlukan driver ASPI

CloneDVD ponsel ini didukung oleh mencoder, proyek sumber terbuka baik-rekayasa. Informasi lebih lanjut tentang mencoder dapat ditemukan di situs Memasuki MPlayer.

Home Page - http://www.slysoft.com/en/

Click Here Download Password

Click here to download Portable Converter Software - CloneDVD mobile 1.8.0.2 Beta Multilingual

Portable Ripper Software | 1CLICK DVD Copy Pro 4.2.8.1


1CLICK DVD COPY - PRO ™ adalah perangkat lunak, mudah digunakan, cepat fitur penuh untuk menyalin film DVD ke cakram DVD. Versi terbaru sekarang menggabungkan teknologi CPRx ™ untuk memastikan tingkat keberhasilan tertinggi menyalin generasi terbaru dari film DVD. Anda sekarang memiliki kontrol penuh atas salinan akhir. Gunakan Presets Salin ™ atau fitur yang lebih canggih untuk memilih konten yang akan disalin dan berapa banyak kompresi akan digunakan. Dengan 1CLICK DVD COPY - PRO, Anda dapat membuat salinan sempurna dengan hanya satu klik.

Dalam rangka untuk menyalin DVD yang telah ditulis menggunakan skema baru, 1CLICK DVD COPY sekarang memanfaatkan keadaan teknologi seni untuk CPRx memastikan tingkat keberhasilan tertinggi saat membuat arsip cadangan. Sama seperti kita telah menjadi terbiasa mengandalkan software anti-virus untuk menjaga kita dilindungi terhadap virus terbaru, kita juga harus bergantung pada update baru CPRx untuk memastikan kami dapat menyalin DVD terbaru rilis. Dengan fitur pemberitahuan 1CLICK yang update, Anda dapat beristirahat yakin bahwa Anda akan diberitahu setiap kali versi baru dari software ini tersedia.

Fitur 1Click DVD Salin Pro:
• Windows Vista Kompatibel
• CPRx ™ teknologi untuk menyalin film DVD baru.
• Salin Presets ™ - Satu klik preset untuk setiap jenis menyalin DVD.
• Pratinjau film, dan menu tambahan.
• Sertakan atau mengecualikan film dan menu berbasis pada pratinjau.
• Pilih Audio individu, video, dan aliran sub judul.
• Mengontrol jumlah kompresi video yang digunakan.
• Membuat salinan cadangan tambahan tanpa re-menyalin DVD.
• Copy DVD Film episodik, TV Series, dll
• Salin film ke hard drive Anda - besar untuk laptop.
• Mendukung menyalin Multi-Channel Audio (Dolby Digital 5.1, DTS).
• Mendukung baik PAL NTSC dan DVD film.
• Mendukung Media Dual Layer.
• pembaruan perangkat lunak gratis dan dukungan teknis selama setahun.

Home Page - http://www.lgsoftwareinnovations.com

Click Here Download Password

Click here to download Portable Ripper Software - 1CLICK DVD Copy Pro 4.2.8.1

Saturday, January 7, 2012 Portable Utillities Software | Ixis Research Ltd 1st Security Agent 9.8


1 Agen Keamanan adalah sandi-dilindungi keamanan yang sangat baik utilitas untuk mengamankan komputer berbasis Windows. Ia bekerja di bawah platform Windows dan menawarkan dukungan administratif untuk mengontrol mana pengguna diperbolehkan untuk mengakses komputer Anda dan tingkat akses setiap pengguna dapat memiliki. Anda dapat memilih untuk membatasi akses ke banyak fungsi Control Panel applet, termasuk Tampilan, Jaringan, Sandi, Printers, Sistem, Add / Remove Programs, dll Anda juga dapat menetapkan folder sistem profil yang terpisah untuk tiap user, memberikan masing-masing dengan mereka sendiri kustom Desktop, Start Menu, Favorit, My Documents, dll

Selain itu, Anda dapat: menonaktifkan Mulai item Menu, kunci lokal, jaringan dan drive USB, menonaktifkan prompt DOS, kunci boot, nyata modus DOS, mengedit Registry, taskbar, task manager, dan akses jaringan, menyembunyikan ikon desktop, dan banyak lagi. Anda dapat menerapkan proteksi password untuk Windows dan membatasi pengguna untuk menjalankan aplikasi tertentu saja. Pembatasan keamanan dapat diterapkan secara universal atau hanya untuk pengguna tertentu. 1 Security Agent juga mendukung keamanan Internet Explorer yang memungkinkan Anda untuk menyesuaikan banyak aspek dari Web browser Internet Explorer. Ini memungkinkan Anda menonaktifkan item menu individu, mencegah orang lain dari mengedit Favorit Anda, tab menonaktifkan individu dalam dialog Internet Options, serta pengaturan khusus dari setiap tab. 1 Agen Keamanan memungkinkan Anda untuk mengimpor dan mengekspor pengaturan keamanan PC, dan menawarkan proteksi password yang fleksibel dan lengkap. Anda akan menemukan antarmuka program yang sangat mudah untuk bernegosiasi. Bantuan online yang sangat baik tersedia.

Halaman-http://www.softheap.com/newadmin.html

Click Here Download Password

Click here to download Portable Utillities Software - Ixis Research Ltd 1st Security Agent 9.8

Portable programmer | VB Decompiler Pro 8.3 retail


VB Decompiler decompiler untuk program (EXE, DLL atau OCX) ditulis dalam Visual Basic 5.0 dan 6.0 dan Disassembler untuk program yang ditulis pada. Teknologi NET. Seperti yang Anda ketahui, program dalam Visual Basic dapat dikompilasi menjadi kode ditafsirkan-p atau ke kode asli. . NET perakitan selalu disusun hanya dalam kode IL compilable waktu.

Sejak p-kode terdiri dari perintah tingkat tinggi, ada kemungkinan nyata untuk mendekompilasi ke kode sumber (tentu saja, nama-nama variabel dan beberapa fungsi tidak akan decompiled). VB Decompiler mengembalikan kode sumber dari p-kode sebanyak mungkin tepat. Dan setelah beberapa modifikasi Anda dapat mencoba untuk mengkompilasi kode yang dihasilkan.

Jika sebuah program telah dikompilasi ke kode asli, memulihkan kode sumber lengkap dari instruksi mesin tidak mungkin. Tapi Decompiler VB dapat membantu untuk menganalisis program bahkan dalam situasi ini juga. Ini berisi disassembler yang kuat dan emulator. Ini mesin kuat mencoba untuk memecahkan kode instruksi assembler yang paling bagi sebagian perintah VB mungkin. Tentu saja, ia gagal pada beberapa optimasi kode assembler dan kadang-kadang menghasilkan instruksi tidak benar. Tetapi saat ini ini adalah cara terbaik untuk menganalisis kode asli aplikasi.

Jika suatu program disusun untuk perakitan NET., Decompiler akan pemulihan semua tabel dan modul dalam perakitan dikelola dan membongkar semua metode, fungsi dan peristiwa menggunakan disassembler IL. . NET Framework tidak diperlukan untuk dekompilasi. Dekompilasi didukung pada semua sistem operasi 32 bit Windows.

Fitur:
»Universal membongkar untuk aplikasi dikemas (UPX didukung, NSPack dan lebih populer lainnya EXE packers)
»Bentuk decompiling (FRM dan frx) dan usercontrols (CTL) file objek
»Sepenuhnya p-kode decompiling (dengan parsing opcode instruksi standart vb, dengan objek mendekompilasi GUID)
»2 p-kode decompiling mode (dengan parsing stack atau tumpukan tanpa parsing)
»Disassembling prosedur kode asli
»Disassembling prosedur kode asli dengan Referensi String dan Panggilan API
»Sebagian decompiling kode asli (menggunakan mesin kode emulasi)
»Sintaks mewarnai dalam kode decompiled
»String daftar referensi dan mesin pencari
»Decompiling Fast speed
»Obfuscator untuk VB5 / 6 program
»Patcher untuk VB5 / 6 program
»Simpan data decompiled ke file DB tunggal
»Disassembling NET program.
»Simpan prosedur daftar ke file MAP, IDC script atau ke file Nama Hiew

OS: Win XP/2000/Vista/Win 7
Bahasa: Inggris


Klik Here Download passwork



Klik Here Download Software

Game Apple bertemu Android dengan HTML 5 | Pemakai Game HTML5

SAN FRANSISCO. Jalan yang harus ditempuh para programmer dulu sangatlah jelas. Begitu mulai membuat perangkat lunak (software) dengan nilai miliaran dolar, maka mereka harus memilih apakah membangunnya untuk Windows Microsoft Corp atau Mac Apple Inc.
Sekarang, pilihannya jauh lebih berbeda. Mobile platform seperti iOS Apple, Android Google Inc., dan Phone Windows semua menarik perhatian para programmer, sama dengan sistem operasi desktop dan aplikasi web seperti Facebook Inc. Tentu saja setiap platform membutuhkan waktu untuk membuatnya secara terpisah dan sering kali kemampuan yang berbeda juga.
Tantangan yang utama khususnya untuk pembuatan video games, di mana para pengguna iPhone berharap bisa berinteraksi dengan teman-teman mereka. Bahkan kalau pun para pengguna handphone itu menggunakan perangkat dengan sistem operasi yang berbeda.
Michael Carter, seorang teknisi perangkat lunak, mengatakan kepada Bloomberg sudah menemukan solusi masalah ini dengan membangun software dalam HTML 5.
Perusahaan Carter, Game Closure, membangun perangkat yang memungkinkan para developer game membuat ide jenius mereka dalam salah satu versi, kemudian memublikasikannya di mana pun. Misalnya pada Game Closure, siapa pun bisa bermain melawan teman-temannya dari kota lain dengan menggunakan Facebook, iPhone, atau tablet Android. “Itulah masa depan” ujar Carter.
Pada intinya, HTML 5 adalah sekumpulan standar yang mengizinkan web browsers mengerti animasi, video, grafis, dan konten multimedia yang lain tanpa mengunduh sebuah plug-in seperti Flash Adobe System Inc. Saat ini kebanyakan browser memang menggunakan plug in Flash untuk bisa menampilkan video web dan grafis. Tapi sebenarnya banyak ahli teknologi—termasuk almarhum Steve Jobs—mengkritisi Flash karena sangat tidak stabil dan menguras baterai.
Tujuan HTML 5, yang secara bertahap masuk ke dalam semua internet browsers termasuk handphone, membuat situs terasa seperti aplikasi-aplikasi yang diunduh secara langsung ke dalam sebuah handphone atau desktop. Tapi sampai sekarang, hal ini kelihatannya hanya menjadi sebuah janji dari pada kenyataan.
Perubahan besar terjadi salah satunya karena pengaruh paksa dari iPad Apple dan iPhone, yang tidak mau menjalankan konten Flash.
Model pemrograman satu versi dalam Game Closure, bisa dipublikasikan di mana pun sangat menarik hati para pembuat game. Menurut sumber yang dekat dengan para pihak yang melakukan negosiasi, salah satunya yang berminat adalah perusahaan game sosial Zynga Inc, yang menawarkan US$ 100 juta dolar untuk membeli startup.
“Kami pasti menjauhi pembayaran yang cukup besar seperti itu,” hindar Carter. “Tetapi kami memiliki visi yang besar untuk pengembangan game,” tambahnya.
Carter sendiri sudah mendapatkan US$ 12 juta dari jaringan ventura yang dipimpin oleh Highland Capital untuk membangun perusahaannya. Ia pun berencana bisa mendapatkan uang dengan memberikan lisensi teknologi atau persetujuan bagi hasil kepada siapa pun yang menggunakannya.
Zynga sendiri sudah merekrut para teknisi program HTML 5 sendiri. Zynga pun meluncurkan game dengan versi HTML 5 untuk mobile websitenya tahun lalu. Sementara di awal Februari ini International Business Machines Corp. membeli Worklight Inc., sebuah perusahaan pengembang untuk menciptakan aplikasi bisnis berbasis HTML 5 untuk handphone dan tablet.
“Kami berada dalam titik perubahan teknologi,” ujar Tom Conrad, Wakil Presiden Eksekutif untuk produk pada situs music-streaming Pandora Media Inc. yang membangun kembali website utamanya dengan HTML 5 di tahun 2011.
Karena penggunaan HTML 5 telah meluas, para teknisi perangkat lunak yang ahli HTML 5 pun menjadi bahan rebutan. “Tanya saja seorang perekrut dan mintalah seorang yang ahli. Kita lihat butuh waktu berapa lama,” ujar Adam Miller, CEO Cornerstone on Demand Inc., yang membangun aplikasi untuk pengelola sumber daya manusia. Para programmer HTML ini mampu menghasilkan sebanyak US$ 250 per jam.
Beberapa orang khawatir serbuan HTML 5 ini mungkin malah menjadikan para programmer membuat software dengan buruk. Ide utama HTML 5 berupa universal, mungkin juga mematahkan semangat para pengembang untuk menyesuaikan kode-kode yang mereka buat untuk disesuaikan dengan kemampuan perangkat. Misalnya, tidak semua telepon memiliki accelerometer yang mampu mendeteksi kemiringan.
“HTML 5 sejauh ini merupakan penyebut umum terbesar yang pernah ditemukan,” ujar Phil Libin, CEO Evernote Corp., sebuah aplikasi untuk pembuat catatan.



Sumber

Hacker Sadap Percakapan Teleconference FBI


Washington Kelompok peretas komputer atau yang akrab disebut hacker, bernama 'Anonymous', merilis rekaman percakapan antara FBI dengan Scotland Yard, sebutan bagi Kepolisian Metropolitan London. Dalam percakapan tersebut, kedua pihak tengah membahas soal operasi penangkapan para hacker.

Rekaman percakapan antara seorang anggota Scotland Yard bernama Stuart dengan seorang agen FBI bernama Bruce tersebut dilakukan secara teleconference. Rekaman yang berdurasi 17 menit tersebut telah diunggah ke situs Youtube dan sejumlah situs lainnya.

Dalam percakapan tersebut, anggota Scotland Yard dan agen FBI tengah membahas soal para hacker yang menjadi target operasi mereka. Disebutkan nama Jake Davis dan Ryan Cleary, 2 remaja Inggris yang merupakan hacker, yang ditangkap tahun lalu. Ada nama-nama lain juga yang disebut, namun tidak jelas.

Davis ditangkap karena meretas sejumlah situs pemerintah hingga tidak beroperasi selama beberapa jam. Sedangkan Clearly ditangkap terkait dengan aksi peretasan global yang dilakukan oleh kelompok hacker bernama Lulz Security, yang merupakan pecahan Anonymous. Masih dalam percakapan, anggota Scotland Yard mengucapkan terima kasih kepada agen FBI atas bantuannya dalam pemeriksaan data dalam hard drive milik Cleary.

Terhadap rekaman percakapan ini, FBI sendiri telah memastikan bahwa rekaman yang diunggah ke dunia maya tersebut adalah asli dan hanya ditujukan bagi aparat penegak hukum saja. Kelompok hacker 'Anonymous' dituding mendapatkan rekaman tersebut dengan cara ilegal.

"Sebuah investigasi kriminal tengah dilakukan untuk mengidentifikasi dan menangkap pihak-pihak yang bertanggung jawab, demikian tutur FBI dalam pernyataannya, seperti dilansir oleh AFP, Sabtu (4/2/2012).

Selain merilis rekaman percakapan tersebut, Anonymous juga memposting ke dunia maya sebuah undangan email dari seorang agen FBI kepada sejumlah aparat penegak hukum di kawasan Eropa, untuk melakukan teleconference pada 17 Januari lalu. Teleconference tersebut bertujuan untuk membahas investigasi yang tengah berlangsung terhadap kelompok hacker, seperti Anonymous, Lulzsec, Antisec dan kelompok lainnya.

Email tersebut diketahui dikirimkan kepada penegak hukum di Inggris, Prancis, Jerman, Irlandia, Belanda, dan Swedia. Namun hanya FBI dan Scotland Yard saja yang mengkonfirmasikan untuk mengikuti teleconference tersebut.

Sementara itu, kelompok Anonymous menyindir FBI melalui akun Twitter. "FBI pasti penasaran bagaimana kami bisa membaca komunikasi internal mereka dalam beberapa waktu saat ini," ucap Anonymous.

Kelompok 'Anynomous' merupakan kelompok hacker ternama di dunia yang tidak memiliki markas pusat. Hal ini yang membuat anggota-anggota mereka susah dilacak.

Bulan lalu, kelompok ini berhasil meretas dan mematikan situs FBI dan Departemen Kehakiman AS. Aksi ini merupakan pembalasan dari penutupan situs sharing, Megaupload. Beberapa waktu lalu, Anynomous juga meretas situs Kementerian Kehakiman Yunani dalam rangka memprotes reformasi kebijakan fiskal. Selain itu, Anynomous juga pernah meretas situs Kepolisian Boston, AS, operasi online Citibank, kemudian juga situs Amazon, Visa, MasterCard, PayPal, dan lain sebagainya.

(nvc/ndr)

 







Sumber

Tips & Trick Memanfaatkan Webcam Sebagai Security System

Memanfaatkan Webcam Sebagai Security System
Bagi anda yang memiliki laptop atau komputer dengan fasilitas webcam yang terpasang, dapat memanfaatkan kamera sebagai proteksi komputer anda.
Setelah anda install software maka saat anda tidak menggunakan komputer selama waktu yang ditentukan, maka komputer akan menguci system anda, dan anda dapat membuka komputer anda dengan menghadapkan wajah anda ke hadapan kamera, dan kamera webcam anda akan mendeteksi wajah anda, dan bila cocok dengan model yang telah ditetapkan, maka system komputer akan terbuka dengan sendirinya.
Cara menggunakan
1.Download dan Install programnya
2.Buka program dengan mengklik kanan icon tray yang ada di sebelah kanan bawah, lalu klik Setting.
3Pada jendela baru yang tampil anda akan melihat tampilan wajah anda di deteksi oleh webcam, pilih atur model yang anda inginkan (lihat gambar Panah 1).




4.Kemudian masukkan pasword login ke komputer anda pada kotak teks Your Windows Login (Lihat Gambar Panah 2)
5.Kemudian klik tombol Enrol Mode (Lihat Gambar Panah 3)
6.Untuk Mengatur Waktu yang diinginkan klik Menu Setting (lihat Gambar Obeng diatas)
7.Pada jendela baru Masukkan nilai waktu (dalam detik) yang anda inginkan pada kotak teks “Delay of inactivity before locking the session”
8.Lalu klik Tombol Save.
9.Misalkan anda mengatur waktu 5 ata 10 detik, maka dalam waktu tersebut komputer tidak digunakan maka komputer anda akan terkunci, untuk membuka system anda hadapkan wajah anda kehadapan kamera, 10.kamera akan mendeteksi wajah anda, dan bila tepat dengan model yang anda simpan tadi maka system akan terbuka dengan sendirinya.
Bila kamera tidak dapat mendeteksi wajah anda dengan tepat, jangan khawatir, anda dapat membuka system dengan memasukkan pasword login komputer anda.


Download 1

Download 2

Download 3

Semoga artikel ini bermanfaat untuk mempermudah komputer mengenali wajah sang empunya laptop



Sumber

Tips & Trick Komputer Lag ? Refresh RAM Dengan Notepad !

Komputer Lag ? Refresh RAM Dengan Notepad !
Pernah mengalami komputer hang / lag? ataupun berjalan lambat? Itu mungkin karena RAM komputer kalian sudah penuh / berat. Karena itu butuh di refresh. Lalu, bagaimana caranya refresh RAM? Saya mulai dengan penjelasan apa itu RAM

RAM (Random Access Memory) adalah satu komponen yang bertanggung jawah terhadap semua aktifitas sistem komputer. Semua proses aplikatif yang berjalan pada sistem akan tersimpan di dalam RAM, baik itu yg diperlukan ataupun tidak diperlukan oleh sistem komputer. Proses-proses yg tidak diperlukan oleh sistem inilah yg sering menyebabkan komputer berjalan lambat, error , ataupun nge hang/lag. Maka dari itu, kita perlu untuk selalu rutin menyegarkan kembali kinerja RAM. Masalahnya adalah anda butuh tools tertentu, atau menggunakan cara konvensional untuk menyegarkan RAM. nah, saya kali ini akan membahas bagaimana cara refresh RAM dgn hanya memakai notepad saja.

1. Buka Notepad
2. Copy-paste script ini ke dalam notepad :


FreeMem=(1280000000)
FreeMem=(2560000000)
FreeMem=(5120000000)
FreeMem=(10240000000)

3. Simpan script dengan format sebagai berikut:


File Name : RefreshRAM.vbs
Save as type : All Files

4. Klik save
5. Double Click RefreshRAM.vbs setiap kalian ingin refresh RAM


Tested by me, 100% Work and safe

Sumber

Tips & Trick Menggerakkan Pointer Mouse Dengan Mata

Menggerakkan Pointer Mouse Dengan Mata

Pernahkah anda dengar mouse tanpa kabel? Kelihatan gaya kan pakai mouse itu, tapi pastinya memerlukan kocek yang lebih dalam untuk membelinya. Nah bagaimana kalau nasib kita sedang kurang baik dan belum punya uang lebih, apakah anda akan putus asa untuk tidak menikmati fasilitas seperti itu? Saya harap janganlah terburu putus asa. Karena saya punya tips and trik menggerakkan Pointer tanpa mouse. Baru dengar? Simak artikel ini dengan baik-baik yah….hehehe

Saya sekarang memposting software yang berhubungan dengan mouse dan webcam. Dengan Software EViacam, kita bisa menggerakkan Pointer tanpa mouse, syaratnya PC anda harus terpasang webcam tentunya. Sekarang ini kan rata-rata setiap PC/Laptop ada webcamnya, tetapi kalau nggak ada ya tinggal beli yang eksternal saja. Banyak terceceran di toko, tinggal ditukar dengan uang dan selesai wkwkwkwk

Sekarang saya jelaskan bagaimana installasi software ini : sedot dulu om softwarenya pada link download dibawah kemudian ekstrak dahulu file-nya. Apabila proses ekstraksi selesai silahkan anda install softwarenya seperti biasa.

Sekarang cara penggunaanya : yang harus diperhatikan yaitu bentuk persegi yang dibatasi warna biru itu, karena pusat komando terletak disitu. Untuk enable penggunaan klik (V), untuk disable klik (X). untuk menggerakkan atau pengoprasian bisa dengan tangan, mata, kepala ataupun apa saja. Bisa anda coba sendiri lebih detailnya

Untuk yang tidak tahu bisa dianggap ini sulap. Hehe! Sudah saya alami ke teman saya, dikira saya punya kekuatan magic yang bisa menggerakkan Pointer tanpa mouse. Tapi jujur saya katakan, memang sulit untuk mengoprasikannya, tapi bisa dipelajari om. Buruuuan sedoooot! Ilmu baru ini, rasakan sendiri deh!

Download Eviacam

Share Tanda - tanda kalau kita sedang Jatuh Cinta !!!

Ini lah tanda-tanda yg saya perhatikan selalu, bagaimana tanda kalau orang lagi jatuh cinta, dan kali ini Saya akan berbagi dikit info kepada pembaca setia Klik-Xp
,Ok Langsung Aja ya ke TEKAPE

1. Kamu melihat ada sesuatu yang berbeda dalam diri dia yang menarik untuk ditelusuri
2. Merasa ada sesuatu yang menggelitik dari dalam diri kita
3. Suka senyum-senyum atau ketawa-ketawa sendiri nggak jelas
4. Suka curi-curi pandang ke arah dia ( Betul )
5. Kalo dia lagi ngeliat ke arah kita, jantung rasanya kayak mau copot
6. Salah tingkah di depan dia
7. Nggak sadar suka mempermalukan diri sendiri
8. Berkeliaran di dekat dia terusss
9. Suka ngelamun
10. Mengkhayal yang indah-indah tentang kamu dan dia
11. Nggak nafsu makan
12. Mendadak jadi insomnia alias susah tidur
13. Isi diarymu seputar dia, dia, dia, diaaaaa terusss
14. Sering dengerin lagu mellow yang liriknya about love melulu
15. Jadi care sama penampilan dan berusaha tampil keren terus di depan dia
16. Seneng banget ngira-ngira lewat ramalan bintang
17. Bentar-bentar ngaca
18. Nyari tahu segalanya tentang dia, termasuk no telpon neneknya
19. Deketin sobatnya, buka akses langsung ke dia
20. Diam-2 motret dia pake HP terus kamu jadiin wallpaper
21. Hobi nulis-2 namanya di setiap lahan kosong yang bisa kamu coretin
22. Pelototin foto dia terusss
23. Jadi ja’im berat kalo di deket dia
24. Badan semerbak mewangi sana sini tralala trilili
25. Kalo dia negur, rasanya kayak kesetrum
26. Bela-belain bangun pagi buat bikin bekal untuk dikasih ke dia
27. Nyimpenin sms dari dia
28. Setia nunggu dia nelpon meskipun dia nggak janji mau nelpon
29. Sok jual mahal kalo dideketin, tapi kalo dia nggak ada kelabakan sendiri
30. Meng-iya kan apapun maunya dia, biarpun kamunya nggak suka
31. Bilangnya Cuma nganggep temen, padahal mau kesengsem berat
32. Pusing mikirin cara gimana ngajak dia nonton setelah sengaja beli tiket dua
33. Rela nyisihin uang jajan untuk beli hadiah ulang tahun dia
34. Nyari kartu valentine paling romantis buat dia
35. Selalu memuji segala hal tentang dia
36. Beli buku-buku psikologi tentang cinta dan dipraktekin satu-satu
37. Satu senyuman dari dia bikin kamu mengira-ngira seribu maknanya
38. Rajin sms-in kabar dia
39. Pura-pura minjem buku padahal kita nggak perlu buku itu
40. Minjemin CD terbaru supaya kamu ada alasan buat ke rumah dia ngambil CD ( Aneh kalo yg ini )
41. Pas ketemu mata sama dia, muka serasa jadi kayak kepiting rebus
42. Mati-matian nyari topik supaya obrolanmu nggak bisa basi kalo lagi sama dia
43. Mencatat semua tanggal ketemuan, isi obrolan, dan resume-nya di diary
44. Menyukai hal-hal yang dia sukai
45. Jadi teman yang baik dan penuh perhatian saat dia lagi punya masalah
46. Nggak mempedulikan apapun kekurangan dia
47. Nggak bisa ngelupain dia sekalipun dia udah ngecewain berat
48. Bener-bener sedih kalo dia lagi nggak ada
49. Jadi anak paling rajin yang pernah dia temui
50. Waktu baca Thread ini kamu keingetan si dia. Asli deh kamu lagi jatuh cinta sama si dia.


Gimana Pembaca setia Klik-Xp
mingkin Aneh ya, Ok Lah Saya Pamit Dulu..
Label: Zona Lovely

Info Mengenal Jenis-Jenis Malware

Mengenal Jenis-Jenis Malware

Malware adalah program komputer yang diciptakan dengan maksud dan tujuan utama mencari kelemahan software. Umumnya Malware diciptakan untuk membobol atau merusak suatu software atau operating sistem.
Contoh dari malware adalah sebagai berikut:

1.Virus
Inilah istilah yang sering dipakai untuk seluruh jenis perangkat lunak yang mengganggu computer. Bisa jadi karena inilah tipe malware pertama yang muncul. Virus bisa bersarang di banyak tipe file. Tapi boleh dibilang, target utama virus adalah file yang bisa dijalankan seperti EXE, COM dan VBS, yang menjadi bagian dari suatu perangkat lunak. Boot sector juga sering dijadikan sasaran virus untuk bersarang. Beberapa file dokumen juga bisa dijadikan sarang oleh virus. Penyebaran ke komputer lain dilakukan dengan bantuan pengguna komputer. Saat file yang terinfeksi dijalankan di komputer lain, kemungkinan besar komputer lain itu akan terinfeksi pula. Virus mencari file lain yang bisa diserangnya dan kemudian bersarang di sana. Bisa juga virus menyebar melalui jaringan peer-to-peer yang sudah tak asing digunakan orang untuk berbagi file.

Virus masih dapat dibagi lagi dalam beberapa kategori:

Boot Virus: Jika komputer dinyalakan, sebuah inisial program di boot sector akan dijalankan. Virus yang berada di boot sector disebut boot virus.

File Virus: File virus adalah virus yang menginfeksi executable program. Dilaporkan bahwa hampir 80% virus adalah file virus.

Multipartite Virus: Virus yang menginfeksi baik boot sector dan file.

Macro Virus: Belakangan diketemukan. Targetnya bukan executable program, tetapi file dokument seperti Microsoft Excel atau Word. Ia akan memulai menginfeksi bila program aplikasi membaca dokumen yang berisi macro.

2.Worm
Worm ditujukan kepada program yang mengkopi dirinya sendiri ke HANYA memory komputer. Perbedaan mendasar dari worm dan virus adalah, apakah menginfeksi target code atau tidak. Virus menginfeksi target code, tetapi worm tidak. Worm hanya ngendon di memory. Worm pada awalnya diketemukan di large computer (1970-an), dan akhir- akhir ini saja diketemukan di komputer kecil seperti PC. Terutama sejak 1999, dimana work banyak beredar melalui media email.
Hebatnya lagi, worm bisa saja tidak memerlukan bantuan orang untuk penyebarannya. Melalui jaringan, worm (cacing) bisa “bertelur” di komputer-komputer yang terhubung dalam suatu kerapuhan (vulnerability) dari suatu sistem, biasanya sistem operasi. Setelah masuk ke dalam suatu komputer, worm memodifikasi beberapa pengaturan di sistem operasi agar tetap hidup. Minimal, ia memasukkan diri dalam proses boot suatu komputer. Lainnya, mungkin mematikan akses ke situs antivirus, menonaktifkan fitur keamanan di sistem dan tindakan lain.

Contoh worm: I-Worm/Happy99(Ska), I-Worm/ExploreZIP, I-Worm/PrettyPark, I-Worm/MyPics

3.Wabbit
Istilah ini mungkin asing, tapi memang ada malware tipe ini. Seperti worm, wabbit tidak membutuhkan suatu program dan dokumen untuk bersarang. Tetapi berbeda dengan worm yang menyebarkan diri ke komputer lain menggunakan jaringan, wabbit menggandakan diri secara terus-menerus didalam sebuah komputer lokal dan hasil penggandaan itu akan menggerogoti sistem. Kinerja komputer akan melambat karena wabbit memakan sumber data yang lumayan banyak. Selain memperlambat kinerja komputer karena penggunaan sumber daya itu, wabbit bisa deprogram untuk memiliki efek samping yang efeknya mirip dengan malware lain. Kombinasi-kombinasi malware seperti inilah yang bisa sangat berbahaya.

4.Keylogger
Hati-hati kalau berinternet di warnet. Bisa saja pada komputer di warnet itu diinstall suatu perangkat lunak yang dikenal dengan istilah keylogger yang mencatat semua tekanan tombol keyboard. Catatan yang disimpan dalam suatu file yang bisa dilihat kemudian itu lengkap. Di dalamnya bisa terdapat informasi seperti aplikasi tempat penekanan tombol dilakukan dan waktu penekanan. Dengan cara ini, seseorang bisa mengetahui username, password dan berbagai informasi lain yang dimasukkan dengan cara pengetikan.

Pada tingkat yang lebih canggih, keylogger mengirimkan log yang biasanya berupa file teks itu ke seseorang. Tentu saja itu dilakukan tanpa sepengetahuan si korban. Pada tingkat ini pula keylogger bisa mengaktifkan diri ketika pengguna komputer melakukan tindakan tertentu. Misalnya begini. Ketika pengguna komputer membuka situs e-banking, keylogger aktif dan mencatat semua tekanan pada keylogger aktif dan mencatat semua tekanan pada keyboard aktif dan mencatat semua tekanan pada keyboard di situs itu dengan harapan nomor PIN dapat dicatat. Keylogger ini cukup berbahaya karena secanggih apa pun enkripsi yang diterapkan oleh suatu website, password tetap dapat diambil. Pasalnya, password itu diambil sebelum sempat dienkripsi oleh system. Jelas dong. Keylogger merekam sesaat setelah password diketikkan dan belum diproses oleh system.


5.Browser Hijacker
Browser hijacker mengarahkan browser yang seharusnya menampilkan situs yang sesuai dengan alamat yang dimasukkan ke situs lain. Itu contoh paling parah dari gangguan yang disebabkan oleh browser hijacker. Contoh lain yang bisa dilakukan oleh pembajak ini adalah menambahkan bookmark, mengganti home page, serta mengubah pengaturan browser. Bicara mengenai browser di sini boleh yakin 100% browser yang dibicarakan adalah internet explorer. Selain karena internet explorer adalah buatan Microsoft, raksasa penghasil perangkat lunak yang produknya sering dijadikan sasaran serangan cracker, internet explorer adalah browser yang paling banyak digunakan orang berinternet. Tak heran, internet explorer telah menyatu dengan Windows, sistem operasi milik Microsoft yang juga banyak diserbu oleh cracker.

6.Trojan Horse
Kuda Troya adalah malware yang seolah-olah merupakan program yang berguna, menghibur dan menyelamatkan, padahal di balik itu, ia merusak. Kuda ini bisa ditunggangi oleh malware lain seperti seperti virus, worm, spyware. Kuda yang satu ini dapat digunakan untuk menyebarkan atau mengaktifkan mereka. Trojan Horse tidak dapat memproduksi diri sendiri. Pada umumnya, mereka dibawa oleh utility program lainnya. Utility program tersebut mengandung dirinya, atau Trojan Horse itu sendiri ber”lagak” sebagai utility program.

Contoh Trojan Horse: Win-Trojan/Back Orifice, Win-Trojan/SubSeven, Win-Trojan/Ecokys(Korean)

Trojan Horse masih dapat dibagi lagi menjadi:
DOS Trojan Horse: Trojan Horse yang berjalan di DOS. Ia mengurangi kecepatan komputer atau menghapus file-file pada hari atau situasi tertentu.
Windows Trojan Horse: Dijalankan di system Microsoft Windows. Jumlah Windows Trojan Horse meningkat sejak 1998 dan digunakan sebagai program untuk hacking dengan tujuan jahat yang dapat mengkoleksi informasi dari komputer yang tersambung internet.


7.Spyware
Spyware adalah perangkat lunak yang mengumpulkan dan mengirim informasi tentang pengguna komputer tanpa diketahui oleh si pengguna itu. Informasinya bisa yang tidak terlampau berbahaya seperti pola berkomputer, terutama berinternet, seseorang sampai yang berbahaya seperti nomor kartu kredit, PIN untuk perbankan elektronik (e-banking) dan password suatu account. Informasi tentang pola berinternet, telah disebutkan, tidak terlampau berbahaya. Situs yang dikunjungi, informasi yang kerap dicari, obrolan di ruang chat akan dimata-matai oleh si spyware. Selanjutnya, informasi itu digunakan untuk menampilkan iklan yang biasanya berupa jendela pop-up. Iklan itu berhubungan dengan kebiasaan seseorang berinternet. Misalnya kerap kali seseorang mencari informasi mengenai kamera digital. Jendela pop-up yang muncul akan menampilkan, misalnya situs yang berdagang kamera digital. Adware adalah istilah untuk spyware yang begini. Penyebaran spyware mirip dengan Trojan. Contohnya, flashget. Ketika flashget yang dipakai belum diregister, flashget bertindak sebagai spyware. Coba saja hubungkan diri ke internet, jalankan flashget yang belum diregister, cuekin computer beberapa saat, pasti muncul jendela internet explorer yang menampilkan iklan suatu situs.

8.Backdoor
Sesuai namanya, ini ibarat lewat jalan pintas melalui pintu belakang.Dengan melanggar prosedur, malware berusaha masuk ke dalam sistem untuk mengakses sumber daya serta file. Berdasarkan cara bekerja dan perilaku penyebarannya, backdoor dibagi menjadi 2 grup. Grup pertama mirip dengan Kuda Troya. Mereka secara manual dimasukkan ke dalam suatu file program pada perangkat lunak dan kemudian ketika perangkat lunak itu diinstall, mereka menyebar. Grup yang kedua mirip dengan worm. Backdoor dalam grup ini dijalankan sebagai bagian dari proses boot. Ratware adalah sebutan untuk backdoor yang mengubah komputer menjadi zombie yang mengirim spam. Backdoor lain mampu mengacaukan lalu lintas jaringan, melakukan brute force untuk meng-crack password dan enkripsi., dan mendistribusikan serangan distributed denial of service.


9.Dialer
Andaikata komputer yang digunakan, tidak ada hujan atau badai, berusaha menghubungkan diri ke internet padahal tak ada satu pun perangkat lunak yang dijalankan membutuhkan koneksi, maka layaklah bercuriga. Komputer kemungkinan telah terjangkit oleh malware yang terkenal dengan istilah dialer. Dialer menghubungkan computer ke internet guna mengirim kan informasi yang didapat oleh keylogger, spyware tahu malware lain ke si seseorang yang memang bertujuan demikian. Dia dan penyedia jasa teleponlah yang paling diuntungkan dengan dialer ini.

10.Exploit dan Rootkit
Kedua perangkat ini bisa dibilang malware bisa pula tidak. Kenapa begitu? Penjelasannya kira-kira begini.
Exploit adalah perangkat lunak yang menyerang kerapuhan keamanan (security vulnerability) yang spesifik namun tidak selalu bertujuan untuk melancarkan aksi yang tidak diinginkan. Banyak peneliti keamanan komputer menggunakan exploit untuk mendemonstrasikan bahwa suatu sistem memiliki kerapuhan. Memang ada badan peneliti yang bekerja sama dengan produsen perangkat lunak. Peneliti itu bertugas mencari kerapuhan dari sebuah perangkat lunak dan kalau mereka menemukannya, mereka melaporkan hasil temuan ke si produsen agar si produsen dapat mengambil tindakan. Namun begitu exploit kadang menjadi bagian dari suatu malware yang bertugas menyerang kerapuhan keamanan.
Label: Pengetahuan

Hacker Curi 1 Juta Informasi Pengguna YouPorn (Wew kk wew, Horor Mode On)

Ringkasan ini tidak tersedia. Harap klik di sini untuk melihat postingan.

Tips & Trick Tips Menghindari Mata Lelah Saat Meggunakan Kumputer

Tips Menghindari Mata Lelah Saat Meggunakan Kumputer
1.jaga jarak pandangan
berada terlalu dekat dengan monitor memang sedikit membahayakan bagi mata kita. Seharusnya kita menjaga jarak pandang ke monitor kita dengan baik. Jarak yang disarankan adalah sekitar 20-40 inchi (50-100cm) dari mata. Jika kita masih kesulitan membaca padahal monitor sudah berada pada jarak 20 inchi, cobalah untuk memperbesar font kita hingga kita merasa nyaman

2.singkirkan crt, beralih ke lcd
monitor tabung (crt) memang memberi efek yang lebih buruk dibanding lcd, selain energi yang dibutuhkan juga lebih besar. Cobalah mengganti monitor crt kita dengan lcd. Namun harga monitor lcd memang lebih mahal dibanding crt. Bagi kita yang masih menyeyangi monitor crt, ada baiknya kita membeli filter anti-radiasi. Ini adalah solusi untuk mengurangi rasa nyeri mata akibat duduk berlama-lama di depan monitor, namun dengan harga yang murah.

3.sesuaikan setting monitor
beberapa monitor yang ada sekarang banyak menyediakan pre-set display mode, untuk memudahkan pengguna mengganti setting layar mereka. Pre-set setting tersebut memberi level brightnes yang berbeda, untuk menyesuaikan kondisi penggunaan monitor. Adakalanya manfaatkan hal tersebut. Misal settingan seperti, “text” atau “internet” akan terasa lebih sejuk di mata, saat kita gunakan untuk mengetik ataupun browsing. Setingan “game” atau “movie” akan terlihat lebih terang saat digunakan.

4.gunakan kacamata anti radiasi
walau hal ini membutuhkan biaya yang relatif lebih mahal, namun ada baiknya saat memiliki cukup uang kita membeli kacamata anti-radiasi. Selain bisa dibawa kemanapun kita bekerja, kacamata ini tak hanya berguna saat kita bekerja di depan monitor, namun juga melindungi mata dari cahaya lampu mobil, radiasi tv, dan sebagainya. Faktanya lapisan anti-radiasi pada kacamata tersebut, sangat berguna bagi mata kita. Karena lapisan tersebut secara otomatis mengurangi efek nyeri di mata akibat radiasi cahaya berlebih.

5.mengistirahatkan mata sejenak, secara berkala
cara termudah menghindari mata lelah akibat radiasi monitor adalah mengistirahatkannya secara berkala. Cobalah untuk mengistirahatkan mata sekitar 5 menit tiap jamnya. Kita dapat menggunakan waktu 5 menit tersebut untuk berjalan-jalan, melihat pemandangan, mencuci muka dan sebagainya. Asalkan kita bisa menjauh dari monitor.

6.berkedip
Mungkin Anda akan menertawakan hal ini, masak menggunakan komputer sampai tidak berkedip? Perlu di ingat kembali bahwa dengan berkedip mata akan terlumasi oleh cairan mata. Hal ini akan lebih meringankan dan melemaskan otot-otot di sekitar mata.

7. Lihatlah keluar jendela
Agar mata Anda tidak terlalu tegang menatap lama-lama komputer atau laptop, ada baiknya sesekali Anda melihat keluar jendela. Hal ini akan membantu mata Anda menyesuaikan kembali jarak pandang Anda. Sebab, terlalu berlama-lama melihat dalam jarak dekat dapat menyebabkan kemampuan penglihatan jarak jauh Anda berkurang. So, sekali-kali lihatkan keluar jendela, nikmati pohon-pohon yang tumbuh nan jauh disana.



Sumber

Info Tujuh Tanda Pria (Serius) Jatuh Cinta

Wkwkwkwkwkwk....bagi kalian yg ngin tau apakah Pria/Pacar anda serius dgn Anda, Anda pun bisa melihat tanda2 yg saya slalu perhatikan, ini lah tanda2 yg saya akan kasih tau ALA Klik-Xp


Pria memang selalu bersikap manis saat berhadapan dengan wanita pujaannya. Namun apakah ia benar-benar jatuh cinta?

Berikut tujuh tanda pria benar-benar jatuh cinta:

1. Membawakan barang-barang
Pria selalu ingin berlagak bak pahlawan di depan pujaannya. Saat ia jatuh cinta, pria tak ingin melihat wanitanya kesulitan. Hal-hal kecil seperti membawa barang bawaan atau belanjaan akan dilakukannya.

2. Selalu melihat pasangannya sempurna
Ketika sang pria selalu menganggap pasangannya sempurna, bahkan dalam keadaan berkeringat dengan penampilan seadanya, itulah tandanya bahwa ia benar-benar jatuh cinta. Bukan ketertarikan fisik semata.

3. Membantu tanpa diminta
Jika pria tanpa diminta selalu membantu kesulitan pasangannya, itu adalah salah satu tanda ia benar-benar jatuh cinta. Hal ini bukan hanya karena sang pria ingin dianggap sempurna, namun juga berarti bahwa ia peka dan peduli akan kebutuhan pasangannya.

4. Mendengarkan semua keluhan
Saat seorang pria mau mendengarkan segala keluhan pasangannya dengan penuh perhatian dan kepedulian, itu adalah salah satu tanda ia serius jatuh cinta. Ia tak sekedar mendengar, tapi juga mampu mengeluarkan kata-kata manis yang membuat pasangannya tenang.

5. Memikirkan pasangan di setiap langkahnya
Tak perlu melihat hal-hal yang kecil, coba saja perhatikan saat si pria membuat kopi atau teh. Jika ia juga membuatkan, atau minimal menanyakan keinginan pasangannya, itu tandanya ia selalu memikirkan pasangannya di setiap langkahnya. Pria yang tengah jatuh cinta juga akan selalu memasukkan pujaan hatinya ke dalam rencana masa depannya.

6. 'Supir pribadi'
Si pria rela mengantar dan menjemput pasangannya walau itu berarti ia harus berjibaku dengan kemacetan jalan yang luar biasa. Namun demi memastikan keselamatan sang pujaan hati, ia rela melakukannya.

7. Memasak hanya untuk membuat pasangannya terkesan
Pria kerap menghindari pekerjaan yang dianggapnya terlalu merepotkan. Namun demi membuat pasangannya terkesan, memasak pun ia lakoni. Tak selalu harus memasak, jika ia telah berkorban melakukan hal-hal yang tidak ia kuasai demi wanitanya, itu sudah merupakan tanda ia tengah jatuh cinta.



Kalau berguna jgn lupa Coment ya brow /
Label: Zona Lovely

Membuat Anti Virus ALA Programmer Pemula (Wew)

Bagaimana sobat Klik-Xp sudah siap dgn Kejutan yg saya berikan ini, janji saya beberapa hari yg lalu untuk mengajari anda membuat Anti Virus sendiri, Ok...gw udh capek ngetik nich langsung aja ya ke TKP, ntar lama2 bisa NGAWUR lagi,,


Membuat Antivirus.
Buat Standart exe form 1 dengan caption "Antivirus"

Perhatikan langka berikut :
Pastikan anda membuat harus sama dengan teknik di bwh ini :

Begin VB.Form Antivirus
BackColor = &H00000000&
BorderStyle = 0 'None
Caption = "s0av Antivirus"
ClientHeight = 5970
ClientLeft = 3885
ClientTop = 2490
ClientWidth = 9945
ClipControls = 0 'False
BeginProperty Font
Name = "Fixedsys"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "Form1.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 5970
ScaleWidth = 9945
StartUpPosition = 2 'CenterScreen
Begin VB.Timer Timer2
Enabled = 0 'False
Interval = 500
Left = 240
Top = 5400
End
Begin VB.Timer Timer1
Enabled = 0 'False
Interval = 1000
Left = 120
Top = 5280
End
Begin Project1.DMSXpButton cmdKarantina
Height = 375
Left = 5400
TabIndex = 17
ToolTipText = "Klik disini untuk memindahkan virus ke karantina."
Top = 5280
Width = 1335
_ExtentX = 2355
_ExtentY = 661
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Caption = "Karantina"
ForeColor = -2147483642
ForeHover = 192
End
Begin Project1.DMSXpButton cmdScan
Height = 375
Left = 2520
TabIndex = 13
ToolTipText = "Klik disini untuk memeriksa file."
Top = 5280
Width = 1335
_ExtentX = 2355
_ExtentY = 661
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Caption = "Scan"
ForeColor = -2147483642
ForeHover = 192
End
Begin Project1.DMSXpButton cmdHapus
Height = 375
Left = 3960
TabIndex = 12
ToolTipText = "Klik disini untuk menghapus virus yang terdeteksi."
Top = 5280
Width = 1335
_ExtentX = 2355
_ExtentY = 661
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Caption = "Hapus"
ForeColor = -2147483642
ForeHover = 192
End
Begin Project1.DMSXpButton cmdMenu
Height = 375
Left = 6840
TabIndex = 11
ToolTipText = "Klik disini untuk menjalankan menu tambahan."
Top = 5280
Width = 1335
_ExtentX = 2355
_ExtentY = 661
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Caption = "Menu"
ForeColor = -2147483642
ForeHover = 192
End
Begin Project1.DMSXpButton cmdKeluar
Height = 375
Left = 8280
TabIndex = 10
ToolTipText = "Klik disini untuk Keluar."
Top = 5280
Width = 1335
_ExtentX = 2355
_ExtentY = 661
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Caption = "Keluar"
ForeColor = -2147483642
ForeHover = 192
End
Begin MSComctlLib.ProgressBar ProgressBar1
Height = 255
Left = 3360
TabIndex = 8
Top = 2280
Width = 6255
_ExtentX = 11033
_ExtentY = 450
_Version = 393216
BorderStyle = 1
Appearance = 0
Scrolling = 1
End
Begin MSComctlLib.ListView ListView1
Height = 2295
Left = 360
TabIndex = 4
Top = 2760
Width = 9255
_ExtentX = 16325
_ExtentY = 4048
View = 3
LabelWrap = -1 'True
HideSelection = -1 'True
GridLines = -1 'True
HoverSelection = -1 'True
_Version = 393217
ForeColor = 192
BackColor = 12632256
BorderStyle = 1
Appearance = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
NumItems = 5
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = " "
Object.Width = 0
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 1
Text = "Nama Virus "
Object.Width = 3176
EndProperty
BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 2
Text = "Lokasi :"
Object.Width = 6528
EndProperty
BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 1
SubItemIndex = 3
Text = "Ukuran (byte)"
Object.Width = 2912
EndProperty
BeginProperty ColumnHeader(5) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 4
Text = "Keterangan"
Object.Width = 2911
EndProperty
End
Begin VB.Line Line4
BorderColor = &H0000FF00&
X1 = 8520
X2 = 8520
Y1 = 120
Y2 = 1200
End
Begin VB.Line Line3
BorderColor = &H0000FF00&
X1 = 8520
X2 = 1440
Y1 = 1200
Y2 = 1200
End
Begin VB.Line Line2
BorderColor = &H0000FF00&
X1 = 1440
X2 = 1440
Y1 = 120
Y2 = 1200
End
Begin VB.Label Label6
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Sobat Antivirus Army of System PC"
ForeColor = &H0000C000&
Height = 255
Left = 2280
TabIndex = 20
Top = 600
Width = 5415
End
Begin VB.Label Label5
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "s0av Antivirus Indonesia"
BeginProperty Font
Name = "Fixedsys"
Size = 18
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 615
Left = 720
TabIndex = 19
Top = 120
Width = 8775
End
Begin VB.Line Line1
BorderColor = &H00008000&
BorderWidth = 4
X1 = 0
X2 = 9960
Y1 = 1560
Y2 = 1560
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "Elapsed : 00:00:00"
BeginProperty Font
Name = "Tahoma"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 255
Left = 360
TabIndex = 18
Top = 5340
Width = 1815
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = ":"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 255
Left = 1680
TabIndex = 16
Top = 2040
Width = 135
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = ":"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 255
Left = 1680
TabIndex = 15
Top = 2280
Width = 135
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = ":"
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 255
Left = 1680
TabIndex = 14
Top = 1800
Width = 135
End
Begin VB.Label lblPercentComplete
Alignment = 1 'Right Justify
BackColor = &H00303030&
BackStyle = 0 'Transparent
Caption = "0 % Complete..."
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 255
Left = 7080
TabIndex = 9
Top = 2040
Width = 2535
End
Begin VB.Label status
BackColor = &H00303030&
BackStyle = 0 'Transparent
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 255
Left = 3360
TabIndex = 7
Top = 1800
Width = 6135
End
Begin VB.Label persen
BackColor = &H00303030&
BackStyle = 0 'Transparent
Caption = "Total File "
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 255
Left = 360
TabIndex = 6
Top = 2040
Width = 975
End
Begin VB.Label lblTotalFile
Alignment = 1 'Right Justify
BackColor = &H00303030&
BackStyle = 0 'Transparent
Caption = "0"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 255
Left = 1920
TabIndex = 5
Top = 2040
Width = 855
End
Begin VB.Label lblJumlahvirus
Alignment = 1 'Right Justify
BackColor = &H00303030&
BackStyle = 0 'Transparent
Caption = "0"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 255
Left = 1920
TabIndex = 3
Top = 2280
Width = 855
End
Begin VB.Label Virus_Ditemukan
BackColor = &H00303030&
BackStyle = 0 'Transparent
Caption = "Virus Ditemukan "
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 255
Left = 360
TabIndex = 2
Top = 2280
Width = 1215
End
Begin VB.Label jumlah_file
BackColor = &H00303030&
BackStyle = 0 'Transparent
Caption = "File Diperiksa "
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 255
Left = 360
TabIndex = 1
Top = 1800
Width = 1095
End
Begin VB.Label lblFileDiperiksa
Alignment = 1 'Right Justify
BackColor = &H00303030&
BackStyle = 0 'Transparent
Caption = "0"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 255
Left = 1920
TabIndex = 0
Top = 1800
Width = 855
End
Begin VB.Menu mnu
Caption = "mnu"
Visible = 0 'False
Begin VB.Menu mnuTemp
Caption = "Temp Database"
End
Begin VB.Menu mnuTool
Caption = "External Tool"
End
Begin VB.Menu mnuViewSigna
Caption = "View Signature"
End
Begin VB.Menu mnuAbout
Caption = "About"

kalau sudah masukkan kode ini pada form1:

Dim LokasiDir As String

Private z As Integer
Private Ucapan As String
Private Titik As String

Private Type pewaktu
i As Integer
s As String
End Type

Private detik As pewaktu, menit As pewaktu, jam As pewaktu

'Pendeklarasian fungsi windows API
'Tak berhasil diletakkan di Fungsi
Private Sub cmdhapus_Click()
'Jika tombol Hapus di klik
tindakan "hapus"
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
On Error Resume Next 'Penanganan error
If cmdScan.Caption = "Stop" Then 'Jika proses scanning sedang berjalan
If MsgBox("Anda yakin akan keluar saat pemeriksaan file sedang berlangsung?", vbYesNo + vbQuestion, "Anda Yakin?") = vbNo Then
'jika konfirmasi di jawab ya, maka program di tutup
Cancel = -1
Else
End
End If
Else 'jika proses scanning tak berlangsung
End ' keluar saja
End If
End Sub

Private Sub mnuTemp_click()
frmTempDb.Show , Me
End Sub
Private Sub mnuTool_click()
frmExtTool.Show , Me
End Sub
Private Sub mnuabout_click()
frmAbout.Show , Me
End Sub
Private Sub mnuviewsigna_click()
frmSignature.Show , Me
End Sub
Private Sub cmdKarantina_Click()
'Jika tombol Karantina di klik
tindakan "karantina"
End Sub
Private Sub cmdKeluar_Click()
'jika tombol keluar di klik
Call Form_QueryUnload(1, 1)

End Sub

Private Sub cmdMenu_Click()
PopupMenu mnu
End Sub

Private Sub cmdscan_Click()
If cmdScan.Caption = "Scan" Then 'Jika akan memulai proses scan
Dim lpIDList As Long
Dim sBuffer As String
Dim szTitle As String
Dim tBrowseInfo As BrowseInfo
szTitle = "Pilih lokasi yang akan di periksa."
With tBrowseInfo
.hWndOwner = Me.hwnd
.lpszTitle = lstrcat(szTitle, "")
.ulFlags = BIF_RETURNONLYFSDIRS + BIF_DONTGOBELOWDOMAIN
End With
lpIDList = SHBrowseForFolder(tBrowseInfo)
If (lpIDList) Then
sBuffer = Space(MAX_PATH)
SHGetPathFromIDList lpIDList, sBuffer
sBuffer = Left(sBuffer, InStr(sBuffer, vbNullChar) - 1)
LokasiDir = sBuffer
'Proses pemeriksaan dimulai
ListView1.ListItems.Clear
lblPercentComplete.Caption = "0 % Complete..."
ProgressBar1.Value = 0
cmdScan.Caption = "Stop"
cmdHapus.Enabled = False
cmdMenu.Enabled = False
cmdKarantina.Enabled = False
lblFileDiperiksa.Caption = "0"
lblTotalFile.Caption = "0"
lblJumlahVirus.Caption = "0"
Call Loading
Call JalankanWaktu
MENGANALISA "Hitung"
Call Berhenti_Loading
MENGANALISA "Pindai"
Call HentikanWaktu
'Proses pemeriksaan selesai
lblJumlahVirus.Caption = ListView1.ListItems.Count
cmdScan.Caption = "Scan"
cmdMenu.Enabled = True
cmdHapus.Enabled = True
cmdKarantina.Enabled = True
If lblJumlahVirus.Caption = "0" Then
If lblFileDiperiksa.Caption < lblTotalFile.Caption Then status.Caption = "Proses dihentikan, tak ada virus ditemukan." ProgressBar1.Value = 0 Else status.Caption = "Pemeriksaan selesai, tak ada virus ditemukan." End If Else If lblFileDiperiksa.Caption < lblTotalFile.Caption Then status.Caption = "Proses dihentikan, " & lblJumlahVirus.Caption & " virus ditemukan." ProgressBar1.Value = 0 Else status.Caption = "Pemeriksaan selesai, " & lblJumlahVirus.Caption & " virus ditemukan." Beep End If End If End If Else ' Jika proses scan sedang berlangsung cmdScan.Caption = "Scan" End If End Sub Private Sub Form_Activate() 'Berfungsi mengecek kelayakan versi. Dim tanggal, bulan, tahun 'pendeklarasian tanggal = Format(Now, "dd") 'Memeriksa sekarang tanggal berapa bulan = Format(Now, "mm") 'memeriksa sekarang bulan berapa tahun = Format(Now, "yyyy") ' Memeriksa sekarang tahun berapa If tanggal >= 10 And bulan >= 12 And tahun >= 2012 Or bulan >= 12 And tahun >= 2012 Or tahun > 2012 Then
MsgBox "Mohon update antivirus ke versi baru." & vbCrLf & "Harap hapus, lalu download update dari http://www.eastjavahacker.blogspot.com", vbOKOnly + vbExclamation, "Pesan"
End If
If Dir(App.path & "\s0av.dll") = "" Then
MsgBox "error time..." & vbCrLf & "File ''" & App.path & "\s0av.dll''" & " Not Found." & vbCrLf & "Cek Kembali atau bisa " & vbCrLf & "Download kembali dari http://www.eastjavahacker.blogspot.com/", 0 + vbExclamation, "Error"
End
End If
status.Caption = "Selamat datang di s0av Beta 11 [05 Agustus 2011]. Klik Scan untuk memulai..."
Call List_Process 'List_Process
End Sub

Function CEK_DENGAN_CRC(namadir As String, NamaFile As String)
'Fungsi untuk mengecek dengan metode CRC32
On Error Resume Next
Dim ceksum As String
Dim m_CRC As clsCRC
Dim namavirus As String
Set m_CRC = New clsCRC
ceksum = Hex(m_CRC.CalculateFile(namadir & NamaFile))
namavirus = cek_with_navi(ceksum)
'If lblChecksum.Caption = ceksum Then namavirus = "Permintaan User"

If namavirus <> "" Then
With ListView1
Set lvItm = .ListItems.Add
lvItm.SubItems(1) = namavirus
lvItm.SubItems(2) = namadir & NamaFile
lvItm.SubItems(3) = FileLen(namadir & NamaFile)
End With
Call List_Process
Bunuh namadir & NamaFile
lblJumlahVirus = lblJumlahVirus + 1
End If

End Function
Function CEK_DENGAN_STRING(namadir As String, NamaFile As String)
Dim i As Integer, ukuran As Integer
Dim namavirus As String
Dim virname(1000) As String
Dim sign(1000) As String
Dim sampel(1000) As String
Dim ukuran_asli(1000) As Long

i = 1
Do 'For i = 1 To gettotalsampel()
sampel(i) = ambilsampel(i)
'mengambil signature dari sampel
sign(i) = Mid(sampel(i), 1, InStr(1, sampel(i), ":") - 1)
'mengambil namavirus dari sampel
virname(i) = Mid(sampel(i), Len(sign(i)) + 2, (InStr(Len(sign(i)) + 2, sampel(i), ":") - (Len(sign(i)) + 2)))
'mengambil namavirus yg dihasilkan
ukuran_asli(i) = Mid(sampel(i), Len(sign(i)) + 1 + Len(virname(i)) + 2, Len(sampel(i)))

namavirus = stringcheck(namadir & NamaFile, hex2ascii(sign(i)), virname(i))
'jika ada virus, tampilkan pada list
If namavirus <> "" And namavirus <> "Selesai" Then
With ListView1
Set lvItm = .ListItems.Add
lvItm.SubItems(1) = namavirus
lvItm.SubItems(2) = namadir & NamaFile
lvItm.SubItems(3) = FileLen(namadir & NamaFile)
If ukuran_asli(i) < FileLen(namadir & NamaFile) Then lvItm.SubItems(4) = "File Terinfeksi" End With Call List_Process Bunuh namadir & NamaFile lblJumlahVirus = lblJumlahVirus + 1 Exit Do End If i = i + 1 Loop Until sampel(i - 1) = "Selesai:Selesai:Selesai" End Function Function tindakan(aksi As String) On Error Resume Next Dim jumlahvirus As Integer Dim jmlvirus As Integer Dim a As Integer Dim i As Integer jumlahvirus = lblJumlahVirus.Caption jmlvirus = lblJumlahVirus.Caption If lblJumlahVirus.Caption = 0 Then If aksi = "hapus" Then status.Caption = "Tak ada virus yang dihapus..." Else status.Caption = "Tak ada virus yang dikarantina..." End If Else If aksi = "karantina" Then MkDir ("C:\Karantina\") For i = 0 To jumlahvirus Call List_Process Bunuh ListView1.ListItems(jumlahvirus).SubItems(2) SetAttr (ListView1.ListItems(jumlahvirus).SubItems(2)), vbNormal If aksi = "hapus" Then DeleteFile (ListView1.ListItems(jumlahvirus).SubItems(2)) Else MoveFile ListView1.ListItems(jumlahvirus).SubItems(2), "C:\Karantina\" & Dir(ListView1.ListItems(jumlahvirus).SubItems(2)) & "_vir" End If ListView1.ListItems.Remove (jumlahvirus) a = (100 / lblJumlahVirus.Caption) * i ProgressBar1.Value = a lblPercentComplete.Caption = a & " % Complete..." jumlahvirus = jumlahvirus - 1 Next i lblFileDiperiksa.Caption = "0" lblJumlahVirus.Caption = "0" If aksi = "hapus" Then status.Caption = jmlvirus & " virus telah dihapus..." Else status.Caption = jmlvirus & " virus telah dipindahkan ke folder 'C:\Karantina\' ..." End If End If End Function Private Sub Timer1_Timer() detik.i = detik.i + 1 If detik.i > 59 Then
menit.i = menit.i + 1
detik.i = 0
End If

If menit.i > 59 Then
jam.i = jam.i + 1
menit.i = 0
End If

detik.s = detik.i
menit.s = menit.i
jam.s = jam.i

If Len(detik.s) = 1 Then
detik.s = "0" & detik.s
End If

If Len(menit.s) = 1 Then
menit.s = "0" & menit.s
End If

If Len(jam.s) = 1 Then
jam.s = "0" & jam.s
End If
Label1.Caption = "Elapsed : " & jam.s & ":" & menit.s & ":" & detik.s
End Sub

Private Sub JalankanWaktu()
detik.i = 0
menit.i = 0
jam.i = 0

Timer1.Enabled = True
End Sub

Private Sub HentikanWaktu()
Timer1.Enabled = False
End Sub
Function MENCARI_VIRUS(path As String, SearchStr As String, FileCount As Double, Kerja As String)
'Fungsi ini berguna untuk melakukan scanning dan menghitung file.
'Tergantung parameter kerja.
On Error Resume Next
Dim Filename As String, NAMA_DIRECTORY As String, DIR_NAMES() As String
Dim nDIR As Integer, i As Integer
If cmdScan.Caption = "Scan" Then
Exit Function
End If
If Right(path, 1) <> "\" Then path = path & "\"
nDIR = 0
ReDim DIR_NAMES(nDIR)
NAMA_DIRECTORY = Dir(path, vbDirectory Or vbHidden Or vbArchive Or vbReadOnly Or vbSystem)
Do While Len(NAMA_DIRECTORY) > 0
If (NAMA_DIRECTORY <> ".") And (NAMA_DIRECTORY <> "..") Then
If GetAttr(path & NAMA_DIRECTORY) And vbDirectory Then
DIR_NAMES(nDIR) = NAMA_DIRECTORY
DirCount = DirCount + 1
nDIR = nDIR + 1


ReDim Preserve DIR_NAMES(nDIR)
End If
sysFileERRCont:
End If
NAMA_DIRECTORY = Dir()
Loop
Filename = Dir(path & SearchStr, vbNormal Or vbHidden Or vbSystem Or vbReadOnly Or vbArchive)
While Len(Filename) <> 0
If cmdScan.Caption = "Scan" Then
Exit Function
End If
If Kerja = "Pindai" Then
'FindFiles = FindFiles + FileLen(path & Filename)
If Len(path & Filename) > 50 Then 'jika panjang nama file > 50
If Len(Filename) < 15 Then status.Caption = Mid(path, 1, InStr(4, path, "\")) & "..." & "\" & Filename Else status.Caption = Mid(path, 1, InStr(4, path, "\")) & "..." & "\" & "..." & Right(Filename, 15) End If Else 'jika tidak status.Caption = path & Filename End If ' akhir jika panjangfile > 50

If Mid(path, 1, 12) = "C:\Karantina" Or FileLen(path & Filename) / 1024 >= 4000 Then
GoTo nggakusah ' Jika folder karantina, tidak usah dicek
End If

'///////////////////////////////////////////////////////
'Fungsi untuk melakukan pengecekan dengan sampel string
If typefile(Filename) = "Application" Or typefile(Filename) = "Screen Saver" Then
CEK_DENGAN_STRING path, Filename
End If
If FileLen(path & Filename) / 1024 >= 750 Then
GoTo nggakusah ' Jika ukuran besar, tidak usah dicek dengan crc32
End If

'Jika ukuran file kecil
'jika bukan pada folder karantina
'periksa sudah terdeteksi oleh sampel string apa belum
Dim virus_akhir As Integer
Dim lblvirusakhir As String, lblnamafile As String
virus_akhir = lblJumlahVirus.Caption
lblvirusakhir = ListView1.ListItems(virus_akhir).SubItems(2)
lblnamafile = path & Filename
If lblvirusakhir = lblnamafile Then
GoTo nggakusah
End If
'Perintah dibawah ini untuk memanggil fungsi cek dengan CRC32
CEK_DENGAN_CRC path, Filename

'Jika sudah terdeteksi dengan crc, tidak usah dicek dengan string
'/////////////////////////////////////////////////////////
nggakusah:

'////////////////////////////////////////////////////////
lblFileDiperiksa.Caption = lblFileDiperiksa.Caption + 1
i = (100 / lblTotalFile.Caption) * lblFileDiperiksa.Caption
If i <= 100 Then ProgressBar1.Value = i lblPercentComplete.Caption = i & " % Complete..." End If '/////////////////////////////////////////////////////// End If FileCount = FileCount + 1 DoEvents Filename = Dir() Wend If nDIR > 0 Then
For i = 0 To nDIR - 1
MENCARI_VIRUS = MENCARI_VIRUS + MENCARI_VIRUS(path & DIR_NAMES(i) & "\", _
SearchStr, FileCount, Kerja)
Next i
DoEvents
End If
End Function
Function MENGANALISA(Kerja As String)
Dim SearchPath As String, FindStr As String
Dim FileSize As Long
Dim NumFiles As Double
ListView1.ListItems.Clear
SearchPath = LokasiDir
FindStr = "*.*"
FileSize = MENCARI_VIRUS(SearchPath, FindStr, NumFiles, Kerja)
DoEvents
If Kerja = "Hitung" Then
lblTotalFile.Caption = NumFiles
End If
FileSize = Empty
ErrorHandler:
End Function
'fungsi dibawah ini untuk mendapatkan program-program apa yang sedang dalam proses
Private Sub List_Process()
jmlProcess = 1
Dim hSnapShot As Long, uProcess As PROCESSENTRY32
hSnapShot = CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0&)
'Mendapatkan informasi tentang semua proses yang sedang dijalankan
uProcess.dwSize = Len(uProcess)
r = Process32First(hSnapShot, uProcess)
'Mendapatkan informasi tentang proses yang pertama
Do While r
'perulangan selama r <> 0

'List1.AddItem Left$(uProcess.szExeFile, InStr(1, uProcess.szExeFile, Chr$(0), vbTextCompare) - 1)
'Memasukkan nama aplikasi pada List1
ProcessID(jmlProcess) = uProcess.th32ProcessID
path(jmlProcess) = PathByPID(ProcessID(jmlProcess))
'Memasukkan Process ID untuk masing-masing aplikasi
r = Process32Next(hSnapShot, uProcess)
'Mendapatkan informasi dari proses selanjutnya pada windows
jmlProcess = jmlProcess + 1
Loop
jmlProcess = jmlProcess - 1
CloseHandle hSnapShot
End Sub

Public Function PathByPID(pid As Long) As String
'Fungsi dibawah ini berfungsi untuk mencari path atau lokasi dari
'program yang sedang berjalan
'Kode ini dapat dilihat di :
'http://support.microsoft.com/default.aspx?scid=kb;en-us;187913
Dim cbNeeded As Long
Dim Modules(1 To 200) As Long
Dim ret As Long
Dim ModuleName As String
Dim nSize As Long
Dim hProcess As Long

hProcess = OpenProcess(PROCESS_QUERY_INFORMATION _
Or PROCESS_VM_READ, 0, pid)

If hProcess <> 0 Then

ret = EnumProcessModules(hProcess, Modules(1), _
200, cbNeeded)

If ret <> 0 Then
ModuleName = Space(MAX_PATH)
nSize = 500
ret = GetModuleFileNameExA(hProcess, _
Modules(1), ModuleName, nSize)
PathByPID = Left(ModuleName, ret)
End If
End If

ret = CloseHandle(hProcess)

If PathByPID = "" Then
PathByPID = ""
End If

If Left(PathByPID, 4) = "\??\" Then
PathByPID = ""
End If


If Left(PathByPID, 12) = "\SystemRoot\" Then
PathByPID = ""
End If
End Function

Private Sub Bunuh(NamaFile As String)
'procedure ini berfungsi untuk menghentikan proses dari sebuah program
Dim a As Long
For a = 1 To jmlProcess
If path(a) = NamaFile Then
TerminateProcess OpenProcess(PROCESS_ALL_ACCESS, 1, ProcessID(a)), 0
Exit For
Call List_Process
End If
Next a
End Sub


Private Sub Timer2_Timer()
If z = Len(Titik) + 1 Then
z = 0
Else
status.Caption = Ucapan & Mid(Ucapan & Titik, InStr(1, Ucapan & Titik, "."), z)
z = z + 1
End If
End Sub

Private Sub Loading()
Timer2.Enabled = True
z = 0
Ucapan = "Sedang Menganalisa, Harap Tunggu"
Titik = "...."
End Sub

Private Sub Berhenti_Loading()
Timer2.Enabled = False
End Sub


lalu buat lagi sebuah form dengan mengklik add -> project -> form
berikan name form2 frmAbout


BackColor = &H00004000&
BorderStyle = 4 'Fixed ToolWindow
Caption = "About NAVi"
ClientHeight = 3165
ClientLeft = 45
ClientTop = 315
ClientWidth = 4740
ClipControls = 0 'False
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3165
ScaleWidth = 4740
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin Project1.DMSXpButton cmdVisitMe
Height = 375
Left = 1680
TabIndex = 3
Top = 2640
Width = 1335
_ExtentX = 2355
_ExtentY = 661
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Caption = "Visit Me"
ForeColor = -2147483642
ForeHover = 128
End
Begin Project1.DMSXpButton cmd_tutup
Height = 375
Left = 3120
TabIndex = 2
Top = 2640
Width = 1335
_ExtentX = 2355
_ExtentY = 661
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Caption = "Tutup"
ForeColor = 0
ForeHover = 128
End
Begin VB.Timer Timer1
Left = 4320
Top = 2040
End
Begin VB.PictureBox Picture1
BackColor = &H00FFFFFF&
Height = 2175
Left = 240
ScaleHeight = 2115
ScaleWidth = 4155
TabIndex = 0
Top = 240
Width = 4215
Begin VB.TextBox Text1
Alignment = 2 'Center
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
BeginProperty Font
Name = "Tahoma"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000080&
Height = 6500
Left = 0
MultiLine = -1 'True
TabIndex = 1
Text = "frmAbout.frx":0000
Top = 1320
Width = 4215

masukkan Code ini pada frmAbout

Private Sub cmd_tutup_Click()
Unload Me
End Sub

Private Sub cmdVisitMe_Click()
ShellExecute hwnd, "open", "http://www.eastjavahacker.blogspot.com/", vbNullString, vbNullString, 1
End Sub

Private Sub Form_Load()
Antivirus.Enabled = False
Me.Icon = Antivirus.Icon
Text1.Top = 2000
Timer1.Interval = 50
End Sub

Private Sub Form_Unload(Cancel As Integer)
Antivirus.Enabled = True
End Sub

Private Sub Timer1_Timer()
Dim gerak
gerak = Text1.Top - 20

Text1.Top = gerak

If gerak < -5800 Then Text1.Top = 2090 End If End Sub


lalu tambahkan project form baru beri nama frmExtTool

BackColor = &H00004040&
BorderStyle = 4 'Fixed ToolWindow
Caption = " External Tool"
ClientHeight = 1410
ClientLeft = 45
ClientTop = 285
ClientWidth = 3585
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 1410
ScaleWidth = 3585
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin Project1.DMSXpButton cmdTutup
Height = 375
Left = 2280
TabIndex = 1
Top = 840
Width = 1095
_ExtentX = 1931
_ExtentY = 661
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Caption = "Tutup"
ForeColor = -2147483642
ForeHover = 0
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "[Tampilkan Data Yang Disembunyikan Virus]"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 255
Left = 240
MouseIcon = "frmExtTool.frx":0000
MousePointer = 99 'Custom
TabIndex = 0
ToolTipText = "Klik Disini Untuk Menampilkan Data Yang Disembunyikan Oleh Virus"
Top = 360
Width = 3255

buatlagi project form beri nama / name : frmSignature
Teknik :


BackColor = &H00004000&
BorderStyle = 4 'Fixed ToolWindow
Caption = "Virus Signature"
ClientHeight = 3555
ClientLeft = 45
ClientTop = 285
ClientWidth = 4245
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3555
ScaleWidth = 4245
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.ListBox List1
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000040&
Height = 2205
Left = 240
TabIndex = 1
Top = 600
Width = 3735
End
Begin Project1.DMSXpButton cmdTutup
Height = 375
Left = 2520
TabIndex = 0
Top = 3000
Width = 1455
_ExtentX = 2566
_ExtentY = 661
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Caption = "Tutup"
ForeColor = -2147483642
ForeHover = 192
End
Begin VB.Label lblJudul
BackStyle = 0 'Transparent
Caption = "Daftar Signature Virus :"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000C000&
Height = 255
Left = 1080
TabIndex = 3
Top = 240
Width = 2175
End
Begin VB.Label lblJumlahVirus
BackStyle = 0 'Transparent
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 255
Left = 240
TabIndex = 2
Top = 3000
Width = 1935

dan masukkan kode ini kedalam frmSignature :

Private Type Signature
sampel(2000) As String
hash(1000) As String
namavirus(2000) As String
End Type
'Pengumuman variabel
Private a As Integer, b As Integer
Private sign As Signature
'akhir dari pengumuman
Private Sub cmdTutup_Click()
Unload Me 'menutup program
End Sub
Private Sub Form_Load()
Antivirus.Enabled = False
i = 1
'Mengambil signature dari file
Open App.path & "\s0av.dll" For Input As #1
Do
Input #1, sign.sampel(i)
sign.namavirus(i) = Mid(sign.sampel(i), InStr(1, sign.sampel(i), ":") + 1, Len(Mid(sign.sampel(i), InStr(1, sign.sampel(i), ":") + 1)))
If sign.namavirus(i) = "Selesai" Then Exit Do
List1.AddItem (i & ". " & sign.namavirus(i))
i = i + 1
Loop Until i = i + 1
Close #1
'selesai mengambil signature
'mulai mengambil sampel string dari signature
a = 1
Do
sign.sampel(a) = ambilsampel(a)
'mengambil signature dari sampel
sign.hash(a) = Mid(sign.sampel(a), 1, InStr(1, sign.sampel(a), ":") - 1)
'mengambil namavirus dari sampel
sign.namavirus(a) = Mid(sign.sampel(a), Len(sign.hash(a)) + 2, (InStr(Len(sign.hash(a)) + 2, sign.sampel(a), ":") - (Len(sign.hash(a)) + 2)))
'mengambil namavirus yg dihasilkan
'ukuran_asli(a) = Mid(sampel(a), Len(sign(a)) + 1 + Len(virname(a)) + 2, Len(sampel(a)))
If sign.sampel(a) = "Selesai:Selesai:Selesai" Then Exit Do
List1.AddItem (i & ". " & sign.namavirus(a))
a = a + 1
i = i + 1
Loop Until a = a + 1
'selesai mengambil string
'berikan jumlah virus pada sebuah label
lblJumlahVirus.Caption = "Jumlah Signature : " & List1.ListCount
End Sub

Private Sub Form_Unload(Cancel As Integer)
Antivirus.Enabled = True
End Sub

buat lagi project berupa form beri name : frmTempDb
teknik :


BackColor = &H00004000&
BorderStyle = 4 'Fixed ToolWindow
Caption = "Temporary Database"
ClientHeight = 3630
ClientLeft = 45
ClientTop = 315
ClientWidth = 4905
ClipControls = 0 'False
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3630
ScaleWidth = 4905
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin Project1.DMSXpButton cmdTutup
Height = 375
Left = 3240
TabIndex = 11
ToolTipText = "Jika sudah selesai klik tutup."
Top = 3000
Width = 1455
_ExtentX = 2566
_ExtentY = 661
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Caption = "Tutup"
ForeColor = -2147483642
ForeHover = 192
End
Begin Project1.DMSXpButton cmdBrowse
Height = 375
Left = 4200
TabIndex = 10
ToolTipText = "Klik disini untuk Browsing file."
Top = 720
Width = 495
_ExtentX = 873
_ExtentY = 661
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Caption = "..."
ForeColor = -2147483642
ForeHover = 192
End
Begin VB.Frame Frame1
BackColor = &H00004000&
Caption = "Informasi File"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 1695
Left = 240
TabIndex = 2
Top = 1200
Width = 4455
Begin VB.Label lblCompiler
BackStyle = 0 'Transparent
ForeColor = &H0000FF00&
Height = 255
Left = 1200
TabIndex = 15
Top = 960
Width = 2415
End
Begin VB.Label Label6
BackStyle = 0 'Transparent
Caption = "Compiler :"
ForeColor = &H0000FF00&
Height = 255
Left = 120
TabIndex = 14
Top = 960
Width = 975
End
Begin VB.Label lblPacker
BackStyle = 0 'Transparent
ForeColor = &H0000FF00&
Height = 255
Left = 1200
TabIndex = 13
Top = 1200
Width = 2535
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = "Packer :"
ForeColor = &H0000FF00&
Height = 255
Left = 120
TabIndex = 12
Top = 1200
Width = 975
End
Begin VB.Label lblType
BackColor = &H00000000&
BackStyle = 0 'Transparent
ForeColor = &H0000FF00&
Height = 255
Left = 1200
TabIndex = 8
Top = 720
Width = 1815
End
Begin VB.Label lblChecksum
BackColor = &H00000000&
BackStyle = 0 'Transparent
ForeColor = &H0000FF00&
Height = 255
Left = 1200
TabIndex = 7
Top = 480
Width = 975
End
Begin VB.Label lblUkuran
BackColor = &H00000000&
BackStyle = 0 'Transparent
ForeColor = &H0000FF00&
Height = 255
Left = 1200
TabIndex = 6
Top = 240
Width = 3015
End
Begin VB.Label Label3
BackColor = &H00000000&
BackStyle = 0 'Transparent
Caption = "Type :"
ForeColor = &H0000FF00&
Height = 255
Left = 120
TabIndex = 5
Top = 720
Width = 975
End
Begin VB.Label Label2
BackColor = &H00000000&
BackStyle = 0 'Transparent
Caption = "Checksum :"
ForeColor = &H0000FF00&
Height = 255
Left = 120
TabIndex = 4
Top = 480
Width = 975
End
Begin VB.Label Label1
BackColor = &H00000000&
BackStyle = 0 'Transparent
Caption = "Ukuran :"
ForeColor = &H0000FF00&
Height = 255
Left = 120
TabIndex = 3
Top = 240
Width = 975
End
End
Begin VB.CheckBox Check1
BackColor = &H00004000&
Caption = "Tandai Sebagai Virus"
Enabled = 0 'False
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 255
Left = 240
TabIndex = 1
ToolTipText = "Klik checkbox ini untuk menandai virus."
Top = 3000
Width = 1935
End
Begin VB.TextBox txtFileName
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 240
TabIndex = 0
Top = 720
Width = 3855
End
Begin VB.Label Label4
BackColor = &H00000000&
BackStyle = 0 'Transparent
Caption = "Browse aplikasi yang anda curigai, Jangan buat kesalahan !"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 255
Left = 240
TabIndex = 9
Top = 360
Width = 4455

masukkan kode ini ke dalam frmTempDb

Private Sub cmdBrowse_Click()
On Error GoTo batal
Dim c As New cCommonDialog
Dim sFileName As String
Dim ceksum As String
Dim m_CRC As clsCRC
Dim namavirus As String
Set m_CRC = New clsCRC
If (c.VBGetOpenFileName( _
Filename:=sFileName, _
Owner:=Me.hwnd)) Then
txtFileName.Text = sFileName
lblChecksum.Caption = Hex(m_CRC.CalculateFile(sFileName)) 'mendapatkan crc32
lblPacker.Caption = get_Packer(sFileName) 'memanggil fungsi untuk mendapatkan packer
lblCompiler.Caption = get_Compiler(sFileName) ' memanggil fungsi untuk mendapatkan compiler
lblUkuran.Caption = Round(FileLen(sFileName) / 1024, 2) & " Kb."
lblType.Caption = typefile(sFileName) 'memanggil fungsi untuk mendapatkan typefile
If FileLen(sFileName) / 1024 <= 750 Then If lblChecksum.Caption = "0" Or lblChecksum.Caption = "" Then Check1.Enabled = False Else Check1.Enabled = True End If Else Check1.Enabled = False End If End If batal: End Sub Private Sub cmdTutup_Click() Unload Me End Sub Private Sub Form_Load() Antivirus.Enabled = False Me.Icon = Antivirus.Icon End Sub Private Sub Form_Unload(Cancel As Integer) Antivirus.Enabled = True If Check1 = Checked Then TempDb = frmTempDb.lblChecksum.Caption End If End Sub


tambahkan project module beri nama : KumpulanFungsi

Public TempDb As String
Public Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long

Public Const TH32CS_SNAPHEAPLIST = &H1
Public Const TH32CS_SNAPPROCESS = &H2
Public Const TH32CS_SNAPTHREAD = &H4
Public Const TH32CS_SNAPMODULE = &H8
Public Const TH32CS_SNAPALL = (TH32CS_SNAPHEAPLIST Or TH32CS_SNAPPROCESS Or TH32CS_SNAPTHREAD Or TH32CS_SNAPMODULE)
Public Const TH32CS_INHERIT = &H80000000
Public Const MAX_PATH As Integer = 260
Public Type PROCESSENTRY32
dwSize As Long
cntUsage As Long
th32ProcessID As Long
th32DefaultHeapID As Long
th32ModuleID As Long
cntThreads As Long
th32ParentProcessID As Long
pcPriClassBase As Long
dwFlags As Long
szExeFile As String * MAX_PATH
End Type
Public Declare Function CreateToolhelp32Snapshot Lib "kernel32" (ByVal lFlags As Long, ByVal lProcessID As Long) As Long
Public Declare Function Process32First Lib "kernel32" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
Public Declare Function Process32Next Lib "kernel32" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
Public Declare Function OpenProcess Lib "kernel32.dll" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public Declare Function TerminateProcess Lib "kernel32.dll" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Public Declare Function CloseHandle Lib "kernel32.dll" (ByVal hHandle As Long) As Long
Public Const PROCESS_ALL_ACCESS = &H1F0FFF
'Enum the path
Public Const PROCESS_QUERY_INFORMATION As Long = &H400
Public Const PROCESS_VM_READ = &H10
Public Declare Function EnumProcessModules Lib "psapi.dll" ( _
ByVal hProcess As Long, _
ByRef lphModule As Long, _
ByVal cb As Long, _
ByRef cbNeeded As Long) As Long
Public Declare Function GetModuleFileNameExA Lib "psapi.dll" ( _
ByVal hProcess As Long, _
ByVal hModule As Long, _
ByVal ModuleName As String, _
ByVal nSize As Long) As Long
Public ProcessID(100) As Long
Public path(100) As String
Public jmlProcess As Integer



Public Declare Function MoveFile Lib "kernel32" Alias "MoveFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String) As Long

Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long


Public Const BIF_RETURNONLYFSDIRS = 1
Public Const BIF_DONTGOBELOWDOMAIN = 2
Declare Function SHBrowseForFolder Lib _
"shell32" (lpbi As BrowseInfo) As Long
Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pidList _
As Long, ByVal lpBuffer As String) As Long
Declare Function lstrcat Lib "kernel32" _
Alias "lstrcatA" (ByVal lpString1 As String, ByVal _
lpString2 As String) As Long
Public Type BrowseInfo
hWndOwner As Long
pIDLRoot As Long
pszDisplayName As Long
lpszTitle As Long
ulFlags As Long
lpfnCallback As Long
lParam As Long
iImage As Long
End Type

Function typefile(Filename As String) As String
Select Case UCase(Right(Filename, 4))
Case ".BAT"
typefile = "MS DOS Batch File"
Case ".EXE"
typefile = "Application"
Case ".JPG"
typefile = "Image"
Case ".BMP"
typefile = "Image"
Case ".GIF"
typefile = "Image"
Case ".XLS"
typefile = "Ms Excel Document"
Case ".PDF"
typefile = "Adobe Acrobat Document"
Case ".HLP"
typefile = "Help File"
Case ".DOC"
typefile = "Ms Word Document"
Case ".RTF"
typefile = "Rich Text Format"
Case ".SWF"
typefile = "Flash Movie"
Case ".FLA"
typefile = "Flash Document"
Case ".TXT"
typefile = "Text Document"
Case ".DLL"
typefile = "Dynamic Link Library"
Case ".SCR"
typefile = "Screen Saver"
Case "HTML"
typefile = "HTML Document"
Case ".ZIP"
typefile = "Compressed"
Case Else
typefile = "Tak diketahui."
End Select
End Function

'Fungsi untuk mendapatkan informasi tentang packer
Function get_Packer(MyPath As String) As String
Dim sampel(100) As String
Dim signa(100) As String
Dim PackerName(100) As String
Dim i As Integer
i = 1
Do 'Jika sampel i sebelumnya adalah Selesai:Selesai maka berhenti looping
sampel(i) = ambil_sampel_packer(i) 'sampel i adalah hasil dari fungsi ambil sampel packer
signa(i) = Mid(sampel(i), 1, InStr(1, sampel(i), ":") - 1)
PackerName(i) = Mid(sampel(i), InStr(1, sampel(i), ":") + 1, Len(sampel(i)) - InStr(1, sampel(i), ":") + 1)
hasil = stringcheck(MyPath, hex2ascii(signa(i)), PackerName(i))
If hasil <> "" And hasil <> "Selesai" Then 'Jika hasil tidak = "" atau tidak = "Selesai"
get_Packer = hasil 'Kembalikan Hasilnya
Exit Do 'Berhenti Looping
End If
get_Packer = "Tiada"
i = i + 1
Loop Until sampel(i - 1) = "Selesai:Selesai" ' akhir dari looping
End Function

Function get_Compiler(MyPath As String) As String
Dim sampel(100) As String
Dim signa(100) As String
Dim CompilerName(100) As String
Dim i As Integer
i = 1
Do 'Jika sampel i sebelumnya adalah Selesai:Selesai maka berhenti looping
sampel(i) = ambil_sampel_compiler(i) 'sampel i adalah hasil dari fungsi ambil sampel packer
signa(i) = Mid(sampel(i), 1, InStr(1, sampel(i), ":") - 1)
CompilerName(i) = Mid(sampel(i), InStr(1, sampel(i), ":") + 1, Len(sampel(i)) - InStr(1, sampel(i), ":") + 1)
hasil = stringcheck(MyPath, hex2ascii(signa(i)), CompilerName(i))
If hasil <> "" And hasil <> "Selesai" Then 'Jika hasil tidak = "" atau tidak = "Selesai"
get_Compiler = hasil 'Kembalikan Hasilnya
Exit Do 'Berhenti Looping
End If
get_Compiler = "Tak Diketahui"
i = i + 1
Loop Until sampel(i - 1) = "Selesai:Selesai" ' akhir dari looping
End Function
'Fungsi untuk membuka file database
Function cek_with_navi(ceksum As String) As String
Dim sampel As String
Dim signa As String
Dim virname As String
cek_with_navi = ""

Open App.path & "\s0av.dll" For Input As #1 'namafile database adalah s0av.dll
Do 'perintah looping
Input #1, sampel 'masukan dari file adalah sampel
signa = Mid(sampel, 1, InStr(1, sampel, ":") - 1) 'mengambil signature dari sampel yang masuk
virname = Mid(sampel, InStr(1, sampel, ":") + 1, Len(sampel) - (Len(signa) + 1)) 'mengambil namavirus dari sampel yang masuk
If signa = ceksum Then 'jika signature dan ceksum sama
cek_with_navi = virname 'ada virus dan berikan namavirus
Exit Do 'lalu keluar dari loping
End If
Loop Until sampel = "Selesai:Selesai" 'Jika sampel selesai maka berhenti looping
Close #1

If TempDb = ceksum Then
cek_with_navi = "Permintaan User"
End If

'///////////////////////////////////////////////////////////////
'end of virus update



End Function

tambahkan module lagi beri nama : StringSignature
[code]'Fungsi yang menyimpan sampel string virus
Function ambilsampel(i As Integer)
Dim sampel(1000) As String 'sampel sebagai array
sampel(1) = "CA68A137541AED769C3F:w32.service.exe:17920"
sampel(2) = "60AA606F4DD82135B73D:w32.Burmecia:100"
sampel(3) = "2C245947F84623478D28:w32.KSpoold:285184"
sampel(4) = "15e01040008d4dc88d55d851526a02:w32.TunggulKawung.C:175104"
sampel(5) = "78b5549268a94cfe224200fa6fa17aef:w32.Service.exe:17920"
sampel(6) = "e8b3b6fbff8945f033d2:w32.spooler:448000"
sampel(7) = "Selesai:Selesai:Selesai" 'Akhir dari array
ambilsampel = sampel(i) 'Hasil yang dikeluarkan untuk dicek kembali
End Function 'Akhir dari fungsi

Function stringcheck(MyPath As String, hexstring As String, namavirus As String)
'Fungsi untuk mencocokkan string sampel dan string pada file
stringcheck = ""
Dim filedata As String
Dim a As Integer
Open MyPath For Binary As #1
filedata = Space$(LOF(1))
Get #1, , filedata
If InStr(1, filedata, hexstring) > 0 Then
stringcheck = namavirus
Else
stringcheck = ""
End If
'akhir dari fungsi
Close #1
End Function
Function hex2ascii(ByVal hextext As String) As String
'Fungsi untuk menterjemahkan dari hexadecimal ke dalam string biasa
On Error Resume Next
Dim Y As Integer
Dim num As String
Dim Value As String
For Y = 1 To Len(hextext)
num = Mid(hextext, Y, 2)
Value = Value & Chr(Val("&h" & num))
Y = Y + 1
Next Y
hex2ascii = Value
End Function
'Fungsi yang berisi sampel dari packernya.
Function ambil_sampel_packer(i As Integer)
Dim sampel(100) As String
sampel(1) = "0000004d4557:MEW"
sampel(2) = "555058210c09:UPX"
sampel(3) = "c02e61737061636b00:Aspack"
sampel(4) = "89085045436f6d70616374:PECompact"
sampel(5) = "Selesai:Selesai"
ambil_sampel_packer = sampel(i) 'hasil yang diberikan
End Function
'Akhir dari Fungsi
'Fungsi yang berisi sampel dari compiler
Function ambil_sampel_compiler(i As Integer)
Dim sampel(100) As String
sampel(1) = "0000004d535642564d36302e444c4c000000:MS Visual Basic 6.0"
sampel(2) = "5700650064000300540068007500030046007200

./My Pathner

Popular Games

free counters

Label 1

Anda Bisa Kirim Sms Dari Sini

Chat book

Fullkodok mengucapkan Minal Aidin Wal Faidzin, Mohon Maaf Lahir dan Batin | Yang Saat ini lagi Online :
Follow