fakta unik instagram

 pada tau instagram gak ? kalo gk tau ih kudet-kudet-kudet hahaha bencanda , pada udah tau belom fakta unik instagram , kalo belum tau yuk selidiki disini




Berikut ini adalah beberapa fakta menarik tentang Instagram :
1. Instagram dapat digunakan di iPhone, iPad atau iPod Touch versi apapun dengan sistem operasi iOS 3.1.2 atau yang terbaru dan telepon kamera Android apapun dengan sistem operasi 2.2 (Froyo) atau yang terbaru. Aplikasi ini tersebar melalui Apple App Store dan Google Play.                                                            
2 Instagram didirikan oleh dua pemuda lulusan Stanford University, Kevin Systrom dan Mike Krieger. Sampai saat ini, Instagram yang berbasis di San Francisco tercatat baru memiliki 13 orang karyawan.
3.Istagram dinobatkan sebagai App of The Year 2011 di Apple iTunes.
4.Instagram langsung menjadi aplikasi populer di Android. Sebanyak satu juta unduhan dilakukan user Android dalam 12 jam ketersediaan Instagram di toko aplikasi Google Play.
5. Lima besar negara dengan pengguna Instagram paling banyak adalah Amerika Serikat, Jepang, Brazil, Spanyol, Jerman dan Inggris.
6. Facebook membeli Instagram senilai USD 1 miliar. Dengan jumlah 30 juta anggota, berarti setiap anggota Instagram bernilai sekitar USD 33.
7 Pihak Instagram menyatakan saat ini terdapat 30 juta pengguna aplikasinya yang mengupload lebih dari 5 juta foto baru setiap hari. Padahal pada Desember 2011, jumlah penggunanya masih 15 juta. Sampai akhir 2011, sudah 400 juta foto diposting ke Instagram
8 Instagram diluncurkan sebagai aplikasi di App store pada tanggal 6 Oktober 2010. Kemudian pada 3 April 2012, aplikasi ini diluncurkan di toko aplikasi Google Play untuk pengguna sistem operasi Android.
9 Kevin Systrom, salah satu pendiri Instagram pernah bekerja di Google. Ia juga pernah mendapat tawaran kerja di Facebook pada tahun 2004, namun ia menolaknya.

keunggulan twitter

7 Keunggulan Twitter dibandingkan Facebook

siapa yang masih belum kenal yang namanya facebook buatan mark? atau twitter buatan Obvious?
kalo belum kenal ini mending ke laut aja sono (bercanda kok)

Yah memang sebenarnya facebook saat ini lebih popular daripada twitter, jumlah user facebook lebih banyak daripada user twitter, dan saat postingan ini ditulis, dari 100 urutan web terbanyak diakses di Indonesia, facebook menempati no 1 sedangkan twitter menempati urutan 17. Namun jika kita lihat dari sisi lain “twitter ternyata lebih menarik dan unggul daripada facebook”. Saya yakin suatu saat semua orang bosan dengan facebook, dan itu mulai terlihat sekarang, banyak teman tidak aktif lagi bermain facebook, tidak seperti masa awal booming. Apa saja yang menarik dan unggul dari twitter? dan apa saja yang membedakannya dengan facebook? Berikut 7 Keunggulan Twitter Dari Facebook, yaitu :

1. Hanya 140 Karakter
Update status twitter hanya dibatasi 140 karakter (huruf, angka, simbol, atau spasi) sedangkan update status di facebook awalnya dibatasi 160 karakter kini dinaikkan menjadi 420 karakter. Karena di twitter hanya 140 karakter, maka kita harus menulis yang singkat dan perlu saja, apalagi kalau menyertakan tautan (link) kita benar-benar harus berpikir untuk memilih dan menyingkat kata. Sedangkan di facebook update status bisa panjang, bisa jadi satu paragraf, mungkin bisa menulis satu lirik lagu penuh :). Akhirnya kalau update status di facebook tidak usah bingung memilih dan menyingkat kata, tidak heran update status di facebook kadang ada yang terkesan bombastis :D.

2. No Threaded Comment
Di facebook cara membalas update status adalah dengan menuliskan komentar yang muncul di bawah update status tersebut, begitu seterusnya secara berurutan (threaded). Di twitter beda, cara membalas update status adalah dengan menulis update status baru dengan menyertakan @namaorang yang dibalas. Ini yang membuat twitter menjadi istimewa. Bayangkan jika ada seseorang menulis update status hanya ditujukan untuk kita, tulisan itu diposting di halamanya, tentu tweet tersebut jadi lebih berkesan, kita jadi sungkan jika tidak me-reply. Karena itu di twitter user harus lebih aktif “menyapa” supaya dapat banyak tweet balasan :) (Cara reply menggunakan simbol “@” baru-baru ini juga ditiru oleh facebook)

