Selasa, 01 Februari 2011

Kekuatan Maaf Rasulullah SAW

Seorang lelaki Arab bernama Tsumamah bin Itsal dari Kabilah Al Yamamah pergi ke Madinah dengan tujuan hendak membunuh Nabi Shalallahu alaihi wa sallam. Segala persiapan telah matang, persenjataan sudah disandangnya, dan ia pun sudah masuk ke kota suci tempat Rasulullah tinggal itu. Dengan semangat meluap-luap ia mencari majlis Rasulullah, langsung didatanginya untuk melaksanakan maksud tujuannya. Tatkala Tsumamah datang, Umar bin Khattab ra. yang melihat gelagat buruk pada penampilannya menghadang.

Umar bertanya, “Apa tujuan kedatanganmu ke Madinah? Bukankah engkau seorang musyrik?”Dengan terang-terangan Tsumamah menjawab, “Aku datang ke negeri ini hanya untuk membunuh Muhammad!”.

Mendengar ucapannya, dengan sigap Umar langsung memberangusnya. Tsumamah tak sanggup melawan Umar yang perkasa, ia tak mampu mengadakan perlawanan. Umar berhasil merampas senjatanya dan mengikat tangannya kemudian dibawa ke masjid. Setelah mengikat Tsumamah di salah satu tiang masjid Umar segera melaporkan kejadian ini pada Rasulullah.

Rasulullah segera keluar menemui orang yang bermaksud membunuhnya itu. Setibanya di tempat pengikatannya, beliau mengamati wajah Tsumamah baik-baik, kemudian berkata pada para sahabatnya, “Apakah ada di antara kalian yang sudah memberinya makan?”.


Para shahabat Rasul yang ada disitu tentu saja kaget dengan pertanyaan Nabi. Umar yang sejak tadi menunggu perintah Rasulullah untuk membunuh orang ini seakan tidak percaya dengan apa yang didengarnya dari Rasulullah. Maka Umar memberanikan diri bertanya, “Makanan apa yang anda maksud wahai Rasulullah? Orang ini datang ke sini ingin membunuh bukan ingin masuk Islam!” Namun Rasulullah tidak menghiraukan sanggahan Umar. Beliau berkata, “Tolong ambilkan segelas susu dari rumahku, dan buka tali pengikat orang itu”.


Walaupun merasa heran, Umar mematuhi perintah Rasulullah. Setelah memberi minum Tsumamah, Rasulullah dengan sopan berkata kepadanya, “Ucapkanlah Laa ilaha illa-Llah (Tiada ilah selain Allah).” Si musyrik itu menjawab dengan ketus, “Aku tidak akan mengucapkannya!”. Rasulullah membujuk lagi, “Katakanlah, Aku bersaksi tiada ilah selain Allah dan Muhammad itu Rasul Allah.” Namun Tsumamah tetap berkata dengan nada keras,


“Aku tidak akan mengucapkannya!” Para sahabat Rasul yang turut menyaksikan tentu saja menjadi geram terhadap orang yang tak tahu untung itu. Tetapi Rasulullah malah membebaskan dan menyuruhnya pergi. Tsumamah yang musyrik itu bangkit seolah-olah hendak pulang ke negerinya. Tetapi belum berapa jauh dari masjid, dia kembali kepada Rasulullah dengan wajah ramah berseri. Ia berkata, “Ya Rasulullah, aku bersaksi tiada ilah selain Allah dan Muahammad Rasul Allah.”


Rasulullah tersenyum dan bertanya, “Mengapa engkau tidak mengucapkannya ketika aku memerintahkan kepadamu?” Tsumamah menjawab, “Aku tidak mengucapkannya ketika masih belum kau bebaskan karena khawatir ada yang menganggap aku masuk Islam karena takut kepadamu. Namun setelah engkau bebaskan, aku masuk Islam semata-mata karena mengharap keredhaan Allah Robbul Alamin.”

Pada suatu kesempatan, Tsumamah bin Itsal berkata, “Ketika aku memasuki kota Madinah, tiada yang lebih kubenci dari Muhammad. Tetapi setelah aku meninggalkan kota itu, tiada seorang pun di muka bumi yang lebih kucintai selain Muhammad Rasulullah.” Sahabat………..

