Awas Anti Virus Palsu

Ketika asyik buka-buka folder di wondows explorer, tiba-tiba muncul warning:
Attention [user]!
Some dangerous viruses detected in your system. Microsoft XP files corrupted. This may lead to the destruction of important files in C:\WINDOWS. Download protection software now! Click OK to download the antispyware! (Recommended)
[yes] [no]
Kronologis
Dipilih Yes ataupun No, otomatis akan membuka browser dan menuju semacam situs scan online. Salah satu contohnya adalah http://www.checksystem-online.com/id/4912933/4/1/. Peringatan ini ternyata tidak lain dijalankan oleh software keamanan palsu (fake security software / rogue). Dengan menakut-nakuti pengguna komputer melalui peringatan palsu ini, korban dipaksa untuk mendownload software buatan mereka, yaitu Total Secure 2009.
Total Secure 2009 adalah software semacam antivirus yang akan menampilkan hasil scan palsu, yaitu mendeteksi infeksi pada sistem yang sebenarnya bersih dari virus atau trojan. Peringatan yang sangat mengganggu ini baru akan hilang setelah kita membeli atau purchase software tersebut. Software semacam yang masih satu keluarga adalah: Vista Antivirus 2008, Antispyware 2008 XP, System Antivirus 2008, Internet Antivirus, Smart Antivirus 2009, MS Antivirus, Advanced Antivirus, Power Antivirus, dan XPert Antivirus.
Jika peringatan tersebut diabaikan begitu saja, misal dengan mengeklik [no], nantinya windows explorer akan eror dan tidak bisa dibuka. Tentu saja hal semacam ini akan membuat pengguna komputer yang masih awam menjadi bingung dan khawatir telah terjadi apa-apa dengan komputernya.
Jejak Kasus
Awal mula munculnya peringatan palsu tersebut disebabkan oleh eksekusi sebuah file exe yang tak dikenal. Pada umumnya bernama c-setup.exe dan berukuran sekitar 80,5 kb. Biasa didapat melalui situs crack jadi-jadian. Setelah dieksekusi, otomatis akan membuka browser dan menuju ke situs yang beralamat dii
http://www.thevid11.com/bind2.php?id=.
Tak hanya itu, aplikasi ini secara diam-diam menginjeksikan sebuah file .dll berukuran 388 kb ke dalam system directory windows (c:\windows\system32\). File tersebut dibuat semi-random dengan menggunakan kata-kata berikut: ajk, gj, pik, tbl, avn, i. Beberapa contohnya yaitu: pikavn.dll, gjtbl.dll, ajktbl.dll, ajkavn.dll, ajki.dll, dan sebagainya. File .dll inilah yang menampilkan peringatan berisi tulisan seperti di atas.
Investigasi
Jika Anda mendapatkan peringatan seperti itu, ada cara mudah untuk mengatasinya. Terutama jika software tersebut belum sempat didownload. Tak perlu antivirus macam2. Simak saja uraian berikut. Let’s solve the problem!
Terus terang, tanpa tahu aplikasi apa, aku jalankan c-setup.exe. Beberapa menit kemudian sewaktu buka-buka folder di windows explorer, muncul peringatan seperti itu. Begitu mengalami kejadian ini, aku langsung searching pake google dengan keyword sebagian kata-kata pada error warning. Di beberapa forum komputer, disarankan untuk mendownload anti malware semacam MBAM dan SmitFraudFix. Tetapi karena begitu ribet caranya, cari-cari dulu cara sendiri.
Yang pertama diingat adalah melihat proses yang berjalan task manager. Tetapi ternyata di situ tidak ada. Lalu dicoba lagi dengan aplikasi andalan, Process Explorer. Lower pane ditampilkan melalui menu View > Show Lower Pane (Ctrl+L) dan mengganti pane view-nya dengan Handles (Ctrl+H) atau DLLs (Ctrl+D). Karena banyaknya handles dan dll yang dijalankan oleh Explorer.EXE, aku malah bingung mana yang jadi pengganggu itu.
Lalu kucoba buka aplikasi Autoruns, yang masih saudara sama Process Explorer dari sysinternals.com. Dengan aplikasi ini terdaftar apa saja yang diload secara otomatis oleh windows. Di tab Internet Explorer, terdapat autorun entry bernama HACK.SPY, tanpa keterangan publisher, dan image path-nya adalah c:\windows\system32\pikavn.dll. Memang terlihat sangat mencurigakan karena aku belum pernah lihat sebelumnya. Tetapi kenapa letaknya di tab IE? Bukan di tab Explorer? Setelah dilihat di Process Explorer, ternyata pikavn.dll juga diload oleh explorer.exe.
Aku googling lagi dengan keyword pikavn.dll. Dan ternyata benar itu adalah bagian dari si pengganggu. Langsung ambil tindakan dengan men-delete entry pada Autoruns tersebut. Lalu kuhapus file tersebut dari direktori system32. Lalu coba kubuka windows explorer. YEAH!! BERHASIL!!
Orang zaman sekarang makin kreatif aja cari duit lewat internet. Emang pinter sih, tapi kalo yang satu ini tak kalah isengnya sama orang yang bikin virus.
Utak-atik
Dengan reshacker, aku coba bongkar file pikavn.dll tersebut.
Pada bagian REGISTRY terdapat kode sebagai berikut:
HKLM
{
SOFTWARE
{
Microsoft
{
Windows
{
CurrentVersion
{
Explorer
{
‘Browser Helper Objects’
{
ForceRemove {D83E84DA-D187-4300-B5D7-727727352096}
}
}
}
}
}
}
}
HKCR
{
ZoooGoo = s ‘HACK.SPY’
{
CLSID = s ‘{D83E84DA-D187-4300-B5D7-727727352096}’
}
ucjs0l.Bho = s ‘HACK.SPY’
{
CLSID = s ‘{D83E84DA-D187-4300-B5D7-727727352096}’
CurVer = s ‘ZoooGoo’
}
NoRemove CLSID
{
ForceRemove {D83E84DA-D187-4300-B5D7-727727352096} = s ‘HACK.SPY’
{
ProgID = s ‘ZoooGoo’
VersionIndependentProgID = s ‘ucjs0l.Bho’
ForceRemove ‘Programmable’
InprocServer32 = s ‘%MODULE%’
{
val ThreadingModel = s ‘Apartment’
}
‘TypeLib’ = s ‘{15C7D7AD-A87A-4C0D-9D8B-637FCD3488EF}’
}
}
}
Gara-gara yang bikin trojan itu ngasih nama hack.spy, jadi gampang ketahuan deh kalo dll itu nggak diinginkan. hehe

