1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
<?php
/**
* @author Paulius Dambrauskas
* @copyright 2009
*/
session_start();
header("Content-type: image/png");
header('Last-Modified: ' . gmdate('D, d M Y H:i:s', time()) . ' GMT');
//kuriam paveikslėlį
$im = @imagecreate(70, 40) or die("Nepavyko sukurti paveikslėlio.");
//fono spalva (RGB)
$bg = imagecolorallocate($im, 204, 204, 204);
//permatoma? (jei nenori užkomentuok)
ImageColorTransparent($im, $bg);
//teksto spalva
$text_color = imagecolorallocate($im, 25, 25, 112);
//atsitiktinis kodas
$code = substr(md5(uniqid(rand(), true)), 0, 5);
//sukuriam sesiją
$_SESSION['code'] = $code;
//užrašom kodą
imagestring($im, 6, 14, 14, $_SESSION['code'], $text_color);
//pripiešiam linijų
for ($i = 0; $i < 6; $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);
imagedestroy($im);
//išsaugom šį kodą kaip 'code.php' ir įterpiam į norimą vietą <img src="code.php">
?>
|
FDisk (2009-04-30 03:29:08 ) 
padarysiu.
Bet manau skelbimu modulis padėtų pritraukt daugiau naujų žmonių ant MM TVS
, na iš ties skelbimai yra mano sąraše nemokamų modulių.