3. Followings Dan Followers
Di twitter, kalau kita ingin mengikuti update status seseorang, harus menjadi “follower” tanpa “meminta” pertemanan (kecuali untuk yang mengaktifkan privacy). Jika di-follow, kita tidak harus membalas menjadi follower dia. Jadi timeline hanya berisi update status orang-orang yang kita pilih saja. Jika suatu saat tidak suka, kita bisa unfollow orang tersebut, otomatis update statusnya tidak ada dalam timeline kita. Di facebook, semua teman bisa membaca update status kita. Sebaliknya, kita juga bisa membaca update status semua teman kita itu. Tidak dibedakan apakah teman akrab / dekat, atau teman yang belum kenal sekalipun. Update status semua teman muncul di beranda kita, sulit mengatur supaya di beranda hanya muncul update status orang-orang yang kita pilih, mungkin caranya hanya dengan “memutuskan pertemanan”.

4. Tanpa Konfirmasi
Di Twitter, Jika tidak mengaktifkan privacy, maka semua orang bisa membaca update status kita, termasuk orang yang belum punya akun twitter. Semua orang juga bisa follow tanpa harus meminta konfirmasi dari kita. Mungkin alasan ini yang membuat beberapa artis, selebritis, politikus, mentri, sampai presiden punya twitter. Akun mereka biasanya di follow oleh ribuan orang. Kalau di facebook tentu repot mengkonfirmasi satu-persatu permintaan teman yang jumlahnya puluhan ribu :).

5. No Game No Quiz
Sebenarnya layanan resmi dari twitter hanya update status tanpa aplikasi lain seperti foto, video, dan lain-lain. Jika di twitter bisa melakukan itu adalah karena bantuan aplikasi di luar twitter. Karena hanya update status, maka pembicaraan di twitter akan lebih fokus dan menarik, misalnya ketika ada musibah gempa, berita di twitter akan terasa lebih aktual. Sementara di facebook pada saat yang sama (saat terjadi gempa) masih terlihat orang-orang yang sibuk main game (contoh: mafia wars, pet society dan lain-lain), atau muncul juga laporan quiz-quiz yang kurang penting. Baru-baru ini facebook telah mengeluarkan versi lite dimana tidak memunculkan game dan quiz di beranda kita. (merasa tersaingi twitter?)

6. Hashtags (#) Dan Trending Topic
Hashtags dipakai untuk menandai topik tertentu dalam pembicaraan di twitter, simbol yang digunakan adalah “#”. Dengan menggunakan hashtags, update status bisa dikelompokkan berdasarkan topik dalam hasil pencarian. Beberapa contoh hashtags yang pernah menjadi Trending Topic: #indonesiaunite, #jamansd, #mbahsurip, #pengakuan. Trending topic adalah topik-topik yang sedang ramai dibicarakan oleh tweeps, biasanya ditampilkan 10 list di sidebar kanan timeline. Trending topic bisa bermanfaat bagi corporate branding dalam target pemasaran mereka, bisa pula bermanfaat bagi politikus untuk melihat isu-isu aktual, dan bermanfaat untuk siapa saja dalam mengikuti trend global, contoh: rilis film terbaru. Dan masih banyak manfaat lainnya. Hashtags dan Trending topic ini belum ada di facebook

7. Banyak Tools Dan Aplikasi Pendukung
Coba lihat timeline twitter kita, postingan tweet berasal dari macam-macam tools atau aplikasi, misalnya: tweetdect, ubertwitter, tweete, hahlo, twitpic, twhirl, twitterfox, dan lain-lain kalau disebutkan bisa ratusan :) salah satu contoh list aplikasi / tools pendukung twitter silahkan cek disini. Dan aplikasi tersebut bisa dipakai dari bermacam-macam platform: mulai web, mobile, Blackberry, iPhone, dan lain-lain. Kadang di beberapa aplikasi malah memiliki fitur yang lebih lengkap, lebih kompleks, lebih canggih daripada akses lewat web twitter itu sendiri. Misalnya di web twitter tidak ada fasilitas RT (retweet) tapi di aplikasi lainnya ada, di twitter tidak bisa upload foto, tapi kita bisa upload foto di twitpic. dan lain-lain. Sangat fleksibel. Lalu apakah facebook memiliki tools/aplikasi pendukung sebanyak twitter? jawabannya adalah: “tidak” :)

CARA MUDAH MENJADI MURID YANG PINTAR

