Cara Install Visual Borland Delphi 7:
                           

1.    Masukan CD Software Visual Borland Delphi 7

2.    Klick Install.exe – klick open,maka akan tampil tampilan pilihan instalasi Visual Borland Delphi 7 Enterprise Edition :

3.    Klick Delphi 7 untuk menginstal, maka akan tampil Borland Delphi 7 Enterprise Edition – Installation Wizard, klick Next.

4.    Masukan Serial Number dan Authorization Key, Serial Number dan Authorization Key dapat anda lihat di CD Serial Number.txt, klick Next.

5.    Klick pada pilihan I accept the terms in the license agreement, untuk menerima pernyataan lisensi yang ada di Borland Delphi 7 Enterprise Edition, klick Next

6.    Pada Important Installation Information anda klick Next


7.    Pada Setup Type anda Klick pada pilihan Custom untuk menginstal komponen program yang ada di Borland Delphi 7 Enterprise Edition, klick Next

8.    Pada Custom Setup, pilihan Program Files,anda klick Next

9.    Pada BDE SQL Driver Configuration anda klick Next

10.    Pada Choose VisiBroker anda klick Next

11.    Pada Microsoft Office Controls, anda pilih pilihan Office XP untuk Operating System Microsoft Windows XP, klick Next

12.    Pada Install Additional Components anda klick Next

13.    Pada Destination Folder, komponen Delphi yang disimpan dan diinstall pada Drive C, anda klick Next

14.    Pada Save Installation Database, anda klick Next

15.    Pada Ready to Install the Program, anda klick Install, untuk memulai proses penginstallan

16.    Tunggu beberapa saat pada proses penginstallan

17.    Pada InterBase 6.5 Setup Wizard anda klick Next

18.    Pada Setup - InterBase 6.5 Software License Agreement anda klick Yes

19.    Pada Setup - InterBase 6.5 Important Installation Information anda klick Next

20.    Pada Setup - InterBase 6.5 Select Destination Directory, anda pilih C:\Program Files\Borland\InterBase, lalu anda klick Next

21.    Pada Setup - InterBase 6.5 Select Components, pilih pilihan Full Installation, lalu anda klick Next

22.    Pada Setup - InterBase 6.5 Select Start Menu Folder, anda klick Next

23.    Pada Setup - InterBase 6.5 Ready to Install, anda klick Install

24.    Untuk proses penginstallan tunggu beberapa saat,sampai proses penginstallan selesai

25.    Pada akhir penginstallan Setup - InterBase 6.5 selesai, anda klick Finish

26.    Pada Java(TM) 2 Runtime Environment, Standard Edition, v 1.2.2-001, Software License Agreement, anda klick Yes

27.    Pada Java(TM) 2 Runtime Environment, Standard Edition, v 1.2.2-001, Choose Destination Location, anda klick Next

28.    Tunggu beberapa saat pada proses penginstallan Java(TM) 2 Runtime Environment, Standard Edition, v 1.2.2-001 Setup selesai

29.    Informasi proses penginstallan Java(TM) 2 Runtime Environment, Standard Edition, v 1.2.2-001 Setup selesai dan mulai proses penginstallan VisiBroker for Cpp 4.5

30.    Proses awal penginstallan VisiBroker for Cpp 4.5, klick Next

31.    Pada VisiBroker for Cpp 4.5, Software License Agreement, anda klick Yes

32.    Pada VisiBroker for Cpp 4.5, Choose Destination Location, anda klick Next

33.    Pada VisiBroker for Cpp 4.5, Select Components, anda klick Next

34.    Pada VisiBroker for Cpp 4.5, VisiBroker Installation, anda klick Next

35.    Pada VisiBroker for Cpp 4.5, Setup Options, anda klick Next

36.    Pada VisiBroker for Cpp 4.5, Select Program Folder, anda klick Next

37.    Pada VisiBroker for Cpp 4.5, Start Copying Files, anda klick Next

38.    Tunggu beberapa saat proses penginstallan Pada VisiBroker for Cpp 4.5 Setup

39.    Proses penginstallan Pada VisiBroker for Cpp 4.5 Setup selesai, klick Finish

40.    Proses total akhir pada Installation Wizard Completed selesai, lalu anda klick Finish

41.   pilih YES dan tunggu proses restart. lalu buka Delphi yang baru selesai anda instal

Apakah anda pernah mengisi form di sebuah website, dimana anda harus menulis kombinasi angka atau huruf (biasanya 4 huruf/angka) dari yang ada di gambar sebagai konfirmasi atau verifikasi? Nah itu namanya gambar Captcha, singkatan dari Completely Automated Public Turing test to tell Computers and Humans Apart. Tujuan utamanya adalah agar orang lain tidak bisa menggunakan program (robot atau bot) untuk secara otomatis mengisi form dan mengirimnya ke website tujuan. Dengan adanya gambar captcha tersebut, maka orang harus mengisi/menulis ulang huruf atau angka yang tertera pada gambar captcha tersebut.

