Theme images by MichaelJay. Powered by Blogger.

Contact

Name

Email *

Message *

Followers

Total Pageviews

Hati-hati dengan Al-Qur’an Palsu !!!

Berbagai cara ditempuh oleh kaum kuffar untuk memurtadkan umat Islam. Al-Qur’an, kitab suci dan pedoman hidup umat Islam jadi komoditi pemurtadan.

Al-Qur`an Imitasi
Seorang pastor evangelis Amerika yang mengaku kelahiran Palestina, mengarang Al-Qur’an imitasi bernama “Al-Furqanul-Haqq” (The True Furqan), yang diterbitkan oleh lembaga yang menyebut dirinya Komite Eksekutif Proyek Omega 2001. Pastor yang bernama asli Dr.Anis A. Shorrosh itu memakai nama samaran Al-Safee dan Al-Mahdi dalam kitab ini. Al-Qur’an tiruan pendeta ini sontak menggegerkan umat karena disebarkan ke internet. Bahkan edisi cetaknya beredar sampai ke Jawa Timur sejak akhir April 2002 di kantong-kantong Muslim seperti Jombang, Bangil, dan Madura. Isinya berupa tiruan terhadap surat dalam al-Quran. Kitab setebal 368 halaman dengan sampul depan warna hijau bertuliskan kaligrafi Arab warna emas ini memuat beberapa nama surat, di antaranya: surat Al-Iman, At-Tajassud, Al-Muslimun, dan Al-Washaya. Semua isinya memuji-muji Yesus. Gaya penyajian dan pilihan bahasa Arab klasik yang dipakai dalam Qur’an palsu ini, agak mirip gaya bahasa Al-Qur’an. Bagi orang yang tidak memahami seluk-beluk bahasa Arab secara mendalam, bisa terkecoh, mengira The True Furqan sebagai Al-Qur’an. Sebab kata “Al-Furqan” sendiri sinonim dengan kata “Al-Qur’an.” Tujuan penyebaran Al-Furqanul-Haqq ke tengah-tengah masyarakat Muslim ini jelas terbaca, yaitu untuk menanamkan keraguan umat Islam terhadap kitab suci Al-Qur’an. Targetnya, agar umat Islam memandang Al-Qur’an sebagai kitab yang sudah menyimpang. Otentisitas Al-Qur’an memang tidak bisa diganggu gugat, karena Allah sendiri yang menjamin keasliannya.
Allah menyatakan dalam Al-Qur’an: “Sesungguhnya Kami menurunkan adz-Dzikr (Al-Qur`an) ini dan sungguh Kamilah Penjaganya” (Al-Hijr 9). Imam Ibnu Katsir menyatakan, makna ayat di atas adalah bahwa Allah SWT menjadi penjaga Al-Qur’an dari perubahan atau pergantian (Tafsir Al-Qur’anil ‘Azhîm, II, hlm. 666). Karenanya, secara i’tiqadi, Al-Qur’an senantiasa terjaga dari perubahan, penggantian, perombakan, atau peniruan apapun. Semuanya dijamin oleh Allah SWT. Meski demikian, bukan berarti upaya kaum kuffar untuk memanipulasi dan menggerogoti Al-Qur’an berhenti. Maka mereka menempuh untuk mengaburkan keyakinan umat Islam terhadap Al-Qur’an. Mereka inginkan agar umat Islam tidak meyakini Al-Qur’an sebagai wahyu Allah, karena bisa ditandingi dengan Al-Qur’an tiruan yang bernama Al-Furqaul-Haqq (The True Furqan).

Pelesetan Al-Qur`an untuk Misi
Selain ada Al-Qur’an palsu, bertebaran pula buku-buku plesetan ayat-ayat Al-Qur’an dan Hadits. Ayat-ayat suci ini dikutip sepotong-sepotong lalu dirakit sehingga tersimpulkan seolah-olah tuhan dan juru selamat manusia adalah Nabi Isa alias Yesus Kristus. Bentuk pelesetan ini dipublikasikan dalam buku-buku dan brosur. Buku-buku pelesetan Al-Qur’an yang sudah beredar antara lain :
- Keselamatan di dalam Islam,
- Ayat-ayat Penting di dalam Islam,
- As-Shodiqul Masduq (Kebenaran Yang Benar),
- As-Sirrullahil-Akbar (Rahasia Allah Yang Paling Besar),
- Selamat Natal Menurut Al-Qur’an,
- Telah Kutemukan Rahasia Allah Yang Paling Besar,
- Ya Allah Ya Ruhul Qudus,
- Aku Selamat Dunia dan Akhirat,
- Wahyu Tentang Neraka,
- Wahyu Keselamatan Allah, dan lain-lain.

Buku-buku pelesetan karya Poernama Winangun :
- “Upacara Ibadah Haji”,
- “Ayat-ayat Al-Qur’an Yang Menyelamatkan”,
- “Isa Alaihis Salam Dalam Pandangan Islam”,
- “Siapa kah Yang Bernama Allah” dan
- “Riwayat Singkat Pusaka Peninggalan Nabi Muhammad saw”.

Contoh brosur pelesetan :
- brosur Dakwah Ukhuwah,
- brosur Shirathal Mustaqim dan
- brosur Al-Barakah.
Judulnya antara lain :
- Rahasia Jalan ke Surga,
- Allahu Akbar Maulid Nabi Isa as,
- Kesaksian Al-Qur’an tentang Keabsahan Taurat dan Injil,
dan lain-lain.

Isi buku dan brosur pelesetan rata-rata sama, yaitu mengutip dan mencomot Al-Qur’an dan Hadits yang diramu dan dicocok-cocokkan tanpa mengindahkan kaidah tafsir, untuk mendukung doktrin kristiani bahwa Nabi Isa (Yesus) adalah Tuhan dan Juruselamat penebus dosa manusia.

Al-Qur`an Bergambar Yesus
Al-Qur’an bercover Yesus terungkap di SLTP 1 Pakan Kamis, Kecamatan Tilatang Kamang, Kabupaten Agam, Sumatera Barat. Pagi itu, Kamis (17/5), di ruang kelas I-1 ada dua siswa tampil ke depan hendak membacakan ayat suci Al-Qur’an, namun batal. Ketika salah seorang dari mereka dengan siku tangannya tanpa sengaja menggeser Al-Qur’an, kitab suci itu terjatuh. Secepatnya ia menangkap, meski hanya dapat cover-nya. Sementara saat, Al-Qur’annya terjatuh. Para siswa kaget. Bukan karena Al-Qur’an itu jatuh, tetapi lebih pada pemandangan yang mereka lihat di pelapis dalam cover tebal. Di sana, tertempel kertas bertuliskan huruf-huruf Latin, antara lain, “Yesus Kristus” yang kemudian diikuti sejumlah kalimat lain. Pada bagian lain terbaca pula kata-kata “Bunda Mariah, domba gembala, gereja” serta bait-bait lagu gereja. Karena kertas itu dilem ke cover Al-Qur`an, sehingga ketika dibuka, kata-kata yang ada di sana ikut tercopot sehingga tidak terbaca semuanya.
Spontan, para siswa pun berteriak. Irmawati, seorang guru agama, sebelumnya mengaku tak percaya. Setelah melihat Al-Qur’an yang terjatuh ada tulisan tersebut, barulah ia mempercayainya. “Saya sangat kaget,” katanya. Ia langsung mengadukan itu kepada kepala sekolah. Irmawati juga mengaku memiliki Al-Qur’an sejenis yang di belakang covernya ada kata-kata Yesus, Budha, Wihara, dan entah apa lagi. Kasus itu pun dibawa ke Majelis Ulama Indonesia (MUI) yang kemudian diteruskan ke kepolisian.
Kata-kata Yesus Kristus dengan huruf Latin ini dibuat pada sampul dalam Al-Qur’an. Persisnya di tulang tempat helai demi helai Al-Qur’an dilem dan dijahitkan. Kalau kulit Al-Qur’an tidak dicopot, maka tulisan Yesus Kristus dan sejumlah bait lagu-lagu gereja yang ditulis di situ tidak akan pernah diketahui. Kepsek Jufrialdi mengatakan pada akhir Februari 2004, ia bertemu dengan tokoh masyarakat Tilatang Kamang, Buya Haji Usman Husen. Karena Usman orang ternama, apalagi ia ketua Golkar Kabupaten Agam serta anggota DPRD Sumbar, maka Jufrialdi meminta agar sekolahnya dibantu pengadaan Al-Qur’an dan mukena.
Pada 3 Maret 2004, di saat-saat kampanye legislatif, orang suruhan Usman, Linda, membeli 200 buah Al-Qur’an di Toko Asria di Pasar Aur Kuning, Bukittinggi. Karena jumlahnya banyak, Kepsek Jufrialdi berinisiatif membagikan ke sekolah-sekolah lain. Sebanyak 60 buah Al-Qur’an tinggal di SLTP 1, sisanya, sebanyak 20 buah diberikan ke SLTP 2, 10 untuk SLTP 3, 10 untuk SLTP 4, dan 20 untuk SLTP 5, serta sisanya untuk SMA I yang semuanya berada di Kecamatan Tilatang Kamang. Kapolresta Bukittinggi, AKBP M Zaini, mengatakan pihaknya kini sedang melakukan penyidikan secara khusus atas kasus tersebut. “Saya tidak mau gegabah, nanti malah salah kaprah,” katanya. Sejumlah saksi telah diperiksa, termasuk pemilik toko yang menjual Al-Qur`an itu. Sementara, toko-toko lainnya tidak menjual Al-Qur`an sejenis. Kakanwil Depag Sumbar Dalimi Abdullah menyatakan pihaknya telah membawa surat dan dua Al-Qur’an itu ke Menteri Agama. Sedangkan Ketua MUI Sumbar, Nasrun Haroen, menegaskan masih mencari informasi lebih dalam atas masalah itu. Salah seorang Ketua MUI Sumbar, Buya Mas’oed Abidin, menyatakan pemerintah harus bertindak, sebab kalau diam, rakyat akan marah. “Ini tidak bisa dikatakan sebagai sebuah kelalaian, mungkin di dalamnya ada unsur kesengajaan dan ini pelecehan terhadap Islam,” tegasnya.
Tokoh masyarakat Tilatang Kamang, Usman Hoesen, yang menyumbangkan Al-Qur’an itu menyatakan yang bermasalah dari Al-Qur`an itu adalah kulitnya (cover-nya), bukan ayat-ayat di dalamnya. Al-Qur`an yang “disusupi” itu, katanya, berkulit merah. Dari 200 buah yang dibeli, ada 141 buah yang “disusupi” kata-kata Yesus Kristus, sementara sisanya bersih. Yang disusupi itu merupakan Al-Qur’an keluaran tahun 1994 yang dicetak Percetakan Madu Jaya Makbul Surabaya. Sementara yang bersih dicetak PT Tanjung Emas Inti Semarang. Di Mapolres saat ini ada 60 buah Al-Qur`an yang diambil dari SLTP I, lainnya masih di kecamatan.

Sementara itu, di Jakarta beredar buku putih berjudul Isa Almasih di dalam Al-Qur’an dan Hadits. Buku putih setebal 73 halaman ini jelas diluncurkan missionaris untuk menggoyang akidah umat Islam. Seluruh bagian dalam buku dari cover depan sampai penutupnya sarat dengan penghujatan ajaran Islam manipulasi sejarah dan pemutarbalikan ayat Al-Qur’an dan Hadits Nabi. Sampul depan, di atas judul “Isa Almasih di dalam Al-Qur’an dan Hadits” dipampang kaligrafi surat Az Zukhruf 61 “wattabi’uuni haadzaa shiraatum mustaqiim” (ikutilah aku, inilah jalan yang lurus). Di bawah ayat ini, dipajang gambar Yesus sedang berdiri menginjak-injak kitab suci. Penginjil yang menamakan dirinya (nama alias) Abd.Yadi, hanya berani berbuat, tidak mau bertanggung jawab. Karena dalam buku putihnya, dia tidak berani mencantumkan nama aslinya, nama penerbit dan alamat jelasnya. Seharusnya, jika dia meyakini kebenaran tulisannya, dia harus bersikap gentleman dan jangan main lempar batu sembunyi tangan.