Apakah kita pengikut ajaran beliau?


Tetapi sejauh mana kita bisa memaafkan kesalahan orang? Seberapa besar kita mencintai sesama? kalau tidak, kita perlu menanyakan kembali ikrar kita yang pernah kita ucapkan sebagai tanda kita pengikut beliau…


Sungguh, beliau adalah contoh yang sempurna sebagai seorang manusia biasa. beliau adalah Nabi terbesar, beliau juga adalah Suami yang sempurna, Bapak yang sempurna pimpinan yang sempurna, teman dan sahabat yang sempurna, tetangga yang sempurna. maka tidak salah kalau Allah mengatakan bahwa Beliau adalah teladan yang sempurna.

Semoga Shalawat dan salam senantiasa dilimpahkan kepada beliau, junjungan dan teladan kita yang oleh Allah telah diciptakan sebagai contoh manusia yang sempurna.

Salam ’alaika ya Rasulullah………

Semoga Bermanfaat….

Source : rumah-yatim-indonesia

Shared By Kisah Penuh Hikmah

http://virouz007.wordpress.com/

Kisah perempuan miskin, Sapi tua dan Gaza

Kisah nyata ini terjadi di salah sebuah daerah di Yaman.Kisah penderitaan dan kepahitan yang dilalui oleh penduduk Gaza tersebar ke seantero dunia. Semua orang marah, benci, dendam dan sedih. Dimana korban kebanyakan adalah anak-anak kecil tak berdosa yang menjadi korban muntahan peluru sehingga darah membasah bumi tanpa henti.

Tragedi dahsyat ini juga sampai juga ke telinga seorang perempuan tua yang hidup miskin di salah sebuah kampung di Yaman. Sama seperti orang lain, dia juga turut sedih dan pilu sehingga berurai air mata. Lantas suatu hari, dia berusaha sekuat upaya untuk mencoba membantu sekadar semampunya. Kebetulan , ‘harta’ yang dia punya adalah seekor sapi tua, terlalu uzur, kurus dan sudah tidak bermaya.

Dengan semangat tinggi dan perasaan simpati amat sangat, dia berniat menyedekahkan Sapinya itu kepada penduduk Gaza lalu berjalan kaki dari rumah pergi ke salah sebuah masjid di Yaman sambil memegang sapi tunggal kesayangannya itu. Kebetulan hari itu Jumaat dan para jemaah sudah mengerumuni pekarangan masjid untuk melaksanakan ibadat tersebut.

Ketika itu, betapa ramai yang melihat dan memperhatikan perempuan tua nan miskin dengan sapinya yang berada di sisi luar masjid. Ada yang mengangguk, ada yang menggeleng kepala. Tak terkecuali ada juga yang tersenyum sinis, tertawa, mengejek melihat perempuan miskin yang setia berdiri di sisi sapinya.

Masa berlalu, jemaah masjid walaupun khusyuk mendengar khutbah imam namun sesekali memperhatikan dua mahkhluk tuhan itu. Perempuan dan sapi itu masih di situ yang tanpa rasa malu atau segan diraut wajahnya. Setelah imam turun dari mimbar, solat Jumaat kemudian dilakukan, biar dibakar terik mentari dan peluh menitis dan memercik di muka, perempuan dan sapi tua itu masih saja di situ.

Segera setelah jemaah selesai solat dan berdoa, tiba-tiba perempuan itu dengan tergesa-gesa menarik sapi itu membawanya ke depan pintu masjid sambil menanti dengan penuh sabar tanpa mempedulikan jemaah yang keluar. Ramai juga orang yang tidak beranjak dan perasaan ingin tahu, apa yang bakal dilakukan oleh perempuan tua itu.