hello ........
semua pada mau gak jadi murid yang pintar ? kalo syifa pribadi nih ya , ingin sekali .
 nah pada mau gak tips-tips menjadi murid yang pintar ? ayooo kita bahas

 1 . harus rajin belajar dengan kita belajar yang rajin insya allah syifa yakin nih kalian semua bisa jadi murid yang pintar . tetapi belajarnya jangan pada saat malam ujian , belajar itu harus rutin setiap malam nya , paling tidak kalo menurut syifa 15 menit aja udah cukup kok . karena tidak ada murid yang bodeh di dunia ini , tetapi murid yang malas banyak .

2. bisa bertanggung jawab , yang dimaksud tanggung jawab disini adalah jika kita mendapat nilai yang tidak memuaskan ketika ada suatu test , kita jangan bersedih karena kembali kepada diri kita masing-masing kan ? kenapa bisa mendapat nilai jelek ? yah itu tadi karena kita mungkin kurang focus dalam belajar

3. ciptakan suasana berkompetisi pada diri anda . yang dimaksud itu adalah , tanamkan pada diri kita masing-masing bahwa kita itu harus bisa menjadi yang terbaik . tapi bukan untuk bisa mendapat rangking . why ? karena jika kita melakukan yang terbaik otomatis rangking itu datang sendiri karena kita berusaha menjadi yang terbaik

4. berbagi ilmu , nah setau syifa nih ya kalau kita sering berbagi ilmu kepada siapapun , ilmu kita akan ditambahkan oleh Allah SWT . makanya ya jangan segan-segan berbagi ilmu

5.luangkan waktu untuk bermain orang pintar juga perlu refreshing loh , supaya ia tidak bosan dengan apa yang ia lakukan (belajar) dengan melakukan refreshing kita bisa merasa lebih fresh dan kita bisa belajar dengan tenang lagi . tetapi waktunya dibatasi ya

6. usahakan jangan pacaran nah buat para murid-murid sebaya syifa nih ya diusahakan jangan pacar-pacaran dulu deh , karena itu bisa mengganggu waktu belajar kita . apalagi yang punya pacar pasti tiap hari mikirin pacarnya . nahh karena pacaran akhirnya tidak konsentrasi dengan belajar lagi deh

7. berdoa nahh sobat jika udah lakuin smua yang diatas jangan lupa berdoa kepada sang pencipta agar dimudahkan dalam melakukan ujian atau dalam belajar

8 . minta doa dari orang tua nahh yang ini juga sangat - sangat penting ya karenaa ridha allah tergantung kepada ridha orang tua . oleh karena itu doa orang tua sangat berpengaruh



sekian tips dari syifa semoga bisa membantu kawan-kawan , dan kawan-kawan semua bisa menjadi lebih baik lagi ya dalam belajar :) thnks

template lucu

hallo semuaaa aku mau bagiin template gratis loh yang dijamin pasti lucu . gak mungkin jelek . jadi jangan khawatir untuk mendownload karena udah aku pilih-pilih template yang terbaik lho .

download template lucu

udah segitu aja yaa , post nya memang dikit banget tapi berharga lohhh . dont miss it guyss

simple present tense

Materi pertama belajar grammar tenses bahasa inggris yaitu The Simple Present Tense. The Simple Present Tense adalah tenses yang puaaaling banyak digunakan, dan karena paling banyak maka pembahasannya juga akan lebih panjang.
Arti simple yaitu sederhana, sedangkan present adalah sekarang. Jadi bisa dikatakan bahwa Simple Present adalah tenses (pola kalimat) yang digunakan untuk menceritakan waktu sekarang dalam bentuk sederhana. Nama lain daripada Present adalah BENTUK 1.

Contoh-Contoh Kalimat Simple Present Tense