Upload file ke server dengan menggunakan PHP

PHP membuat semuanya menjadi lebih mudah dalam menangani upload file. Untuk membuat form upload pastikan kita menyertakan atribut enctype="multipart/form-data" dan pastikan methodnya adalah post. Oke langsung saja kita lihat kode HTML berikut ini:

<form method="post" action="" enctype="multipart/form-data">

<input type="file" name="myfile"> 

<input type="submit" name="Submit" value="Submit">

form>

Seperti yang kita lihat, kita me,mberi nama pada field upload kita "myfile". Nama ini sangat penting, karena ketika file telah diupload maka file tersebut otomatis diberi nama yang unik dan disimpan di temporary direktori. Tentu saja url path ke filenya bisa diakses, karena otomatis akan muncul variabel global yang memiliki nama yang sama dengan field upload kita, dalam hal ini myfile. Akan ada 4 variabel baru yang semuanya diawali dengan myfile dan diikuti dengan garis bawah (underscore), yaitu:
• $myfile. Variabel ini berisi informasi lokasi file di server.
• $myfile_name. Nama file asli ketika masih dikomputer klien.
• $myfile_size. Ukuran dari file (dalam satuan bytes).
• $myfile_type. Tipe file.
Upload sederhana
Langsung saja kita coba contoh upload berikut ini, simpan dengan nama upload.php:

<html>

<head>

<title>Upload filetitle>

head>

<body>

if ( isset( $upload ) ) { 

    echo "Lokasi File: $myfile
";

    echo "Nama File: $myfile_name
";

    echo "Ukuran: $myfile_size bytes
";

    echo "Tipe File: $myfile_type
";

    copy ( $myfile, "$myfile_name") or die ("Gagal mengupload");

}

?>

<form enctype="multipart/form-data" action="" method="post">

<input type="file" name="myfile"><br>

<input type="submit" value="upload" name="upload">

form>

body>

html>

Ketika tombol upload ditekan, maka url path file tersebut akan disimpan di variabel $myfile dan kita tampilkan dibrowser. Kita juga menampilkan nama file yang tersimpan pada variabel $myfile_name, ukuran file di variabel $myfile_size dan tipe file di variabel $myfile_type.
Kita menggunakan fungsi copy() untuk memindahkan file dari komputer kita direktori sementara di server kita. Fungsi copy() membutuhkan dua argumen yaitu lokasi awal file dan lokasi baru diserver. Jika kita ingin mengupload nya ke suatu folder diserver (katakanlah kita simpan difolder images) maka kita perlu mengubahnya menjadi: copy ( $myfile, "images/$myfile_name")
Upload yang lebih kompleks
Sekarang mari kita coba membuat fungsi upload yang jauh lebih rumit. Misalkan kita ingin membuat fungsi upload dimana file yang diupload harus file jpg, dan ukurannya tidak boleh lebih besar dari 100Kb serta panjang dan lebar gambar tidak boleh lebih dari 100 piksel. Kelihatannya rumit kan? Mari kita coba kode berikut dan simpan dengan nama upload2.php:

<html>

<head>

<title>Upload filetitle>

head>

<body>

if ( isset( $upload ) ) { 

echo "Lokasi File: $myfile
";

echo "Nama File: $myfile_name
";

echo "Ukuran: $myfile_size bytes
";

echo "Tipe File: $myfile_type
";

if ( $myfile_type == "image/pjpeg" ) {

    if ($myfile_size <= 102400 ) {

        list($width, $height) = @getimagesize("$myfile");

        if ( $width <= 100 && $height <= 100 

) {

            copy ( $myfile, 

"$myfile_name") or die ("Couldn't copy");

            echo "File anda telah sukses diupload";

        } else {

            echo "Ukuran panjang dan lebar gambar terlalu besar";

        }

    } else {

        echo "Ukuran file tidak boleh lebih dari 100Kb";

    }

} else {

    echo "File harus JPG!!";

}

}

?>

<form enctype="multipart/form-data" action="" method="post">

<input type="file" name="myfile"><br>

<input type="submit" value="upload" name="upload">

form>

body>

html>