Tugas Pemimpin (Imam) Negara
Dari rangkaian penodaan terhadap Al-Qur’an yang dilakukan oleh para misionaris tadi, tampak bahwa dibuatnya tiruan Al-Qur’an, pengutipan ayat pada cover buku Kristen, serta pelesetan ayat untuk misi tersebut merupakan satu kesatuan mata rantai untuk menghancurkan tegaknya Islam di muka bumi. Karena itu, sudah selayaknya kaum Muslim menyadari bahwa upaya untuk menghadang tegaknya Islam dan upaya mengembalikan mereka kepada kekufuran terus berlangsung hingga detik ini. Selain itu, upaya ‘halus’ memurtadkan kaum Muslim dengan cara memalsukan dan me lecehkan Al-Qur`an merupakan kemungkaran. Untuk menghadapi kemungkaran itu, Rasulullah SAW menyatakan:
“Barangsiapa di antara kalian melihat suatu kemungkaran, maka ubahlah dengan kekuatan; jika tidak mampu maka ubahlah dengan lisan; dan jika tidak mampu maka ubahlah dengan hati (tidak setuju dengan kemungkaran tersebut). Itu adalah selemah-lemahnya iman” (HR Ashabus-Sunan). Hadits itu berlaku umum bagi siapapun. Namun, sebenarnya dalam syariat Islam, yang pertama kali harus bertanggungjawab atas persoalan ini adalah penguasa. Rasulullah saw. menegaskan: “Pemimpin (Imam) itu adalah penggembala, dan dialah yang bertanggungjawab atas rakyat yang digembalakannya.” Dalam hadits ini jelas bahwa penguasalah yang wajib memelihara dan menjaga rakyatnya dalam segala hal, termasuk dalam hal akidahnya.

http://swaramuslim.net/ISLAMKRISTEN/more.php?id=1962_0_7_9_M

Melepaskan Belenggu Kebiasaan: Salah Satu Tujuan Puasa

Al-Hajjaj bin Yusuf (661-714 M), salah seorang pemimpin perang kenamaan Dinasti Umayyah yang melempar Ka’bah dengan manjaniq (meriam-meriam batu), pada suatu hari yang terik meminta kepada pengawalnya agar mengajak seorang “tamu” bersantap siang dengannya. Seorang penggembala yang tinggal di pegunungan menjadi tamunya dan terjadilah dialog berikut :

“Mari kita makan bersama,” ajak Al-Hajjaj. “Aku telah diundang oleh yang lebih mulia dari tuan dan telah kupenuhi undangan itu,” kata si penggembala.
“Siapakah gerangan yang mengundangmu?”. “Tuhan seru sekalian alam, hari ini aku berpuasa.” “Apakah Anda berpuasa pada hari yang terik menyengat ini?”
“Ya. Aku bahkan berpuasa pada hari-hari yang lebih terik.”
“Ayolah kita makan bersama dan besok Anda dapat berpuasa.”
“Apabila kau berbuka hari ini, apakah tuan dapat menjamin usiaku berlanjut hing ga esok sehingga aku dapat berpuasa?” katanya seraya menyunggingkan senyum .
“Tentu saja tidak.” “kalau demikian mengapa tuan meminta sesuatu pada hari ini dan menjanjikan untuk memberikan pada hari esok, sedangkan hari esok bukan berada di tangan tuan?”. Setelah berpikir sejenak, Al-Hajjaj mengajak lagi, ” Ayolah kawan, makanlah bersamaku, makanan yang dihidangkan sungguh lezat.”
Sambil berdiri untuk meninggalkan Al-Hajjaj, si penggembala menolaknya lagi, “Demi Tuhan, yang melezatkannya bukan juru masak tuan, bukan pula jenis makanannya, yang melezakannya adalah afiat (kesehatan ruhani dan jasmani).”

Dialog diatas mengambarkan sebagian dari hasil yang diperoleh seseorang yang berpuasa, yaitu berupa kemampuan untuk mengendalikan diri, menahan rayuan, serta kesadaran akan kehadiran Tuhan pada setiap saat. Manusia tercipta dari Ruh Ilahi dan debu tanah. Potensi dan daya manusia betapapun dinilai hebat , namun terbatas sehingga apabila perhatian dan kegiatannya telah tertuju secara berlebihan ke satu arah – ke arah debu tanah, misalnya – maka akibat keterbatasan dan pemunahan secara berlebihan tersebut, ia tidak memeiliki daya lagi yang cukup untuk digunakan bagi kegiatan dalam bidang-bidang penalaran dan kejiwaan. Dari sisi lain, kehidupan manusia sangat dipengaruhi oleh kebiasaan-kebiasaannya. Apabila ia telah terbiasa dengan pemenuhan kebutuhan ‘faali’-nya secara berlebihan, maka, walaupun ia masih memiliki sisa daya, ia akan mengalami kesulitan yang tidak sedikit guna mengarahkan sisa daya tersebut kedalam hal-hal yang tidak sejalan dengan kebiasaannya. Dengan demikian, membebaskan manusia dari belenggu kebiasaan dan keterikatan kepadanya, merupakan suatu hal yang mutlak dan hal ini merupakan salah satu tujuan dari puasa, baik dalam kebiasaan makan, minum – dengan kadar dan jam-jam tertentu – maupun dalam kebiasaan jam-jam tidur, bangun bekerja, dan sebagainya.

(sumber : “Lentera Hati”, Kisah dan Hikmah Kehidupan”, M. Quraish Shihab, Penerbin Mizan, Maret 1995).

http://www.myquran.com/mutiarakalbu/phqs006.htm

Buku Elektronik Belajar Java Dasar

bgi kawan2 yang ingin belajar tentang java,khususny pemula silahkan download buku ini. akan sangat bermanfaat bagi kwan2 semua..

Daftar isi dari buku ini..

  • Persiapan
  • Java Development Kit
  • Java Runtime Environtment
  • Peralatan yang Diperlukan
  • NetBeans IDE
  • Dasar-Dasar Bahasa Pemrograman Java
  • Tipe Data
  • Variabel
  • Operator
  • Percabangan
  • Perulangan
  • Program Hello World
  • Array
  • Pemrograman Berorientasi Objek
  • Class
  • Paket
  • Interface
  • Inner Class
  • Object
  • Kelas POJO / Java Bean
  • Penanganan Kesalahan
  • Penanganan Secara Bertingkat
  • Melontarkan Exception
  • Membuat Kelas Exception
  • Membuat Kelas RuntimeException
  • Menangkap Kesalahan
  • Blok Finally
  • Kelas – Kelas
  • String
  • Date
  • Calendar
  • Tentang Penulis

Download

Silahkan klik tautan dibawah ini untuk mengunduh ebook Belajar Java Dasar, gratis!

Buku Elektronik Membangun Aplikasi Sederhana Menggunakan Java

siang... melanjutkan postingan sebelumnya.. buku lainnya tentang JAVA. silahkan di downlaod...!!!
Daftar isI dari buku ini
  • Membuat Database
  • Membuat Tabel
  • Membuat Project
  • Membuat Koneksi MySQL
  • Membuat Form Aplikasi
  • Menambah Tombol ke Form
  • Menambah Tabel ke Form
  • Menambahkan Aksi
  • Menambah Aksi Load Data
  • Menambah Aksi Tombol Tambah
  • Menambah Aksi Tombol Ubah
  • Menambah Aksi Tombol Hapus
  • Menambahkan Aksi Baris Terseleksi
  • Menjalankan Program
  • Mendistribusikan Program
  • Tentang Penulis
Download di isni Silahkan klikklik link di bawah ini..

selamat mencoba...........

Buku Elektronik Membangun Aplikasi Client-Server Menggunakan Java

hai kawan2ku semua.. kali ini ane pengen ngesahre buku tentang java, bgi2 kawan yang ingin menambah belajar atau sekedar menambah pengetahuan tentang java, silahkan donload ebook ini. ebook ini sngt bermanfa'at bgi kita yang ingin pintar dalam pemrograman.

DAFTAR ISI dari buku ini:
  • Apa Itu RMI?
  • Syarat object bisa diakses lewat RMI
  • Class harus implements Interface
  • Interface harus extends java.rmi.Remote
  • Class harus exteds java.rmi.server.UnicastRemoteObject
  • Class harus memiliki konstruktor yang throw java.rmi.RemoteException
  • Seluruh metode Interface harus throw java.rmi.RemoteException
  • Membuat Server RMI
  • Menyimpan Object ke Server
  • Menghapus Object dari Server
  • Membuat Client RMI
  • Mengakses Object yang ada di Server
  • Menjalankan RMI
  • Menjalankan Server
  • Menjalankan Client
  • Aplikasi SayHello Berbasih Client-Server
  • Membuat Interface SayHello
  • Membuat Class SayHelloServer
  • Cara membuat project Client Server di NetBeans IDE
  • Membuat Server SayHello
  • Membuat Client SayHello
  • Menjalankan Aplikasi SayHello
  • Lampiran
  • Instalasi JDK
  • Instalasi NetBeans IDE
  • Instalasi MySQL
  • Tentang Penulis
 untuk menDOWNLOAD
SIlahkan klik link yg sya sediakan di bawah ini..
selamat belajar............:D

Download Windows XP Turbo 3D SP3

Sobat blog,, Windows XP Turbo 3dSP3 ini Stabil, Cepat, Aman, Kuat, Tampan 3D penampilan dalam ikon, wallpaper, tema, pergerakan jendela dan segala sesuatu. Windows XP SP3 Turbo ™ 3D 2010 datang Dengan koleksi kuat dari program penuh paling penting (install opsional). Hal ini terintegrasi dengan update terbaru dan hotfix.


== Tentang  Windows XP Turbo 3D SP3 ==
 Release Name: Windows XP-Turbo™ 3D SP3 2010
System: Windows XP Professional SP3 Original MSDN
Year: 2009
CD Key: Already Slipstreamed Original Key
Activation: Already activated
Install method: Unattended
File format: ISO
Size: 700 MB
Bootable
FULLY UPDATEABLE
Accept updates from Microsoft
== Link Download ==

Download Part1
Download Part2
Download Part3
Download Part4
Download Part5

== Panduan Download & Install: ==
  1. Download Tiap Part
  2. Setelah Selesai Download, Langsung Di Rename Sesuai Dengan Original Name
  3. Microsoft Windows XP CompletePure 2011.rar.001 dst.......
  4. Hapus Ekstensi .rar paling belakang (pastikan extensi file di explorer terlihat)
  5. Join dengan Software HJSplit
  6. Buka Dengan WinRar
  7. Ekstrak File Yang Ada Di Dalam WinRar Ke Folder Baru
  8. Masukkan Password Yang Diminta Oleh WinRar.

Cara Hacking Download Di Rapidshare

Zatyabajaitem bagi-bagi trik bagaimana cara mengakali hack rapidshare tanpa software, hanya perlu kecermatan aja. Kita mengakali istilahnya menghack rapidshare supaya kita bisa mendownload secara terus menerus. Biasanya kalo kita setelah mendownload di rapidshare dan kita mau mendownload lagi, pasti disuruh menunggu beberapa menit, jam, bahkan beberapa hari.. bisa-bisa dibanting juga neh PC..hahaPenasaran Tips dan Trik hack nya? cekidot crottt yuk..Mungkin cara ini hampir sepadan bagaimana cara menghack rapidshare premium, atau bagaimana agar download di rapidshare bisa cepat dan kencang. Trik dan tips hack, crack rapidshare ini hanya butuh KETELITIAN DAN CERMAT, alias tanpa software.

Syarat untuk mengakali rapidshare =

1. Dua buah browser (Di cara ini Saya memakai Opera dan internet Explorer ), bisa pilih salah satu.

2. Proxy dan Port
Nah kalian pasti bingung, gimana cara dapatin proxy nya ya..hmm
Santai aja, Zatyabajaitem udah siapkan list proxy dan port nya, klik link di bawah untuk mendownload.

Download List Proxy dan Port

Kemudian sekarang Cara Mengakali Rapidshare nya =

1. Kamu pilih salah satu proxy yang benar-benar mantab dan sekiranya kencang untuk browser.

2. Kemudian lakukan settingan salah satu browser anda Contoh pada Opera
-Pada menu tools--->pilih Preferences...--->lalu pilih Advanced--->piih Network--->klik Proxy severs---beri tanda check pada :
>HTTP
>HTTPS
>FTP
>GOPHER
Isikan Salah satu proxy yang telah kamu pilih dan nomor portnya.
Lalu klik OK--- pokoknya OK ajalah :p

3. Dan sekarang saatnya browsing dan bergerilya untuk mendownload di rapidshare, dan ingat, butuh KECERMATAN!

Setelah masuk ke downloatan Rapidshare Pasti gambar(Perintah) yang Untuk diketik tidak dapat muncul. Untuk itu Pakai Browser lain untuk buka gambar itu. Caranya Pada Opera Klik kanan Pada Image di halaman Rapid itu---->Pilih image properties lalu copy link addres, pastekan di Internet exploer (ENTER) lalu akan muncul halaman sebuah gambar huruf dan angka. ketikkan itu di halaman Rapidshare dan Klik download.

Dan berhasil, kamu bisa download tanpa di batasi detik, menit, bahkan hari.

NB: Kalau sudah berhsil download tapi kecepatannya LEMOT hilangkan tanda Check di :

>HTTP
>HTTPS
>FTP
>GOPHER
yang tadi.
Begitu gan caranya, jika ada kritik, komentar, atau yang lebih mengerti tentang topik di tentang rapidshare, silahkan di share di komentar di bawah, thanks for attention! holaaaa...



source: www.downloadgratis34.blogspot.com

Install Windows XP Dari Flashdisk Menggunakan WinToFlash

Biasanya kita klo menginstal windows menggunakan CD-Rom. tapi sekarang sya akan memberi tahu bagaimana caranya menginstal windows dengan menggunakan USB Flash Disk. Cara ini memang cukup praktis dan efektif daripada menggunakan CD-Rom. Karena kita tidak perlu menggunakan CD yang kadang sudah susah dibaca oleh CD Drive, sehingga proses install berjalan kurang lancar. Cukup dengan menggunakan USB Flash Disk yang berkapasitas minimal 1 GB. Gimana caranya? Ikuti langkah-langkah berikut.
  1. Siapkan USB Flash Disk yang berkapasitas minimal 1 GB. Pastikan tidak ada data penting dalam flash Disk tersebut, karena semua data akan hilang terformat.
  2. Download aplikasi WinToFlash di link dibawah
  3. Siapkan secangir kopi atau teh + rokok kalo perlu (biar ga bosen nunggu proses yang lumayan lama)
  4. Buka aplikasi WinToFlash
  5. Masuk ke Tab Task dan pilih type Windows yang mau di install.
  6. Pilih menu Service --> Switch to Wizard Mode
  7. Akan muncul tampilan Wizard, kemudian klik Next
  8. Isi Windows Files path dengan direktory folder instalasi windows kalian.
  9. Isi USB drive sesuai dengan drive Flash Disk kalian.
  10. Kemudian klik next
  11. Akan ada notifikasi kalau program akan memformat Flash Disk. Pilih aja Ok.
  12. WinToFlash akan mentransfer file instalasi windows ke flash disk kalian. Proses ini memang agak lama. Silakan disambi ngopi dulu :D
  13. Setelah proses transfer selesai klik Next dan Exit
  14. Nah.. Sekarang kalian udah bisa mulai menginstal windows dari flash disk. Tapi ingat! ga semua Komputer bisa melakukan instalasi dari USB Flash Disk! Tergantung pada type Motherboard yang digunakan apakah sudah mendukung fitur Boot dari USB apa belum. Kalo komputer keluaran baru pasti sudah bisa menggunakan cara ini. Kalo motherboard nya ga support USB ya sama aja bokonk :D
    Sekarang tinggal restart/nyalain komputer, masukin USB Flash Disk nya, pilih boot dari USB, dan install windows. Gampang kan?
    To download WinToFlash
    Click DOWNLOAD
    Alternatif Download click HERE

Membuat Efek Grunge pada Foto

Sebenernya membuat efek grunge ini gampang banget.. intinya cuman gabung-gabungin gambar aja…
gak percaya ??
Ini nih bukti nya :
sebelumnya… saya pake gambar-gambar ini untuk membantu pembuatan efek

Klik untuk download gambar-gambar diatas.
Sekarang ke inti nya yah..
Buka gambar yang mau diedit, kita ambil gambar di bawah ini

duplikat layer dengan menekan ctrl + J

Klik Image > adjustment > desaturate atau ketan eh tekan di keyboard CTRL + Shift + U untuk membuat foto jadi hitam putih.
Opacity nya kurangi jadi 50%

sekarang tekan ctrl +J lagi di layer background untuk menduplikat layer background. pindahin hasil duplikat ke paling atas

Klik Filter > Other > Highpass

Ubah layer style menjadi Vivid light

edit foto dasar udah selesai.. sekarang kita main-main dengan gambar yang lain..
buka gambar oldpaper.jpg
drag ke foto yang tadi diedit

atur sedemikian rupa.. atau di pas- in aja setiap ujung nya..
sekarang ubah layer style menjadi menjadi COlor burn

sekarang buka juga batu.jpg .. drag gambar texture batu ke dalam foto yang lagi diedit

Klik add vector mask..
lalu klik brush tool (warna hitam) warnai bagian muka nya.. biar nanti keliatan jelas..
ubah layer style menjadi multiply

hasilnya kayak gini

sekarang buka lagi gambar bantuan terakhir.. gambar tembok.jpg.. Drag ke dalam foto dan atur seperti gambar dibawah

Ubah Opacity nya jadi 50%
Klik add vector mask .. warnai dengan brush tool seperti gambar.

Hasil akhir nya :

Gampangkanya ?
selamat mencoba!

Cara Membuat Vektor/Kartun dengan Photoshop

siang kawan2 smua....,Postingan X ini saya akan memberikan Hal yang sangat spesial untuk sobat semua.Jawabannya : saya ingin memberikan hasil jerih payah saya sendiri untuk di sharing kepada sobat sekalian, yang akan saya share kali ini adalah Tutorial Cara Membuat Vektor/Kartun dengan Photoshop. Mungkin sobat sekalian banyak menemukan situs yang menyediakan Tutorial seperti ini, namun itu berbayar kan. Nah, sekarang Tutorial Bagaimana Cara membuat Vektor telah saya sediakan secara Gratis tis tis.semoga bisa dipahami ya. hehe

langsung saja sedot saja tutorialnya : DISINI

Tutorial Membuat Karikatur

halo kawan2 smua......

Karikatur adalah gambar yang menampilkan kembali suatu objek konkret dengan cara melebih-lebihkan ciri khas objek tersebut. Kata karikatur berasal dari kata Italia caricare yang berarti memberi muatan atau melebih-lebihkan. Karikatur selalu digambarkan untuk menimbulkan kelucuan, walaupun kadang kala agak sinis. Karikatur dapat juga digunakan untuk menonjolkan watak orang yang digambarkannya. Golongan yang sering menjadi objek karikatur adalah orang-orang terkenal seperti politisi dan artis. Orang yang membuat karikatur disebut sebagai karikaturis.

Karikatur dibedakan dari kartun karena karikatur tidak membentuk cerita sebagaimana kartun. Namun demikian, kartun dapat mengandung karikatur, misalnya dalam kartun editorial. Karikatur dalam kartun semacam itu hanya merupakan elemen yang digunakan untuk memperjelas pesan yang disampaikan.
Sejarah
Asal-usul karikatur
Walaupun gambar satire—seperti gambar hewan yang bertingkah laku seperti manusia—sudah ditemukan setidaknya sejak zaman Mesir Kuno, popularitas seni karikatur berasal dari Italia abad Renaisans. Pada mulanya, karikatur dibuat sebagai lelucon iseng oleh para seniman di studio, seperti Leonardo da Vinci dan Carracci bersaudara—Agostino dan Annibale serta Lodovico sepupu mereka, untuk menghibur dirinya sendiri atau kawan-kawannya dengan menggambar patron ataupun subjek lukisannya secara berlebihan. Carracci bersaudara diyakini sebagai seniman-seniman pertama yang terkenal akan karikatur mereka, dan Annibale diyakini sebagai orang pertama yang menggunakan istilah ritrattini carichi (potret yang dilebih-lebihkan). Selanjutnya, Pier Leone Ghezzi menekuni seni ini dan membangun kariernya dengan lebih dari 2.000 karya karikatur orang kebanyakan maupun tokoh terkenal. Karikatur-karikatur tersebut tidak dipublikasikan ataupun disebarluaskan, namun menjadi hiburan di kalangan elite. Setelah menyebar di Italia pada abad ke-16, karikatur sebagai langgam visual baru menyebar ke pers popular Eropa lebih dari seabad kemudian.
Abad ke-18 dan awal abad ke-19
Karikatur sebagai bentuk seni lukis baru berkembang di Inggris setelah penerbitan sejumlah karya Ghezzi dan seniman Italia lainnya pada tahun 1744. Contoh karikaturis Inggris yang popular pada abad ke-18 adalah James Gillray, Thomas Rowlandson, dan George Cruikshank yang menggabungkan unsur karikatur dengan kartun menjadi kartun satire. Namun demikian, pada tahun 1830-an karya-karya mereka sudah kurang popular di Inggris dan kemudian diekspor ke Prancis dalam mingguan La Caricature dan kemudian harian Le Charivari yang sangat sukses, keduanya dipimpin oleh Charles Philipon.
Dua terbitan Charles Philipon tersebut membuat Prancis menjadi pusat baru perkarikaturan. Sejumlah karikaturis terbaik pada zaman itu dipekerjakan oleh Philipon; Paul Gavarni, J.J. Grandville, dan terutama Honoré Daumier, yang dianggap sebagai seniman paling terampil dalam sejarah karikatur. Baik Philipon maupun Daumier pernah ditahan akibat karikatur mereka di kedua terbitan tersebut yang meng-kritik pemerintahan raja Prancis saat itu, Louis-Philippe. Pada salah satu sidang pengadilannya, Philipon menggambar potret Raja Louis-Philippe yang bermetamorfosis menjadi buah pir dan menyatakan pembelaan bahwa ada banyak hal yang mirip satu sama lain di alam sehingga tidak boleh ada pembatasan atas kreativitas seniman. Daumier sendiri pertama kali diadili karena Gargantua, kartun karyanya yang meng-karikaturkan Louis-Philippe sebagai raksasa yang memakan uang rakyat.
Karikaturisme kemudian menyebar ke media lain, yaitu patung, dimulai dari patung-patung karikatur karya Jean-Pierre Dantan. Gaya patung Dantan ini sangat mempengaruhi para seniman karikatur, sehingga mereka pun menciptakan patung-patung kepala penyanyi, penulis, pemusik dunia terkenal dan banyak aktor terkenal dari Comédie-Française. Bentuknya mungil dan menjadi sangat diminati, dipakai sebagai hiasan ujung tongkat, pegangan kayu, topeng, dan alat permainan lainnya.
Akhir abad ke-19
Pada tahun 1868 di London, Thomas Gibson Bowles mulai menerbitkan Vanity Fair, majalah ‘politik, sosial, dan kesusastraan’ yang kemudian terkenal karena memuat karikatur berwarna yang menggambarkan politisi, tokoh sastra, raja atau ratu dari luar negeri, ilmuwan, olahragawan, dan tokoh-tokoh terkenal lain. Sebagian besar karikatur tersebut digambar oleh Carlo Pellegrini—kartunis Italia yang menggunakan nama samaran “Singe” (bahasa Prancis untuk monyet) dan “Ape” (bahasa Inggris untuk kera) untuk mencerminkan pekerjaannya, yaitu menirukan subjeknya dengan tidak sempurna (to ape, dalam bahasa Inggris)dan Leslie Ward (“Spy”), walaupun banyak seniman lain juga berkarya untuk majalah tersebut. Setiap karikatur tersebut diberi komentar yang mengolok-olok oleh Bowles dan editor-editor selanjutnya yang menggunakan nama samaran “Jehu Junior”. Majalah ini disebut sebagai yang paling banyak dibaca oleh para pejabat dan orang kaya Inggris dibandingkan dengan mingguan lainnya.
Karikatur Vanity Fair tersebut memengaruhi Joseph Keppler, imigran Austria yang menerbitkan majalah Puck di New York, Amerika Serikat. Mulai terbit dalam bahasa Jerman pada tahun 1876 dan kemudian bahasa Inggris setengah tahun kemudian, majalah ini juga memuat karikatur tokoh-tokoh terkenal yang disebut puckograph. Kesuksesan Puck mengilhami penerbit lain untuk menirunya, dan segera saja surat kabar-surat kabar dan terbitan tetap lainnya mulai secara rutin memuat karikatur.
Awal abad ke-20
Pada awal dekade ke-2 abad ke-20, Marius de Zayas, seorang karikaturis Meksiko yang hijrah ke New York, mengembangkan gaya seni lukis yang ia sebut karikatur abstrak. Selama berkarya di Meksiko maupun pada tahun-tahun pertamanya di New York, de Zayas menggunakan gaya yang realistik dan representasional. Namun demikian, sewaktu mengunjungi Paris selama hampir setahun penuh dan setelah bertemu Picasso dengan gaya kubismenya, de Zayas mengungkapkan ketidakpuasannya atas metode karikatur tradisional. Sekembalinya ke Amerika Serikat pada tahun 1911, de Zayas mulai mengeksplorasi gaya barunya yang memadukan bentuk-bentuk geometris datar simetris dan persamaan-persamaan matematika. Dengan gaya karikaturnya itu, de Zayas disebut “menjembatani kesenjangan antara karikatur pesohor populer dalam media komersial dengan keprihatinan dunia seni avant-garde untuk menemukan cara inovatif menggambarkan manusia tanpa kemiripan tersurat”.
Seusai Perang Dunia I, popularitas karikatur berkembang secara dramatis di Amerika Serikat seiring dengan perkembangan film, fotografi, dan majalah yang membuat wajah para pesohor dari bintang film sampai atlet dan politisi dengan mudah dikenali oleh umum. Karikatur teatrikal menjadi genre tersendiri dalam seni populer masa tersebut, dimulai oleh Al Frueh yang menerbitkan Stage Folk, kumpulan karikaturnya yang bergaya Art Deco, pada tahun 1922. Pada tahun yang sama, Ralph Barton juga terkenal sebagai karikaturis teatrikal setelah menghiasi tirai teater pada salah satu pertunjukan di Broadway dengan 139 karikatur bintang teater, kritikus drama, dan orang-orang ternama dari masyarakat kelas atas New York. Miguel Covarrubias, yang berasal dari Meksiko, menyusul dengan karyanya di berbagai surat kabar dan majalah serta buku kumpulan karikatur pertamanya yang terbit pada tahun 1925, The Prince of Wales and Other Famous Americans. Alex Gard yang berimigrasi dari Rusia juga mengkhususkan diri menggambar tokoh-tokoh teater, terutama lebih dari 700 karyanya yang terpampang di dinding restoran “Sardi’s” di New York yang digambar dengan imbalan makan gratis di restoran tersebut sejak tahun 1927 hingga kematiannya tahun 1948. Namun demikian, Al Hirschfeld adalah seniman yang dianggap sebagai tetua semua karikaturis teatrikal.
Karikatur teatrikal Hirschfeld mulai dimuat di sejumlah surat kabar di New York setelah karikatur aktor Prancis Sacha Guitry karyanya, yang semula ia gambar pada salah satu pertunjukan teater Guitry dan membuat seorang wartawan terkesan hingga menyarankan Hirschfeld untuk menjualnya, dimuat di halaman depan surat kabar New York Herald Tribune pada tahun 1926. Akan tetapi, gaya khas karikatur kaligrafis linear Hirschfeld baru berkembang setelah ia mengunjungi Bali pada tahun 1932 atas undangan Covarrubias. Ia mengaku terkesan dengan wayang kulit Jawa dan dipengaruhi oleh gaya seniman ukiyo-e Jepang seperti Harunobu, Utamaro, dan Hokusai, maupun oleh Covarrubias. Sepanjang kariernya, ia membuat karikatur hampir semua tokoh penting teater Amerika Serikat, dan orang yang sudah dibuat karikaturnya oleh Hirschfeld menjadi dianggap tokoh sukses. Karyanya tampil pada hampir semua terbitan ternama selama sembilan dekade, termasuk hampir tujuh puluh lima tahun pada harian The New York Times, serta banyak poster, buku, dan sampul rekaman, hingga kematiannya pada tahun 2003.
anda sudah tahu apa itu karikatur?
oke di sini saya akan membagikan tutorial cara membuat karikatur dengan photoshop: silakan download DISINI
selamat mencoba..............

SMADAV 8.7 Pro Terbaru 2011

SMADAV 8.7 Pro Terbaru 2011 | Aplikasi AntivirusDownload SMADAV 8.7 | SMADAV 8.7 Pro Terbaru 2011Download SMADAV 8.7 | SMADAV 8.7 Pro Terbaru 2011 – Akhirnya SMADAV 8.7 dan SMADAV 8.7 Pro Terbaru 2011 telah dirilis pada akhir awal Oktober 2011 dan ini cukup menggembirakan bagi pengguna setia Anti Virus Lokal terbaik 2011 ini. Keberadaan SMADAV 8.7 dan SMADAV 8.7 Pro Terbaru 2011 sebagai anti virus yang membentengi komputer kita dari serangan virus ganas buatan dalam negeri sangat membantu keamanan data netter selama ini. Seperti diketahui, Anti Virus seperti Kasversky, Avira, Norton atau lainya dibuat tidak berkutik oleh keganasan virus lokal. Oleh sebab itu SMADAV 8.7 dan SMADAV 8.7 Pro Terbaru 2011 adalah jawaban dalam memberantas virus lokal tersebut.

Norton Internet Security 2012 Final Full Version + Crack

Kali ini ane mau share antivirus yang sudah tidak asing lagi yaitu Norton Internet Security 2012 atau yang biasa disingkat NIS 2012. Dan tak lupa saya sertakan crack yang aktif 1 tahun (340 day remaining) + serial number Norton Internet Security 2012 percobaan selama 3 bulan.Yang mau mencoba NIS 2012 silahkan di cek.

Cara mempercepat koneksi modem smartfren

http://farm5.static.flickr.com/4078/4889131889_11e1f21be9.jpgSmartfren evdo dengan gebrakannya mampu membuat pasar internet benar benar heboh, karena dengan harga yang lumayan terjangkau bisa memberikan layanan yang luar biasa cepat, tapi kadang kala modem yang kita gunakan tidak bisa menjangkau semua area, dan ini akan membuat modem smartfren anda akan sangat lambat, Cara mempercepat modem smartfren berikut saran yang saya berikan ini, ada dua macam cara:
Yang pertama anda bisa melakukan modifikasi di Modem, Anda bisa mengubah setingannya, Coba saja masukkan number: #777 username: wap password: wap. Saya udah coba dan lumayanlah buat modem HP smart
yang kedua, anda bisa menggunakan software, software ini bisa anda gunakan dengan modem mana saja, software ini akan meningkatkan kecepatan internet anda menjadi 5 kali lebih cepat. anda bisa segera mendownload software tersebut Disini

Trik Internetan Modem Smartfrend internet unlimited Gratis



Cara mudah membobol  Modem Smartfrend untuk berinternetan sepuasnya. Pasti hal ini yang anda tunggu-tunggukan. Memang anda itu tidal modal maunya gratisan terus. Dan kali ini saya akan share cara Internetan Modem Smartfrend internet unlimited Gratis.

Pertama saya tidak yakin dengan software yang saya download dari situs lain yang terlebih dulu share software ini. Software ini bernama "ispce" Saya pun belum pernah mencoba software ini, yang katanya bisa buat bobol Modem smartfrend.



Dari pada saya ngmong panjang lebar , mari kita praktekan bersama-sama cara mudah membobol Modem Smartfrend untuk untuk berinternetan sepuasnya. Caranya cukup mudah kok.


Trik Internet Gratis XL update 20 Oktober 2011

bgi tmen2 yang internet gratongan ni q mau ngeshare trik internet gratis pake xl.... http://gadis.blogstudent.mb.ipb.ac.id/files/2011/03/xl.gif

setting HP :
➨ APN = www.xlgprs.net
➨ Homepage = http://prov.5hd.net
➨ Proxy = 141.000.011.253
➨ Port = 80
Setting operamini handler
➨ HTTP Server = http:// server4.operamini.com:80
➨ Socket Server = socket:// server4.operamini.com:1080
➨ Proxy Type = HTTP
➨ Proxy Server = xlgo.co.id


slamat gratongan....

Install Windows 7 Dari Flashdisk


images Windows 7 yang dijual pasti berbentuk kepingan DVD. Berarti untuk menginstallnya harus menggunakan DVD-ROM. Tapi bagaimana jika DVD-ROM anda sedang rusak atau anda menggunakan Netbook yang biasanya tidak memiliki DVD-ROM internal. Apakah anda mencari DVD-ROM Eksternal? Cara yang lebih mudah adalah menginstall Windows 7 menggunakan media flashdisk. Bagaimana caranya?

Untitled


CARA MEMBUAT ANTIVIRUS DENGAN VISUAL BASIC 6



1.Buka program microsoft visual basic 6.0 -> Standard EXE -> OK maka akan tampil form baru sesuai dengan gambar di bawah,desain form sesuai keinginan anda





Beri nama form tersebut : frmUtama

2.Setelah form selesai di rubah namanya tambahkan component Mscomctl.Ocx dengan cara
Klik Project -> Components -> Microsoft Windows Common Controls 6.0 -> lalu klik OK
Contoh seperti gambar di bawah




3.Setelah component sukses di tambahkan langkah selanjutnya adalah menambah Command Button,Textbox,Listview,Picture Box
disini saya menggunakan desain yang sangat sederhana,desain bisa anda rubah sendiri sesuai kreatifitas anda ^^

- Tambahkan Listview kedalam form dan beri nama lvScan



yang saya lingkari merah adalah listview yang telah di tambahkan ke dalam form.

setelah itu setting listview dengan cara
Klik Listview -> Disebelah kanan bawah ada kotak properties -> Custom
lalu ikuti settingan seperti pada gambar di bawah ini


Lalu pada tab Column Headers klik insert column
- Column 1 beri nama : Virus Name
- Column 2 beri nama : Path
- Column 3 beri nama : Checksum Virus
- Column 4 beri nama : Status Virus
lalu klik Ok

Tambahkan picture box buat picture box itu sekecil mungkin dan beri nama sIcon
Setting :
Appearance : Flat
Auto Redraw : True
Border Style : None
Visible : False

Tambahkan Textbox ke dalam form dengan nama txtPath
Setting :
Appearance : Flat
Border Style : None

Tambahkan Command Button dengan nama cmdBrowse di samping Textbox yang telah di buat tadi
Setting :
Caption : ...

Masukan Code ini ke dalam cmdBrowse

Spoiler
Code:
Dim Pathnya As String
Pathnya = ""
Pathnya = BrowseFolder("Pilih folder yang akan di Scan:", Me)
If Pathnya <> "" Then
txtPath.Text = Pathnya
End If

Code di atas berfungsi untuk membuka kotak dialog yang berisi path" yang ada di dalam komputer lalu mencetaknya ke dalam textbox yang bernama txtPath

Tambahkan label dengan nama default
Setting :
Caption : Dir Scanned

Tambahkan label dengan nama lblDirScan
Setting :
Caption : 0

Tambahkan label dengan nama default
Setting :
Caption : Detected

Tambahkan label dengan nama lblFileDet
Setting :
Caption : 0

Tambahkan label dengan nama default
Setting :
Caption : File Scanned

Tambahkan label dengan nama lblFileScan
Setting :
Caption : 0

Tambahkan Textbox dengan nama txtFileScan
Setting :
Multiline : True
Scroll Bar : 2-Vertical

Tambahkan Command Button dengan nama cmdScan
Setting :
Caption : &Scan

Spoiler
'Code:
If cmdScan.Caption = "Scan" Then
Pathnya = txtPath.Text
If Mid(Pathnya, 2, 1) <> ":" Or Pathnya = "" Then
MsgBox "Direktori Tidak Ditemukan", vbCritical, "Error"
Exit Sub
Else
lvScan.Enabled = False
cmdEnable False, False, False
clear_log
cmdScan.Caption = "Stop"
StopScan = False
FindFilesEx txtPath.Text, CBool(chkSubDir.Value)
MsgBox "Scan finished !" & vbNewLine & vbNewLine & "Total Dir Scanned = " & lblDirScan.Caption & _
vbNewLine & "Total File Scanned = " & lblFileScan.Caption & vbNewLine & "Total File Detected = " & lblFileDet.Caption, vbInformation, "Finish"
If lblFileDet.Caption <> "0" Then
cmdEnable True, True, True
Else
cmdEnable False, False, True
End If
lvScan.Enabled = True
cmdScan.Caption = "Scan"
End If
Else
cmdScan.Caption = "Scan"
StopScan = True
End If


fungsi kode di atas adalah untuk memulai scan pada antivirus

Tambahkan Command Button dengan nama cmdAction
Setting :
Caption : &Delete

Tambahkan Command Button dengan nama cmdAction
Setting :
Caption : &Quarantine

Tambahkan Command Button dengan nama cmdViewQ
Setting :
Caption : &View Quarantine File

Tambahkan Command Button dengan nama cmdAction
Setting :
Caption : &Delete

Tambahkan kode ini di dalamnya

Spoiler
'Code:
Dim DftrFile As String
DftrFile = GetSelected(lvScan)
If DftrFile = "" Then
MsgBox "No Detected File(s) Selected", vbCritical, ""
Exit Sub
End If
Select Case Index
Case 0
clean = Action(DftrFile, lvScan, "D")
MsgBox clean & " File(s) has been deleted"
Case 1
clean = Action(DftrFile, lvScan, "Q")
MsgBox clean & " File(s) has been quarantine"
End Select


Fungsi di atas adalah fungsi untuk menghapus/mengkarantina file yang terdeteksi

Tambahkan Command Button dengan nama cmdAction
Setting :
Caption : &Quarantine

Tambahkan Command Button dengan nama cmdViewQ
Setting :
Caption : &View Quarantine File

Lalu masukan code ini ke dalamnya
Spoiler
Me.hide
frmquarantine.show


Code di atas berfungsi untuk memunculkan form quarantine dan meng enabled form utama

nah selesai untuk memasukan control ke dalam formnya
contoh form yang telah selesai.



lalu klik kanan pada form masukan kode di bawah ini

Spoiler
/Code:
Private Sub lvScan_ItemCheck(ByVal Item As MSComctlLib.ListItem)
UnSelect lvScan, "Di Karantina"
UnSelect lvScan, "Di Hapus"
End Sub

Private Function cmdEnable(hapus As Boolean, Quarantine As Boolean, openQuarantine As Boolean)
cmdAction(0).Enabled = hapus
cmdAction(1).Enabled = Quarantine
cmdViewQ.Enabled = openQuarantine
End Function

Private Function clear_log()
lblDirScan.Caption = 0
lblFileScan.Caption = 0
lblFileDet.Caption = 0
lvScan.ListItems.Clear
jumlahDir = 0
jumlahFile = 0
jumlahVirus = 0
End Function


lalu di Form_load() masukan kode ini
Spoiler
'Code:
On Error Resume Next
MkDir "Quarantine"
BuildDatabase


Lalu buatlah 1 module dengan nama modAPI

Lalu tambahkan code di bawah ini
Spoiler
'Code:
Public Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
Public Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long
Public Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long
Public Declare Function PathIsDirectory Lib "shlwapi.dll" Alias "PathIsDirectoryA" (ByVal pszPath As String) As Long
Public Declare Function CopyFile Lib "kernel32.dll" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
Public Declare Function MoveFile Lib "kernel32.dll" Alias "MoveFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String) As Long
Public Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long
Public Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long
Public Declare Function GetSystemDirectory Lib "kernel32.dll" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Public Declare Function GetWindowsDirectory Lib "kernel32.dll" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Public Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long
Public Declare Function SHBrowseForFolder Lib "shell32.dll" Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long
Private Declare Function RealizePalette Lib "gdi32" (ByVal hDC As Long) As Long
Public Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, lpSecurityAttributes As Any, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Public Declare Function GetFileSize Lib "kernel32" (ByVal hFile As Long, lpFileSizeHigh As Long) As Long
Public Declare Function VirtualAlloc Lib "kernel32" (lpAddress As Any, ByVal dwSize As Long, ByVal flAllocationType As Long, ByVal flProtect As Long) As Long
Public Declare Function ReadFile Lib "kernel32" (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToRead As Long, lpNumberOfBytesRead As Long, lpOverlapped As Any) As Long
Public Declare Function WriteFile Lib "kernel32" (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToWrite As Long, lpNumberOfBytesWritten As Long, lpOverlapped As Any) As Long
Public Declare Function SetFilePointer Lib "kernel32" (ByVal hFile As Long, ByVal lDistanceToMove As Long, lpDistanceToMoveHigh As Long, ByVal dwMoveMethod As Long) As Long
Public Declare Function SetEndOfFile Lib "kernel32" (ByVal hFile As Long) As Long

Public Const GENERIC_READ = &H80000000
Public Const GENERIC_WRITE = &H40000000
Public Const FILE_SHARE_READ = &H1
Public Const OPEN_EXISTING = 3
Public Const FILE_ATTRIBUTE_NORMAL = &H80
Public Const INVALID_HANDLE_VALUE = -1
Public Const FILE_END = 2
Public Const FILE_BEGIN = 0
Public Const FILE_CURRENT = 1
Public Const LWA_COLORKEY = &H1
Public Const GWL_EXSTYLE = (-20)
Public Const WS_EX_LAYERED = &H80000
Public Const MAX_PATH = 260
Public Const SW_SHOWNORMAL = 1

Public Type FileTime
dwLowDateTime As Long
dwHighDateTime As Long
End Type

Public Type WIN32_FIND_DATA
dwFileAttributes As Long
ftCreationTime As FileTime
ftLastAccessTime As FileTime
ftLastWriteTime As FileTime
nFileSizeHigh As Long
nFileSizeLow As Long
dwReserved0 As Long
dwReserved1 As Long
cFileName As String * MAX_PATH
cAlternate As String * 14
End Type

Type BROWSEINFO
hOwner As Long
pidlRoot As Long
pszDisplayName As String
lpszTitle As String
ulFlags As Long
lpfn As Long
lParam As Long
iImage As Long
End Type

'untuk browse folder
Public Function BrowseFolder(ByVal aTitle As String, ByVal aForm As Form) As String
Dim bInfo As BROWSEINFO
Dim rtn&, pidl&, path$, pos%
Dim BrowsePath As String
bInfo.hOwner = aForm.hWnd
bInfo.lpszTitle = aTitle
bInfo.ulFlags = &H1
pidl& = SHBrowseForFolder(bInfo)
path = Space(512)
t = SHGetPathFromIDList(ByVal pidl&, ByVal path)
pos% = InStr(path$, Chr$(0))
BrowseFolder = Left(path$, pos - 1)
If Right$(Browse, 1) = "\" Then
BrowseFolder = BrowseFolder
Else
BrowseFolder = BrowseFolder + "\"
End If
If Right(BrowseFolder, 2) = "\\" Then BrowseFolder = Left(BrowseFolder, Len(BrowseFolder) - 1)
If BrowseFolder = "\" Then BrowseFolder = ""
End Function

Public Function StripNulls(ByVal OriginalStr As String) As String
If (InStr(OriginalStr, Chr$(0)) > 0) Then
OriginalStr = Left$(OriginalStr, InStr(OriginalStr, Chr(0)) - 1)
End If
StripNulls = OriginalStr
End Function

'fungsi untuk menentukan file script atau bukan
Public Function IsScript(Filename As String) As Boolean
IsScript = False
ext = Split("|vbs|vbe", "|")
For i = 1 To UBound(ext)
If LCase(Right(Filename, 3)) = LCase(ext(i)) Then IsScript = True
Next
End Function

Code di atas adalah Fungsi API yang di butuhkan untuk antivirus

Buat 1 module dengan nama modChecksum
masukan code di bawah ini.

Spoiler
'Code:
Public Function GetChecksum(FilePath As String) As String
Dim CheckSum(1 To 2) As String
CheckSum(1) = CalcBinary(FilePath, 499, 4500)
CheckSum(2) = CalcBinary(FilePath, 499, 4000)
GetChecksum = CheckSum(1) & CheckSum(2)
End Function
Public Function CalcBinary(ByVal lpFileName As String, ByVal lpByteCount As Long, Optional ByVal StartByte As Long = 0) As String
On Error GoTo err
Dim Bin() As Byte
Dim ByteSum As Long
Dim i As Long
ReDim Bin(lpByteCount) As Byte
Open lpFileName For Binary As #1
If StartByte = 0 Then
Get #1, , Bin
Else
Get #1, StartByte, Bin
End If
Close #1
For i = 0 To lpByteCount
ByteSum = ByteSum + Bin(i) ^ 2
Next i
CalcBinary = Hex$(ByteSum)
Exit Function
err:
CalcBinary = "00"
End Function

potongan code di atas di gunakan untuk meng kalkulasi checksum

buat 1 module lagi dengan nama modDatabase
lalu tambahkan code di bawah ini.

Spoiler
'Code:
Public VirusDB(5), IconDB(48), Bahaya(5) As String
Public Sub BuildDatabase()
Call Checksum_DB
Call IconCompare_DB
Call Script_DB
End Sub
Private Sub Checksum_DB()
VirusDB(1) = "Alman.A|8911D290F723"
VirusDB(2) = "Malingsi.A|A6292EA60230"
VirusDB(3) = "Conficker.A|9EC112ABB2F3"
VirusDB(4) = "N4B3.A|B5CCD36CDB98"
VirusDB(5) = "N4B3.B|A1FE6D6DBE07"
End Sub
Public Sub IconCompare_DB()
On Error Resume Next
IconDB(1) = "20938B2"
IconDB(2) = "19F4ED6"
IconDB(3) = "133BE0B"
IconDB(4) = "18EDEAE"
IconDB(5) = "1EF89C2"
IconDB(6) = "1C915FF"
IconDB(7) = "24563C4"
IconDB(8) = "1B2DB74"
IconDB(9) = "208EA72"
IconDB(10) = "22A064D"
IconDB(11) = "19B64EE"
IconDB(12) = "1D4B7E1"
IconDB(13) = "2087762"
IconDB(14) = "29C7258"
IconDB(15) = "1B18705"
IconDB(16) = "1B5FCAB"
IconDB(17) = "126D4CF"
IconDB(18) = "1C58E5C"
IconDB(19) = "15D7730"
IconDB(20) = "1FB82B7"
IconDB(21) = "112763E"
IconDB(22) = "2165AF9"
IconDB(23) = "25F46BE"
IconDB(24) = "206556B"
IconDB(25) = "22A8D69"
IconDB(26) = "19237F8"
IconDB(27) = "15022B4"
IconDB(28) = "1D8B4EB"
IconDB(29) = "1DBC1EA"
IconDB(30) = "2333F5D"
IconDB(31) = "1F37C2F"
IconDB(32) = "1C9CCA4"
IconDB(33) = "1DFDFB4"
IconDB(34) = "1C1283E"
IconDB(35) = "1F6598C"
IconDB(36) = "27F4C1A"
IconDB(37) = "22F92E0"
IconDB(38) = "191DBDC"
IconDB(39) = "27BFE4A"
IconDB(40) = "20E0907"
IconDB(46) = "2FA4C88"
IconDB(47) = "25AA630"
IconDB(48) = "1DE28E2"
End Sub
Public Sub Script_DB()
On Error Resume Next
Bahaya(1) = "Scripting.FileSystemObject|Wscript.ScriptFullName|WScript.Shell|.regwrite|.copy"
Bahaya(2) = "Wscript.ScriptFullName|createobject|strreverse|.regwrite"
Bahaya(3) = "createobject|Wscript.ScriptFullName|.regwrite|[autorun]"
Bahaya(4) = "createobject|Wscript.ScriptFullName|specialfolder|.regwrite"
Bahaya(5) = "chr(asc(mid(|createobject|Wscript.ScriptFullName|.GetFolder|.RegWrite"
End Sub

potongan code di atas adalah database pada antivirusnya

buat lagi 1 buah module dengan nama modQuar
masukan code yang ada di bawah ini
Spoiler

Code:
Option Explicit
Public Function EncodeFile(SourceFile As String, DestFile As String)
Dim ByteArray() As Byte, Filenr As Integer
Filenr = FreeFile
Open SourceFile For Binary As #Filenr
ReDim ByteArray(0 To LOF(Filenr) - 1)
Get #Filenr, , ByteArray()
Close #Filenr
Call Coder(ByteArray())
If (PathFileExists(DestFile)) <> 0 Then DeleteFile DestFile
Open DestFile For Binary As #Filenr
Put #Filenr, , ByteArray()
Close #Filenr
End Function
Public Function DecodeFile(SourceFile As String, DestFile As String)
Dim ByteArray() As Byte, Filenr As Integer
Filenr = FreeFile
Open SourceFile For Binary As #Filenr
ReDim ByteArray(0 To LOF(Filenr) - 1)
Get #Filenr, , ByteArray()
Close #Filenr
Call DeCoder(ByteArray())
If (PathFileExists(DestFile)) <> 0 Then DeleteFile DestFile
Open DestFile For Binary As #Filenr
Put #Filenr, , ByteArray()
Close #Filenr
End Function
Private Sub Coder(ByteArray() As Byte)
Dim x As Long
Dim Value As Integer
Value = 0
For x = 0 To UBound(ByteArray)
Value = Value + ByteArray(x)
If Value > 255 Then Value = Value - 256
ByteArray(x) = Value
Next
End Sub
Private Sub DeCoder(ByteArray() As Byte)
Dim x As Long
Dim Value As Integer
Dim newValue As Integer
newValue = 0
For x = 0 To UBound(ByteArray)
Value = newValue
newValue = ByteArray(x)
Value = ByteArray(x) - Value
If Value < 0 Then Value = Value + 256 ByteArray(x) = Value Next End Sub
Code di atas adalah code untuk enkripsi/dekripsi pada virus yang akan di karantina

Buat lagi 1 module dengan nama modHeuristic
lalu masukan code di bawah ini
Spoiler
'Code:
Private Declare Function ExtractIconEx Lib "shell32.dll" Alias "ExtractIconExA" (ByVal lpszFile As String, ByVal nIconIndex As Long, ByRef phiconLarge As Long, ByRef phiconSmall As Long, ByVal nIcons As Long) As Long
Private Declare Function DestroyIcon Lib "user32.dll" (ByVal hIcon As Long) As Long
Private Declare Function DrawIconEx Lib "user32" (ByVal hDC As Long, ByVal xLeft As Long, ByVal yTop As Long, ByVal hIcon As Long, ByVal cxWidth As Long, ByVal cyWidth As Long, ByVal istepIfAniCur As Long, ByVal hbrFlickerFreeDraw As Long, ByVal diFlags As Long) As Boolean
Private Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, ByVal lpszExefileName As String, ByVal nIconIndex As Long) As Long
Private Const DI_MASK = &H1
Private Const DI_IMAGE = &H2
Private Const DI_NORMAL = &H3
Private Const DI_COMPAT = &H4
Private Const DI_DEFAULTSIZE = &H8
Private Const SHGFI_DISPLAYNAME = &H200
Private Const SHGFI_EXETYPE = &H2000
Private Const SHGFI_SYSICONINDEX = &H4000
Private Const SHGFI_LARGEICON = &H0
Private Const SHGFI_SMALLICON = &H1
Private Const ILD_TRANSPARENT = &H1
Private Const SHGFI_SHELLICONSIZE = &H4
Private Const SHGFI_TYPENAME = &H400
Private Const BASIC_SHGFI_FLAGS = SHGFI_TYPENAME Or SHGFI_SHELLICONSIZE Or SHGFI_SYSICONINDEX Or SHGFI_DISPLAYNAME Or SHGFI_EXETYPE
Private SIconInfo As SHFILEINFO
Private SectionHeaders() As IMAGE_SECTION_HEADER
Dim i As Integer
Dim j As Integer
Public Function CekHeuristic(Filename As String)
CekHeuristic = ""
On Error GoTo hError
Dim hFile As Long, bRW As Long
Dim DOSheader As IMAGE_DOS_HEADER
Dim NTHeaders As IMAGE_NT_HEADERS
Dim Filedata As String
DOS_HEADER_INFO = ""
NT_HEADERS_INFO = ""
hFile = CreateFile(Filename, ByVal (GENERIC_READ Or GENERIC_WRITE), FILE_SHARE_READ, ByVal 0&, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, ByVal 0)
ReadFile hFile, DOSheader, Len(DOSheader), bRW, ByVal 0&
SetFilePointer hFile, DOSheader.e_lfanew, 0, 0
ReadFile hFile, NTHeaders, Len(NTHeaders), bRW, ByVal 0&
If NTHeaders.Signature <> IMAGE_NT_SIGNATURE Then
If IsScript(Filename) = True Then
Open Filename For Binary As #1
Filedata = Space$(LOF(1))
Get #1, , Filedata
Close #1
CekHeuristic = CekHeur(Filedata)
End If
Exit Function
End If
CekHeuristic = CekIconBinary(Filename)
hError:
End Function
Private Function CekHeur(Data As String)
Dim hsl, asl As Integer
strasli = LCase(Replace(Data, vbNewLine, "$"))
For i = 1 To UBound(Bahaya)
hsl = 0
strData = Split(Bahaya(i), "|")
asl = 0
For k = 0 To UBound(strData)
xxx = LCase(strData(k))
If InStr(strasli, xxx) > 0 Then hsl = hsl + 1
asl = asl + 1
Next
If hsl = asl Then
CekHeur = "Malicious-Script"
Exit Function
End If
Next
CekHeur = ""
End Function
Private Function CekIconBinary(PathFile As String)
Dim q As Integer
Dim IconIDNow As String
CekIconBinary = ""
IconIDNow = CalcIcon(PathFile)
If IconIDNow = "" Then Exit Function
For q = 1 To UBound(IconDB)
If IconDB(q) = IconIDNow Then
CekIconBinary = "Malicious-Icon"
Exit Function
End If
Next q
End Function
Private Function CalcBinary(ByVal lpFileName As String, ByVal lpByteCount As Long, Optional ByVal StartByte As Long = 0) As String
Dim Bin() As Byte
Dim ByteSum As Long
Dim i As Long
ReDim Bin(lpByteCount) As Byte
Open lpFileName For Binary As #1
If StartByte = 0 Then
Get #1, , Bin
Else
Get #1, StartByte, Bin
End If
Close #1
For i = 0 To lpByteCount
ByteSum = ByteSum + Bin(i) ^ 2
Next i
CalcBinary = Hex$(ByteSum)
End Function
Private Function CalcIcon(ByVal lpFileName As String) As String
Dim PicPath As String
Dim ByteSum As String
Dim IconExist As Long
Dim hIcon As Long
IconExist = ExtractIconEx(lpFileName, 0, ByVal 0&, hIcon, 1)
If IconExist <= 0 Then IconExist = ExtractIconEx(lpFileName, 0, hIcon, ByVal 0&, 1) If IconExist <= 0 Then Exit Function End If frmUtama.sIcon.BackColor = vbWhite DrawIconEx frmUtama.sIcon.hDC, 0, 0, hIcon, 0, 0, 0, 0, DI_NORMAL DestroyIcon hIcon PicPath = Environ$("windir") & "\tmp.tmp" SavePicture frmUtama.sIcon.Image, PicPath ByteSum = CalcBinary(PicPath, FileLen(PicPath)) DeleteFile PicPath CalcIcon = ByteSum End Function
Fungsi di atas adalah fungsi untuk mengecek suatu file dengan metode heuristic icon + heuristic untuk virus VBS

Buat 1 module dengan nama modIconCompare
lalu masukan code di bawah ini
Spoiler
'Code:
Option Explicit
Private 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 Or SHGFI_SHELLICONSIZE Or SHGFI_SYSICONINDEX Or SHGFI_DISPLAYNAME Or SHGFI_EXETYPE
Public Type SHFILEINFO
hIcon As Long: iIcon As Long: dwAttributes As Long: szDisplayName As String * MAX_PATH: szTypeName As String * 80
End Type
Private Declare Function SHGetFileInfo Lib "shell32.dll" Alias "SHGetFileInfoA" (ByVal pszPath As String, ByVal dwFileAttributes As Long, psfi As SHFILEINFO, ByVal cbSizeFileInfo As Long, ByVal uFlags As Long) As Long
Private Declare Function ImageList_Draw Lib "comctl32.dll" (ByVal himl As Long, ByVal i As Long, ByVal hdcDest As Long, ByVal x As Long, ByVal y As Long, ByVal flags As Long) As Long
Private shinfo As SHFILEINFO, sshinfo As SHFILEINFO
Private Declare Function DrawIconEx Lib "user32.dll" (ByVal hDC As Long, ByVal xLeft As Long, ByVal yTop As Long, ByVal hIcon As Long, ByVal cxWidth As Long, ByVal cyWidth As Long, ByVal istepIfAniCur As Long, ByVal hbrFlickerFreeDraw As Long, ByVal diFlags As Long) As Long
Private SIconInfo As SHFILEINFO

Public Enum IconRetrieve
ricnLarge = 32
ricnSmall = 16
End Enum

Public Sub RetrieveIcon(fName As String, DC As PictureBox, icnSize As IconRetrieve)
Dim hImgSmall, hImgLarge As Long
Debug.Print fName
Select Case icnSize
Case ricnSmall
hImgSmall = SHGetFileInfo(fName$, 0&, shinfo, Len(shinfo), BASIC_SHGFI_FLAGS Or SHGFI_SMALLICON)
Call ImageList_Draw(hImgSmall, shinfo.iIcon, DC.hDC, 0, 0, ILD_TRANSPARENT)
Case ricnLarge
hImgLarge& = SHGetFileInfo(fName$, 0&, shinfo, Len(shinfo), BASIC_SHGFI_FLAGS Or SHGFI_LARGEICON)
Call ImageList_Draw(hImgLarge, shinfo.iIcon, DC.hDC, 0, 0, ILD_TRANSPARENT)
End Select
End Sub
Public Function ExtractIcon(Filename As String, AddtoImageList As ImageList, PictureBox As PictureBox, PixelsXY As IconRetrieve, iKey As String) As Long
Dim SmallIcon As Long
Dim NewImage As ListImage
Dim IconIndex As Integer
On Error GoTo Load_New_Icon
If iKey <> "Application" And iKey <> "Shortcut" Then
ExtractIcon = AddtoImageList.ListImages(iKey).Index
Exit Function
End If
Load_New_Icon:
On Error GoTo Reset_Key
RetrieveIcon Filename, PictureBox, PixelsXY
IconIndex = AddtoImageList.ListImages.Count + 1
Set NewImage = AddtoImageList.ListImages.Add(IconIndex, iKey, PictureBox.Image)
ExtractIcon = IconIndex
Exit Function
Reset_Key:
iKey = ""
Resume
End Function
Public Sub GetLargeIcon(icPath$, pDisp As PictureBox)
Dim hImgLrg&: hImgLrg = SHGetFileInfo(icPath$, 0&, SIconInfo, Len(SIconInfo), BASIC_SHGFI_FLAGS Or SHGFI_LARGEICON)
ImageList_Draw hImgLrg, SIconInfo.iIcon, pDisp.hDC, 0, 0, ILD_TRANSPARENT
End Sub

kode di atas di butuhkan untuk metode heuristic icon pada antivirus

Buat 1 module dengan nama modLV
lalu masukan code di bawah ini
Spoiler
'Code:
Public Function GetSelected(TheLV As ListView)
Dim Sel As String
For i = 1 To TheLV.ListItems.Count
If TheLV.ListItems.Item(i).Checked = True Then
Sel = Sel & "|" & TheLV.ListItems.Item(i).SubItems(1)
End If
Next
GetSelected = Sel
End Function

Public Function SelectedAll(TheLV As ListView)
For i = 1 To TheLV.ListItems.Count
TheLV.ListItems.Item(i).Checked = True
Next
End Function

Public Function SelectedNone(TheLV As ListView)
For i = 1 To TheLV.ListItems.Count
TheLV.ListItems.Item(i).Checked = False
Next
End Function

Public Function GetIndex(TheLV As ListView, Data As String) As Integer
For i = 1 To TheLV.ListItems.Count
If TheLV.ListItems.Item(i).SubItems(1) = Data Then
GetIndex = i
End If
Next
End Function

Public Function UnSelect(TheLV As ListView, Data As String)
For i = 1 To TheLV.ListItems.Count
If TheLV.ListItems.Item(i).SubItems(3) = Data Then
TheLV.ListItems.Item(i).Checked = False
End If
Next
End Function

Public Function AddDetect(TheLV As ListView, FilePath As String, VirData As String)
With TheLV
If Left(VirData, 9) <> "Malicious" Then
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) = "Virus File"
Else
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

Code di atas berguna untuk dengatur Listview pada saat virus terdeteksi

Buat 1 module dengan nama modPE
lalu masukan code di bawah ini
Spoiler
'Code:
Public Type IMAGE_DOS_HEADER
e_magic As Integer
e_cblp As Integer
e_cp As Integer
e_crlc As Integer
e_cparhdr As Integer
e_minalloc As Integer
e_maxalloc As Integer
e_ss As Integer
e_sp As Integer
e_csum As Integer
e_ip As Integer
e_cs As Integer
e_lfarlc As Integer
e_ovno As Integer
e_res(1 To 4) As Integer
e_oemid As Integer
e_oeminfo As Integer
e_res2(1 To 10) As Integer
e_lfanew As Long
End Type

Public Type IMAGE_SECTION_HEADER
nameSec As String * 6
PhisicalAddress As Integer

VirtualSize As Long
VirtualAddress As Long
SizeOfRawData As Long
PointerToRawData As Long
PointerToRelocations As Long
PointerToLinenumbers As Long
NumberOfRelocations As Integer
NumberOfLinenumbers As Integer
Characteristics As Long

End Type

Public Type IMAGE_DATA_DIRECTORY
VirtualAddress As Long
size As Long
End Type

Public Type IMAGE_OPTIONAL_HEADER
Magic As Integer
MajorLinkerVersion As Byte
MinorLinkerVersion As Byte
SizeOfCode As Long
SizeOfInitializedData As Long
SizeOfUninitializedData As Long
AddressOfEntryPoint As Long
BaseOfCode As Long
BaseOfData As Long
ImageBase As Long
SectionAlignment As Long
FileAlignment As Long
MajorOperatingSystemVersion As Integer
MinorOperatingSystemVersion As Integer
MajorImageVersion As Integer
MinorImageVersion As Integer
MajorSubsystemVersion As Integer
MinorSubsystemVersion As Integer
Win32VersionValue As Long
SizeOfImage As Long
SizeOfHeaders As Long
CheckSum As Long
Subsystem As Integer
DllCharacteristics As Integer
SizeOfStackReserve As Long
SizeOfStackCommit As Long
SizeOfHeapReserve As Long
SizeOfHeapCommit As Long
LoaderFlags As Long
NumberOfRvaAndSizes As Long
DataDirectory(0 To 15) As IMAGE_DATA_DIRECTORY
End Type

Public Type IMAGE_FILE_HEADER
Machine As Integer
NumberOfSections As Integer
TimeDateStamp As Long
PointerToSymbolTable As Long
NumberOfSymbols As Long
SizeOfOptionalHeader As Integer
Characteristics As Integer
End Type

Public Type IMAGE_NT_HEADERS
Signature As Long
FileHeader As IMAGE_FILE_HEADER
OptionalHeader As IMAGE_OPTIONAL_HEADER
End Type

Public Type IMAGE_EXPORT_DIRECTORY
Characteristics As Long
TimeDateStamp As Long
MajorVersion As Integer
MinorVersion As Integer
Name As Long
Base As Long
NumberOfFunctions As Long
NumberOfNames As Long
AddressOfFunctions As Long
AddressOfNames As Long
AddressOfNameOrdinals As Long
End Type

Public Type IMAGE_IMPORT_DESCRIPTOR
OriginalFirstThunk As Long
TimeDateStamp As Long
ForwarderChain As Long
Name As Long
FirstThunk As Long
End Type

Public Type IMAGE_IMPORT_BY_NAME
Hint As Integer
Name As String * 255
End Type

Public Const IMAGE_SIZEOF_SECTION_HEADER = 40
Public Const IMAGE_DOS_SIGNATURE = &H5A4D
Public Const IMAGE_NT_SIGNATURE = &H4550
Public Const IMAGE_ORDINAL_FLAG = &H80000000

Public Enum SECTION_CHARACTERISTICS
IMAGE_SCN_LNK_NRELOC_OVFL = &H1000000 'Section contains extended relocations.
IMAGE_SCN_MEM_DISCARDABLE = &H2000000 'Section can be discarded.
IMAGE_SCN_MEM_NOT_CACHED = &H4000000 'Section is not cachable.
IMAGE_SCN_MEM_NOT_PAGED = &H8000000 'Section is not pageable.
IMAGE_SCN_MEM_SHARED = &H10000000 'Section is shareable.
IMAGE_SCN_MEM_EXECUTE = &H20000000 'Section is executable.
IMAGE_SCN_MEM_READ = &H40000000 'Section is readable.
IMAGE_SCN_MEM_WRITE = &H80000000 'Section is writeable.
End Enum

Public Enum IMAGE_DIRECTORY
IMAGE_DIRECTORY_ENTRY_EXPORT = 0 ' Export Directory
IMAGE_DIRECTORY_ENTRY_IMPORT = 1 ' Import Directory
IMAGE_DIRECTORY_ENTRY_RESOURCE = 2 ' Resource Directory
IMAGE_DIRECTORY_ENTRY_EXCEPTION = 3 ' Exception Directory
IMAGE_DIRECTORY_ENTRY_SECURITY = 4 ' Security Directory
IMAGE_DIRECTORY_ENTRY_BASERELOC = 5 ' Base Relocation Table
IMAGE_DIRECTORY_ENTRY_DEBUG = 6 ' Debug Directory
IMAGE_DIRECTORY_ENTRY_ARCHITECTURE = 7 ' Architecture Specific Data
IMAGE_DIRECTORY_ENTRY_GLOBALPTR = 8 ' RVA of GP
IMAGE_DIRECTORY_ENTRY_TLS = 9 ' TLS Directory
IMAGE_DIRECTORY_ENTRY_LOAD_CONFIG = 10 ' Load Configuration Directory
IMAGE_DIRECTORY_ENTRY_BOUND_IMPORT = 11 ' Bound Import Directory in headers
IMAGE_DIRECTORY_ENTRY_IAT = 12 ' Import Address Table
IMAGE_DIRECTORY_ENTRY_DELAY_IMPORT = 13 ' Delay Load Import Descriptors
IMAGE_DIRECTORY_ENTRY_COM_DESCRIPTOR = 14 ' COM Runtime descriptor
End Enum

code di atas berfungsi untuk pengecekan PE HEADER

buat 1 module dengan nama modScanning
lalu tambahkan code di bawah ini
Spoiler
'Code:
Public jumlahDir As Long, jumlahFile As Long, jumlahVirus As Long
Public StopScan As Boolean

Public Function CekVirus(FilePath As String) As String
CekVirus = ""
For i = 1 To UBound(VirusDB)
If GetChecksum(FilePath) = Split(VirusDB(i), "|")(1) Then
CekVirus = VirusDB(i)
Exit Function
End If
Next
If FileLen(FilePath) / 1024 <= 512 Then CekVirus = CekHeuristic(FilePath) End If End Function Public Sub FindFilesEx(ByVal lpFolderName As String, ByVal SubDirs As Boolean) Dim i As Long Dim hSearch As Long, WFD As WIN32_FIND_DATA Dim Result As Long, CurItem As String Dim tempDir() As String, dirCount As Long Dim RealPath As String, GetViri As String GetViri = "" dirCount = -1 ScanInfo = "Scan File" If Right$(lpFolderName, 1) = "\" Then RealPath = lpFolderName Else RealPath = lpFolderName & "\" End If hSearch = FindFirstFile(RealPath & "*", WFD) If Not hSearch = INVALID_HANDLE_VALUE Then Result = True Do While Result DoEvents If StopScan = True Then Exit Do CurItem = StripNulls(WFD.cFileName) If Not CurItem = "." And Not CurItem = ".." Then If PathIsDirectory(RealPath & CurItem) <> 0 Then
jumlahDir = jumlahDir + 1
frmUtama.lblDirScan.Caption = jumlahDir
If SubDirs = True Then
dirCount = dirCount + 1
ReDim Preserve tempDir(dirCount) As String
tempDir(dirCount) = RealPath & CurItem
End If
Else
jumlahFile = jumlahFile + 1
frmUtama.lblFileScan.Caption = jumlahFile
frmUtama.txtFileScan.Text = RealPath & CurItem
frmUtama.txtFileScan.SelStart = Len(frmUtama.txtFileScan.Text)
If WFD.nFileSizeLow > 5120 Or WFD.nFileSizeHigh > 5120 Then
GetViri = CekVirus(RealPath & CurItem)
If GetViri <> "" Then
AddDetect frmUtama.lvScan, RealPath & CurItem, GetViri
jumlahVirus = jumlahVirus + 1
frmUtama.lblFileDet.Caption = jumlahVirus
End If
End If
End If
End If
Result = FindNextFile(hSearch, WFD)
Loop
FindClose hSearch

If SubDirs = True Then
If dirCount <> -1 Then
For i = 0 To dirCount
FindFilesEx tempDir(i), True
Next i
End If
End If
End If
End Sub

Code di atas adalah code untuk scan file & folder pada antivirus

buat 1 module dengan nama modEtc
masukan code di bawah ini
Spoiler
'Code:
Public Function Action(Data As String, TheLV As ListView, Mode As String)
Dim Filedata() As String
Dim fName, tmp, Status As String
Dim y As Integer
Filedata = Split(Data, "|")
For i = 1 To UBound(Filedata)
a = a + 1
If Mode = "Q" Then
fName = GetFileName(Filedata(i))
EncodeFile Filedata(i), AppPath & "Quarantine\" & Left$(fName, Len(fName) - Len(GetExt(Filedata(i)))) & ".avq"
AddQList TheLV, Filedata(i), Left$(fName, Len(fName) - Len(GetExt(Filedata(i)))) & ".avq"
DeleteFile Filedata(i)
Status = "Di Karantina"
ElseIf Mode = "D" Then
DeleteFile Filedata(i)
Status = "Di Hapus"
End If
y = GetIndex(TheLV, Filedata(i))
With TheLV.ListItems.Item(y)
.SubItems(3) = Status
.Checked = False
.SmallIcon = frmUtama.ImgSmall.ListImages(2).Index
End With
Next
Action = a
End Function

Public Function AddQList(TheLV As ListView, FilePath As String, Source As String)
Dim Dat As String
Dat = AppPath & "Quarantine\HN.dat"
If PathFileExists(Dat) <> 0 Then
Open Dat For Input As #1
Input #1, isi
Close #1
DeleteFile Dat
Else
isi = ""
End If
namavir = TheLV.ListItems(GetIndex(TheLV, FilePath))
If InStrRev(isi, Source, , vbTextCompare) = 0 Then
Open Dat For Output As #2
Print #2, isi & "|" & namavir & "?" & FilePath & "?" & Source
Close #2
Else
Open Dat For Output As #3
Print #3, isi
Close #3
End If
End Function

Public Function GetFileName(PathFile As String) As String
Dim i As Long
Dim DirString As Long
For i = 1 To Len(PathFile)
If Mid$(PathFile, i, 1) = "\" Then DirString = i
Next i
GetFileName = Right$(PathFile, Len(PathFile) - DirString)
End Function

Public Function GetExt(ByVal lpFileName As String)
Dim sTemp As String
Dim i As Long
sTemp = GetFileName(lpFileName)
If InStr(lpFileName, ".") Then
For i = 0 To Len(sTemp) - 1
If Mid$(sTemp, Len(sTemp) - i, 1) = "." Then
GetExt = Mid$(sTemp, Len(sTemp) - i, i)
Exit Function
End If
Next i
End If
End Function

Code di atas adalah kumpulan fungsi etc untuk scanning,karantina,delete

Ini adalah tampilan antivirus setelah di berikan module


sekarang tinggal cara membuat form quarantinenya,

caranya adalah sebagai berikut pada gambar berikut





setelah form baru sudah di buat,lalu rubah nama formnya menjadi frmQuarantine

Tambah 1 buah listview dengan nama lvQ
lalu setting listview tersebut sesuai dengan gambar di bawah ini,cara setting listview sudah tertera diatas.





Tambahkan 3 buah Command button dengan nama

- cmdDelete
- cmdRestore
- cmdRestore(1)

Tambahkan code di bawah ini ke dalam Command [ cmdDelete ]

Spoiler
'Code:
If lvQ.ListItems.Count = 0 Then Exit Sub
Dim Data() As String
If PathFileExists(Dat) <> 0 Then
Open Dat For Input As #1
Input #1, isi
Close #1
DeleteFile Dat
Else
isi = ""
End If
Data = Split(isi, "|")
For i = 1 To UBound(Data)
namafile = lvQ.SelectedItem.SubItems(2)
If namafile <> Split(Data(i), "?")(1) Then
nyu = nyu & "|" & Data(i)
End If
Next
DeleteFile AppPath & "Quarantine\" & lvQ.SelectedItem.SubItems(1)
Open Dat For Output As #2
Print #2, nyu
Close #2
MsgBox "Success Deleting File !!!", vbInformation, ""
UpdateQ

code di atas berfungsi untuk menghapus file yang telah di karantina

Masukan code di bawah ini ke Command [ cmdRestore ]
Spoiler
'Code:
If lvQ.ListItems.Count = 0 Then Exit Sub
Select Case Index
Case 0
DecodeFile AppPath & "Quarantine\" & lvQ.SelectedItem.SubItems(1), lvQ.SelectedItem.SubItems(2)
MsgBox "File Restored to " & Chr(34) & lvQ.SelectedItem.SubItems(2) & Chr(34) & " !!!", vbInformation, ""
Case 1
sTitle = "Select path:" & vbNewLine & "Select path to restore file."
ThePath = BrowseFolder(sTitle, Me)
If ThePath <> "" Then
DecodeFile AppPath & "Quarantine\" & lvQ.SelectedItem.SubItems(1), ThePath & GetFileName(lvQ.SelectedItem.SubItems(2))
MsgBox "File Restored to " & Chr(34) & ThePath & GetFileName(lvQ.SelectedItem.SubItems(2)) & Chr(34) & " !!!", vbInformation, ""
End If
End Select

Fungsi code di atas berguna untuk me restore file kembali ke asalnya.

lalu pada Form_Load() tambahkan code di bawah ini.
Spoiler
'Code:
frmUtama.Enabled = False
Dat = AppPath & "Quarantine\HN.dat"
UpdateQ


Masukan code di bawah ini ke dalam frmQuarantine yang telah anda buat tadi.
Spoiler
'Code:
Dim Dat As String
Private Sub UpdateQ()
lvQ.ListItems.Clear
Dim Data() As String
If PathFileExists(Dat) = 0 Then Exit Sub
Open Dat For Input As #1
Input #1, isi
Close #1
Data = Split(isi, "|")
For i = 1 To UBound(Data)
With lvQ.ListItems.Add(, , Split(Data(i), "?")(0))
.SubItems(1) = Split(Data(i), "?")(2)
.SubItems(2) = Split(Data(i), "?")(1)
End With
Next
Me.Caption = "Quarantine (" & lvQ.ListItems.Count & ")"
End Sub

Berfungsi untuk memanggil data yang ada di folder karantina.

Hanya itu ilmu yang bisa saya bagikan. sekarang kita bukan hanya sebagai pemakai atau user sekrang kita sudah bisa mmembuat antivirus.

dan ini adalah Screenshot antivirus yang kita buat tadi saat melakukan scanning.


Note : Jika anda membaca dan mencoba dengan teliti dan seksama anda pasti berhasil.

Orang yang berhasil adalah orang yang banyak mecoba.

Untuk masalah source code anda bisa meminta kepada saya tapi dengan satu syarat, yaitu anda harus menyertakan bukti bahwa anda telah mencoba entah itu dalam bentuk screenshot atau yang lainnya.

Untuk yang belum punya Visual Basic 6.0 bisa download disini

menurut km, siapa yang pantas menjadi pelatih timnas indonesia???

Subscribe Box

Thursday, 8 December 2011

Hati-hati dengan Al-Qur’an Palsu !!!

Berbagai cara ditempuh oleh kaum kuffar untuk memurtadkan umat Islam. Al-Qur’an, kitab suci dan pedoman hidup umat Islam jadi komoditi pemurtadan.

Al-Qur`an Imitasi
Seorang pastor evangelis Amerika yang mengaku kelahiran Palestina, mengarang Al-Qur’an imitasi bernama “Al-Furqanul-Haqq” (The True Furqan), yang diterbitkan oleh lembaga yang menyebut dirinya Komite Eksekutif Proyek Omega 2001. Pastor yang bernama asli Dr.Anis A. Shorrosh itu memakai nama samaran Al-Safee dan Al-Mahdi dalam kitab ini. Al-Qur’an tiruan pendeta ini sontak menggegerkan umat karena disebarkan ke internet. Bahkan edisi cetaknya beredar sampai ke Jawa Timur sejak akhir April 2002 di kantong-kantong Muslim seperti Jombang, Bangil, dan Madura. Isinya berupa tiruan terhadap surat dalam al-Quran. Kitab setebal 368 halaman dengan sampul depan warna hijau bertuliskan kaligrafi Arab warna emas ini memuat beberapa nama surat, di antaranya: surat Al-Iman, At-Tajassud, Al-Muslimun, dan Al-Washaya. Semua isinya memuji-muji Yesus. Gaya penyajian dan pilihan bahasa Arab klasik yang dipakai dalam Qur’an palsu ini, agak mirip gaya bahasa Al-Qur’an. Bagi orang yang tidak memahami seluk-beluk bahasa Arab secara mendalam, bisa terkecoh, mengira The True Furqan sebagai Al-Qur’an. Sebab kata “Al-Furqan” sendiri sinonim dengan kata “Al-Qur’an.” Tujuan penyebaran Al-Furqanul-Haqq ke tengah-tengah masyarakat Muslim ini jelas terbaca, yaitu untuk menanamkan keraguan umat Islam terhadap kitab suci Al-Qur’an. Targetnya, agar umat Islam memandang Al-Qur’an sebagai kitab yang sudah menyimpang. Otentisitas Al-Qur’an memang tidak bisa diganggu gugat, karena Allah sendiri yang menjamin keasliannya.
Allah menyatakan dalam Al-Qur’an: “Sesungguhnya Kami menurunkan adz-Dzikr (Al-Qur`an) ini dan sungguh Kamilah Penjaganya” (Al-Hijr 9). Imam Ibnu Katsir menyatakan, makna ayat di atas adalah bahwa Allah SWT menjadi penjaga Al-Qur’an dari perubahan atau pergantian (Tafsir Al-Qur’anil ‘Azhîm, II, hlm. 666). Karenanya, secara i’tiqadi, Al-Qur’an senantiasa terjaga dari perubahan, penggantian, perombakan, atau peniruan apapun. Semuanya dijamin oleh Allah SWT. Meski demikian, bukan berarti upaya kaum kuffar untuk memanipulasi dan menggerogoti Al-Qur’an berhenti. Maka mereka menempuh untuk mengaburkan keyakinan umat Islam terhadap Al-Qur’an. Mereka inginkan agar umat Islam tidak meyakini Al-Qur’an sebagai wahyu Allah, karena bisa ditandingi dengan Al-Qur’an tiruan yang bernama Al-Furqaul-Haqq (The True Furqan).

Pelesetan Al-Qur`an untuk Misi
Selain ada Al-Qur’an palsu, bertebaran pula buku-buku plesetan ayat-ayat Al-Qur’an dan Hadits. Ayat-ayat suci ini dikutip sepotong-sepotong lalu dirakit sehingga tersimpulkan seolah-olah tuhan dan juru selamat manusia adalah Nabi Isa alias Yesus Kristus. Bentuk pelesetan ini dipublikasikan dalam buku-buku dan brosur. Buku-buku pelesetan Al-Qur’an yang sudah beredar antara lain :
- Keselamatan di dalam Islam,
- Ayat-ayat Penting di dalam Islam,
- As-Shodiqul Masduq (Kebenaran Yang Benar),
- As-Sirrullahil-Akbar (Rahasia Allah Yang Paling Besar),
- Selamat Natal Menurut Al-Qur’an,
- Telah Kutemukan Rahasia Allah Yang Paling Besar,
- Ya Allah Ya Ruhul Qudus,
- Aku Selamat Dunia dan Akhirat,
- Wahyu Tentang Neraka,
- Wahyu Keselamatan Allah, dan lain-lain.

Buku-buku pelesetan karya Poernama Winangun :
- “Upacara Ibadah Haji”,
- “Ayat-ayat Al-Qur’an Yang Menyelamatkan”,
- “Isa Alaihis Salam Dalam Pandangan Islam”,
- “Siapa kah Yang Bernama Allah” dan
- “Riwayat Singkat Pusaka Peninggalan Nabi Muhammad saw”.

Contoh brosur pelesetan :
- brosur Dakwah Ukhuwah,
- brosur Shirathal Mustaqim dan
- brosur Al-Barakah.
Judulnya antara lain :
- Rahasia Jalan ke Surga,
- Allahu Akbar Maulid Nabi Isa as,
- Kesaksian Al-Qur’an tentang Keabsahan Taurat dan Injil,
dan lain-lain.

Isi buku dan brosur pelesetan rata-rata sama, yaitu mengutip dan mencomot Al-Qur’an dan Hadits yang diramu dan dicocok-cocokkan tanpa mengindahkan kaidah tafsir, untuk mendukung doktrin kristiani bahwa Nabi Isa (Yesus) adalah Tuhan dan Juruselamat penebus dosa manusia.

Al-Qur`an Bergambar Yesus
Al-Qur’an bercover Yesus terungkap di SLTP 1 Pakan Kamis, Kecamatan Tilatang Kamang, Kabupaten Agam, Sumatera Barat. Pagi itu, Kamis (17/5), di ruang kelas I-1 ada dua siswa tampil ke depan hendak membacakan ayat suci Al-Qur’an, namun batal. Ketika salah seorang dari mereka dengan siku tangannya tanpa sengaja menggeser Al-Qur’an, kitab suci itu terjatuh. Secepatnya ia menangkap, meski hanya dapat cover-nya. Sementara saat, Al-Qur’annya terjatuh. Para siswa kaget. Bukan karena Al-Qur’an itu jatuh, tetapi lebih pada pemandangan yang mereka lihat di pelapis dalam cover tebal. Di sana, tertempel kertas bertuliskan huruf-huruf Latin, antara lain, “Yesus Kristus” yang kemudian diikuti sejumlah kalimat lain. Pada bagian lain terbaca pula kata-kata “Bunda Mariah, domba gembala, gereja” serta bait-bait lagu gereja. Karena kertas itu dilem ke cover Al-Qur`an, sehingga ketika dibuka, kata-kata yang ada di sana ikut tercopot sehingga tidak terbaca semuanya.
Spontan, para siswa pun berteriak. Irmawati, seorang guru agama, sebelumnya mengaku tak percaya. Setelah melihat Al-Qur’an yang terjatuh ada tulisan tersebut, barulah ia mempercayainya. “Saya sangat kaget,” katanya. Ia langsung mengadukan itu kepada kepala sekolah. Irmawati juga mengaku memiliki Al-Qur’an sejenis yang di belakang covernya ada kata-kata Yesus, Budha, Wihara, dan entah apa lagi. Kasus itu pun dibawa ke Majelis Ulama Indonesia (MUI) yang kemudian diteruskan ke kepolisian.
Kata-kata Yesus Kristus dengan huruf Latin ini dibuat pada sampul dalam Al-Qur’an. Persisnya di tulang tempat helai demi helai Al-Qur’an dilem dan dijahitkan. Kalau kulit Al-Qur’an tidak dicopot, maka tulisan Yesus Kristus dan sejumlah bait lagu-lagu gereja yang ditulis di situ tidak akan pernah diketahui. Kepsek Jufrialdi mengatakan pada akhir Februari 2004, ia bertemu dengan tokoh masyarakat Tilatang Kamang, Buya Haji Usman Husen. Karena Usman orang ternama, apalagi ia ketua Golkar Kabupaten Agam serta anggota DPRD Sumbar, maka Jufrialdi meminta agar sekolahnya dibantu pengadaan Al-Qur’an dan mukena.
Pada 3 Maret 2004, di saat-saat kampanye legislatif, orang suruhan Usman, Linda, membeli 200 buah Al-Qur’an di Toko Asria di Pasar Aur Kuning, Bukittinggi. Karena jumlahnya banyak, Kepsek Jufrialdi berinisiatif membagikan ke sekolah-sekolah lain. Sebanyak 60 buah Al-Qur’an tinggal di SLTP 1, sisanya, sebanyak 20 buah diberikan ke SLTP 2, 10 untuk SLTP 3, 10 untuk SLTP 4, dan 20 untuk SLTP 5, serta sisanya untuk SMA I yang semuanya berada di Kecamatan Tilatang Kamang. Kapolresta Bukittinggi, AKBP M Zaini, mengatakan pihaknya kini sedang melakukan penyidikan secara khusus atas kasus tersebut. “Saya tidak mau gegabah, nanti malah salah kaprah,” katanya. Sejumlah saksi telah diperiksa, termasuk pemilik toko yang menjual Al-Qur`an itu. Sementara, toko-toko lainnya tidak menjual Al-Qur`an sejenis. Kakanwil Depag Sumbar Dalimi Abdullah menyatakan pihaknya telah membawa surat dan dua Al-Qur’an itu ke Menteri Agama. Sedangkan Ketua MUI Sumbar, Nasrun Haroen, menegaskan masih mencari informasi lebih dalam atas masalah itu. Salah seorang Ketua MUI Sumbar, Buya Mas’oed Abidin, menyatakan pemerintah harus bertindak, sebab kalau diam, rakyat akan marah. “Ini tidak bisa dikatakan sebagai sebuah kelalaian, mungkin di dalamnya ada unsur kesengajaan dan ini pelecehan terhadap Islam,” tegasnya.
Tokoh masyarakat Tilatang Kamang, Usman Hoesen, yang menyumbangkan Al-Qur’an itu menyatakan yang bermasalah dari Al-Qur`an itu adalah kulitnya (cover-nya), bukan ayat-ayat di dalamnya. Al-Qur`an yang “disusupi” itu, katanya, berkulit merah. Dari 200 buah yang dibeli, ada 141 buah yang “disusupi” kata-kata Yesus Kristus, sementara sisanya bersih. Yang disusupi itu merupakan Al-Qur’an keluaran tahun 1994 yang dicetak Percetakan Madu Jaya Makbul Surabaya. Sementara yang bersih dicetak PT Tanjung Emas Inti Semarang. Di Mapolres saat ini ada 60 buah Al-Qur`an yang diambil dari SLTP I, lainnya masih di kecamatan.

Sementara itu, di Jakarta beredar buku putih berjudul Isa Almasih di dalam Al-Qur’an dan Hadits. Buku putih setebal 73 halaman ini jelas diluncurkan missionaris untuk menggoyang akidah umat Islam. Seluruh bagian dalam buku dari cover depan sampai penutupnya sarat dengan penghujatan ajaran Islam manipulasi sejarah dan pemutarbalikan ayat Al-Qur’an dan Hadits Nabi. Sampul depan, di atas judul “Isa Almasih di dalam Al-Qur’an dan Hadits” dipampang kaligrafi surat Az Zukhruf 61 “wattabi’uuni haadzaa shiraatum mustaqiim” (ikutilah aku, inilah jalan yang lurus). Di bawah ayat ini, dipajang gambar Yesus sedang berdiri menginjak-injak kitab suci. Penginjil yang menamakan dirinya (nama alias) Abd.Yadi, hanya berani berbuat, tidak mau bertanggung jawab. Karena dalam buku putihnya, dia tidak berani mencantumkan nama aslinya, nama penerbit dan alamat jelasnya. Seharusnya, jika dia meyakini kebenaran tulisannya, dia harus bersikap gentleman dan jangan main lempar batu sembunyi tangan.

Tugas Pemimpin (Imam) Negara
Dari rangkaian penodaan terhadap Al-Qur’an yang dilakukan oleh para misionaris tadi, tampak bahwa dibuatnya tiruan Al-Qur’an, pengutipan ayat pada cover buku Kristen, serta pelesetan ayat untuk misi tersebut merupakan satu kesatuan mata rantai untuk menghancurkan tegaknya Islam di muka bumi. Karena itu, sudah selayaknya kaum Muslim menyadari bahwa upaya untuk menghadang tegaknya Islam dan upaya mengembalikan mereka kepada kekufuran terus berlangsung hingga detik ini. Selain itu, upaya ‘halus’ memurtadkan kaum Muslim dengan cara memalsukan dan me lecehkan Al-Qur`an merupakan kemungkaran. Untuk menghadapi kemungkaran itu, Rasulullah SAW menyatakan:
“Barangsiapa di antara kalian melihat suatu kemungkaran, maka ubahlah dengan kekuatan; jika tidak mampu maka ubahlah dengan lisan; dan jika tidak mampu maka ubahlah dengan hati (tidak setuju dengan kemungkaran tersebut). Itu adalah selemah-lemahnya iman” (HR Ashabus-Sunan). Hadits itu berlaku umum bagi siapapun. Namun, sebenarnya dalam syariat Islam, yang pertama kali harus bertanggungjawab atas persoalan ini adalah penguasa. Rasulullah saw. menegaskan: “Pemimpin (Imam) itu adalah penggembala, dan dialah yang bertanggungjawab atas rakyat yang digembalakannya.” Dalam hadits ini jelas bahwa penguasalah yang wajib memelihara dan menjaga rakyatnya dalam segala hal, termasuk dalam hal akidahnya.

http://swaramuslim.net/ISLAMKRISTEN/more.php?id=1962_0_7_9_M

Melepaskan Belenggu Kebiasaan: Salah Satu Tujuan Puasa

Al-Hajjaj bin Yusuf (661-714 M), salah seorang pemimpin perang kenamaan Dinasti Umayyah yang melempar Ka’bah dengan manjaniq (meriam-meriam batu), pada suatu hari yang terik meminta kepada pengawalnya agar mengajak seorang “tamu” bersantap siang dengannya. Seorang penggembala yang tinggal di pegunungan menjadi tamunya dan terjadilah dialog berikut :

“Mari kita makan bersama,” ajak Al-Hajjaj. “Aku telah diundang oleh yang lebih mulia dari tuan dan telah kupenuhi undangan itu,” kata si penggembala.
“Siapakah gerangan yang mengundangmu?”. “Tuhan seru sekalian alam, hari ini aku berpuasa.” “Apakah Anda berpuasa pada hari yang terik menyengat ini?”
“Ya. Aku bahkan berpuasa pada hari-hari yang lebih terik.”
“Ayolah kita makan bersama dan besok Anda dapat berpuasa.”
“Apabila kau berbuka hari ini, apakah tuan dapat menjamin usiaku berlanjut hing ga esok sehingga aku dapat berpuasa?” katanya seraya menyunggingkan senyum .
“Tentu saja tidak.” “kalau demikian mengapa tuan meminta sesuatu pada hari ini dan menjanjikan untuk memberikan pada hari esok, sedangkan hari esok bukan berada di tangan tuan?”. Setelah berpikir sejenak, Al-Hajjaj mengajak lagi, ” Ayolah kawan, makanlah bersamaku, makanan yang dihidangkan sungguh lezat.”
Sambil berdiri untuk meninggalkan Al-Hajjaj, si penggembala menolaknya lagi, “Demi Tuhan, yang melezatkannya bukan juru masak tuan, bukan pula jenis makanannya, yang melezakannya adalah afiat (kesehatan ruhani dan jasmani).”

Dialog diatas mengambarkan sebagian dari hasil yang diperoleh seseorang yang berpuasa, yaitu berupa kemampuan untuk mengendalikan diri, menahan rayuan, serta kesadaran akan kehadiran Tuhan pada setiap saat. Manusia tercipta dari Ruh Ilahi dan debu tanah. Potensi dan daya manusia betapapun dinilai hebat , namun terbatas sehingga apabila perhatian dan kegiatannya telah tertuju secara berlebihan ke satu arah – ke arah debu tanah, misalnya – maka akibat keterbatasan dan pemunahan secara berlebihan tersebut, ia tidak memeiliki daya lagi yang cukup untuk digunakan bagi kegiatan dalam bidang-bidang penalaran dan kejiwaan. Dari sisi lain, kehidupan manusia sangat dipengaruhi oleh kebiasaan-kebiasaannya. Apabila ia telah terbiasa dengan pemenuhan kebutuhan ‘faali’-nya secara berlebihan, maka, walaupun ia masih memiliki sisa daya, ia akan mengalami kesulitan yang tidak sedikit guna mengarahkan sisa daya tersebut kedalam hal-hal yang tidak sejalan dengan kebiasaannya. Dengan demikian, membebaskan manusia dari belenggu kebiasaan dan keterikatan kepadanya, merupakan suatu hal yang mutlak dan hal ini merupakan salah satu tujuan dari puasa, baik dalam kebiasaan makan, minum – dengan kadar dan jam-jam tertentu – maupun dalam kebiasaan jam-jam tidur, bangun bekerja, dan sebagainya.

(sumber : “Lentera Hati”, Kisah dan Hikmah Kehidupan”, M. Quraish Shihab, Penerbin Mizan, Maret 1995).

http://www.myquran.com/mutiarakalbu/phqs006.htm
Read More

Buku Elektronik Belajar Java Dasar

bgi kawan2 yang ingin belajar tentang java,khususny pemula silahkan download buku ini. akan sangat bermanfaat bagi kwan2 semua..

Daftar isi dari buku ini..

  • Persiapan
  • Java Development Kit
  • Java Runtime Environtment
  • Peralatan yang Diperlukan
  • NetBeans IDE
  • Dasar-Dasar Bahasa Pemrograman Java
  • Tipe Data
  • Variabel
  • Operator
  • Percabangan
  • Perulangan
  • Program Hello World
  • Array
  • Pemrograman Berorientasi Objek
  • Class
  • Paket
  • Interface
  • Inner Class
  • Object
  • Kelas POJO / Java Bean
  • Penanganan Kesalahan
  • Penanganan Secara Bertingkat
  • Melontarkan Exception
  • Membuat Kelas Exception
  • Membuat Kelas RuntimeException
  • Menangkap Kesalahan
  • Blok Finally
  • Kelas – Kelas
  • String
  • Date
  • Calendar
  • Tentang Penulis

Download

Silahkan klik tautan dibawah ini untuk mengunduh ebook Belajar Java Dasar, gratis!
Read More

Buku Elektronik Membangun Aplikasi Sederhana Menggunakan Java

siang... melanjutkan postingan sebelumnya.. buku lainnya tentang JAVA. silahkan di downlaod...!!!
Daftar isI dari buku ini
  • Membuat Database
  • Membuat Tabel
  • Membuat Project
  • Membuat Koneksi MySQL
  • Membuat Form Aplikasi
  • Menambah Tombol ke Form
  • Menambah Tabel ke Form
  • Menambahkan Aksi
  • Menambah Aksi Load Data
  • Menambah Aksi Tombol Tambah
  • Menambah Aksi Tombol Ubah
  • Menambah Aksi Tombol Hapus
  • Menambahkan Aksi Baris Terseleksi
  • Menjalankan Program
  • Mendistribusikan Program
  • Tentang Penulis
Download di isni Silahkan klikklik link di bawah ini..

selamat mencoba...........
Read More

Buku Elektronik Membangun Aplikasi Client-Server Menggunakan Java

hai kawan2ku semua.. kali ini ane pengen ngesahre buku tentang java, bgi2 kawan yang ingin menambah belajar atau sekedar menambah pengetahuan tentang java, silahkan donload ebook ini. ebook ini sngt bermanfa'at bgi kita yang ingin pintar dalam pemrograman.

DAFTAR ISI dari buku ini:
  • Apa Itu RMI?
  • Syarat object bisa diakses lewat RMI
  • Class harus implements Interface
  • Interface harus extends java.rmi.Remote
  • Class harus exteds java.rmi.server.UnicastRemoteObject
  • Class harus memiliki konstruktor yang throw java.rmi.RemoteException
  • Seluruh metode Interface harus throw java.rmi.RemoteException
  • Membuat Server RMI
  • Menyimpan Object ke Server
  • Menghapus Object dari Server
  • Membuat Client RMI
  • Mengakses Object yang ada di Server
  • Menjalankan RMI
  • Menjalankan Server
  • Menjalankan Client
  • Aplikasi SayHello Berbasih Client-Server
  • Membuat Interface SayHello
  • Membuat Class SayHelloServer
  • Cara membuat project Client Server di NetBeans IDE
  • Membuat Server SayHello
  • Membuat Client SayHello
  • Menjalankan Aplikasi SayHello
  • Lampiran
  • Instalasi JDK
  • Instalasi NetBeans IDE
  • Instalasi MySQL
  • Tentang Penulis
 untuk menDOWNLOAD
SIlahkan klik link yg sya sediakan di bawah ini..
selamat belajar............:D
Read More

Friday, 18 November 2011

Download Windows XP Turbo 3D SP3

Sobat blog,, Windows XP Turbo 3dSP3 ini Stabil, Cepat, Aman, Kuat, Tampan 3D penampilan dalam ikon, wallpaper, tema, pergerakan jendela dan segala sesuatu. Windows XP SP3 Turbo ™ 3D 2010 datang Dengan koleksi kuat dari program penuh paling penting (install opsional). Hal ini terintegrasi dengan update terbaru dan hotfix.


== Tentang  Windows XP Turbo 3D SP3 ==
 Release Name: Windows XP-Turbo™ 3D SP3 2010
System: Windows XP Professional SP3 Original MSDN
Year: 2009
CD Key: Already Slipstreamed Original Key
Activation: Already activated
Install method: Unattended
File format: ISO
Size: 700 MB
Bootable
FULLY UPDATEABLE
Accept updates from Microsoft
== Link Download ==

Download Part1
Download Part2
Download Part3
Download Part4
Download Part5

== Panduan Download & Install: ==
  1. Download Tiap Part
  2. Setelah Selesai Download, Langsung Di Rename Sesuai Dengan Original Name
  3. Microsoft Windows XP CompletePure 2011.rar.001 dst.......
  4. Hapus Ekstensi .rar paling belakang (pastikan extensi file di explorer terlihat)
  5. Join dengan Software HJSplit
  6. Buka Dengan WinRar
  7. Ekstrak File Yang Ada Di Dalam WinRar Ke Folder Baru
  8. Masukkan Password Yang Diminta Oleh WinRar.
Read More

Wednesday, 16 November 2011

Cara Hacking Download Di Rapidshare

Zatyabajaitem bagi-bagi trik bagaimana cara mengakali hack rapidshare tanpa software, hanya perlu kecermatan aja. Kita mengakali istilahnya menghack rapidshare supaya kita bisa mendownload secara terus menerus. Biasanya kalo kita setelah mendownload di rapidshare dan kita mau mendownload lagi, pasti disuruh menunggu beberapa menit, jam, bahkan beberapa hari.. bisa-bisa dibanting juga neh PC..hahaPenasaran Tips dan Trik hack nya? cekidot crottt yuk..Mungkin cara ini hampir sepadan bagaimana cara menghack rapidshare premium, atau bagaimana agar download di rapidshare bisa cepat dan kencang. Trik dan tips hack, crack rapidshare ini hanya butuh KETELITIAN DAN CERMAT, alias tanpa software.

Syarat untuk mengakali rapidshare =

1. Dua buah browser (Di cara ini Saya memakai Opera dan internet Explorer ), bisa pilih salah satu.

2. Proxy dan Port
Nah kalian pasti bingung, gimana cara dapatin proxy nya ya..hmm
Santai aja, Zatyabajaitem udah siapkan list proxy dan port nya, klik link di bawah untuk mendownload.

Download List Proxy dan Port

Kemudian sekarang Cara Mengakali Rapidshare nya =

1. Kamu pilih salah satu proxy yang benar-benar mantab dan sekiranya kencang untuk browser.

2. Kemudian lakukan settingan salah satu browser anda Contoh pada Opera
-Pada menu tools--->pilih Preferences...--->lalu pilih Advanced--->piih Network--->klik Proxy severs---beri tanda check pada :
>HTTP
>HTTPS
>FTP
>GOPHER
Isikan Salah satu proxy yang telah kamu pilih dan nomor portnya.
Lalu klik OK--- pokoknya OK ajalah :p

3. Dan sekarang saatnya browsing dan bergerilya untuk mendownload di rapidshare, dan ingat, butuh KECERMATAN!

Setelah masuk ke downloatan Rapidshare Pasti gambar(Perintah) yang Untuk diketik tidak dapat muncul. Untuk itu Pakai Browser lain untuk buka gambar itu. Caranya Pada Opera Klik kanan Pada Image di halaman Rapid itu---->Pilih image properties lalu copy link addres, pastekan di Internet exploer (ENTER) lalu akan muncul halaman sebuah gambar huruf dan angka. ketikkan itu di halaman Rapidshare dan Klik download.

Dan berhasil, kamu bisa download tanpa di batasi detik, menit, bahkan hari.

NB: Kalau sudah berhsil download tapi kecepatannya LEMOT hilangkan tanda Check di :

>HTTP
>HTTPS
>FTP
>GOPHER
yang tadi.
Begitu gan caranya, jika ada kritik, komentar, atau yang lebih mengerti tentang topik di tentang rapidshare, silahkan di share di komentar di bawah, thanks for attention! holaaaa...



source: www.downloadgratis34.blogspot.com
Read More

Install Windows XP Dari Flashdisk Menggunakan WinToFlash

Biasanya kita klo menginstal windows menggunakan CD-Rom. tapi sekarang sya akan memberi tahu bagaimana caranya menginstal windows dengan menggunakan USB Flash Disk. Cara ini memang cukup praktis dan efektif daripada menggunakan CD-Rom. Karena kita tidak perlu menggunakan CD yang kadang sudah susah dibaca oleh CD Drive, sehingga proses install berjalan kurang lancar. Cukup dengan menggunakan USB Flash Disk yang berkapasitas minimal 1 GB. Gimana caranya? Ikuti langkah-langkah berikut.
  1. Siapkan USB Flash Disk yang berkapasitas minimal 1 GB. Pastikan tidak ada data penting dalam flash Disk tersebut, karena semua data akan hilang terformat.
  2. Download aplikasi WinToFlash di link dibawah
  3. Siapkan secangir kopi atau teh + rokok kalo perlu (biar ga bosen nunggu proses yang lumayan lama)
  4. Buka aplikasi WinToFlash
  5. Masuk ke Tab Task dan pilih type Windows yang mau di install.
  6. Pilih menu Service --> Switch to Wizard Mode
  7. Akan muncul tampilan Wizard, kemudian klik Next
  8. Isi Windows Files path dengan direktory folder instalasi windows kalian.
  9. Isi USB drive sesuai dengan drive Flash Disk kalian.
  10. Kemudian klik next
  11. Akan ada notifikasi kalau program akan memformat Flash Disk. Pilih aja Ok.
  12. WinToFlash akan mentransfer file instalasi windows ke flash disk kalian. Proses ini memang agak lama. Silakan disambi ngopi dulu :D
  13. Setelah proses transfer selesai klik Next dan Exit
  14. Nah.. Sekarang kalian udah bisa mulai menginstal windows dari flash disk. Tapi ingat! ga semua Komputer bisa melakukan instalasi dari USB Flash Disk! Tergantung pada type Motherboard yang digunakan apakah sudah mendukung fitur Boot dari USB apa belum. Kalo komputer keluaran baru pasti sudah bisa menggunakan cara ini. Kalo motherboard nya ga support USB ya sama aja bokonk :D
    Sekarang tinggal restart/nyalain komputer, masukin USB Flash Disk nya, pilih boot dari USB, dan install windows. Gampang kan?
    To download WinToFlash
    Click DOWNLOAD
    Alternatif Download click HERE
Read More

Saturday, 5 November 2011

Membuat Efek Grunge pada Foto

Sebenernya membuat efek grunge ini gampang banget.. intinya cuman gabung-gabungin gambar aja…
gak percaya ??
Ini nih bukti nya :
sebelumnya… saya pake gambar-gambar ini untuk membantu pembuatan efek

Klik untuk download gambar-gambar diatas.
Sekarang ke inti nya yah..
Buka gambar yang mau diedit, kita ambil gambar di bawah ini

duplikat layer dengan menekan ctrl + J

Klik Image > adjustment > desaturate atau ketan eh tekan di keyboard CTRL + Shift + U untuk membuat foto jadi hitam putih.
Opacity nya kurangi jadi 50%

sekarang tekan ctrl +J lagi di layer background untuk menduplikat layer background. pindahin hasil duplikat ke paling atas

Klik Filter > Other > Highpass

Ubah layer style menjadi Vivid light

edit foto dasar udah selesai.. sekarang kita main-main dengan gambar yang lain..
buka gambar oldpaper.jpg
drag ke foto yang tadi diedit

atur sedemikian rupa.. atau di pas- in aja setiap ujung nya..
sekarang ubah layer style menjadi menjadi COlor burn

sekarang buka juga batu.jpg .. drag gambar texture batu ke dalam foto yang lagi diedit

Klik add vector mask..
lalu klik brush tool (warna hitam) warnai bagian muka nya.. biar nanti keliatan jelas..
ubah layer style menjadi multiply

hasilnya kayak gini

sekarang buka lagi gambar bantuan terakhir.. gambar tembok.jpg.. Drag ke dalam foto dan atur seperti gambar dibawah

Ubah Opacity nya jadi 50%
Klik add vector mask .. warnai dengan brush tool seperti gambar.

Hasil akhir nya :

Gampangkanya ?
selamat mencoba!
Read More

Cara Membuat Vektor/Kartun dengan Photoshop

siang kawan2 smua....,Postingan X ini saya akan memberikan Hal yang sangat spesial untuk sobat semua.Jawabannya : saya ingin memberikan hasil jerih payah saya sendiri untuk di sharing kepada sobat sekalian, yang akan saya share kali ini adalah Tutorial Cara Membuat Vektor/Kartun dengan Photoshop. Mungkin sobat sekalian banyak menemukan situs yang menyediakan Tutorial seperti ini, namun itu berbayar kan. Nah, sekarang Tutorial Bagaimana Cara membuat Vektor telah saya sediakan secara Gratis tis tis.semoga bisa dipahami ya. hehe

langsung saja sedot saja tutorialnya : DISINI
Read More

Tutorial Membuat Karikatur

halo kawan2 smua......

Karikatur adalah gambar yang menampilkan kembali suatu objek konkret dengan cara melebih-lebihkan ciri khas objek tersebut. Kata karikatur berasal dari kata Italia caricare yang berarti memberi muatan atau melebih-lebihkan. Karikatur selalu digambarkan untuk menimbulkan kelucuan, walaupun kadang kala agak sinis. Karikatur dapat juga digunakan untuk menonjolkan watak orang yang digambarkannya. Golongan yang sering menjadi objek karikatur adalah orang-orang terkenal seperti politisi dan artis. Orang yang membuat karikatur disebut sebagai karikaturis.

Karikatur dibedakan dari kartun karena karikatur tidak membentuk cerita sebagaimana kartun. Namun demikian, kartun dapat mengandung karikatur, misalnya dalam kartun editorial. Karikatur dalam kartun semacam itu hanya merupakan elemen yang digunakan untuk memperjelas pesan yang disampaikan.
Sejarah
Asal-usul karikatur
Walaupun gambar satire—seperti gambar hewan yang bertingkah laku seperti manusia—sudah ditemukan setidaknya sejak zaman Mesir Kuno, popularitas seni karikatur berasal dari Italia abad Renaisans. Pada mulanya, karikatur dibuat sebagai lelucon iseng oleh para seniman di studio, seperti Leonardo da Vinci dan Carracci bersaudara—Agostino dan Annibale serta Lodovico sepupu mereka, untuk menghibur dirinya sendiri atau kawan-kawannya dengan menggambar patron ataupun subjek lukisannya secara berlebihan. Carracci bersaudara diyakini sebagai seniman-seniman pertama yang terkenal akan karikatur mereka, dan Annibale diyakini sebagai orang pertama yang menggunakan istilah ritrattini carichi (potret yang dilebih-lebihkan). Selanjutnya, Pier Leone Ghezzi menekuni seni ini dan membangun kariernya dengan lebih dari 2.000 karya karikatur orang kebanyakan maupun tokoh terkenal. Karikatur-karikatur tersebut tidak dipublikasikan ataupun disebarluaskan, namun menjadi hiburan di kalangan elite. Setelah menyebar di Italia pada abad ke-16, karikatur sebagai langgam visual baru menyebar ke pers popular Eropa lebih dari seabad kemudian.
Abad ke-18 dan awal abad ke-19
Karikatur sebagai bentuk seni lukis baru berkembang di Inggris setelah penerbitan sejumlah karya Ghezzi dan seniman Italia lainnya pada tahun 1744. Contoh karikaturis Inggris yang popular pada abad ke-18 adalah James Gillray, Thomas Rowlandson, dan George Cruikshank yang menggabungkan unsur karikatur dengan kartun menjadi kartun satire. Namun demikian, pada tahun 1830-an karya-karya mereka sudah kurang popular di Inggris dan kemudian diekspor ke Prancis dalam mingguan La Caricature dan kemudian harian Le Charivari yang sangat sukses, keduanya dipimpin oleh Charles Philipon.
Dua terbitan Charles Philipon tersebut membuat Prancis menjadi pusat baru perkarikaturan. Sejumlah karikaturis terbaik pada zaman itu dipekerjakan oleh Philipon; Paul Gavarni, J.J. Grandville, dan terutama Honoré Daumier, yang dianggap sebagai seniman paling terampil dalam sejarah karikatur. Baik Philipon maupun Daumier pernah ditahan akibat karikatur mereka di kedua terbitan tersebut yang meng-kritik pemerintahan raja Prancis saat itu, Louis-Philippe. Pada salah satu sidang pengadilannya, Philipon menggambar potret Raja Louis-Philippe yang bermetamorfosis menjadi buah pir dan menyatakan pembelaan bahwa ada banyak hal yang mirip satu sama lain di alam sehingga tidak boleh ada pembatasan atas kreativitas seniman. Daumier sendiri pertama kali diadili karena Gargantua, kartun karyanya yang meng-karikaturkan Louis-Philippe sebagai raksasa yang memakan uang rakyat.
Karikaturisme kemudian menyebar ke media lain, yaitu patung, dimulai dari patung-patung karikatur karya Jean-Pierre Dantan. Gaya patung Dantan ini sangat mempengaruhi para seniman karikatur, sehingga mereka pun menciptakan patung-patung kepala penyanyi, penulis, pemusik dunia terkenal dan banyak aktor terkenal dari Comédie-Française. Bentuknya mungil dan menjadi sangat diminati, dipakai sebagai hiasan ujung tongkat, pegangan kayu, topeng, dan alat permainan lainnya.
Akhir abad ke-19
Pada tahun 1868 di London, Thomas Gibson Bowles mulai menerbitkan Vanity Fair, majalah ‘politik, sosial, dan kesusastraan’ yang kemudian terkenal karena memuat karikatur berwarna yang menggambarkan politisi, tokoh sastra, raja atau ratu dari luar negeri, ilmuwan, olahragawan, dan tokoh-tokoh terkenal lain. Sebagian besar karikatur tersebut digambar oleh Carlo Pellegrini—kartunis Italia yang menggunakan nama samaran “Singe” (bahasa Prancis untuk monyet) dan “Ape” (bahasa Inggris untuk kera) untuk mencerminkan pekerjaannya, yaitu menirukan subjeknya dengan tidak sempurna (to ape, dalam bahasa Inggris)dan Leslie Ward (“Spy”), walaupun banyak seniman lain juga berkarya untuk majalah tersebut. Setiap karikatur tersebut diberi komentar yang mengolok-olok oleh Bowles dan editor-editor selanjutnya yang menggunakan nama samaran “Jehu Junior”. Majalah ini disebut sebagai yang paling banyak dibaca oleh para pejabat dan orang kaya Inggris dibandingkan dengan mingguan lainnya.
Karikatur Vanity Fair tersebut memengaruhi Joseph Keppler, imigran Austria yang menerbitkan majalah Puck di New York, Amerika Serikat. Mulai terbit dalam bahasa Jerman pada tahun 1876 dan kemudian bahasa Inggris setengah tahun kemudian, majalah ini juga memuat karikatur tokoh-tokoh terkenal yang disebut puckograph. Kesuksesan Puck mengilhami penerbit lain untuk menirunya, dan segera saja surat kabar-surat kabar dan terbitan tetap lainnya mulai secara rutin memuat karikatur.
Awal abad ke-20
Pada awal dekade ke-2 abad ke-20, Marius de Zayas, seorang karikaturis Meksiko yang hijrah ke New York, mengembangkan gaya seni lukis yang ia sebut karikatur abstrak. Selama berkarya di Meksiko maupun pada tahun-tahun pertamanya di New York, de Zayas menggunakan gaya yang realistik dan representasional. Namun demikian, sewaktu mengunjungi Paris selama hampir setahun penuh dan setelah bertemu Picasso dengan gaya kubismenya, de Zayas mengungkapkan ketidakpuasannya atas metode karikatur tradisional. Sekembalinya ke Amerika Serikat pada tahun 1911, de Zayas mulai mengeksplorasi gaya barunya yang memadukan bentuk-bentuk geometris datar simetris dan persamaan-persamaan matematika. Dengan gaya karikaturnya itu, de Zayas disebut “menjembatani kesenjangan antara karikatur pesohor populer dalam media komersial dengan keprihatinan dunia seni avant-garde untuk menemukan cara inovatif menggambarkan manusia tanpa kemiripan tersurat”.
Seusai Perang Dunia I, popularitas karikatur berkembang secara dramatis di Amerika Serikat seiring dengan perkembangan film, fotografi, dan majalah yang membuat wajah para pesohor dari bintang film sampai atlet dan politisi dengan mudah dikenali oleh umum. Karikatur teatrikal menjadi genre tersendiri dalam seni populer masa tersebut, dimulai oleh Al Frueh yang menerbitkan Stage Folk, kumpulan karikaturnya yang bergaya Art Deco, pada tahun 1922. Pada tahun yang sama, Ralph Barton juga terkenal sebagai karikaturis teatrikal setelah menghiasi tirai teater pada salah satu pertunjukan di Broadway dengan 139 karikatur bintang teater, kritikus drama, dan orang-orang ternama dari masyarakat kelas atas New York. Miguel Covarrubias, yang berasal dari Meksiko, menyusul dengan karyanya di berbagai surat kabar dan majalah serta buku kumpulan karikatur pertamanya yang terbit pada tahun 1925, The Prince of Wales and Other Famous Americans. Alex Gard yang berimigrasi dari Rusia juga mengkhususkan diri menggambar tokoh-tokoh teater, terutama lebih dari 700 karyanya yang terpampang di dinding restoran “Sardi’s” di New York yang digambar dengan imbalan makan gratis di restoran tersebut sejak tahun 1927 hingga kematiannya tahun 1948. Namun demikian, Al Hirschfeld adalah seniman yang dianggap sebagai tetua semua karikaturis teatrikal.
Karikatur teatrikal Hirschfeld mulai dimuat di sejumlah surat kabar di New York setelah karikatur aktor Prancis Sacha Guitry karyanya, yang semula ia gambar pada salah satu pertunjukan teater Guitry dan membuat seorang wartawan terkesan hingga menyarankan Hirschfeld untuk menjualnya, dimuat di halaman depan surat kabar New York Herald Tribune pada tahun 1926. Akan tetapi, gaya khas karikatur kaligrafis linear Hirschfeld baru berkembang setelah ia mengunjungi Bali pada tahun 1932 atas undangan Covarrubias. Ia mengaku terkesan dengan wayang kulit Jawa dan dipengaruhi oleh gaya seniman ukiyo-e Jepang seperti Harunobu, Utamaro, dan Hokusai, maupun oleh Covarrubias. Sepanjang kariernya, ia membuat karikatur hampir semua tokoh penting teater Amerika Serikat, dan orang yang sudah dibuat karikaturnya oleh Hirschfeld menjadi dianggap tokoh sukses. Karyanya tampil pada hampir semua terbitan ternama selama sembilan dekade, termasuk hampir tujuh puluh lima tahun pada harian The New York Times, serta banyak poster, buku, dan sampul rekaman, hingga kematiannya pada tahun 2003.
anda sudah tahu apa itu karikatur?
oke di sini saya akan membagikan tutorial cara membuat karikatur dengan photoshop: silakan download DISINI
selamat mencoba..............
Read More

Tuesday, 1 November 2011

SMADAV 8.7 Pro Terbaru 2011

SMADAV 8.7 Pro Terbaru 2011 | Aplikasi AntivirusDownload SMADAV 8.7 | SMADAV 8.7 Pro Terbaru 2011Download SMADAV 8.7 | SMADAV 8.7 Pro Terbaru 2011 – Akhirnya SMADAV 8.7 dan SMADAV 8.7 Pro Terbaru 2011 telah dirilis pada akhir awal Oktober 2011 dan ini cukup menggembirakan bagi pengguna setia Anti Virus Lokal terbaik 2011 ini. Keberadaan SMADAV 8.7 dan SMADAV 8.7 Pro Terbaru 2011 sebagai anti virus yang membentengi komputer kita dari serangan virus ganas buatan dalam negeri sangat membantu keamanan data netter selama ini. Seperti diketahui, Anti Virus seperti Kasversky, Avira, Norton atau lainya dibuat tidak berkutik oleh keganasan virus lokal. Oleh sebab itu SMADAV 8.7 dan SMADAV 8.7 Pro Terbaru 2011 adalah jawaban dalam memberantas virus lokal tersebut.

Read More

Norton Internet Security 2012 Final Full Version + Crack

Kali ini ane mau share antivirus yang sudah tidak asing lagi yaitu Norton Internet Security 2012 atau yang biasa disingkat NIS 2012. Dan tak lupa saya sertakan crack yang aktif 1 tahun (340 day remaining) + serial number Norton Internet Security 2012 percobaan selama 3 bulan.Yang mau mencoba NIS 2012 silahkan di cek.

Read More

Friday, 28 October 2011

Cara mempercepat koneksi modem smartfren

http://farm5.static.flickr.com/4078/4889131889_11e1f21be9.jpgSmartfren evdo dengan gebrakannya mampu membuat pasar internet benar benar heboh, karena dengan harga yang lumayan terjangkau bisa memberikan layanan yang luar biasa cepat, tapi kadang kala modem yang kita gunakan tidak bisa menjangkau semua area, dan ini akan membuat modem smartfren anda akan sangat lambat, Cara mempercepat modem smartfren berikut saran yang saya berikan ini, ada dua macam cara:
Yang pertama anda bisa melakukan modifikasi di Modem, Anda bisa mengubah setingannya, Coba saja masukkan number: #777 username: wap password: wap. Saya udah coba dan lumayanlah buat modem HP smart
yang kedua, anda bisa menggunakan software, software ini bisa anda gunakan dengan modem mana saja, software ini akan meningkatkan kecepatan internet anda menjadi 5 kali lebih cepat. anda bisa segera mendownload software tersebut Disini
Read More

Trik Internetan Modem Smartfrend internet unlimited Gratis



Cara mudah membobol  Modem Smartfrend untuk berinternetan sepuasnya. Pasti hal ini yang anda tunggu-tunggukan. Memang anda itu tidal modal maunya gratisan terus. Dan kali ini saya akan share cara Internetan Modem Smartfrend internet unlimited Gratis.

Pertama saya tidak yakin dengan software yang saya download dari situs lain yang terlebih dulu share software ini. Software ini bernama "ispce" Saya pun belum pernah mencoba software ini, yang katanya bisa buat bobol Modem smartfrend.



Dari pada saya ngmong panjang lebar , mari kita praktekan bersama-sama cara mudah membobol Modem Smartfrend untuk untuk berinternetan sepuasnya. Caranya cukup mudah kok.


Read More

Trik Internet Gratis XL update 20 Oktober 2011

bgi tmen2 yang internet gratongan ni q mau ngeshare trik internet gratis pake xl.... http://gadis.blogstudent.mb.ipb.ac.id/files/2011/03/xl.gif

setting HP :
➨ APN = www.xlgprs.net
➨ Homepage = http://prov.5hd.net
➨ Proxy = 141.000.011.253
➨ Port = 80
Setting operamini handler
➨ HTTP Server = http:// server4.operamini.com:80
➨ Socket Server = socket:// server4.operamini.com:1080
➨ Proxy Type = HTTP
➨ Proxy Server = xlgo.co.id


slamat gratongan....
Read More

Wednesday, 26 October 2011

Install Windows 7 Dari Flashdisk


images Windows 7 yang dijual pasti berbentuk kepingan DVD. Berarti untuk menginstallnya harus menggunakan DVD-ROM. Tapi bagaimana jika DVD-ROM anda sedang rusak atau anda menggunakan Netbook yang biasanya tidak memiliki DVD-ROM internal. Apakah anda mencari DVD-ROM Eksternal? Cara yang lebih mudah adalah menginstall Windows 7 menggunakan media flashdisk. Bagaimana caranya?

Untitled


Read More

CARA MEMBUAT ANTIVIRUS DENGAN VISUAL BASIC 6



1.Buka program microsoft visual basic 6.0 -> Standard EXE -> OK maka akan tampil form baru sesuai dengan gambar di bawah,desain form sesuai keinginan anda





Beri nama form tersebut : frmUtama

2.Setelah form selesai di rubah namanya tambahkan component Mscomctl.Ocx dengan cara
Klik Project -> Components -> Microsoft Windows Common Controls 6.0 -> lalu klik OK
Contoh seperti gambar di bawah




3.Setelah component sukses di tambahkan langkah selanjutnya adalah menambah Command Button,Textbox,Listview,Picture Box
disini saya menggunakan desain yang sangat sederhana,desain bisa anda rubah sendiri sesuai kreatifitas anda ^^

- Tambahkan Listview kedalam form dan beri nama lvScan



yang saya lingkari merah adalah listview yang telah di tambahkan ke dalam form.

setelah itu setting listview dengan cara
Klik Listview -> Disebelah kanan bawah ada kotak properties -> Custom
lalu ikuti settingan seperti pada gambar di bawah ini


Lalu pada tab Column Headers klik insert column
- Column 1 beri nama : Virus Name
- Column 2 beri nama : Path
- Column 3 beri nama : Checksum Virus
- Column 4 beri nama : Status Virus
lalu klik Ok

Tambahkan picture box buat picture box itu sekecil mungkin dan beri nama sIcon
Setting :
Appearance : Flat
Auto Redraw : True
Border Style : None
Visible : False

Tambahkan Textbox ke dalam form dengan nama txtPath
Setting :
Appearance : Flat
Border Style : None

Tambahkan Command Button dengan nama cmdBrowse di samping Textbox yang telah di buat tadi
Setting :
Caption : ...

Masukan Code ini ke dalam cmdBrowse

Spoiler
Code:
Dim Pathnya As String
Pathnya = ""
Pathnya = BrowseFolder("Pilih folder yang akan di Scan:", Me)
If Pathnya <> "" Then
txtPath.Text = Pathnya
End If

Code di atas berfungsi untuk membuka kotak dialog yang berisi path" yang ada di dalam komputer lalu mencetaknya ke dalam textbox yang bernama txtPath

Tambahkan label dengan nama default
Setting :
Caption : Dir Scanned

Tambahkan label dengan nama lblDirScan
Setting :
Caption : 0

Tambahkan label dengan nama default
Setting :
Caption : Detected

Tambahkan label dengan nama lblFileDet
Setting :
Caption : 0

Tambahkan label dengan nama default
Setting :
Caption : File Scanned

Tambahkan label dengan nama lblFileScan
Setting :
Caption : 0

Tambahkan Textbox dengan nama txtFileScan
Setting :
Multiline : True
Scroll Bar : 2-Vertical

Tambahkan Command Button dengan nama cmdScan
Setting :
Caption : &Scan

Spoiler
'Code:
If cmdScan.Caption = "Scan" Then
Pathnya = txtPath.Text
If Mid(Pathnya, 2, 1) <> ":" Or Pathnya = "" Then
MsgBox "Direktori Tidak Ditemukan", vbCritical, "Error"
Exit Sub
Else
lvScan.Enabled = False
cmdEnable False, False, False
clear_log
cmdScan.Caption = "Stop"
StopScan = False
FindFilesEx txtPath.Text, CBool(chkSubDir.Value)
MsgBox "Scan finished !" & vbNewLine & vbNewLine & "Total Dir Scanned = " & lblDirScan.Caption & _
vbNewLine & "Total File Scanned = " & lblFileScan.Caption & vbNewLine & "Total File Detected = " & lblFileDet.Caption, vbInformation, "Finish"
If lblFileDet.Caption <> "0" Then
cmdEnable True, True, True
Else
cmdEnable False, False, True
End If
lvScan.Enabled = True
cmdScan.Caption = "Scan"
End If
Else
cmdScan.Caption = "Scan"
StopScan = True
End If


fungsi kode di atas adalah untuk memulai scan pada antivirus

Tambahkan Command Button dengan nama cmdAction
Setting :
Caption : &Delete

Tambahkan Command Button dengan nama cmdAction
Setting :
Caption : &Quarantine

Tambahkan Command Button dengan nama cmdViewQ
Setting :
Caption : &View Quarantine File

Tambahkan Command Button dengan nama cmdAction
Setting :
Caption : &Delete

Tambahkan kode ini di dalamnya

Spoiler
'Code:
Dim DftrFile As String
DftrFile = GetSelected(lvScan)
If DftrFile = "" Then
MsgBox "No Detected File(s) Selected", vbCritical, ""
Exit Sub
End If
Select Case Index
Case 0
clean = Action(DftrFile, lvScan, "D")
MsgBox clean & " File(s) has been deleted"
Case 1
clean = Action(DftrFile, lvScan, "Q")
MsgBox clean & " File(s) has been quarantine"
End Select


Fungsi di atas adalah fungsi untuk menghapus/mengkarantina file yang terdeteksi

Tambahkan Command Button dengan nama cmdAction
Setting :
Caption : &Quarantine

Tambahkan Command Button dengan nama cmdViewQ
Setting :
Caption : &View Quarantine File

Lalu masukan code ini ke dalamnya
Spoiler
Me.hide
frmquarantine.show


Code di atas berfungsi untuk memunculkan form quarantine dan meng enabled form utama

nah selesai untuk memasukan control ke dalam formnya
contoh form yang telah selesai.



lalu klik kanan pada form masukan kode di bawah ini

Spoiler
/Code:
Private Sub lvScan_ItemCheck(ByVal Item As MSComctlLib.ListItem)
UnSelect lvScan, "Di Karantina"
UnSelect lvScan, "Di Hapus"
End Sub

Private Function cmdEnable(hapus As Boolean, Quarantine As Boolean, openQuarantine As Boolean)
cmdAction(0).Enabled = hapus
cmdAction(1).Enabled = Quarantine
cmdViewQ.Enabled = openQuarantine
End Function

Private Function clear_log()
lblDirScan.Caption = 0
lblFileScan.Caption = 0
lblFileDet.Caption = 0
lvScan.ListItems.Clear
jumlahDir = 0
jumlahFile = 0
jumlahVirus = 0
End Function


lalu di Form_load() masukan kode ini
Spoiler
'Code:
On Error Resume Next
MkDir "Quarantine"
BuildDatabase


Lalu buatlah 1 module dengan nama modAPI

Lalu tambahkan code di bawah ini
Spoiler
'Code:
Public Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
Public Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long
Public Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long
Public Declare Function PathIsDirectory Lib "shlwapi.dll" Alias "PathIsDirectoryA" (ByVal pszPath As String) As Long
Public Declare Function CopyFile Lib "kernel32.dll" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
Public Declare Function MoveFile Lib "kernel32.dll" Alias "MoveFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String) As Long
Public Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long
Public Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long
Public Declare Function GetSystemDirectory Lib "kernel32.dll" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Public Declare Function GetWindowsDirectory Lib "kernel32.dll" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Public Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long
Public Declare Function SHBrowseForFolder Lib "shell32.dll" Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long
Private Declare Function RealizePalette Lib "gdi32" (ByVal hDC As Long) As Long
Public Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, lpSecurityAttributes As Any, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Public Declare Function GetFileSize Lib "kernel32" (ByVal hFile As Long, lpFileSizeHigh As Long) As Long
Public Declare Function VirtualAlloc Lib "kernel32" (lpAddress As Any, ByVal dwSize As Long, ByVal flAllocationType As Long, ByVal flProtect As Long) As Long
Public Declare Function ReadFile Lib "kernel32" (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToRead As Long, lpNumberOfBytesRead As Long, lpOverlapped As Any) As Long
Public Declare Function WriteFile Lib "kernel32" (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToWrite As Long, lpNumberOfBytesWritten As Long, lpOverlapped As Any) As Long
Public Declare Function SetFilePointer Lib "kernel32" (ByVal hFile As Long, ByVal lDistanceToMove As Long, lpDistanceToMoveHigh As Long, ByVal dwMoveMethod As Long) As Long
Public Declare Function SetEndOfFile Lib "kernel32" (ByVal hFile As Long) As Long

Public Const GENERIC_READ = &H80000000
Public Const GENERIC_WRITE = &H40000000
Public Const FILE_SHARE_READ = &H1
Public Const OPEN_EXISTING = 3
Public Const FILE_ATTRIBUTE_NORMAL = &H80
Public Const INVALID_HANDLE_VALUE = -1
Public Const FILE_END = 2
Public Const FILE_BEGIN = 0
Public Const FILE_CURRENT = 1
Public Const LWA_COLORKEY = &H1
Public Const GWL_EXSTYLE = (-20)
Public Const WS_EX_LAYERED = &H80000
Public Const MAX_PATH = 260
Public Const SW_SHOWNORMAL = 1

Public Type FileTime
dwLowDateTime As Long
dwHighDateTime As Long
End Type

Public Type WIN32_FIND_DATA
dwFileAttributes As Long
ftCreationTime As FileTime
ftLastAccessTime As FileTime
ftLastWriteTime As FileTime
nFileSizeHigh As Long
nFileSizeLow As Long
dwReserved0 As Long
dwReserved1 As Long
cFileName As String * MAX_PATH
cAlternate As String * 14
End Type

Type BROWSEINFO
hOwner As Long
pidlRoot As Long
pszDisplayName As String
lpszTitle As String
ulFlags As Long
lpfn As Long
lParam As Long
iImage As Long
End Type

'untuk browse folder
Public Function BrowseFolder(ByVal aTitle As String, ByVal aForm As Form) As String
Dim bInfo As BROWSEINFO
Dim rtn&, pidl&, path$, pos%
Dim BrowsePath As String
bInfo.hOwner = aForm.hWnd
bInfo.lpszTitle = aTitle
bInfo.ulFlags = &H1
pidl& = SHBrowseForFolder(bInfo)
path = Space(512)
t = SHGetPathFromIDList(ByVal pidl&, ByVal path)
pos% = InStr(path$, Chr$(0))
BrowseFolder = Left(path$, pos - 1)
If Right$(Browse, 1) = "\" Then
BrowseFolder = BrowseFolder
Else
BrowseFolder = BrowseFolder + "\"
End If
If Right(BrowseFolder, 2) = "\\" Then BrowseFolder = Left(BrowseFolder, Len(BrowseFolder) - 1)
If BrowseFolder = "\" Then BrowseFolder = ""
End Function

Public Function StripNulls(ByVal OriginalStr As String) As String
If (InStr(OriginalStr, Chr$(0)) > 0) Then
OriginalStr = Left$(OriginalStr, InStr(OriginalStr, Chr(0)) - 1)
End If
StripNulls = OriginalStr
End Function

'fungsi untuk menentukan file script atau bukan
Public Function IsScript(Filename As String) As Boolean
IsScript = False
ext = Split("|vbs|vbe", "|")
For i = 1 To UBound(ext)
If LCase(Right(Filename, 3)) = LCase(ext(i)) Then IsScript = True
Next
End Function

Code di atas adalah Fungsi API yang di butuhkan untuk antivirus

Buat 1 module dengan nama modChecksum
masukan code di bawah ini.

Spoiler
'Code:
Public Function GetChecksum(FilePath As String) As String
Dim CheckSum(1 To 2) As String
CheckSum(1) = CalcBinary(FilePath, 499, 4500)
CheckSum(2) = CalcBinary(FilePath, 499, 4000)
GetChecksum = CheckSum(1) & CheckSum(2)
End Function
Public Function CalcBinary(ByVal lpFileName As String, ByVal lpByteCount As Long, Optional ByVal StartByte As Long = 0) As String
On Error GoTo err
Dim Bin() As Byte
Dim ByteSum As Long
Dim i As Long
ReDim Bin(lpByteCount) As Byte
Open lpFileName For Binary As #1
If StartByte = 0 Then
Get #1, , Bin
Else
Get #1, StartByte, Bin
End If
Close #1
For i = 0 To lpByteCount
ByteSum = ByteSum + Bin(i) ^ 2
Next i
CalcBinary = Hex$(ByteSum)
Exit Function
err:
CalcBinary = "00"
End Function

potongan code di atas di gunakan untuk meng kalkulasi checksum

buat 1 module lagi dengan nama modDatabase
lalu tambahkan code di bawah ini.

Spoiler
'Code:
Public VirusDB(5), IconDB(48), Bahaya(5) As String
Public Sub BuildDatabase()
Call Checksum_DB
Call IconCompare_DB
Call Script_DB
End Sub
Private Sub Checksum_DB()
VirusDB(1) = "Alman.A|8911D290F723"
VirusDB(2) = "Malingsi.A|A6292EA60230"
VirusDB(3) = "Conficker.A|9EC112ABB2F3"
VirusDB(4) = "N4B3.A|B5CCD36CDB98"
VirusDB(5) = "N4B3.B|A1FE6D6DBE07"
End Sub
Public Sub IconCompare_DB()
On Error Resume Next
IconDB(1) = "20938B2"
IconDB(2) = "19F4ED6"
IconDB(3) = "133BE0B"
IconDB(4) = "18EDEAE"
IconDB(5) = "1EF89C2"
IconDB(6) = "1C915FF"
IconDB(7) = "24563C4"
IconDB(8) = "1B2DB74"
IconDB(9) = "208EA72"
IconDB(10) = "22A064D"
IconDB(11) = "19B64EE"
IconDB(12) = "1D4B7E1"
IconDB(13) = "2087762"
IconDB(14) = "29C7258"
IconDB(15) = "1B18705"
IconDB(16) = "1B5FCAB"
IconDB(17) = "126D4CF"
IconDB(18) = "1C58E5C"
IconDB(19) = "15D7730"
IconDB(20) = "1FB82B7"
IconDB(21) = "112763E"
IconDB(22) = "2165AF9"
IconDB(23) = "25F46BE"
IconDB(24) = "206556B"
IconDB(25) = "22A8D69"
IconDB(26) = "19237F8"
IconDB(27) = "15022B4"
IconDB(28) = "1D8B4EB"
IconDB(29) = "1DBC1EA"
IconDB(30) = "2333F5D"
IconDB(31) = "1F37C2F"
IconDB(32) = "1C9CCA4"
IconDB(33) = "1DFDFB4"
IconDB(34) = "1C1283E"
IconDB(35) = "1F6598C"
IconDB(36) = "27F4C1A"
IconDB(37) = "22F92E0"
IconDB(38) = "191DBDC"
IconDB(39) = "27BFE4A"
IconDB(40) = "20E0907"
IconDB(46) = "2FA4C88"
IconDB(47) = "25AA630"
IconDB(48) = "1DE28E2"
End Sub
Public Sub Script_DB()
On Error Resume Next
Bahaya(1) = "Scripting.FileSystemObject|Wscript.ScriptFullName|WScript.Shell|.regwrite|.copy"
Bahaya(2) = "Wscript.ScriptFullName|createobject|strreverse|.regwrite"
Bahaya(3) = "createobject|Wscript.ScriptFullName|.regwrite|[autorun]"
Bahaya(4) = "createobject|Wscript.ScriptFullName|specialfolder|.regwrite"
Bahaya(5) = "chr(asc(mid(|createobject|Wscript.ScriptFullName|.GetFolder|.RegWrite"
End Sub

potongan code di atas adalah database pada antivirusnya

buat lagi 1 buah module dengan nama modQuar
masukan code yang ada di bawah ini
Spoiler

Code:
Option Explicit
Public Function EncodeFile(SourceFile As String, DestFile As String)
Dim ByteArray() As Byte, Filenr As Integer
Filenr = FreeFile
Open SourceFile For Binary As #Filenr
ReDim ByteArray(0 To LOF(Filenr) - 1)
Get #Filenr, , ByteArray()
Close #Filenr
Call Coder(ByteArray())
If (PathFileExists(DestFile)) <> 0 Then DeleteFile DestFile
Open DestFile For Binary As #Filenr
Put #Filenr, , ByteArray()
Close #Filenr
End Function
Public Function DecodeFile(SourceFile As String, DestFile As String)
Dim ByteArray() As Byte, Filenr As Integer
Filenr = FreeFile
Open SourceFile For Binary As #Filenr
ReDim ByteArray(0 To LOF(Filenr) - 1)
Get #Filenr, , ByteArray()
Close #Filenr
Call DeCoder(ByteArray())
If (PathFileExists(DestFile)) <> 0 Then DeleteFile DestFile
Open DestFile For Binary As #Filenr
Put #Filenr, , ByteArray()
Close #Filenr
End Function
Private Sub Coder(ByteArray() As Byte)
Dim x As Long
Dim Value As Integer
Value = 0
For x = 0 To UBound(ByteArray)
Value = Value + ByteArray(x)
If Value > 255 Then Value = Value - 256
ByteArray(x) = Value
Next
End Sub
Private Sub DeCoder(ByteArray() As Byte)
Dim x As Long
Dim Value As Integer
Dim newValue As Integer
newValue = 0
For x = 0 To UBound(ByteArray)
Value = newValue
newValue = ByteArray(x)
Value = ByteArray(x) - Value
If Value < 0 Then Value = Value + 256 ByteArray(x) = Value Next End Sub
Code di atas adalah code untuk enkripsi/dekripsi pada virus yang akan di karantina

Buat lagi 1 module dengan nama modHeuristic
lalu masukan code di bawah ini
Spoiler
'Code:
Private Declare Function ExtractIconEx Lib "shell32.dll" Alias "ExtractIconExA" (ByVal lpszFile As String, ByVal nIconIndex As Long, ByRef phiconLarge As Long, ByRef phiconSmall As Long, ByVal nIcons As Long) As Long
Private Declare Function DestroyIcon Lib "user32.dll" (ByVal hIcon As Long) As Long
Private Declare Function DrawIconEx Lib "user32" (ByVal hDC As Long, ByVal xLeft As Long, ByVal yTop As Long, ByVal hIcon As Long, ByVal cxWidth As Long, ByVal cyWidth As Long, ByVal istepIfAniCur As Long, ByVal hbrFlickerFreeDraw As Long, ByVal diFlags As Long) As Boolean
Private Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, ByVal lpszExefileName As String, ByVal nIconIndex As Long) As Long
Private Const DI_MASK = &H1
Private Const DI_IMAGE = &H2
Private Const DI_NORMAL = &H3
Private Const DI_COMPAT = &H4
Private Const DI_DEFAULTSIZE = &H8
Private Const SHGFI_DISPLAYNAME = &H200
Private Const SHGFI_EXETYPE = &H2000
Private Const SHGFI_SYSICONINDEX = &H4000
Private Const SHGFI_LARGEICON = &H0
Private Const SHGFI_SMALLICON = &H1
Private Const ILD_TRANSPARENT = &H1
Private Const SHGFI_SHELLICONSIZE = &H4
Private Const SHGFI_TYPENAME = &H400
Private Const BASIC_SHGFI_FLAGS = SHGFI_TYPENAME Or SHGFI_SHELLICONSIZE Or SHGFI_SYSICONINDEX Or SHGFI_DISPLAYNAME Or SHGFI_EXETYPE
Private SIconInfo As SHFILEINFO
Private SectionHeaders() As IMAGE_SECTION_HEADER
Dim i As Integer
Dim j As Integer
Public Function CekHeuristic(Filename As String)
CekHeuristic = ""
On Error GoTo hError
Dim hFile As Long, bRW As Long
Dim DOSheader As IMAGE_DOS_HEADER
Dim NTHeaders As IMAGE_NT_HEADERS
Dim Filedata As String
DOS_HEADER_INFO = ""
NT_HEADERS_INFO = ""
hFile = CreateFile(Filename, ByVal (GENERIC_READ Or GENERIC_WRITE), FILE_SHARE_READ, ByVal 0&, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, ByVal 0)
ReadFile hFile, DOSheader, Len(DOSheader), bRW, ByVal 0&
SetFilePointer hFile, DOSheader.e_lfanew, 0, 0
ReadFile hFile, NTHeaders, Len(NTHeaders), bRW, ByVal 0&
If NTHeaders.Signature <> IMAGE_NT_SIGNATURE Then
If IsScript(Filename) = True Then
Open Filename For Binary As #1
Filedata = Space$(LOF(1))
Get #1, , Filedata
Close #1
CekHeuristic = CekHeur(Filedata)
End If
Exit Function
End If
CekHeuristic = CekIconBinary(Filename)
hError:
End Function
Private Function CekHeur(Data As String)
Dim hsl, asl As Integer
strasli = LCase(Replace(Data, vbNewLine, "$"))
For i = 1 To UBound(Bahaya)
hsl = 0
strData = Split(Bahaya(i), "|")
asl = 0
For k = 0 To UBound(strData)
xxx = LCase(strData(k))
If InStr(strasli, xxx) > 0 Then hsl = hsl + 1
asl = asl + 1
Next
If hsl = asl Then
CekHeur = "Malicious-Script"
Exit Function
End If
Next
CekHeur = ""
End Function
Private Function CekIconBinary(PathFile As String)
Dim q As Integer
Dim IconIDNow As String
CekIconBinary = ""
IconIDNow = CalcIcon(PathFile)
If IconIDNow = "" Then Exit Function
For q = 1 To UBound(IconDB)
If IconDB(q) = IconIDNow Then
CekIconBinary = "Malicious-Icon"
Exit Function
End If
Next q
End Function
Private Function CalcBinary(ByVal lpFileName As String, ByVal lpByteCount As Long, Optional ByVal StartByte As Long = 0) As String
Dim Bin() As Byte
Dim ByteSum As Long
Dim i As Long
ReDim Bin(lpByteCount) As Byte
Open lpFileName For Binary As #1
If StartByte = 0 Then
Get #1, , Bin
Else
Get #1, StartByte, Bin
End If
Close #1
For i = 0 To lpByteCount
ByteSum = ByteSum + Bin(i) ^ 2
Next i
CalcBinary = Hex$(ByteSum)
End Function
Private Function CalcIcon(ByVal lpFileName As String) As String
Dim PicPath As String
Dim ByteSum As String
Dim IconExist As Long
Dim hIcon As Long
IconExist = ExtractIconEx(lpFileName, 0, ByVal 0&, hIcon, 1)
If IconExist <= 0 Then IconExist = ExtractIconEx(lpFileName, 0, hIcon, ByVal 0&, 1) If IconExist <= 0 Then Exit Function End If frmUtama.sIcon.BackColor = vbWhite DrawIconEx frmUtama.sIcon.hDC, 0, 0, hIcon, 0, 0, 0, 0, DI_NORMAL DestroyIcon hIcon PicPath = Environ$("windir") & "\tmp.tmp" SavePicture frmUtama.sIcon.Image, PicPath ByteSum = CalcBinary(PicPath, FileLen(PicPath)) DeleteFile PicPath CalcIcon = ByteSum End Function
Fungsi di atas adalah fungsi untuk mengecek suatu file dengan metode heuristic icon + heuristic untuk virus VBS

