Citata:
<?php
/**
* @Projektas: MightMedia TVS
* @Puslapis: www.coders.lt
* @$Author: FDisk $
* @copyright CodeRS ©2008
* @license GNU General Public License v2
* @$Revision: 13 $
* @$Date: 2009-05-03 22:27:19 +0300 (Sk, 03 Geg 2009) $
**/
session_start();
//SUGENERUOJA PATVIRTINIMO PAVEIKSLIUKA
header("Content-type: image/png" //nurodome narsyklei kad cia PNG paveiksliukas
header('Last-Modified: ' . gmdate('D, d M Y H:i:s', time()) . ' GMT'; //paveiksliuko galiojimo laikas - padarom kad galiotu iki dabar, todel jo nedes i podeli
$font = dirname(realpath(__file__)) . '/human_free.ttf'; // kelias iki srifto. pvz: arial.ttf
$im = @imagecreate(70, 40) //paveiksliuko dydis plotis/aukstis taskais
or die("Sistemos klaida. Nepalaiko GD"
$bg = imagecolorallocate($im, 204, 204, 204); //fono spalva
ImageColorTransparent($im, $bg); //fono spalva padarom permatoma
$fg = ImageColorAllocate($im, 170, 34, 17); //Raidziu spalva rgb(170, 34, 17)
$x = '5';
$code = '';
$code = random_name(5); //sugeneruojam atsitiktini koda
$_SESSION['code'] = $code;
ImageTTFText($im, 19, 0, $x, 30, $fg, $font, $code);
for ($i = 0; $i < 16; $i++) {
$color1 = imagecolorallocate($im, rand(0, 255), rand(0, 255), rand(0, 255));
imageline($im, rand(0, 70), rand(0, 40), rand(0, 70), rand(0, 40), $color1);
}
imagepng($im); //atvaizduojam paveiksliuka
imagedestroy($im); //isvalom atminti
unset($font, $im, $bg, $fg, $x, $rcode, $i);
/**
* Sugeneruojam atsitiktinæ frazæ
*
* @param frazës ilgis $i
* @return string
*/
function random_name($length = "" {
$code = md5(uniqid(rand(), true));
if ($length != ""
return strtoupper(substr($code, 0, $length));
else
return strtoupper($code);
}
?>