Tatkala imam masjid keluar, perempuan tua itu bingkas berkata :”Wahai imam, aku telah mendengar kisah sedih penduduk di Gaza. Aku seorang yang miskin tetapi aku bersimpati dan ingin membantu. Sudilah kau terima satu-satunya sapi yang ku punyai untuk dibawa ke Gaza, untuk di berikan kepada penduduk di sana.” Gaduh seketika orang yang berada di masjid itu. Imam kaget dengan permintaan perempuan itu namun keberatan untuk menerima. Ya, bagaimana membawa sapi tua itu ke Gaza? Kemudian para jemaah mulai bercakap-cakap. Ada yang mengatakan tindakan itu

tidak munasabah apalagi sapi itu sudah tua dan tiada harga.

“Tolonglah.. bawalah sapi ini ke Gaza. Inilah saja yang aku punya. Aku ingin benar membantu mereka,” ulang perempuan yang tidak dikenali itu. Imam tadi masih keberatan.Masing-masing jemaah berkata-kata dan berbisik antara satu sama lain. Semua pandangan tertumpu kepada perempuan dan sapi tuanya itu. Mata perempuan tua yang miskin itu sudah mulai berkaca dan berair namun tetap tidak beranjak dan terus merenung ke arah imam tersebut. Sunyi seketika suasana.

Tiba-tiba muncul seorang jemaah lalu bersuara mencetuskan idea: ”Tak mengapalah, biar aku beli sapi perempuan ini dengan harga 10,000 riyal dan bawa uang itu kemudian sedekahkanlah kepada penduduk di Gaza.

Imam kemudian nampak setuju. Perempuan miskin tua itu kemudian menyeka air matanya yang sudah tumpah. Dia membisu namun sepertinya setuju dengan pendapat jemaah itu.

Tiba-tiba bangkit pula seorang anak muda, memberi pandangan yang jauh lebih hebat lagi: ”Bagaimana kalau kita rama-ramai membuat tawaran tertinggi sambil bersedekah untuk membeli sapi ini dan duit nya nanti diserahkan ke Gaza?”

Perempuan itu terkejut, termasuk imam itu juga. Rupa-rupanya cetusan anak muda ini diterima semua orang. Kemudian dalam beberapa menit para jemaah berebut-rebut menyedekahkan uang mereka untuk dikumpulkan dengan cara lelang tertinggi.

Ada yang mulai menawar dari 10,000 ke 30,000 riyal dan berlanjutan untuk seketika. Suasana pekarangan masjid di Yaman itu menjadi riuh selama proses lelang sapi tersebut. Akhirnya sapi tua, kurus dan tidak bermaya milik perempuan tua miskin itu dibeli dengan harga 500,000 riyal, setelah itu uang diserahkan kepada imam masjid, semua sepakat

membuat keputusan itu, kemudian salah seorang jemaah berbicara kepada perempuan tua itu.

“Kami telah melelang sapi kamu dan telah mengumpulkan uang sejumlah 500,000

riyal untuk membeli sapi itu.

“Akan tetapi kami telah sepakat, uang yang terkumpul tadi diserahkan kepada imam untuk disampaikan kepada penduduk Gaza dan sapi itu kami hadiahkan kembali kepada kamu,” katanya sambil memperhatikan perempuan tua nan miskin itu yang kembali meneteskan air mata…gembira. Tanpa diduga, Allah mentakdirkan segalanya, niat perempuan miskin itu untuk membantu meringankan beban penderitaan penduduk Palestina akhirnya tercapai dan dipermudahkan sehingga terkumpul uang yang banyak tanpa kehilangan “harta” satu-satunya yang ada . Subhanallah.

Rasulullah shallallahu ‘alaihi wasallam bersabda :إِ

“Sesungguhnya Allah tidak melihat kepada rupa dan amal-amal kalian, tetapi Dia

melihat kepada hati dan niat kalian.” (shahih Muslim dan lainnya)

Rasulullah shallallahu ‘alaihi wasallam bersabda :

“Barangsiapa yg bersedekah (walau) sebesar kurma dari usaha yg baik, dan Allah tidak menerima kecuali yg baik, dan Sungguh Allah swt menerimanya dg sambutan hangat, lalu melipat gandakannya untuk orang itu seperti kalian mengasuh bayi yg disusuinya, hingga sebesar gunung” (Shahih Bukhari)