Dalam tutorial kali ini kita akan membuat gambar captcha sendiri (yang sederhana) yang kiranya bisa sobat sekalian manfaatkan di websitenya untuk menghindari spam. Di sini saya buatkan garis-garis silang sebagai latarnya, agar walaupun orang lain pakai program OCR (program pembaca teks di dalam gambar) tetap tidak bisa mendeteksi tulisannya. Ingin lihat contohnya, coba deh masuk ke situs gue (sekalian promosi nih ...  he he he (:-) , lalu klik salah satu game-nya dan coba kirim review, pada form pengisian review tersebut terdapat gambar captchanya.

Mari kita mulai, di sini kita buat tiga buah file, satu adalah file php untuk gambar captcha, yang satu lagi adalah file html (form pengisian) sebagai contoh untuk penggunaan gambar captcha tersebut, dan yang satu lagi adalah file php untuk merespon form pengisian.

File 1. File php untuk gambar captcha. (Nama file: tes_captcha.php)

session_start();

//menentukan kode captcha. Disini saya pakai angka acak sebanyak 4 angka.
$angka_acak = rand(0, 9) . rand(0, 9) . rand(0, 9) . rand(0, 9);
$_SESSION['kode_captcha'] = $angka_acak;

//atur header
header("Pragma: no-cache");
header('Content-type: image/jpeg');

//tentukan ukuran gambar
$width = 80;
$height = 30;
//inisialisasi gambar
$my_image = imagecreatetruecolor($width, $height);

//fungsi warna
function warna_acak($jenis_warna = 0){
    global $my_image;
    if ($jenis_warna == 0){  //warna background
        return imagecolorallocate($my_image, rand(210, 255), rand(210, 255), rand(210, 255));
    }else if ($jenis_warna == 1){  //warna noise
        return imagecolorallocate($my_image, rand(10, 100), rand(10, 100), rand(10, 100));
    }else if ($jenis_warna == 2){  //warna teks
        return imagecolorallocate($my_image, rand(0, 80), rand(0, 80), rand(0, 80));
    }
}

//menentukan warna latar. Disini warna latarnya saya acak.
imagefill($my_image, 0, 0, warna_acak());

// tambahkan noise - bintik-bintik. Sobat bisa pakai ini bisa juga tidak.
for ($c = 0; $c < 50; $c++){
    $x = rand(0,$width-1);
    $y = rand(0,$height-1);
    imagesetpixel($my_image, $x, $y, warna_acak(1));
}

//tambah garis menyilang
for ($hor = (rand(1, round($height / 2)) -$height); $hor < $width; $hor+=12){
    $warna = warna_acak(1);
    for ($ver = 0; $ver < $height; $ver++){
        imagesetpixel($my_image, ($hor + $ver), $ver, $warna);
    }
}
for ($hor = (rand(1, round($height / 2)) -$height); $hor < $width; $hor+=12){
    $warna = warna_acak(1);
    for ($ver = 0; $ver < $height; $ver++){
        imagesetpixel($my_image, ($hor + $ver), ($height - $ver), $warna);
    }
}

//buat gambar - sekalian mengacak posisi teks
$x = rand(5,30);
$y = rand(0,15);
imagestring($my_image, 9, $x, $y, substr($angka_acak, 0, 1), warna_acak(2));
$x += 12;
$y = rand(0,15);
imagestring($my_image, 9, $x, $y, substr($angka_acak, 1, 1), warna_acak(2));
$x += 12;
$y = rand(0,15);
imagestring($my_image, 9, $x, $y, substr($angka_acak, 2, 1), warna_acak(2));
$x += 12;
$y = rand(0,15);
imagestring($my_image, 9, $x, $y, substr($angka_acak, 3, 1), warna_acak(2));

imagejpeg($my_image);
imagedestroy($my_image);

?>

Untuk teks berwarna merah di atas adalah untuk menambahkan noda-noda titik, jika sobat tidak senang menggunakannya (mungkin akan kelihatan agak semrawut), bisa di-non-aktifkan. caranya tambahkan tanda // di depannya. Jadinya akan seperti begini:
//imagesetpixel($my_image, $x, $y, warna_acak(1));

File di atas adalah untuk membuat gambar captcha. Berikut ini adalah contoh form (html) yang menggunakan captcha di atas.

File 2. Contoh Form Pengisian Yang Menggunakan Captcha. (Nama file: tes_form.html)

Tes Penggunaan
Captcha

action="http://127.0.0.1/tes_respon.php"

>

   
   
   
   
   
   
   
   

Nama:
Alamat:
Konfirmasi :	Tulis kembali kode yang tertera pada gambar di bawah ini:     src="http://127.0.0.1/tes_captcha.php"

>
           type="text" maxlength="4" size="5"
       id="kodecaptcha" name="kodecaptcha" >
   
   

value="Reset" name="reset" type="reset">


Perhatikan teks berwarna merah, di sana tertulis "http://127.0.0.1". Ini diganti dengan alamat website anda. Berikut ini adalah file php untuk merespon data yang dikirim melalui file form di atas.

File 3. Contoh script PHP untuk merespon form di atas. (Nama file: tes_respon.php)

session_start();

$nama = $_POST['nama'];
$alamat = $_POST['alamat'];
$kodecaptcha = trim($_POST['kodecaptcha']);
$kodecaptcha_sebenarnya = trim($_SESSION['kode_captcha']);

//tulis hasil
echo "Tes Pengecekan Captcha<BR>===============
" .
    "Nama: $nama
" .
    "Alamat: $alamat
=============
";
echo "Kode captcha yg diinput: $kodecaptcha
" .
    "Kode captcha sebenarnya: $kodecaptcha_sebenarnya

Kesimpulan: ";

if ($kodecaptcha === $kodecaptcha_sebenarnya) {
    echo "Kode captcha BENAR";
}else{
    echo "Kode captcha SALAH";
}
?>

Selesai. Untuk kode lengkapnya bisa didownload di sini.
Ini adalah screenshot jika menjalankan program di atas:

Dalam tips VB kali ini, kita akan mencoba menyandikan teks atau password. Penyandian sangat diperlukan, agar setiap kata-kata yang rahasia yang tidak boleh diketahui oleh orang lain bisa dengan aman disimpan baik didalam program EXE ataupun dalam file lain. Jadi kalau ada yang coba-coba membongkar file EXE atau file penting lainnya yang telah disandikan, maka orang tersebut tidak akan dengan mudah mendapatkan teks aslinya. Kecuali kalau ia memang seorang hacker yang sangat tangguh.

Banyak teknik penyandian (enkripsi) yang telah dikembangkan saat ini, mulai dari yang sangat sederhana sampai pada yang amat kompleks dan aman. Dalam tips kali ini diberikan sebuah teknik sederhana namun kiranya sudah cukup aman untuk sebuah program kecil-kecilan. Teknik ini adalah kreasi dari John Clark Craig, bersumber dari bukunya yang berjudul Microsoft Visual Basic 4.0 Developer's Workshop Edisi Ketiga. Enkripsi ini adalah simetris, artinya teks yang telah dienkripsi bisa dikembalikan ke teks asalnya (dekripsi).

Berikut ini adalah kodenya (beberapa kodenya telah saya rubah sedikit untuk penyesuaian):

Function Cipher(TXT As String, Optional A As Integer, Optional B As Integer, Optional RV As Integer)
    Static R As Long
    Static M As Long
    Static N As Long
    Const BN As Long = 32768
    Dim I As Integer, C As Integer, D As Integer
    If IsMissing(RV) = False Then R = RV
    If IsMissing(A) Then
        If M = 0 Then M = 69
    Else
        M = (A * 4 + 1) Mod BN
    End If
    If IsMissing(B) Then
        If N = 0 Then N = 47
    Else
        N = (B * 2 + 1) Mod BN
    End If
    'proses setiap karakter
    For I = 1 To Len(TXT)
        C = Asc(Mid$(TXT, I, 1))
        'modifikasi khusus teks yg bisa dibaca saja
        Select Case C
        Case 48 To 57
            D = C - 48
        Case 63 To 90
            D = C - 53
        Case 97 To 122
            D = C - 59
        Case Else
            D = -1
        End Select
        If D >= 0 Then
            R = (R * M + N) Mod BN
            D = (R And 63) Xor D
            Select Case D
            Case 0 To 9
                C = D + 48
            Case 10 To 37
                C = D + 53
            Case 38 To 63
                C = D + 59
            End Select
            Mid$(TXT, I, 1) = Chr$(C)
        End If
    Next I
    Cipher = TXT
End Function

Perhatikan teks berwarna merah di atas (parameternya), TXT adalah teks yang akan dienkripsi/dekripsi. Sedangkan nilai A, B, dan RV bisa anda ganti-ganti. Setiap perubahan nilai A,B atau RV akan menghasilkan teks hasil enkripsi yang berbeda. Jadi anda bisa mengkombinasikannya.

Karena enkripsi ini adalah simetris, maka jika teks hasil enkripsi anda masukkan kembali ke fungsi di atas, akan menghasilkan teks aslinya kembali (tentunya menggunakan nilai A, B, dan RV yang sama dengan saat mengenkripsi).

Contoh menggunakan fungsi di atas adalah seperti berikut:

txtHasilEnkripsi.Text = Cipher(txtSumber.Text, 4, 6, 9)  
txtHasilDekripsi.Text = Cipher(txtHasilEnkripsi.Text, 4, 6, 9)

Kalau sobat mau melihat file source kode beserta contohnya. Source kode tersebut bila dijalankan, tampilannya adalah seperti pada gambar di atas.