PHP tidak memiliki kemampuan untuk membuat progress bar ketika file diupload. Karena PHP tidak dapat mengetahui berapa bagian yang telah diupload dan berapa yang belum. Kita perlu menggunakan CGI. Tetapi entah dengan PHP terbaru, siapa tau sudah memiliki class atau fungsi untuk membuat progress bar.
Pertama-tama yang kita lakukan adalah mengecek apakah file kita jpg dengan cara mengecek $myfile_type. Jika hasil dari variabel $myfile_type adalah "image/pjpeg", maka bisa dipastikan bahwa file kita adalah jpg. Berikutnya kita melakukan pengecekan apakah ukuran filenya tidak lebih besar dari 100Kb dengan mengecek variabel $myfile_size. Ingat bahwa 100Kb = 102400Bytes(Rumusnya 1Kb=1024Bytes). Kemudian kita menggunakan fungsi getimagesize() untuk menemukan panjang dan lebar dari gambar yang kita simpan dengan array menggunakan fungsi list(). Kemudian kita cek panjang dan lebar dari gambar apakah tidak lebih dari 100 piksel. Jika semuanya terpenuhi maka filenya tinggal kita copy. Cukup mudah kan? gampang... anda pasti bisa.
Ingat, berhati-hatilah dalam membuat upload file. Saringlah file yang mau diupload, jika anda hanya menginginkan orang mengupload file jpg ya anda harus cek apakah file yang diupload benar-benar file jpg. Bagaimana jika nanti yang diupload malah virus? karena itu waspadalah, waspadalah!!

Penggunaan GD Library pada PHP dengan membuat Security Number

Penggunaan GD Library pada PHP dengan membuat Security Number
Mungkin anda sering mendaftar di web-web, apakah email, friendster, multiply atau lainnya. Nah pada saat anda melakukan pendaftaran terkadang muncul kotak yang di sampingnya ada angka2 random disertai garis atau lainnya. Tentu anda bertanya apa sih gunanya angka2 tersebut ? Tentu saja untuk menanggulangi SPAM. Jika dalam website anda memiliki buku tamu atau sistem komentar yang tidak mengharuskan orang-orang untuk login untuk mengisinya, maka 100% website anda akan kena spam. Apa itu spam? jika anda menerima komentar yang tidak diinginkan pada buku tamu atau sistem komentar anda, maka anda bisa menyebutkan itu sebagai SPAM. Para spammers melakukan SPAM biasanya dengan menggunakan software otomatis (istilah kerennya: bots) yang secara otomatis mengisi form-form yang ada di internet. Nah untuk mencegah software tersebut mengisi form, kita perlu menambahkan sebuah field yang hanya bisa diisi jika pengisinya adalah manusia. Bagaimana caranya? Dengan membuat sebuah angka acak yang ditampilkan sebagai gambar, nah kita diharuskan mengisi angka tersebut. Bagi kita mudah saja untuk mengisi angka, karena kita dapat dengan mudah melihatnya, tapi bagi software otomatis tadi tentu susah untuk membaca angka tersebut. Software-software spammers sekarang sudah sangat canggih dan sudah mampu membaca security number!!! .
CAPTCHA
Apa itu CAPTCHA? CAPTCHA merupakan sebuah program untuk menggenerate andka yang sulit dikenali oleh bots tadi tapi mudah dikenali oleh manusia. Algoritma CAPTCHA yang paling bagus diciptakan oleh Carnegie Mellon University, sayangnya algoritma CAPTCHA merupakan trademark dari Carnegie Mellon University dan algoritma tersebut tidak bisa sembarangan digunakan, algoritma tersebut digunakan oleh Yahoo, Google dan situs-situs besar lainnya. Tapi kita jangan menyerah, jika anda jago anda bisa membuat algoritma sendiri :)
Atau kita bisa juga menggunakan images, jadi kita memiliki kumpulan gambar huruf-huruf dan angka yang berbeda-beda, nah gambar tersebut kita tampilkan secara acak. Atau menggunakan cara saya, cara yang paling sederhana dan nggak perlu banyak mikir :) yaitu menggenerate angka acak biasa kemudian diatasnya kita coret-coret dengan acak. Seperti yang terlihat pada sistem komentar dibawah artikel ini, sangat sederhana :D
Memanfaatkan GD Library dan Session
Untuk membuat gambar didalam PHP kita tentu saja memanfaatkan GD Library. Saya tidak akan mengajarkan GD Library disini, Dan kita akan memanfaatkan sesssion untuk mengirim nilai pada security number tersebut agar lebih aman. Saya banyak melihat website yang menggunakan security number tetapi jawaban dari angka tersebut tersimpan di form, bisanya disimpan didalam . Atau ada juga yang disimpan didalam link pada browsernya. Kalau begitu sama saja bohong, kita sama saja membuat security number plus jawaban dari angka tersebut. Nah, disini kita akan mengirim jawabannya dengan menggunakan Session, paling tidak agar terenkripsi lah. Oke tidak usah berlama-lama, sekarang anda coba lihat dulu seperti apa hasilnya yang akan kita buat.. Pastikan gd library nya udah aktif, cek php.ini cari #extension=php_gd2.dll terus dihapus tanda pagarnya. Pertama-tama kita buat script PHP untuk menggenerate angkanya dulu, buatlah file capcay.php dan isilah dengan kode berikut ini:

$sid=trim($HTTP_GET_VARS["sid"]);

session_id($sid);

session_start();

$angka = $HTTP_SESSION_VARS["angka"];

mt_srand((double)microtime()*1000000);

$jarak1 = mt_rand(0,10);

$jarak2 = mt_rand(0,10);

$jarak3 = mt_rand(0,10);

$jarak4 = mt_rand(0,10);

$ujung1 = mt_rand(0,60);

$ujung2 = mt_rand(0,60);

$ujung3 = mt_rand(0,60);

$ujung4 = mt_rand(0,60);

$ujung5 = mt_rand(0,60);

$ujung6 = mt_rand(0,60);

$ujung7 = mt_rand(0,60);

$ujung8 = mt_rand(0,60);

$warna1 = mt_rand(0,150);

$warna2 = mt_rand(0,150);

$warna3 = mt_rand(0,150);

$warna4 = mt_rand(0,150);

$warna5 = mt_rand(0,150);

$warna6 = mt_rand(0,150);

$height = 13; 

$width = 62; 

$im = ImageCreate($width, $height); 

$background = ImageColorAllocate($im, 255,255,255); 

$warnagaris = ImageColorAllocate($im, $warna1, $warna2, $warna3); 

$warnaangka = ImageColorAllocate($im, $warna4, $warna5, $warna6); 

ImageFill($im, 0, 0, $background); 

ImageLine($im, 0, $jarak1, $ujung1, $ujung2, $warnagaris); 

ImageLine($im, 0, $jarak2, $ujung3, $ujung4, $warnagaris); 

ImageLine($im, 60, $jarak3, $ujung5, $ujung6, $warnagaris); 

ImageLine($im, 60, $jarak4, $ujung7, $ujung8, $warnagaris); 

ImageString ($im, 6, 10, 0,  $angka, $warnaangka);

Imagejpeg($im); 

?>

Itu nanti akan menghasilkan images dalam format .jpg, tenang saja akan saya jelaskan nanti, sekarang buatlah file form.php dan isilah dengan kode berikut ini:

$sid=session_id();

if(!$sid){

session_start();

$sid=session_id();

}

if ($submit) {

  if ($code!=$angka) {

    echo "Security number salah.
";

  } else {

    echo "Selamat Anda benar menuliskan angkanya";

  }

}

?>

<h4>Kirim Komentar:h4>

<form method="post" action="">

<p>

Security Number: <input type="text" name="code" class="textbox"  />

mt_srand((double)microtime()*1000000);

$angka1 = mt_rand(0,9);

$angka2 = mt_rand(0,9);

$angka3 = mt_rand(0,9);

$angka4 = mt_rand(0,9);

$angka5 = mt_rand(0,9);

$angka="$angka1$angka2$angka3$angka4$angka5";

$HTTP_SESSION_VARS["angka"] = $angka;

?>

<img src="capcay.php?sid=" alt="Security Number" /> <br /><br />

<input type="submit" name="submit" value="Kirim Komentar" />

p>

form>

Silahkan anda jalankan form.php, muncul kan angkanya, cukup mudah kan?

TAK PERLU BERSEDIH BILA KATA-KATA KOTOR ITU MENYAKITI TELINGA ANDA

Salah seorang ulama kontemporer berkata “ bagi orang yang sangat sensitif terhadap kritik, disarankan agar mengusahakan berbagai alasan yang dapat menyejukkan dirinya sehingga dapat mengendurkan sarafnya ketika menghadapi kritik orang dhalim lagi jahat."
Mereka berkata:”Sudah sepantasnya kedengkian yang dilakukan oleh pelakunya akhirnya akan membinasakannya.”
Salah seorang ahli hikmah berkata “Para pengecut akan mati berkali-kali dalam hidupnya, sedang para pemberani hanya akan mengalami kematian satu kali.”
Bila Allah menginginkan kebaikan bagi hamba-Nya pada waktu menghadapi masa kritis, Allah akan menganugrahkan rsa kantuk sebagai perasaan tentram, sebagaimana Thalhah r.a juga kantuk ketika bertempur dalam perang uhud, sehingga beberapa kali pedangnya jatuh dari tangannya. Hal itu menandakan bahwa Thalhah bisa merasakan keadaan darurat sebagai rasa aman dan istirahat yang nyaman bagi hatinya.

BAHAGIA DAN SENGSARA ADALAH HASIL BUAH PIKIRAN KITA

Kehidupan Anda tercipta dari pikiran yang ada di kepala Anda. Pikiran itulah yang akan mewarnai kehidupan anda sehari-hari. Segala aktivitas pikir Anda, baik melalui perenungan maupun belajar dari pengalaman hidup, pasti akan mempengaruhi keadaan dan pola hidup Anda. Jadi , bahagia dan sengsara yang Anda rasakan adalah hasil dari buah pikiran anda sendiri.
Ada salah seorang berkata:”Bila Anda tak mampu membeli sepatu, lihatlah orang yang kedua kakinya di amputasi. Oleh karena itu bersyukurlah kepada Tuhanmu atas nikmat kedua kaki.”

ANGGAPLAH CELAAN ORANG LAIN SEBAGAI ANGIN LALU

Dalam sebuah hadist Hasan, rasulullah saw bersabda :
‘Janganlah kalian (sebagian sahabatku) menyampaikan kepadaku tentang aib sahabatku menyampaikan kepadaku tentang aib sahabatku (yang lain), karena sungguh aku suka keluar menemui kalian dalam keadaan hati yang bersih.
“Mereka sekali-kali tidak akan dapat menimbulkan gangguan kepada kalian, selain celaan saja.”
“Dan janganlah kamu bersempit dada terhadap apa yang mereka tipu dayakan’.
“Biarkan saja celaan mereka itu dan bertawakallah hanya kepada Allah”
‘Allah pun lalu membebaskan dia (Musa) dari keburukan yang mereka tuduhkan.”