Buat 1 module dengan nama modIconCompare
lalu masukan code di bawah ini
Spoiler
'Code:
Option Explicit
Private 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 Or SHGFI_SHELLICONSIZE Or SHGFI_SYSICONINDEX Or SHGFI_DISPLAYNAME Or SHGFI_EXETYPE
Public Type SHFILEINFO
hIcon As Long: iIcon As Long: dwAttributes As Long: szDisplayName As String * MAX_PATH: szTypeName As String * 80
End Type
Private Declare Function SHGetFileInfo Lib "shell32.dll" Alias "SHGetFileInfoA" (ByVal pszPath As String, ByVal dwFileAttributes As Long, psfi As SHFILEINFO, ByVal cbSizeFileInfo As Long, ByVal uFlags As Long) As Long
Private Declare Function ImageList_Draw Lib "comctl32.dll" (ByVal himl As Long, ByVal i As Long, ByVal hdcDest As Long, ByVal x As Long, ByVal y As Long, ByVal flags As Long) As Long
Private shinfo As SHFILEINFO, sshinfo As SHFILEINFO
Private Declare Function DrawIconEx Lib "user32.dll" (ByVal hDC As Long, ByVal xLeft As Long, ByVal yTop As Long, ByVal hIcon As Long, ByVal cxWidth As Long, ByVal cyWidth As Long, ByVal istepIfAniCur As Long, ByVal hbrFlickerFreeDraw As Long, ByVal diFlags As Long) As Long
Private SIconInfo As SHFILEINFO