Jadi kapanpun Anda melihat kata present dalam tenses apapun, bisa dipastikan bahwa dia menggunakan bentuk 1 – bentuk apa? ya bentuk verb, karena semua predicate itu wajib verb bukan, coba lihat posting awal grammar basic ini. Coba liat contoh-contoh kalimat dengan Simple Present tense dibawah ini
TOBE
I am a teacher
You are a teacher
We are teachers
They are teachers
He is a teacher
She is a teacher
It is my cat
Kalau Anda mengamati, maka kalimat diatas semuanya mengggunakan PREDICATE-1 atau predikat dalam bentuk 1, lihat saja tobe nya tidak lepas dari AM – IS – ARE. Contoh diatas adalah The simple present tense dalam bentuk nominal, karena semua kalimatnya menggunakan tobe-1
Apakah ada bentuk lainnya? Ada, yaitu The Simple Present Tense dalam bentuk VERBAL. Yaitu yang tidak memiliki tobe tapi memiliki verb. Nanti akan di terangkan. Untuk saat ini cukup kita simpulkan bahwa ada 2 (dua) jenis Simple Present yaitu
1. Nominal Simple Present
2. Verbal Simple Present
Untuk mengubah kalimat NOMINAL SIMPLE PRESENT kedalam bentuk negative (menyangkal) ataupun interrogative (bertanya) sangatlah mudah, amati
(+) You are a teacher
(- ) You are NOT a teacher
(? ) Are you a teacher?
Okey, silahkan Anda pahami dan tugas Anda sekarang adalah buatlah minimal 10 kalimat dengan menggunakan Nominal Simple Present ini.
Sekarang kita lanjutkan pada pola kalimat VERBAL SIMPLE PRESENT – yaitu simple present yang tidak menggunakan tobe, tetapi VERB1 sebagai predicate1 nya.. Amati contoh berikut
Subjective
Pronouns Example
I I work
You You work
We We work
They They work
He He works
She She works
It It works
Lihat, untuk awalan HE, SHE, IT .. verb nya menggunakan _s. Amati kembali contoh berikut
He runs every morning
She teaches English
John has an English books
Untuk kata kerja yang berakhiran bunyi DESIS (hissing sounds – x, ch, s, sh), kita menggunakan akhira _es. sehingga menjadi : teaches, mixes, washes, kisses .. dsb.
Exercise 1 :
read – John reads in the morning
1. read
2. sing
3. study
4. work
5. arrive
6. leave
7. practice
8. write
9. watch
10. finish
11. mix
12. pass
13. go
14. have
15. pray
Answer keys :
3. John studies
9. John watches
10 John finishes
11. John mixes
12. John passes
13. John goes
14. John have(s) -> John has
15. John prays
Amati kembali contoh kalimat ini :
3. (study) -> John studies
15. (pray) ->John prays
Untuk verb study – sebelum huruf Y adalah huruf konsonan D, itulah sebabnya menjadi STUDIES
Untuk verb pray – sebelum huruf Y adalah huruf vokal A, itulah sebabnya tetap PRAYS
Exercise 2 : Yang mana HAVE dan HAS
We -> We HAVE coffee in the morning
He -> He HAS coffee in the morning
1. he
2 John and Mary
3. they
4. Mr. Allen
5. she
6. Mary
7. the students
8. my brothers
9. my brother
10. You and I
11. he and she
12. Mary’s sister
13. Mary’s sisters
14. the teacher
15. people
Dalam belajar Grammar tidak boleh terputus. Tentunya Anda sudah tahu bahwa ada 3 kelompok Tenses yaitu Present Tense, Past Tense dan Future Tense setiap kelompok masing-masing memiliki 4 tenses. Dimana untuk setiap tenses nya ada yang memiliki tipe Verbal dan Nominal.
Sampai sini berhenti dulu ..jangan lanjut baca kecuali Anda yakin paham, hehe. Okey lanjut lagi, untuk Simple Present tense memiliki tipe Nominal atau yang predicate nya Tobe1 serta Verbal yang predicatenya Verb1. Masih paham dong, okey kita lanjut lagi. Untuk Nominal Simple Present, Anda sudah sangat memahami bagaimana menggunakan Tobe untuk setiap subjective pronounsnya, sedangkan untuk Verbal Simple Present – semua yang diawali dengan He, She, It maka verb nya mendapatkan tambahan +S sbb.
I write
You write
We write
They write
He writes
She writes
It writes
Begitupun pada kata kerja HAVE seperti He Have(s) mendapatkan tambahan (s) – sehingga kalimat tersebut menjadi HE HAS.
Perubahan Kalimat Negative dan Interrogative
I
You DON’T (do not) GO
We
They
contoh : I don’t go, You don’t go, We don’t go, They don’t go. Selanjutnya amati sbb.
He
She DOESN’T (does not) GO
It
Amati, pada kalimat negative/interrogative yang berawalan He, She, It kata kerja nya (verb) nya kembali normal TIDAK MENGGUNAKAN +S lagi karena sudah ada DOES.
(+) You write
(-) You DON’T write
(?) DO you write?
(+) He writes
(-) He DOESN’T write
(?) Does he write?
Amati contoh lain
(+) You have a book
(-) You DON’T have a book
(?) DO you have a book?
(+) He has a book
(-) He DOESN’T have a book
(?) DOES he have a book?
Exercise 1 : Ubahlah kedalam kalimat (-) dan (?)
1. You have a car
2. My sister has a car
3. My sisters have a car
4. You and I learn English
5. John and Bill sing
6. The cat drinks
7. Joe has breakfast
8. Our brother teaches
9. Our brothers work
10. John’s sisters have a car