Hikmah dari kisah ini adalah segala niat murni yang baik senantiasa mendapat perhitungan dan ganjaran Allah apalagi jika datang dari hati kecil seorang yang miskin yang mau membantu umat islam yang menderita akibat dizalimi rejim zionis israel, biarpun diri serba payah dan serba kekurangan. sesuai dengan Firman Allah Ta’ala,

“Tidak ada kebaikan pada kebanyakan bisikan-bisikan mereka, kecuali bisikanbisikan dari orang yang menyuruh (manusia) memberi sedekah, atau berbuat ma’ruf, atau mengadakan perdamaian di antara manusia. Dan barangsiapa yang berbuat demikian karena mencari keridhaan Allah, maka kelak Kami memberi kepadanya

pahala yang besar.” (QS. An Nisa’ [4] :114)

Semoga bermanfaat…….

(Kisah ini di ambil dari Timbalan Mursyidul Am PAS Dato’ Haron Din kepada Harakah daily melalui kisah nyata yang di terbitkan di sebuah majalah Arab)

Source : pondokhabib

Edited By Catatan Catatan Islam

Shared By Kisah Penuh Hikmah

http://virouz007.wordpress.com/

Rabu, 12 Januari 2011

Memanfaatkan mySQL Stored Procedure pada script PHP

Apakah mySQL Stored Procedure itu?


Semacam program eksekusi yang terletak pada database server dan siap di panggil. Bahasa yang ditulis pada stored procedure ini haruslah di dukung oleh database server. Beberapa database server memiliki bahasa spesial yang dijadikan sebagai alternativ SQL, contohnya :

* PL/SQL - Stored Procedure yang digunakan untuk database server tipe Oracle
* Transact SQL - Stored Procedure yang digunakan pada database server Microsoft SQL Server

Stored Procedure biasanya memiliki fitur-fitur seperti :
* Menerima dan mengembalikan nilai data dari environment yang memanggilnya
* Mendeklarasikan serta memakai variabel lokal
* Menjalankan SQL Query di server
* Melakukan perulangan pada satu set statement selama beberapa kali
* Pengecekan logika kondisional

Membuat Stored Procedure di mySQL

Pertama-tama, kita deklarasikan procedure yang ingin kita buat dengan menggunakan fungsi CREATE PROCEDURE.

Sebagai catatan, jika hanya ingin membuat sebuah stored procedure dengan satu baris, maka cukup dengan menuliskan perintah-perintah stored procedure tersebut setelah nama procedurenya :

CREATE PROCEDURE proc_name() body_statement;

Untuk membuat stored procedure yang lebih kompleks, kita gunakan beberapa baris dalam sebuah stored procedure (karna capek nulis, aku singkat SP aja ya). Disini, kita tambahkan statement BEGIN dan END untuk membatasi stored procedure itu, hal ini tidak ada bedanya dengan penulisan function pada programming language yang lainnya, kemudian setelah statement END, kita tambahkan lagi stame DELIMITER ';'/, sebagai penanda bahwa setiap baris hanya dapat dieksekusi dengan delimiter tersebut

CREATE PROCEDURE nama_procedure()
BEGIN
stamement;
statement;
...
END/
DELIMITER ';'/


Nah, sekarang kalau ingin memasukan beberapa parement ke dalam SP tersebut, tinggal masukan saja setelah nama SP-nya :
CREATE PROCEDURE nama_procedure(parameter, parameter, ...)

Untuk perintah-perintah yang digunakan, tidak ada bedanya seperti saat kita melakukan query SQL, saya rasa semua pasti mengerti ^_^
Setelah stored procedure kita selesai dibuat, sekarang tinggal memanggilnya dengan perintah SQL :

CALL nama_procedure();

Sedangkan kalau ingin menghapus sebuah SP, gunakan perintah :

DROP PROCEDURE proc_name;

Sebagai contoh, lihat query ini :
mysql> USE test;
mysql> DELIMITER '/';
mysql> CREATE PROCEDURE Msg()
-> BEGIN
-> SELECT CURRENT_TIME() AS Time;
-> SELECT 'Hello world!' As Message;
-> END/
Query OK, 0 rows affected (0.75 sec)