Public Enum IconRetrieve
ricnLarge = 32
ricnSmall = 16
End Enum

Public Sub RetrieveIcon(fName As String, DC As PictureBox, icnSize As IconRetrieve)
Dim hImgSmall, hImgLarge As Long
Debug.Print fName
Select Case icnSize
Case ricnSmall
hImgSmall = SHGetFileInfo(fName$, 0&, shinfo, Len(shinfo), BASIC_SHGFI_FLAGS Or SHGFI_SMALLICON)
Call ImageList_Draw(hImgSmall, shinfo.iIcon, DC.hDC, 0, 0, ILD_TRANSPARENT)
Case ricnLarge
hImgLarge& = SHGetFileInfo(fName$, 0&, shinfo, Len(shinfo), BASIC_SHGFI_FLAGS Or SHGFI_LARGEICON)
Call ImageList_Draw(hImgLarge, shinfo.iIcon, DC.hDC, 0, 0, ILD_TRANSPARENT)
End Select
End Sub
Public Function ExtractIcon(Filename As String, AddtoImageList As ImageList, PictureBox As PictureBox, PixelsXY As IconRetrieve, iKey As String) As Long
Dim SmallIcon As Long
Dim NewImage As ListImage
Dim IconIndex As Integer
On Error GoTo Load_New_Icon
If iKey <> "Application" And iKey <> "Shortcut" Then
ExtractIcon = AddtoImageList.ListImages(iKey).Index
Exit Function
End If
Load_New_Icon:
On Error GoTo Reset_Key
RetrieveIcon Filename, PictureBox, PixelsXY
IconIndex = AddtoImageList.ListImages.Count + 1
Set NewImage = AddtoImageList.ListImages.Add(IconIndex, iKey, PictureBox.Image)
ExtractIcon = IconIndex
Exit Function
Reset_Key:
iKey = ""
Resume
End Function
Public Sub GetLargeIcon(icPath$, pDisp As PictureBox)
Dim hImgLrg&: hImgLrg = SHGetFileInfo(icPath$, 0&, SIconInfo, Len(SIconInfo), BASIC_SHGFI_FLAGS Or SHGFI_LARGEICON)
ImageList_Draw hImgLrg, SIconInfo.iIcon, pDisp.hDC, 0, 0, ILD_TRANSPARENT
End Sub