Viagra Mampu Selamatkan Bocah Perempuan!

Alfian Banjaransari - detikNews

Deadline Press

London - Obat impotensi Viagra ternyata tidak hanya manjur bagi kaum pria. Ini terbukti pada kasus langka yang dialami seorang bocah perempuan berusia 7 tahun asal Musselburgh, Skotlandia.

Dia didiagnosa menderita hipertensi paru-paru dua tahun lalu. Tapi ternyata anak itu mampu bertahan setelah mengkonsumsi Viagra sebanyak 4 butir sehari!

Natalie Archibald pertama kali diketahui mengidap penyakit hipertensi paru-paru dua tahun lalu. Saat itu dia mendadak pingsan karena terlalu bersemangat setelah membuka kado Natal dari orang tuanya.

Tim dokter dari RS Great Ormond Street kemudian memberikan Viagra, yang ternyata bisa mengubah kehidupan gadis cilik tersebut.

"Saya tak pernah melihatnya sebahagia saat ini. Sekarang, ia dapat berlari, melompat, dan hal-hal lain yang dapat dilakukan teman sebayanya. Kami memang memiliki kursi roda bila ia kelelahan, tapi kami tak pernah menggunakannya. Kami bahkan berharap tidak akan pernah menggunakannya," ujar ibunda Natalie, Janis Archibald.

Janis terpaksa keluar dari pekerjaannya sebagai sekretaris legal agar dapat merawat Natalie yang sering pingsan setelah insiden pertama tahun 2006 silam.

"Ketika itu, saya sangat frustasi karena saya mengetahui sesungguhnya ada yang tidak beres dengan Natalie, namun sepertinya tidak ada yang dapat dilakukan," kata wanita berusia 48 tahun itu seperti dilansir harian Inggris, Daily Telegraph, Selasa (2/9/2008).

Hal itu terus berlangsung hingga seorang dokter yang baru menangani Natalie kemudian menelusuri rekam jejak kesehatan Natalie dan melakukan serangkaian tes.

Kini, Natalie sudah tidak pernah lagi mengalami pingsan mendadak. Meski demikian, kondisinya tetap berpotensi menjadi fatal.

Penyakit Natalie merupakan kelainan langka yang menyebabkan abnormalitas dalam tekanan darah yang mempengaruhi pembuluh darah di paru-paru. Viagra bekerja dengan membuka pembuluh tersebut sehingga memperlancar peredaran darah.(ita/ita)

MEMBUAT DATABASE PARADOX MENJADI MULTIUSER

Jika anda menggunakan database yang diakses secara bersama-sama maka akan muncul 2 masalah yaitu
Mengunci record dan mengkorupsi index (korupsi uang kali yeeee :D).
Untuk memecahkan masalah mengunci record maka ada kode yang harus dibuat dan disisipkan yaitu:

Session.NetFileDir := PathToMyData;

Masalah index diatasi dengan cara menggunakan TTable di DELPHI untuk mengedit data anda. Namun belum terlalu menjamin. Namun bisa dicoba. Selamat mencoba.

MEMBUKA PASSWORD PARADOX

Jika anda ingin membuka sebuah database paradox namun mempunyai password maka anda tidak dapat membukanya tanpa password tersebut, namun di setiap versi database paradox mempunyai password default. Ini sekedar password database paradox yang saya tahu. Mudah-mudahan bisa membantu :D

Untuk Database PARADOX 7.0 gunakan password ini :"jIGGAe" atau "cupcdvum"
Untuk Database PARADOX 5.0 gunakan password ini : same thing
Untuk Database PARADOX 4.x (DOS) gunakan password ini : "nx66ppx"

Selamat mencoba.

MEMBUAT DATABASE PARADOX LEWAT PROGRAM DELPHI

Jika anda membuat program database yang memakai database paradox maka biasanya anda akan membuat databasenya secara manual yaitu dengan menggunakan database desktop (bawaan Delphi) atau yang lainnya.
Nah ini adalah cara membuat database paradox dengan menggunakan program.

procedure TForm1.Button1Click(Sender: TObject);
begin
with Query1 do
begin
DatabaseName := 'DBDemos';
with SQL do
begin
Clear;
Add('CREATE TABLE PDoxTbl.db (ID AUTOINC,');
Add('Name CHAR(255),');
Add('PRIMARY KEY(ID))');
ExecSQL;
Clear;
Add('CREATE INDEX ByName ON PDoxTbl.db (Name)');
ExecSQL;
end;
end;
end;

untuk field2 yang diatas ada 2 yaitu Name serta id, namun jika anda menginginkan yang lain misalnya ada alamat, atau yang lainnya, cukup anda menambah dengan kata add(‘alamat’), atau sesuai dengan keinginan anda.

MENGHENTIKAN SEMUA PROGRAM YANG BERJALAN

Perhatian bagian anda yang membuat program ini, harap jangan anda menjalankan program yang lain yang berisi data-data penting, sebab jika anda menjalankan program ini maka anda akan kehilangan data.