mysql> DELIMITER ';'/
mysql> CALL Msg();
+----------+
| Time |
+----------+
| 17:35:51 |
+----------+
1 row in set (0.07 sec)

+--------------+
| Message |
+--------------+
| Hello world! |
+--------------+
1 row in set (0.08 sec)

Query OK, 0 rows affected (0.09 sec)


Sebagai tambahan, kita bisa mendefinisikan tipe-tipe parameter pada SP :
* IN - parameter ini hanya untuk menerima data
* OUT - parameter ini hanya untuk mengembalikan nilai data ke sebuah variabel
* INOUT - parameter ini bisa menerima data, dan mengembalikai nilai data ke sebuah variabel
* Jika tidak di spesifikasikan, maka defaultnya adalah IN

contoh penggunaan tipe parameter :

DROP DATABASE IF EXISTS Test;
CREATE DATABASE Test;
USE Test;
DROP TABLE IF EXISTS Map;
CREATE TABLE Map (C REAL, F REAL);
--
DROP PROCEDURE IF EXISTS C2F;
DELIMITER '/';
CREATE PROCEDURE C2F(IN C REAL, OUT F REAL)
BEGIN
INSERT INTO Map VALUES (C, 1.8*C+32.0);
SELECT 1.8*C+32.0 INTO F;
END/
DELIMITER ';'/
--
CALL C2F(0.0, @F0);
CALL C2F(1.0, @F1);
CALL C2F(22.0, @F2);
CALL C2F(40.0, 100.0);
--
SELECT 'Output values:' AS '---';
SELECT @F0, @F1, @F2;
SELECT 'C2F map table:' AS '---';
SELECT * FROM Map;


Hasil outputnya :

---
Output values:
@F0 @F1 @F2
32 33.8 71.6
---
C2F map table:
C F
0 32
1 33.8
22 71.6
40 104


Nah, sekarang bagaimana memanfaatkannya di PHP, tidak peduli PHP versi berapapun, karena kita hanya menggunakan fungsi-fungsi yang udah standar seperti :
-mysql_query
-mysql_result
-mysql_fetch_array

Sebagai contoh, kita gunakan database terakhir diatas, pertama lakukan query:
mysql_query("CALL C2F(22.0, @F2)");
mysql_query("CALL C2F(40.0, 100.0)");

kemudian untuk menselect valuenya, tinggal mengkombinasikan mysql_query, mysql_result, dan mysql_fetch_array pada script php kita (saya yakin dah pada paham).

Untuk penggunaan setiap fungsinya, tidak dijelaskan karena disini hanyalah pemaparan alur logika sederhana dari penggunaan SP.

Thank u,,,

sumber :http://kecebong.madpage.com

Jumat, 10 Desember 2010

Cara Instalasi Joomla! Secara Manual

Cara Instalasi Joomla! Secara Manual

Instalasi Joomla bisa dilakukan secara manual, artinya anda akan melakukan upload installer Joomla, membuat database, dan melakukan instalasi Joomla. Instalasi Joomla juga bisa dilakukan secara otomatis melalui Fantastico, silahkan kunjungi artikel Instalasi Joomla Melalui Fantastico untuk instalasi Joomla melalui Fantastico.

Silahkan ikuti urutan instruksi di bawah ini untuk melakukan instalasi Joomla secara manual.

Download Joomla

Download Joomla bisa didapat di:

http://www.joomla.org/download.html

Sangat disarankan selalu menggunakan versti terbaru Joomla.

Upload File Joomla

Setelah selesai download, sekarang saatnya melakukan upload. Gunakan aplikasi FTP untuk upload file Joomla. Kami sarankan anda untuk menggunakan FileZilla untuk upload file tersebut.

File harus diupload ke dalam direktori public_html, setelah selesai upload, buka cPanel > File Manger dan cari file tersebut di File Manager. Klik kanan pada file tersebut dan extract.









extract file

Membuat Database MySql

Sebelum memulai instalasi Joomla, kita harus menyiapkan database MySql. Silahkan simak cara Membuat Database MySql di sini.

Dari artikel Membuat Database MySql anda bisa mendapatkan informasi yang dibutuhkan:

* Nama Database
* Username Database
* Password Database

Sedangkan untuk Host Name bisa diisi dengan “localhost” (tanpa tanda kutip).

Instalasi

Buka browse anda dan navigasikan ke alamat web joomla anda. Di browser anda akan muncul tampilan instalasi Joomla. Silahakn diikuti langkah dibawah ini untuk instlasi.


1. Choose Language, pilih bahasa yang akan digunakan dalam proses instalasi Joomla, kemudian tekan tombol Next .
2. Pre-installation Check, pastikan semua dalam kondisi Yes, kemudian tekan tombol Next.


Pre-installation Check
3. License, baca lisensinya dan klik tombol Next.
4. Database Configuration, masukkan informasi yang dibutuhkan yang didapat dari langkah Membuat Database MySql. Host Name database harus menggunakan “localhost”. Untuk bagian Advanced Settings, ganti Table Prefix dengan prefix apa saja kecuali bak (digunakan untuk backup) dan jos (demi keamanan). Tekan tombol Next untuk melanjutkan.

database configuration
5. FTP Configuration, login FTP bisanya sama dengan login cPanel, klik Next untuk melanjutkan.


FTP configuration
6. Main Configuration, masukkan konfigurasi utama web anda lalu tekan Next.
7. Finish, instalasi selesai. Tapi anda harus hapus direktori Installation melalui cPanel > File Manager.

finish

Sekarang anda telah berhasil melakukan instalasi Joomla secara manual dengan melakukan upload, membuat database, melakukan konfigurasi sendiri.

Membuat Serial Number

Pernahkan terpikirkan oleh Anda untuk mendistribusikan aplikasi yang Anda buat sebagai shareware? Sehingga orang dapat mencoba terlebih dahulu aplikasi tersebut dan mereka dapat mengetahui apakah aplikasi tersebut benar-benar berguna bagi mereka atau tidak.
Dengan mendistribusikan aplikasi yang hendak Anda jual dengan metode shareware maka dapat menekan biaya promosi dan dapat menjangkau pasar yang luas (seluruh dunia), Anda cukup meletakan aplikasi yang akan dijual tersebut dan mempromosikannya melalui website ataupun melalui mailing list, bagi mereka yang tertarik untuk mencoba aplikasi tersebut maka mereka tinggal download dari internet.

Aplikasi yang didistribusikan dengan metode shareware biasanya memiliki batasan waktu dalam penggunaannya dan jika batas waktu sudah habis maka user harus melakukan aktifasi dengan cara mendaftarkan aplikasi tersebut atau membeli lisensi kepada pemilik aplikasi tersebut dengan cara menyebutkan serial number pada aplikasi yang ada.

Ada juga jenis shareware yang tidak menggunakan batasan waktu, akan tetapi melakukan pembatasan pada fasilitas-fasilitas yang dapat digunakan. Bahkan ada juga yang tidak menggunakan batasan waktu atau pembatasan fasilitas, akan tetapi aplikasi yang digunakan akan selalu menampilkan iklan pada saat aplikasi tersebut digunakan.

Ketika pemilik aplikasi menerima pendaftaran atau pembayaran dari user yang ingin melakukan aktifasi, maka pemilik aplikasi akan mengirimkan activation key kepada user untuk dimasukan pada form aktifasi yang disediakan pada aplikasi yang digunakan.

Jika Anda sebagai pemilik aplikasi tentu Anda tidak ingin activation key tersebut dapat digunakan oleh beberapa user yang berbeda yang secara sengaja menggandakan aplikasi tersebut untuk keuntungan pribadi, hal ini dapat disiasati dengan cara menciptakan serial number yang berbeda untuk setiap user yang berbeda (satu user satu serial number) sehingga activation key hanya dapat digunakan oleh satu user saja.

Untuk menciptakan serial number yang unik untuk masing-masing user kita dapat memanfaatkan serial number yang terdapat pada harddisk, sehingga setiap aplikasi yang diinstal pada komputer yang berbeda maka akan memiliki serial number yang berbeda pula.