kode di atas di butuhkan untuk metode heuristic icon pada antivirus

Buat 1 module dengan nama modLV
lalu masukan code di bawah ini
Spoiler
'Code:
Public Function GetSelected(TheLV As ListView)
Dim Sel As String
For i = 1 To TheLV.ListItems.Count
If TheLV.ListItems.Item(i).Checked = True Then
Sel = Sel & "|" & TheLV.ListItems.Item(i).SubItems(1)
End If
Next
GetSelected = Sel
End Function

Public Function SelectedAll(TheLV As ListView)
For i = 1 To TheLV.ListItems.Count
TheLV.ListItems.Item(i).Checked = True
Next
End Function

Public Function SelectedNone(TheLV As ListView)
For i = 1 To TheLV.ListItems.Count
TheLV.ListItems.Item(i).Checked = False
Next
End Function

Public Function GetIndex(TheLV As ListView, Data As String) As Integer
For i = 1 To TheLV.ListItems.Count
If TheLV.ListItems.Item(i).SubItems(1) = Data Then
GetIndex = i
End If
Next
End Function

Public Function UnSelect(TheLV As ListView, Data As String)
For i = 1 To TheLV.ListItems.Count
If TheLV.ListItems.Item(i).SubItems(3) = Data Then
TheLV.ListItems.Item(i).Checked = False
End If
Next
End Function

Public Function AddDetect(TheLV As ListView, FilePath As String, VirData As String)
With TheLV
If Left(VirData, 9) <> "Malicious" Then
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) = "Virus File"
Else
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

Code di atas berguna untuk dengatur Listview pada saat virus terdeteksi

Buat 1 module dengan nama modPE
lalu masukan code di bawah ini
Spoiler
'Code:
Public Type IMAGE_DOS_HEADER
e_magic As Integer
e_cblp As Integer
e_cp As Integer
e_crlc As Integer
e_cparhdr As Integer
e_minalloc As Integer
e_maxalloc As Integer
e_ss As Integer
e_sp As Integer
e_csum As Integer
e_ip As Integer
e_cs As Integer
e_lfarlc As Integer
e_ovno As Integer
e_res(1 To 4) As Integer
e_oemid As Integer
e_oeminfo As Integer
e_res2(1 To 10) As Integer
e_lfanew As Long
End Type

Public Type IMAGE_SECTION_HEADER
nameSec As String * 6
PhisicalAddress As Integer

VirtualSize As Long
VirtualAddress As Long
SizeOfRawData As Long
PointerToRawData As Long
PointerToRelocations As Long
PointerToLinenumbers As Long
NumberOfRelocations As Integer
NumberOfLinenumbers As Integer
Characteristics As Long

End Type

Public Type IMAGE_DATA_DIRECTORY
VirtualAddress As Long
size As Long
End Type

Public Type IMAGE_OPTIONAL_HEADER
Magic As Integer
MajorLinkerVersion As Byte
MinorLinkerVersion As Byte
SizeOfCode As Long
SizeOfInitializedData As Long
SizeOfUninitializedData As Long
AddressOfEntryPoint As Long
BaseOfCode As Long
BaseOfData As Long
ImageBase As Long
SectionAlignment As Long
FileAlignment As Long
MajorOperatingSystemVersion As Integer
MinorOperatingSystemVersion As Integer
MajorImageVersion As Integer
MinorImageVersion As Integer
MajorSubsystemVersion As Integer
MinorSubsystemVersion As Integer
Win32VersionValue As Long
SizeOfImage As Long
SizeOfHeaders As Long
CheckSum As Long
Subsystem As Integer
DllCharacteristics As Integer
SizeOfStackReserve As Long
SizeOfStackCommit As Long
SizeOfHeapReserve As Long
SizeOfHeapCommit As Long
LoaderFlags As Long
NumberOfRvaAndSizes As Long
DataDirectory(0 To 15) As IMAGE_DATA_DIRECTORY
End Type

Public Type IMAGE_FILE_HEADER
Machine As Integer
NumberOfSections As Integer
TimeDateStamp As Long
PointerToSymbolTable As Long
NumberOfSymbols As Long
SizeOfOptionalHeader As Integer
Characteristics As Integer
End Type

Public Type IMAGE_NT_HEADERS
Signature As Long
FileHeader As IMAGE_FILE_HEADER
OptionalHeader As IMAGE_OPTIONAL_HEADER
End Type

Public Type IMAGE_EXPORT_DIRECTORY
Characteristics As Long
TimeDateStamp As Long
MajorVersion As Integer
MinorVersion As Integer
Name As Long
Base As Long
NumberOfFunctions As Long
NumberOfNames As Long
AddressOfFunctions As Long
AddressOfNames As Long
AddressOfNameOrdinals As Long
End Type

Public Type IMAGE_IMPORT_DESCRIPTOR
OriginalFirstThunk As Long
TimeDateStamp As Long
ForwarderChain As Long
Name As Long
FirstThunk As Long
End Type

Public Type IMAGE_IMPORT_BY_NAME
Hint As Integer
Name As String * 255
End Type

Public Const IMAGE_SIZEOF_SECTION_HEADER = 40
Public Const IMAGE_DOS_SIGNATURE = &H5A4D
Public Const IMAGE_NT_SIGNATURE = &H4550
Public Const IMAGE_ORDINAL_FLAG = &H80000000

Public Enum SECTION_CHARACTERISTICS
IMAGE_SCN_LNK_NRELOC_OVFL = &H1000000 'Section contains extended relocations.
IMAGE_SCN_MEM_DISCARDABLE = &H2000000 'Section can be discarded.
IMAGE_SCN_MEM_NOT_CACHED = &H4000000 'Section is not cachable.
IMAGE_SCN_MEM_NOT_PAGED = &H8000000 'Section is not pageable.
IMAGE_SCN_MEM_SHARED = &H10000000 'Section is shareable.
IMAGE_SCN_MEM_EXECUTE = &H20000000 'Section is executable.
IMAGE_SCN_MEM_READ = &H40000000 'Section is readable.
IMAGE_SCN_MEM_WRITE = &H80000000 'Section is writeable.
End Enum

Public Enum IMAGE_DIRECTORY
IMAGE_DIRECTORY_ENTRY_EXPORT = 0 ' Export Directory
IMAGE_DIRECTORY_ENTRY_IMPORT = 1 ' Import Directory
IMAGE_DIRECTORY_ENTRY_RESOURCE = 2 ' Resource Directory
IMAGE_DIRECTORY_ENTRY_EXCEPTION = 3 ' Exception Directory
IMAGE_DIRECTORY_ENTRY_SECURITY = 4 ' Security Directory
IMAGE_DIRECTORY_ENTRY_BASERELOC = 5 ' Base Relocation Table
IMAGE_DIRECTORY_ENTRY_DEBUG = 6 ' Debug Directory
IMAGE_DIRECTORY_ENTRY_ARCHITECTURE = 7 ' Architecture Specific Data
IMAGE_DIRECTORY_ENTRY_GLOBALPTR = 8 ' RVA of GP
IMAGE_DIRECTORY_ENTRY_TLS = 9 ' TLS Directory
IMAGE_DIRECTORY_ENTRY_LOAD_CONFIG = 10 ' Load Configuration Directory
IMAGE_DIRECTORY_ENTRY_BOUND_IMPORT = 11 ' Bound Import Directory in headers
IMAGE_DIRECTORY_ENTRY_IAT = 12 ' Import Address Table
IMAGE_DIRECTORY_ENTRY_DELAY_IMPORT = 13 ' Delay Load Import Descriptors
IMAGE_DIRECTORY_ENTRY_COM_DESCRIPTOR = 14 ' COM Runtime descriptor
End Enum

code di atas berfungsi untuk pengecekan PE HEADER

buat 1 module dengan nama modScanning
lalu tambahkan code di bawah ini
Spoiler
'Code:
Public jumlahDir As Long, jumlahFile As Long, jumlahVirus As Long
Public StopScan As Boolean

Public Function CekVirus(FilePath As String) As String
CekVirus = ""
For i = 1 To UBound(VirusDB)
If GetChecksum(FilePath) = Split(VirusDB(i), "|")(1) Then
CekVirus = VirusDB(i)
Exit Function
End If
Next
If FileLen(FilePath) / 1024 <= 512 Then CekVirus = CekHeuristic(FilePath) End If End Function Public Sub FindFilesEx(ByVal lpFolderName As String, ByVal SubDirs As Boolean) Dim i As Long Dim hSearch As Long, WFD As WIN32_FIND_DATA Dim Result As Long, CurItem As String Dim tempDir() As String, dirCount As Long Dim RealPath As String, GetViri As String GetViri = "" dirCount = -1 ScanInfo = "Scan File" If Right$(lpFolderName, 1) = "\" Then RealPath = lpFolderName Else RealPath = lpFolderName & "\" End If hSearch = FindFirstFile(RealPath & "*", WFD) If Not hSearch = INVALID_HANDLE_VALUE Then Result = True Do While Result DoEvents If StopScan = True Then Exit Do CurItem = StripNulls(WFD.cFileName) If Not CurItem = "." And Not CurItem = ".." Then If PathIsDirectory(RealPath & CurItem) <> 0 Then
jumlahDir = jumlahDir + 1
frmUtama.lblDirScan.Caption = jumlahDir
If SubDirs = True Then
dirCount = dirCount + 1
ReDim Preserve tempDir(dirCount) As String
tempDir(dirCount) = RealPath & CurItem
End If
Else
jumlahFile = jumlahFile + 1
frmUtama.lblFileScan.Caption = jumlahFile
frmUtama.txtFileScan.Text = RealPath & CurItem
frmUtama.txtFileScan.SelStart = Len(frmUtama.txtFileScan.Text)
If WFD.nFileSizeLow > 5120 Or WFD.nFileSizeHigh > 5120 Then
GetViri = CekVirus(RealPath & CurItem)
If GetViri <> "" Then
AddDetect frmUtama.lvScan, RealPath & CurItem, GetViri
jumlahVirus = jumlahVirus + 1
frmUtama.lblFileDet.Caption = jumlahVirus
End If
End If
End If
End If
Result = FindNextFile(hSearch, WFD)
Loop
FindClose hSearch

If SubDirs = True Then
If dirCount <> -1 Then
For i = 0 To dirCount
FindFilesEx tempDir(i), True
Next i
End If
End If
End If
End Sub

Code di atas adalah code untuk scan file & folder pada antivirus

buat 1 module dengan nama modEtc
masukan code di bawah ini
Spoiler
'Code:
Public Function Action(Data As String, TheLV As ListView, Mode As String)
Dim Filedata() As String
Dim fName, tmp, Status As String
Dim y As Integer
Filedata = Split(Data, "|")
For i = 1 To UBound(Filedata)
a = a + 1
If Mode = "Q" Then
fName = GetFileName(Filedata(i))
EncodeFile Filedata(i), AppPath & "Quarantine\" & Left$(fName, Len(fName) - Len(GetExt(Filedata(i)))) & ".avq"
AddQList TheLV, Filedata(i), Left$(fName, Len(fName) - Len(GetExt(Filedata(i)))) & ".avq"
DeleteFile Filedata(i)
Status = "Di Karantina"
ElseIf Mode = "D" Then
DeleteFile Filedata(i)
Status = "Di Hapus"
End If
y = GetIndex(TheLV, Filedata(i))
With TheLV.ListItems.Item(y)
.SubItems(3) = Status
.Checked = False
.SmallIcon = frmUtama.ImgSmall.ListImages(2).Index
End With
Next
Action = a
End Function

Public Function AddQList(TheLV As ListView, FilePath As String, Source As String)
Dim Dat As String
Dat = AppPath & "Quarantine\HN.dat"
If PathFileExists(Dat) <> 0 Then
Open Dat For Input As #1
Input #1, isi
Close #1
DeleteFile Dat
Else
isi = ""
End If
namavir = TheLV.ListItems(GetIndex(TheLV, FilePath))
If InStrRev(isi, Source, , vbTextCompare) = 0 Then
Open Dat For Output As #2
Print #2, isi & "|" & namavir & "?" & FilePath & "?" & Source
Close #2
Else
Open Dat For Output As #3
Print #3, isi
Close #3
End If
End Function

Public Function GetFileName(PathFile As String) As String
Dim i As Long
Dim DirString As Long
For i = 1 To Len(PathFile)
If Mid$(PathFile, i, 1) = "\" Then DirString = i
Next i
GetFileName = Right$(PathFile, Len(PathFile) - DirString)
End Function

Public Function GetExt(ByVal lpFileName As String)
Dim sTemp As String
Dim i As Long
sTemp = GetFileName(lpFileName)
If InStr(lpFileName, ".") Then
For i = 0 To Len(sTemp) - 1
If Mid$(sTemp, Len(sTemp) - i, 1) = "." Then
GetExt = Mid$(sTemp, Len(sTemp) - i, i)
Exit Function
End If
Next i
End If
End Function

Code di atas adalah kumpulan fungsi etc untuk scanning,karantina,delete

Ini adalah tampilan antivirus setelah di berikan module


sekarang tinggal cara membuat form quarantinenya,

caranya adalah sebagai berikut pada gambar berikut





setelah form baru sudah di buat,lalu rubah nama formnya menjadi frmQuarantine

Tambah 1 buah listview dengan nama lvQ
lalu setting listview tersebut sesuai dengan gambar di bawah ini,cara setting listview sudah tertera diatas.





Tambahkan 3 buah Command button dengan nama

- cmdDelete
- cmdRestore
- cmdRestore(1)

Tambahkan code di bawah ini ke dalam Command [ cmdDelete ]

Spoiler
'Code:
If lvQ.ListItems.Count = 0 Then Exit Sub
Dim Data() As String
If PathFileExists(Dat) <> 0 Then
Open Dat For Input As #1
Input #1, isi
Close #1
DeleteFile Dat
Else
isi = ""
End If
Data = Split(isi, "|")
For i = 1 To UBound(Data)
namafile = lvQ.SelectedItem.SubItems(2)
If namafile <> Split(Data(i), "?")(1) Then
nyu = nyu & "|" & Data(i)
End If
Next
DeleteFile AppPath & "Quarantine\" & lvQ.SelectedItem.SubItems(1)
Open Dat For Output As #2
Print #2, nyu
Close #2
MsgBox "Success Deleting File !!!", vbInformation, ""
UpdateQ

code di atas berfungsi untuk menghapus file yang telah di karantina

Masukan code di bawah ini ke Command [ cmdRestore ]
Spoiler
'Code:
If lvQ.ListItems.Count = 0 Then Exit Sub
Select Case Index
Case 0
DecodeFile AppPath & "Quarantine\" & lvQ.SelectedItem.SubItems(1), lvQ.SelectedItem.SubItems(2)
MsgBox "File Restored to " & Chr(34) & lvQ.SelectedItem.SubItems(2) & Chr(34) & " !!!", vbInformation, ""
Case 1
sTitle = "Select path:" & vbNewLine & "Select path to restore file."
ThePath = BrowseFolder(sTitle, Me)
If ThePath <> "" Then
DecodeFile AppPath & "Quarantine\" & lvQ.SelectedItem.SubItems(1), ThePath & GetFileName(lvQ.SelectedItem.SubItems(2))
MsgBox "File Restored to " & Chr(34) & ThePath & GetFileName(lvQ.SelectedItem.SubItems(2)) & Chr(34) & " !!!", vbInformation, ""
End If
End Select

Fungsi code di atas berguna untuk me restore file kembali ke asalnya.

lalu pada Form_Load() tambahkan code di bawah ini.
Spoiler
'Code:
frmUtama.Enabled = False
Dat = AppPath & "Quarantine\HN.dat"
UpdateQ


Masukan code di bawah ini ke dalam frmQuarantine yang telah anda buat tadi.
Spoiler
'Code:
Dim Dat As String
Private Sub UpdateQ()
lvQ.ListItems.Clear
Dim Data() As String
If PathFileExists(Dat) = 0 Then Exit Sub
Open Dat For Input As #1
Input #1, isi
Close #1
Data = Split(isi, "|")
For i = 1 To UBound(Data)
With lvQ.ListItems.Add(, , Split(Data(i), "?")(0))
.SubItems(1) = Split(Data(i), "?")(2)
.SubItems(2) = Split(Data(i), "?")(1)
End With
Next
Me.Caption = "Quarantine (" & lvQ.ListItems.Count & ")"
End Sub

Berfungsi untuk memanggil data yang ada di folder karantina.

Hanya itu ilmu yang bisa saya bagikan. sekarang kita bukan hanya sebagai pemakai atau user sekrang kita sudah bisa mmembuat antivirus.

dan ini adalah Screenshot antivirus yang kita buat tadi saat melakukan scanning.


Note : Jika anda membaca dan mencoba dengan teliti dan seksama anda pasti berhasil.

Orang yang berhasil adalah orang yang banyak mecoba.

Untuk masalah source code anda bisa meminta kepada saya tapi dengan satu syarat, yaitu anda harus menyertakan bukti bahwa anda telah mencoba entah itu dalam bentuk screenshot atau yang lainnya.

Untuk yang belum punya Visual Basic 6.0 bisa download disini
Read More
© 2014 kudusan Blog. Designed by Bloggertheme9 | Distributed By Gooyaabi Templates
Powered by Blogger.