Answer Key : (jangan diliat dulu kunci jawaban ini)
My sister has a car
My sister doesn’t have a car
does my sister have a car?
My sisters have a car
My sisters don’t have a car
do my sisters have a car?
The cat drinks
The cat doesn’t drink
does the cat drink?
Joe has breakfast
Joe doesn’t have breakfast
does Joe have breakfast?
Our brother teaches
Our brother doesn’t teach
does our brother teach?
John’s sisters have a car
John’s sisters don’t have a car
do John’s sisters have a car?
Amati benar-benar, dan pastikan bahwa Anda memahami dan mampu mengatasi latihan Grammar ini dengan mudah. Yah begitulah resiko belajar Grammar, sing sabar …

Fungsi atau Penggunaan Tenses The Simple Present Tense

1. Menyatakan Fakta (expressing facts)
Mudahnya begini saja, coba sekarang Anda buat sedikit tulisan tentang Danau Toba, dimana Anda paparkan Danau Toba itu bagaimana dsb. Tulisan Anda disitu hampir 100% menggunakan tenses ini. Karena Anda memaparkan suatu fakta. Nah dibawah ini ada tulisan singkat
Belajaringgris.net adalah sebuah kursus bahasa Inggris online dengan sistim Full Conversation Tanpa Grammar. Ada 2 (dua) jenis website utama yaitu bahasainggris.co dimana semua materi diberikan secara gratis, ada juga yang berbayar yaitu www.belajaringgris.net.
Nah kalau Anda amati tulisan diatas, semuanya menggunakan Simple Present tense karena hanya menceritakan fakta yang tidak akan berubah dari masa lalu, ke masa sekarang, sampai masa yang akan datang. Tapi kalau artikel diatas saya lanjutkan seperti ini
Belajaringgris.net dalam waktu dekat akan meluncurkan kursus berbayar untuk Level II dimana yang dibentuk adalah kemampuan productive. Minggu lalu salah seorang peserta kursus berbayar dari Saudi Arab.
Lihat kata akan disini bukan lagi wilayah Simple Present tense karena membicarakan masa yang akan datang.Begitu pula pada bagian kalimat minggu lalu
2. Menyatakan kebiasaan (expressing habits)
Untuk yang ini Anda pasti akrab juga karena di sekolah sejak SMP sampai SMA fungsi Simple Present tidak lepas dari expressing habits, contoh mudah amati artikel ini
“Banyak orang berkunjung setiap hari nya di kursus bahasa inggris belajaringgris.net Jika saya amati, mereka selalu membaca artikel ‘kamus bahasa inggris untuk hp’ sebelum membaca artikel lainnya. Itulah sebabnya saya selalu mengupdate materi belajaringgris.net setiap harinya. Dismping kategori utama yaitu MATERI KURSUS saya juga selalu mengupdate kategori GRAMMAR, dan kadang-kadang saya menulis di kategori ARTIKEL”
Artikel singkat diatas menggunakan Simple Present tense, karena menyatakan kebiasaan. Karena itu biasanya menggunakan yang disebut dengan Adverbs of Frequency sbb.
Adverbs of Frequency
always selalu
usually biasanya
often seringkali
sometimes kadang2
seldom jarang
never tidak pernah
ever pernah
Apakah pasti? …Anda ingat baik-baik “Bicara BAHASA TIDAK ADA YANG PASTI”. Karena itu enjoy aja lah
3. Menyatakan masa yang akan datang
Lho?? ..emang iya, itulah sebabnya sudah saya katakan sejak dini bahwa Anda tidak perlu tegang dalam belajar bahasa inggris, karena memang tidak ada yang pasti. Amati dialog ini
Romli besok kita ke pantai yuk mpok
Juleha jam berapa bang?
Romli jam 7:00 pagi aje
Juleha waduh, besok aye pergi ke sekolah
Nah liat kalimat yang bercetak miring? kalimat itu menggunakan Simple Present Tense walaupun ada kata BESOK. Simple Present boleh digunakan untukmenceritakan peristiwa yang akan terjadi dengan syarat bahwa ‘peristiwa itu terjadi secara rutin’ dalam kasus Juleha contohnya, dia memang ke sekolah tiap jam 7:00 pagi, dari awal Februari, Maret sampai minggu kemaren, sampai hari Kamis kemarin juga jam 7:00 makanya boleh saja dia mengatakan BESOK ..tetap menggunakan Simple Present
4. Menyatakan masa lalu
Haduh?…inilah fakta bahwa Bahasa Inggris itu memang seenak wudel nya. Simple Present bisa digunakan untuk menceritakan masa yang akan datang, eh ..ga taunya juga bisa dipake untuk menceritakan masa lalu. Terus buat apa rumus? …ya ga tau?? ..siapa yang doyan rumus-rumusan?? yeee …
Juleha bang, aye semalem kaga bisa tidur?
Romli kenape mpok?
Juleha aye lihat pocong tapi aneh banget
Romli aneh kenape mpok?
Juleha tuh pocong sih laki2, tapi pake gincu!!
Pada dialog diatas Juleha boleh saja menggunakan Simple Present. Tenses ini boleh digunakan untuk menceritakan peristiwa yang sudah berlalu dengan syarat untuk men DRAMATISIR
5. Menceritakan sesuatu yang sedang terjadi
Aduh?? aya-aya wae. Makanya dari awal sudah saya tekankan, buang jauh-jauh mitos yang membelenggu diri kita bahwa untuk menguasai Bahasa Inggris harus kuasai Grammar dulu. Walah, sampe botak ga bakal kelar yang namanya Grammar. Coba lihat neh seorang komentator tengah menceritakan peristiwa yang sedang terjadi
Zidane menggiring bola, bola lalu dioper kepada Zico. Zico menendang nya kembali kepada Zidane, sekarang zidane menendangnya kembali ke Zico, ga kelar-kelar neh penonton, paye ..
Nah komentator tersebut menggunakan Simple Present, karena peristiwanya berlangsung sangat cepat dan singkat.
Kalau sudah begini untuk apa lagi Anda merasa TAKUT SALAH saat berbicara, atau saat menulis. Hajar aja dulu, karena tujuan yang paling penting di awal perjalanan bukanlah kesempurnaan grammar, mana ada grammar yang sempurna? orang bule aja ga karuan grammar nya. Yang paling penting adalah MEMBENTUK SKILL berbahasa yaitu Listening, Speaking, Reading serta Writing.
Okey?? masih perlukah belajar grammar? ya masih untuk pembentukan writing skill di akhir perjalanan. Berakhirlah sudah Lesson 2 dari 30 lesson yang harus Anda kuasai dalam belajar Grammar
Pastikan Anda sudah mengerjakan latihan Simple Present tense bahasa inggris diatas. Jika mengalami kesulitan dalam arti kata gunakan kamus bahasa inggris online

Membuat Antivirus Sederhana dengan Delphi 7

Antivirus merupakan sebuah aplikasi yang mana berguna untuk memblokir, mengkarantina, atau menghapus program jahat berupa virus ataupun worm. Prinsip kerja dari antivirus ada mendeteksi dengan cara membaca isi tubuh dari program (scan) dan mendaftarkan isinya disesuaikan dengan database yang telah di daftarkan, sehingga jika ada program atau aplikasi yang telah sesuai dengan database yang ada di antivirus itu maka program tersebut bisa dikatakan virus atau worm, jika tidak maka ia bukan virus atau worm .


Pertama-tama Anda buat New Project dahulu di Delphi 7 Anda, kemudian ganti nama (rename) Form1, menjadi FormUtama dan save dengan nama form_utama.pas.

001

interface

002

003

uses

004	Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

005	Dialogs, StdCtrls,Utility_AV, ComCtrls, Menus;

006

007

type

008	TFormUtama = class(TForm)

009	GroupBox1: TGroupBox;

010	rb_scan1: TRadioButton;

011	rb_scan2: TRadioButton;

012	edt_folder: TEdit;

013	edt_cari: TButton;

014	GroupBox2: TGroupBox;

015	lbl_jumlahfile: TLabel;

016	lbl_virus: TLabel;

017	mm_status: TMemo;

018	btn_scan: TButton;

019	btn_tentang: TButton;

020	btn_keluar: TButton;

021	ck_scansubdir: TCheckBox;

022	GroupBox3: TGroupBox;

023	lv_virlist: TListView;

024	btn_delvir: TButton;

025	btn_cls: TButton;

026	lbl_waktu: TLabel;

027	Label1: TLabel;

028

029	procedure btn_tentangClick(Sender: TObject);

030	procedure FormCreate(Sender: TObject);

031	procedure btn_keluarClick(Sender: TObject);

032	procedure btn_scanClick(Sender: TObject);

033	procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);

034	procedure edt_cariClick(Sender: TObject);

035	procedure rb_scan2Click(Sender: TObject);

036	procedure btn_clsClick(Sender: TObject);

037	procedure btn_delvirClick(Sender: TObject);

038

private

039	{ Private declarations }

040	Procedure ScanVirus(Semua:Boolean);

041	Procedure SaatScanFile (Path:String);

042	Procedure TambahList (NamaVirus,Path:String);

043

public

044	{ Public declarations }

045

end;

046

047

048

049

var

050	FormUtama: TFormUtama;

051	SedangDiScan:Boolean;

052	rStartTime : Integer;

053	C          : Integer;

054

055

Const

056	DBaseCRC32Virus : Array [0..2] of String = ('DD7A0BA8','7A014FFF','BDB819EB');

057	DBaseNamaVirus  : Array [0..2] of String = ('CodeRed','Moondlight.D','FluBurung');

058	MAX_SCAN        : Int64  = 10 * 1024 * 1024; // Maksimal Scan 10 MB,

059	//  Karena biasanya virus tidak lebih dari 10 MB

060	implementation

061

062	{$R *.dfm}

063	{$R WindowsXP.res} //Aktifkan Theme WinXP

064

065

066

067	function CekUkuranFile(const FileName: string): Int64;

068

var

069	SearchRec: TSearchRec;

070

begin

071	Result := -1; //-- assume worst cas

072	if FindFirst(FileName, faAnyFile, SearchRec) = 0 then

073

begin

074	Int64Rec(Result).Lo := SearchRec.FindData.nFileSizeLow;

075	Int64Rec(Result).Hi := SearchRec.FindData.nFileSizeHigh;

076	FindClose(SearchRec);

077

end;

078

end;

079

080	Procedure TFormUtama.TambahList (NamaVirus,Path:String);

081

Var

082	lvi       : TListItem;

083

Begin

084

085	//Cek Apakah ada list yang sama ... ?

086	lvi := lv_virList.FindCaption(0,Path, false, true, false);

087	while Assigned(lvi) do

088

begin

089	if Lowercase(lvi.SubItems[1]) = Lowercase(Path) then exit; //Sudah ada di list, keluar

090	lvi := lv_virList.FindCaption(lvi.Index, Path, false, false, false);

091

end;

092

093	//List tidak ada yang sama, tambahkan list...

094	lvi := lv_virList.Items.Add;

095	lvi.Caption := NamaVirus;

096	lvi.SubItems.Add(Path);

097	lbl_virus.Caption := 'Jumlah virus ditemukan : ' + IntToStr(Lv_VirList.Items.Count);

098

End;

099

100

101

102	Procedure TFormUtama.SaatScanFile (Path:String);

103

Var

104	CRC32       : Cardinal;

105	TB          : Int64;

106	Err         : Word;

107	CRC32Str    : String; //CRC32 hasil string

108	i           : Integer;

109	ElapsedTime : String;

110

Begin

111

112	ElapsedTime := Format('%.1f', [0.001*(GetTickCount-rStartTime)]);

113

114	Application.ProcessMessages; // Terima semua masukan dari program

115	IF (CekUkuranFile(Path) <= MAX_SCAN) Then Begin // Maksimal Scan.. Tidak Lebih dari 10 MB

116	HitungFileCRC32 ( Path, CRC32, TB, Err );

117	CRC32Str := IntToHex(Crc32,8);  // Hasil CRC32 desimal di konverisi menjadi Heksadesimal

118	For i:=Low(DBaseCRC32Virus) to High(DBaseCRC32Virus) do

119	// Jika Hasil CRC32 sama dengan Database Virus, Tidak diragukan lagi maka itu virus

120	if (CRC32Str = DBaseCRC32Virus[i]) then TambahList(DBaseNamaVirus[i],Path);

121

End;

122

123

Inc(C);

124	lbl_jumlahfile.Caption := 'Jumlah file : ' + IntToStr(C);

125	lbl_waktu.Caption      := 'Waktu tempuh : ' + ElapsedTime;

126	mm_status.Lines.Text := Path; // Status scannya;

127

End;

128

129	procedure TFormUtama.btn_tentangClick(Sender: TObject);

130

begin

131	MsgBox(Handle,'Tentang Program',

132	'Gue Antivirus (GAV) ' + #13#10 +

133	'Diprogramkan oleh Ali' + #13#10#13#10 +

134	'Web-Site : http://www.geocities.com/alisoftprg' + #13#10 +

135	'E-Mail : ali.programmer@telkom.net' + #13#10#13#10 +

136	'Copyright © Ali Software - Delphi Source Code. All Rights Reserved.',

137	Information);

138

end;

139

140	procedure TFormUtama.FormCreate(Sender: TObject);

141

begin

142	SedangDiScan := False;

143

end;

144

145	procedure TFormUtama.btn_keluarClick(Sender: TObject);

146

begin

147

148	If SedangDiScan Then

149	If MsgBox(Handle,'Keluar Program',

150	'Apakah Anda ingin keluar saat program sedang mencari virus ?',

151	Question + YesNo) = No Then Exit;

152

153	Halt(0);     // Keluar Program (dengan paksaan, jika terjadi error)

154

end;

155

156	Procedure TFormUtama.ScanVirus(Semua:Boolean);

157

Var

158	CallBack :TOnCariFile;

159	Drives:Array of String;

160	i,L:Integer;

161

Begin

162

163	CallBack := SaatScanFile;    //  Hasil scan di kembalikan ke procedure lain

164

165	If Not Semua Then

166

Begin

167	If (edt_folder.Text = '') then Begin

168	Msgbox(Handle,'Error','Tentukan dulu Folder atau Drive-nya',Critical);

169

exit;

170

End;

171	CariFile(edt_folder.Text,ck_scansubdir.Checked,'*.*',CallBack);

172

End

173	Else Begin

174	For i:=Ord('A') to Ord('Z') do

175	Case GetDriveType(Pchar(Chr(i) + ':\')) of

176	DRIVE_UNKNOWN:;

177	DRIVE_NO_ROOT_DIR:;

178

Else

179

Begin

180	L:=Length(Drives)+1;

181	SetLength(Drives,L);

182	Drives[L-1]:=Chr(i) + ':\';

183

End;

184

End;

185

186	For i:=Low(Drives) to High(Drives) do

187

Begin

188	If DriveSiap(Drives[i]) Then

189	CariFile(Drives[i],ck_scansubdir.Checked,'*.*',CallBack);

190

End;

191

192

End;

193

194

End;

195

196	procedure TFormUtama.btn_scanClick(Sender: TObject);

197	Label Scan,Berhenti;

198

begin

199

200	If Not SedangDiScan Then

201

Goto Scan

202

Else

203	Goto BerHenti;

204

205

Exit;

206

207	Scan: Begin

208	BerhentiMencari := False;     // Agar bisa di scan

209	{Mulai men-scan file...}

210	rStartTime := GetTickCount;

211	C          := 0;

212

try

213	SedangDiScan := True;

214	btn_scan.Caption := '&Berhenti..';

215	ScanVirus ( rb_scan1.Checked )   ; //......

216

Finally

217	btn_scan.Caption := '&Scan';

218	SedangDiScan := False;

219

End;

220

End;

221

222

Exit;

223	Berhenti:Begin

224	If MsgBox(Handle,'Scan Virus',

225	'Apakah Anda ingin menghentikan proses scan virus ?',

226	Question + YesNo) = Yes Then

227	BerhentiMencari := True;

228

End;

229

230

end;

231

232	procedure TFormUtama.FormCloseQuery(Sender: TObject;

233	var CanClose: Boolean);

234

begin

235	btn_keluarClick(Sender);

236

end;

237

238	procedure TFormUtama.edt_cariClick(Sender: TObject);

239	Var Dir:String;

240

begin

241

Try

242	Dir := BrowseDialog(Handle,'Cari Folder / Drive');

243

Finally

244	If (Dir <> '') then

245	edt_folder.Text := Dir;

246

End;

247

end;

248

249

250	procedure TFormUtama.rb_scan2Click(Sender: TObject);

251

begin

252	edt_folder.Enabled := rb_scan2.Checked ;

253	edt_cari.Enabled   := rb_scan2.Checked;

254

end;

255

256	procedure TFormUtama.btn_clsClick(Sender: TObject);

257

begin

258	If (Lv_VirList.Items.Count < 1) then Exit;

259	If MsgBox(Handle,'Bersihkan List',

260	'Apakah Anda ingin membersihkan list (tanpa menghapus virus) ?',

261	Question + YesNo) = Yes Then

262	lv_virlist.Items.Clear;

263

end;

264

265	procedure TFormUtama.btn_delvirClick(Sender: TObject);

266	Var i:Integer;

267	Ada, Bisa:Boolean;

268

begin

269	Ada := False;

270	For i:=0 to Lv_VirList.Items.Count -1 do

271	If Lv_VirList.Items[i].Checked then begin

272	Ada := True;

273

Break;

274

End;

275	If Not Ada Then

276	If Msgbox(Handle,'Perhatian','Pilih salah satu item',Exclamation) = OK Then

277

Exit;

278

279	For i:=0 to Lv_VirList.Items.Count -1 do

280	If Lv_VirList.Items[i].Checked then begin

281	Bisa := DeleteFile(Lv_VirList.Items[i].SubItems[0]);

282	If Not Bisa Then

283	If Msgbox(Handle,'Error','File tidak dapat di hapus,' +

284	'kemungkinan windows sedang menjalankannya',

285	CRITICAL) = OK Then Exit

286	Else Lv_VirList.Items[i].Delete;

287

End;

288

end;

289

290

end.

Download Source Code