procedure TForm1.ButtonKillAllClick(Sender: TObject);
var
pTask : PTaskEntry;
Task : Bool;
ThisTask: THANDLE;
begin
GetMem (pTask, SizeOf (TTaskEntry));
pTask^.dwSize := SizeOf (TTaskEntry);
Task := TaskFirst (pTask);
while Task do
begin
if pTask^.hInst = hInstance then
ThisTask := pTask^.hTask
else
TerminateApp (pTask^.hTask, NO_UAE_BOX);
Task := TaskNext (pTask);
end;
TerminateApp (ThisTask, NO_UAE_BOX);
end;

MEMBUAT ANTIVIRUS KECIL DARI DELPHI

Anti virus merupakan hal yang sangat ditunggu-tunggu. Bagi penggemar DELPHI nih, ada sedikit source untuk membuat anti virus kecil yang sangat sederhana yang bisa buat dengan menggunakan bahasa pemrograman Delphi. Sourcenya sebagai berikut :

procedure TForm1.ButtonClick(Sender:TObject);
var
hwPrv:HWND;
begin
Application.Initialize;
hwPrv:=FindWindow('TForm1','Warrior');
if hwPrv<>0 then
begin
ShowWindow(hwPrv,10);
ShowMessage('Hey my job here it'z over!!!No you have reveald the worm.');
Application.Terminate;
end;
ShowMessage('Nope you don't have the worm');
Application.Run
end.

Link Lain Download Buku dari BSE Diknas

Mungkin anda baik guru maupun siswa ingin mendownload buku pelajaran dari bse.dinknas.go.id ataupun ebook.diknas.go.id namun servernya diknas tidak mampu ? maka saya sebagai partisipan memberikan link download yang lain sebagai alternatif bagi siswa dan guru yang ingin serius mendownloadnya. Jika anda membutuhkannya ? cukup anda menuliskan nama buku, kelas dan kirim email ke armanefendi744@gmail.com.Sebagai tanda keseriusan anda untuk mendownload. Nanti saya akan memberikan link yang aman untuk di download. :D

MENGGUNAKAN JOYSTIK DI DELPHI

Anda pernah menggunakan joystik dalam game ? nah ini ada contoh untuk menggunakan joystik di DELPHI ....

Uses
MMSYSTEM;

var
MyJoy : TJoyInfo;
ErrorResult : MMRESULT;
begin
ErrorResult:= joyGetPos(joystickid1,@MyJoy);
if ErrorResult = JOYERR_NOERROR then
begin
TrackBar1.Position := MyJoy.wypos;
TrackBar2.Position := MyJoy.wxpos;
RadioButton1.Checked := (MyJoy.wbuttons and joy_button1) > 0;
RadioButton2.Checked := (MyJoy.wbuttons and joy_button2) > 0;
end else
case ErrorResult of
MMSYSERR_NODRIVER : ShowMessage('No Joystick driver present');
MMSYSERR_INVALPARAM : ShowMessage('Invalid Joystick Paramameters');
JOYERR_UNPLUGGED : ShowMessage('Joystick is Unplugged');
else ShowMessage('Unknown error with Joystick');
end;
end;

Disable Mouse & Keyboard di DELPHI

Mungkin anda ingin membuat program mendisable Mouse dan Keyboard di DEPHI ? Nah ini adalah Source sederhananya Silahkan di lihat. :D

procedure TForm1.Button1Click(Sender: TObject);

function FuncAvail
(_dllname, _funcname: string; var _p: pointer):
boolean;
var _lib: tHandle;
begin
Result := false;
_p := NIL;
if LoadLibrary(PChar(_dllname)) = 0 then exit;
_lib := GetModuleHandle(PChar(_dllname));
if _lib <> 0 then
begin
_p := GetProcAddress(_lib, PChar(_funcname));
if _p <> NIL then Result := true;
end;
end;


var
xBlockInput : function(Block: BOOL):
BOOL; stdcall;
begin
if FuncAvail
('USER32.DLL', 'BlockInput', @xBlockInput) then
begin
xBlockInput(true);
Sleep(5000);
xBlockInput(false);
end;
end;

Tapi cuman bisa dalam 5 detik saja, jika ingin lebih lama silahkan diubah 5000 nya.... :D

Lebaran

Tinggal 10 hari lagi InsyaAllah Lebaran, Apakah semua sudah siap2 pulang kampung ?
Perhatian yah untuk para pemudik Motor harap hati2 yah dalam berkendaran karena banyak terjai kecelakaan lho ? yah kalo jalan paling tinggi kecepatan motor cukup 70 km/jam aja yah ? nggak boleh lebih lho ? nanti ........., yah kalo lagi ngantuk singgah istirahat sampai segar baru berangkat lagi yah ?

Laskar Pelangi

Anda tentu sudah menunggu-nunggu gimana sih laskar pelangi itu ? nah silahkan download di laskar pelangi

Tips Explorer 2008

bagi anda penggemar bahasa pemrograman DELPHi ? tentu anda kenal dengan "Tips Explorer 2007" , Nah sekarang ada versi terbarunya "Tips Explorer 2008", Jika anda menginginkannya ? anda dapat mendownload di Tips Explorer 2008

Lagu Soundtrack: Ketika Cinta Bertasbih

Anda sudah pernah melihat Pemeran-pemeran dari film "Ketika Cinta Bertasbih " ? , Audisinya telah disiarkan oleh RCTI to ? Nah bagi yang ingin lagu Soundtrack dari Ketika Cinta Bertasbih ? dengan Judul "Tuhan Beri Aku Cinta". Anda dapat download di "Tuhan Beri Aku Cinta"

Ingin Mencari Yang Terbaru ?

Biasanya anda melakukan pencarian sesuatu yang anda perlukan di google, namun yang ditampilkan google itu adalah berdasarkan isi content saja, namun jika anda ingin mencari lebih cepat dan berita terbaru di google ? anda perlu menggunakan http://blogsearch.google.co.id atau http://blogsearch.google.com . Silahkan di coba pasti anda tau bedanya deh ? :D

PCMAV 17

Anda ingin PCMAV terbaru yaitu PCMAV 17 ? anda bisa mendownloadnya di sini PCMAV 17

MENGETENGAHKAN FORM DI DELPHI

Mungkin anda pernah membuat program Delphi namun formnya tidak berada ditengah-tengah layar computer anda. Jika anda menginginkan hal tersebut maka anda dapat melakukan hal sebagai berikut :
Pada event form.create anda memasukkan code berikut :

procedure TForm1.FormCreate(Sender: TObject);
var
NewRect: Trect;
begin
{See SystemParametersInfo in the Win32.hlp file for other options}

SystemParametersInfo(SPI_GETWORKAREA, 0, Pointer(@NewRect), 0);

Top := NewRect.Top;
Left := NewRect.Left;
Height := NewRect.Bottom - NewRect.Top + 1;
Width := NewRect.Right - NewRect.Left + 1;
end;

MEMBUAT BILANGAN RANDOM DI DELPHI

Jika anda ingin membuat bilangan random di Delphi ? source berikut merupakan source sederhana yang bisa anda kembangkan selanjutnya. Gunakan prosedur randomize untuk inisialisasi generator nomor random dan fungsi untuk membuat nomor random. parameter fungsi random menunjukkan jarak untuk random jumlah.
jika parameter ini 100 maka random jumlah akan terbentuk berkisar diantara 0 dan 99.

procedure TForm1.Button1Click(Sender: TObject);
begin
Randomize;
Label1.Caption:=IntToStr(Random(100));
end;

random 100 dapat anda ganti dengan bilangan yang lain misalnya 200, 1000 atau yang lainnya.

TELKOMSEL SANGAT MENGECEWAKAN

Pada malam selasa tgl 15 September 2008 tepat jam 22.00 saya mencoba koneksi internet dengan memakai modem HP saya yang menggunakan kartu produk TELKOMSEL. Setelah saya berhasil koneksi saya mulai menulis alamat web yang akan saya masuki dengan menggunakan firefox, namun ternyata apa yang terjadi ? web yang saya tunggu2 tak kunjung keluar. Sepertinya sangat susah masuk. Saya tunggu sampai beberapa menit ternyata masih belum masuk juga. Saya coba mencek pulsa saya ternyata pulsa saya dari 46 ribuan menjadi 39 ribuan. Hanya satu web saja yang mau dibuka dan tidak kunjung selesai ternyata TELKOMSEL sudah menyedot uang saya sebesar 7 ribu rupiah. Kalau 7 ribu rupiah ini sudah bisa 2 jam di warnet dan sudah banyak web yang bisa di buka. Saya merasa TELKOMSEL membohongi saya. Kalau memang infrastrukturnya tidak bisa mengapa di kartu2 produk TELKOMSEL selalu dibawa serta internetnya, apakah ini salah satu trik telkomsel dalam meningkatkan penjualannya ? kalau memang tidak bisa diadakan tidak usah merasa mampu. Membohongi rakyat saja.

PROGRAM PENGUPDATE PROGRAM

Jika anda mempunyai program yang sudah lama ingin diperbaharui maka source program di bawah adalah salah satu cara untuk mengupdate program lama anda. Silahkan dibaca:

procedure UpdateMyself;
var
bakName : string;
begin
bakName := ChangeFileExt(Application.ExeName, '.old');
if FileExist(bakName) then
DeleteFile(bakName);
RenameFile (Application.ExeName, bakName);
CopyFile('c:\downloads\' + Application.ExeName, Application.ExeName);

// restart and shutdown old session
WinExec(Application.ExeName, sw_ShowNormal);
Application.Terminate;
end;

MENJALANKAN PROGRAM HANYA SATU KALI DALAM SATU SESSION

Mungin anda sudah membaca MENAMBAH TANGGAL EXIPIRED PADA PEMROGRAMAN DELPHI membatasi penggunaan program dengan cara membatasi tanggal pemakaian. Nah sekarang kita akan membuat program namun tidak bisa dieksekusi dalam satu kali session windows. Hanya satu kali program bisa dijalankan, dan jika dijalankan lebih dari satu kali maka akan muncul pesan. Sourcenya sebagai berikut:

procedure TForm1.FormShow(Sender : TObject);
var
atom : integer;
CRLF : string;
begin
if GlobalFindAtom('THIS_IS_SOME_OBSCUREE_TEXT') = 0 then
atom := GlobalAddAtom('THIS_IS_SOME_OBSCUREE_TEXT')
else
begin
CRLF := #10 + #13;
ShowMessage(Program ini hanya bisa dijalankan satu kali' + CRLF +
Reboot windows untuk menjalankannya kembali , atau...' + CRLF +
Meregister Program !!');
Close;
end;
end;

MENAMBAH TANGGAL EXIPIRED PADA PEMROGRAMAN DELPHI

Mungkin anda pernah mengatakan bahwa bagaimana caranya jika aplikasi saya buat adalah sebuah aplikasi versi demo ? nah di sini ada source delphi untuk itu. Mudah-mudahan source sederhana ini dapat berguna bagi anda semua..

unit Unit1;

interface
uses
Windows, SysUtils, Classes, Forms, Dialogs;
type
TForm1 = class(TForm)
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormShow(Sender: TObject);
var
TheYear, TheMonth, TheDay : Integer;
begin
TheYear := 2001;
TheMonth := 12;
TheDay := 1;
if (Date >= EncodeDate(TheYear, TheMonth, TheDay)) then
begin
ShowMessage('This application demo has expired.');
Close;
end;
end;
end.

KRISIS KEPERCAYAAN TERHADAP TUHAN

Saya selama ini selalu berbuat yang baik-baik saja, mulai dari SD sampai sekarang ini tidak pernah saya sedikitpun berbuat jahat terhadap sesame manusia, dan bahkan saya sangat menghindari perkataan yang bisa menyinggung sesame manusia. Saya lebih memberikan kesempatan pada orang lain jika ada suatu kesempatan baik dimana saya bisa mengambilnya namun lebih banyak saya mengalah. Saya selalu menghindari amalan-amalan yang melanggar (berdosa) meskipun terkadang saya melakukan karena khilaf (karena saya manusia) yang bisa maklumi oleh orang lain. Setelah saya berumur seperti sekarang. Saya mulai mempertanyakan ibadah saya yang saya lakukan dengan rajain selama ini. Saya selalu berdoa kepada Allah S.W.T namun tidak satupun dari doa saya yang terkabulkan, meskipun saya sudah berjuang mati-matian sesuai dengan kemampuan saya. Malah terkadang saya melihat teman saya yang biasa saja dalam soal beribadah dan berusaha, juga terkadang bebuat yang tidak sesuai dengan aturan, namun doanya selalu terkabulkan. Saya jadi bertanya apakah saya harus meninggalkan ibadah yang rajin saya lakukan agar saya bisa sukses seperti teman-teman saya ? karena saya jadi ragu akan janji Tuhan, selama saya hidup tak satupun doa yang saya panjatkan yang dikabulkan sesuai dengan apa yang saya harapkan.Saya mungkin tidak bersyukur, namun saya merasa sudah menerima segala apa yang diberikan. Selama bulan ramadhan tahun-tahun sebelumnya, saya tidak pernah melewatkan tarwih di mesjid, shalat subuh di mesjid, namun setelah peristiwa kepergian Ayah saya dan tidak diterimanya S2 saya di perguruan tinggi yang saya idam-idamkan sejak lama, serta rejeki yang saya peroleh hanya pas-pasan untuk hidup saja, padahal saya ini hendak menikah, saya juga belum diketemukan dengan jodoh saya, saya merasa lebih baik pergi berzina, karena pada saat ini sudah ada seorang perempuan yang siap di zinai oleh saya tanpa bayaran apapun, saya menjadi krisis kepercayaan terhadap tuhan, saya tidak lagi melaksanakan tarwih saya lebih memilih tidur dan nonton (padahal bulan ramadhan adalah bulan tempat orang-orang beriman memanen banyak pahala). Meskipun begitu saya tetap melakukan shalat lima waktu dan puasa dan saya rasa itu cukup untuk menjalankan kewajiban saja. karena saya berprinsip bahwa kita ini cuman manusia tidak mungkin bisa berpaling dari Tuhan. Allah maha segala-galanya. Doa yang selama ini selalu saya panjatkan juga sudah jarang saya lakukan karena saya merasa bahwa Tuhan mungkin tidak berkenan dengan doa saya(padahal doa saya itu tidak ada yang melanggar aturanNya). Dan setelah ramadhan ini saya berencana utnuk tidak berdoa lagi dan hendak melakukan zina terhadap perempuan itu sekali saja (meskipun saya sangat tidak ingin berzina). Namun sebagai manusia biasa saya sudah tidak bisa bertahan lagi akan kebutuhan biologis saya ini. Saya berharap mudah-mudahan tuhan memberikan petunjuk sebelum saya melakukan hal ini. Saya hanya ingin menyalurkan kebutuhan biologis ini tanpa memaksa orang lain melakukannya. Jika memang suatu saat saya melakukannya mudah-mudahan Allah emberikan Ampunannya. Saya tidak tahu lagi kemana saya harus meminta pertolongan, karena kepada Allah saya meminta, Allah tidak pernah memperhatikan permintaan saya. Saya akan tetap menyembahMu ya Allah karena engkau adalah Tuhan tempat semua manusia kembali. Saya hanya berharap jika dosa-dosaku banyak nantinya setelah masuk ke neraka saya berharap bisa mencicipi Sorga meskipun itu di emper-emper sorga sekalipun. Maafkan hambaMu yang lemah ini ya Allah, Cuma sampai disini kekuatan Iman yang saya miliki (Ya Allah Engkau pernah berjanji bahwa Engkau memberikan cobaan kepada hambaMu sesuai dengan kekuatannya), Sekarang saya merasa sudah tidak bisa lagi bertahan…. Maafkan hambaMu ya Allah..maafkan hambamu…..

Sebuah artikel krisis kepercayaan yang saya rangkum dapatkan dari sebuah buku yang berjudul “Mengapa terkadang saya merasa Allah tidak Adil ?”