Contoh pembuatan serial number aplikasi dan activation key dengan memanfaatkan serial number yang terdapat pada harddisk dapat dilihat pada contoh program berikut.






===================================================================
Kode Program
====================================================================

Option Explicit

Private Declare Function GetVolumeInformation Lib “Kernel32″ _
Alias “GetVolumeInformationA” (ByVal lpRootPathName As String, _
ByVal lpVolumeNameBuffer As String, _
ByVal nVolumeNameSize As Long, _
lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, _
lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, _
ByVal nFileSystemNameSize As Long) As Long

Private Function GetHDDSerialNumber(ByVal DriveLetter As String) As String
Dim SN As Long
Dim VolumeNameBuff As String
Dim FileSystemBuff As String

VolumeNameBuff = String$(255, Chr$(0))
FileSystemBuff = String$(255, Chr$(0))
GetVolumeInformation UCase(DriveLetter) & “:\”, _
VolumeNameBuff, 255, SN, 0, 0, FileSystemBuff, 255
GetHDDSerialNumber = Trim(Hex$(SN))
End Function

Private Function CreateAppSerialNumber _
(ByVal HDDSerialNumber As String) As String
Dim i As Integer
Dim temp As String
Dim temp2 As String

temp = Empty
For i = 1 To Len(HDDSerialNumber) Step 2
temp = temp & Mid(HDDSerialNumber, i + 1, 1) & _
Mid(HDDSerialNumber, i, 1)
Next

For i = Len(temp) To 1 Step -1
Select Case Asc(Mid(temp, i, 1)) + 1
Case 48 To 57, 65 To 90, 97 To 122
temp = temp & Chr(Asc(Mid(temp, i, 1)) + 1)
Case Else
temp = temp & Mid(temp, i, 1)
End Select
Next

For i = 1 To Len(temp) Step 2
temp2 = temp2 & Mid(temp, i, 1) & _
Mid(temp, Len(temp) \ 2 + i, 1)
Next

CreateAppSerialNumber = temp2
End Function

Public Function CreateActivationKey _
(ByVal AppSerialNumber As String) As String
Dim i As Integer
Dim j As Integer
Dim temp As String

temp = Empty
For i = 1 To Len(AppSerialNumber) \ 2
temp = temp & (Asc(Mid(AppSerialNumber, i, 1)) Xor _
Asc(Mid(AppSerialNumber, Len(AppSerialNumber) \ 2 + 1, 1)))
Next
CreateActivationKey = Hex$(Val(temp))
End Function

Private Sub Form_Load()
txtSerialNumber.Text = CreateAppSerialNumber(GetHDDSerialNumber(”c”))
End Sub

Private Sub cmdHint_Click()
MsgBox “Activation Key: ” & _
CreateActivationKey(CreateAppSerialNumber _
(GetHDDSerialNumber(”C”)))
End Sub

Private Sub cmdOK_Click()
If txtActivationKey.Text = CreateActivationKey(txtSerialNumber.Text) Then
MsgBox “Thank you!”, vbOKOnly Or vbInformation, App.Title
Else
MsgBox “Wrong answer!”, vbOKOnly Or vbInformation, App.Title
End If
End Sub

Private Sub cmdCancel_Click()
Unload Me
End Sub
=======================================
sumber: http://it.visikita.net
=========================================

Cara Sederhana Block Website


5 April 2010
Penulis: BinusHacker

Here is a cool trick by which you can block any website to be accessible from your PC . This trick doesn’t require the use of any software or program .

1] Browse C:\WINDOWS\system32\drivers\etc
2] Find the file named “HOSTS”
3] Open it in notepad
4] Under “127.0.0.1 localhost” Add 127.0.0.2 www.sitenameyouwantblocked.com , and that site will no longer be accessable.
5] Done!

for example
127.0.0.1 localhost
127.0.0.2 www.blockedsite.com

Membuat dan Menghapus Virus Autorun tanpa Antivirus

Artikel ini berguna untuk melengkapi artikel sebelumnya, bahan yang digunakan sebagai sampel virus ini yaitu virus dengan nama k4l0n6 yang telah menginfeksi PC gw. Adapun cara membuat virus autorun sebagai berikut: