/lib/captcha/Captcha.class.php

https://github.com/opto/web2project · PHP · 267 lines · 189 code · 16 blank · 62 comment · 54 complexity · e89ae04755ece6ef1cad9ef740c7d5ee MD5 · raw file 

    

  1. <?php
    2. 

  2. /*
    3. 

  3. :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
    4. 

  4. ::
    5. 

  5. ::	Captcha Version 2.0 by László Zsidi, http://gifs.hu
    6. 

  6. ::
    7. 

  7. ::	This class is a rewritten 'Captcha.class.php' version.
    8. 

  8. ::
    9. 

  9. ::  Modification:
    10. 

  10. ::   - Simplified and easy code,
    11. 

  11. ::	 - Stable working
    12. 

  12. ::
    13. 

  13. ::
    14. 

  14. ::	Created at 2007. 02. 01. '07.47.AM'
    15. 

  15. ::
    16. 

  16. */
    17. 

  17. 

  18. define ( "ANIM_FRAMES",  5 );
    19. 

  19. define ( "ANIM_DELAYS", 10 );
    20. 

  20. 

  21. Class Captcha {
    22. 

  22. 	var $image;
    23. 

  23. 

  24. 	function Captcha ( $text, $font, $color )
    25. 

  25. 	{
    26. 

  26. 		$C              = HexDec ( $color );
    27. 

  27. 		$R              = floor ( $C / pow ( 256, 2 ) );
    28. 

  28. 		$G              = floor ( ( $C % pow ( 256, 2 ) ) / pow ( 256, 1 ) );
    29. 

  29. 		$B              = floor ( ( ( $C % pow ( 256, 2 ) ) % pow ( 256, 1 ) ) / pow ( 256, 0 ) );
    30. 

  30. 		$fsize          = 32;
    31. 

  31. 		$bound          = array ( );
    32. 

  32. 		$bound          = imageTTFBbox ( $fsize, 0, $font, $text );
    33. 

  33. 		$this->image    = imageCreateTrueColor ( $bound [ 4 ] + 5, abs($bound [ 5 ] ) + 15 );
    34. 

  34. 		imageFill       ( $this->image, 0, 0, ImageColorAllocate ( $this->image, 255, 255, 255 ) );
    35. 

  35. 		imagettftext    ( $this->image, $fsize, 0, 2, abs( $bound [ 5 ] ) + 5, ImageColorAllocate ( $this->image, $R, $G, $B ), $font, $text );
    36. 

  36. 	}
    37. 

  37. 	/*
    38. 

  38. 	:::::::::::::::::::::::::::::::::::::::::::::::::::
    39. 

  39. 	::
    40. 

  40. 	::	DoNoise...
    41. 

  41. 	::
    42. 

  42. 	*/
    43. 

  43. 	function DoNoise ( $image, $G0, $C0 ) {
    44. 

  44. 		$W = imageSX ( $image );
    45. 

  45. 		$H = imageSY ( $image );
    46. 

  46. 

  47. 		for ( $i = 0; $i < 768; $i++ ) {
    48. 

  48. 			$arrLUT [ $i ] = $i < 512 ? ( $i < 255 ? 0 : ( $i - 256 ) ) : 255;
    49. 

  49. 		}
    50. 

  50. 

  51. 		$G1 = $G0 / 2;
    52. 

  52. 		$C1 = $C0 / 2;
    53. 

  53. 		for ( $y = 0; $y < $H; $y++ ) {
    54. 

  54. 			for ( $x = 0; $x < $W; $x++ ) {
    55. 

  55. 				$P  = imageColorAt ( $image, $x, $y );
    56. 

  56. 				$R  = ( $P >> 16 ) & 0xFF;
    57. 

  57. 				$G  = ( $P >>  8 ) & 0xFF;
    58. 

  58. 				$B  = ( $P >>  0 ) & 0xFF;
    59. 

  59. 				$N  = rand ( 0, $G0 ) - $G1;
    60. 

  60. 				$R += 255 + $N + mt_rand ( 0, $C0 ) - $C1;
    61. 

  61. 				$G += 255 + $N + mt_rand ( 0, $C0 ) - $C1;
    62. 

  62. 				$B += 255 + $N + mt_rand ( 0, $C0 ) - $C1;
    63. 

  63. 				imageSetPixel ( $image, $x, $y, ( $arrLUT [ $R ] << 16 ) | ( $arrLUT [ $G ] << 8 ) | $arrLUT [ $B ] );
    64. 

  64. 			}
    65. 

  65. 		}
    66. 

  66. 	}
    67. 

  67. 	/*
    68. 

  68. 	:::::::::::::::::::::::::::::::::::::::::::::::::::
    69. 

  69. 	::
    70. 

  70. 	::	AnimatedOut...
    71. 

  71. 	::
    72. 

  72. 	*/
    73. 

  73. 	function AnimatedOut ( ) {
    74. 

  74. 

  75. 		for ( $i = 0; $i < ANIM_FRAMES; $i++ ) {
    76. 

  76. 			$image = imageCreateTrueColor ( imageSX ( $this->image ), imageSY ( $this->image ) );
    77. 

  77. 

  78.             if ( imageCopy ( $image, $this->image, 0, 0, 0, 0, imageSX ( $this->image ), imageSY ( $this->image ) ) ) {
    79. 

  79.             	Captcha::DoNoise ( $image, 200, 0 );
    80. 

  80. 

  81.             	Ob_Start		(			);
    82. 

  82.             	imageGif		( $image	);
    83. 

  83.             	imageDestroy	( $image	);
    84. 

  84. 

  85.             	$f_arr [ ] = Ob_Get_Contents ( );
    86. 

  86.             	$d_arr [ ] = ANIM_DELAYS;
    87. 

  87. 

  88.             	Ob_End_Clean	(			);
    89. 

  89.             }
    90. 

  90. 		}
    91. 

  91.         $GIF = new GIFEncoder ( $f_arr, $d_arr, 0, 2, -1, -1, -1, 'C_MEMORY' );
    92. 

  92.         return ( $GIF->GetAnimation ( ) );
    93. 

  93. 	}
    94. 

  94. }
    95. 

  95. /*
    96. 

  96. :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
    97. 

  97. ::
    98. 

  98. ::	GIFEncoder Version 2.0 by László Zsidi, http://gifs.hu
    99. 

  99. ::
    100. 

  100. ::	This class is a rewritten 'GifMerge.class.php' version.
    101. 

  101. ::
    102. 

  102. ::  Modification:
    103. 

  103. ::   - Simplified and easy code,
    104. 

  104. ::   - Ultra fast encoding,
    105. 

  105. ::   - Built-in errors,
    106. 

  106. ::	 - Stable working
    107. 

  107. ::
    108. 

  108. ::
    109. 

  109. ::	Created at 2007. 02. 01. '07.47.AM'
    110. 

  110. ::
    111. 

  111. */
    112. 

  112. Class GIFEncoder extends Captcha {
    113. 

  113. 	var $GIF = 'GIF89a';			/* GIF header 6 bytes	*/
    114. 

  114. 	var $VER = 'GIFEncoder V2.0';   /* Encoder version		*/
    115. 

  115. 

  116. 	var $ERR = Array (
    117. 

  117. 		"ERR00"=>"Does not supported function for only one image!",
    118. 

  118. 		"ERR01"=>"Source is not a GIF image!",
    119. 

  119.         "ERR02"=>"Unintelligible flag ",
    120. 

  120.         "ERR03"=>"Missing image descriptor block!<br>First byte of this block "
    121. 

  121. 	);
    122. 

  122. 

  123. 	function GIFEncoder (
    124. 

  124. 							$GIF_src, $GIF_tim, $GIF_lop, $GIF_dis,
    125. 

  125. 							$GIF_red, $GIF_grn, $GIF_blu, $GIF_mod
    126. 

  126. 						) {
    127. 

  127. 

  128. 		/*
    129. 

  129. 		:::::::::::::::::::::::::::::::::::::::::::::::::::
    130. 

  130. 		::
    131. 

  131. 		::	Set-up conditions & pre-processing frames...
    132. 

  132. 		::
    133. 

  133. 		*/
    134. 

  134. 		if ( ! is_array ( $GIF_src ) && ! is_array ( $GIF_tim ) ) {
    135. 

  135. 			printf	( "%s: %s", $this->VER, $this->ERR [ 'ERR00' ] );
    136. 

  136. 			exit	( 0 );
    137. 

  137. 		}
    138. 

  138. 		if ( $GIF_red > -1 && $GIF_grn > -1 && $GIF_blu > -1 ) {
    139. 

  139. 			$transColor = $GIF_red | ( $GIF_grn << 8 ) | ( $GIF_blu << 16 );
    140. 

  140. 		}
    141. 

  141. 		else {
    142. 

  142. 			$transColor = -1;
    143. 

  143. 		}
    144. 

  144. 		if ( $GIF_mod == 'C_FILE' ) {
    145. 

  145. 			for ( $i = 0; $i < count ( $GIF_src ); $i++ ) {
    146. 

  146. 				$GIF_buf [ ] = fread ( fopen ( $GIF_src [ $i ], "rb" ), filesize ( $GIF_src [ $i ] ) );
    147. 

  147. 				if ( substr ( $GIF_buf [ $i ], 0, 6 ) != 'GIF87a' && substr ( $GIF_buf [ $i ], 0, 6 ) != 'GIF89a' ) {
    148. 

  148. 					printf	( "%s: %d %s", $this->VER, $i, $this->ERR [ 'ERR01' ] );
    149. 

  149. 					exit	( 0 );
    150. 

  150. 				}
    151. 

  151. 			}
    152. 

  152. 		}
    153. 

  153. 		else if ( $GIF_mod == 'C_MEMORY' ) {
    154. 

  154. 			for ( $i = 0; $i < count ( $GIF_src ); $i++ ) {
    155. 

  155. 				$GIF_buf [ ] = $GIF_src [ $i ];
    156. 

  156. 				if ( substr ( $GIF_buf [ $i ], 0, 6 ) != 'GIF87a' && substr ( $GIF_buf [ $i ], 0, 6 ) != 'GIF89a' ) {
    157. 

  157. 					printf	( "%s: %d %s", $this->VER, $i, $this->ERR [ 'ERR01' ] );
    158. 

  158. 					exit	( 0 );
    159. 

  159. 				}
    160. 

  160. 			}
    161. 

  161. 		}
    162. 

  162. 		else {
    163. 

  163. 			printf	( "%s: %s ( %s )!", $this->VER, $this->ERR [ 'ERR02' ], $GIF_mod );
    164. 

  164. 			exit	( 0 );
    165. 

  165. 		}
    166. 

  166. 		/*
    167. 

  167. 		:::::::::::::::::::::::::::::::::::::::::::::::::::
    168. 

  168. 		::
    169. 

  169. 		::	Build & post-processing animation...
    170. 

  170. 		::
    171. 

  171. 		*/
    172. 

  172. 		for ( $i = 0; $i < count ( $GIF_buf ); $i++ ) {
    173. 

  173. 			$tranid = false;
    174. 

  174. 			$length = strlen ( $GIF_buf [ $i ] );
    175. 

  175. 			$seek_p = 14 + ( 3 * ( 2 << ( ord ( $GIF_buf [ $i ] { 10 } ) & 0x07 ) ) );
    176. 

  176. 

  177. 			if ( strlen ( $this->GIF ) == 6 ) {
    178. 

  178.                 $this->GIF .= substr ( $GIF_buf [ $i ], 6, $seek_p - 7 );
    179. 

  179.                 $this->GIF .= "\x21\xFF\x0B" . "NETSCAPE" . "\x32\x2E\x30\x03\x01" . chr ( $GIF_lop & 0xFF ) . chr ( $GIF_lop >> 8 ) . "\x00";
    180. 

  180. 			}
    181. 

  181. 			if ( ord ( substr ( $GIF_buf [ $i ], $seek_p - 1, 1 ) ) != 0x21 ) {
    182. 

  182.             	if ( $transColor > -1 ) {
    183. 

  183.             		$rgb =  substr ( $GIF_buf [ $i ], 14, 3 * ( 2 << ( ord ( $GIF_buf [ $i ] { 10 } ) & 0x07 ) ) );
    184. 

  184. 

  185.                 	for ( $j = 0; $j < ( 2 << ( ord ( $GIF_buf [ $i ] { 10 } ) & 0x07 ) ); $j++ ) {
    186. 

  186. 						if	(
    187. 

  187. 								ord ( $rgb { 3 * $j     } ) == ( ( $transColor >> 16 ) & 0xFF ) &&
    188. 

  188. 								ord ( $rgb { 3 * $j + 1 } ) == ( ( $transColor >>  8 ) & 0xFF ) &&
    189. 

  189. 								ord ( $rgb { 3 * $j + 2 } ) == ( ( $transColor >>  0 ) & 0xFF )
    190. 

  190. 							) {
    191. 

  191. 								$tranid = true;
    192. 

  192. 								break;
    193. 

  193. 						}
    194. 

  194.             		}
    195. 

  195. 					if ( $tranid && $j < 256 ) {
    196. 

  196. 							$GIF_buf [ $i ] .= chr ( 0x21 );
    197. 

  197. 							$GIF_buf [ $i ] .= chr ( 0xf9 );
    198. 

  198. 							$GIF_buf [ $i ] .= chr ( 0x04 );
    199. 

  199. 							$GIF_buf [ $i ] .= chr ( ( $GIF_dis << 2 ) + 1  );
    200. 

  200. 							$GIF_buf [ $i ] .= chr ( $GIF_tim [ $i ] & 0xFF );
    201. 

  201. 							$GIF_buf [ $i ] .= chr ( $GIF_tim [ $i ] >> 8   );
    202. 

  202. 							$GIF_buf [ $i ] .= chr ( $j );
    203. 

  203. 							$GIF_buf [ $i ] .= chr ( 0 );
    204. 

  204. 					}
    205. 

  205. 					else {
    206. 

  206. 							$GIF_buf [ $i ] .= chr ( 0x21 );
    207. 

  207. 							$GIF_buf [ $i ] .= chr ( 0xf9 );
    208. 

  208. 							$GIF_buf [ $i ] .= chr ( 0x04 );
    209. 

  209. 							$GIF_buf [ $i ] .= chr ( ( $GIF_dis << 2 ) + 0  );
    210. 

  210. 							$GIF_buf [ $i ] .= chr ( $GIF_tim [ $i ] & 0xFF );
    211. 

  211. 							$GIF_buf [ $i ] .= chr ( $GIF_tim [ $i ] >> 8   );
    212. 

  212. 							$GIF_buf [ $i ] .= chr ( 0 );
    213. 

  213. 							$GIF_buf [ $i ] .= chr ( 0 );
    214. 

  214. 					}
    215. 

  215.             	}
    216. 

  216.             	if ( ord ( $GIF_buf [ $i ] { $seek_p - 1 } ) != 0x2c ) {
    217. 

  217. 					printf	( "%s: %s ( 0x%x )", $this->VER, $this->ERR [ 'ERR03' ], ord ( substr ( $GIF_buf [ $i ], $seek_p - 1, 1 ) ) );
    218. 

  218. 					exit	( 0 );
    219. 

  219.             	}
    220. 

  220. 			}
    221. 

  221. 			else {
    222. 

  222.             	if ( $transColor > -1 ) {
    223. 

  223.             		$rgb =  substr ( $GIF_buf [ $i ], 14, 3 * ( 2 << ( ord ( $GIF_buf [ $i ] { 10 } ) & 0x07 ) ) );
    224. 

  224. 

  225.                 	for ( $j = 0; $j < ( 2 << ( ord ( $GIF_buf [ $i ] { 10 } ) & 0x07 ) ); $j++ ) {
    226. 

  226. 						if	(
    227. 

  227. 								ord ( $rgb { 3 * $j     } ) == ( ( $transColor >> 16 ) & 0xFF ) &&
    228. 

  228. 								ord ( $rgb { 3 * $j + 1 } ) == ( ( $transColor >>  8 ) & 0xFF ) &&
    229. 

  229. 								ord ( $rgb { 3 * $j + 2 } ) == ( ( $transColor >>  0 ) & 0xFF )
    230. 

  230. 							) {
    231. 

  231. 								$tranid = true;
    232. 

  232. 								break;
    233. 

  233. 						}
    234. 

  234.             		}
    235. 

  235. 					if ( $tranid && $j < 256 ) {
    236. 

  236. 							$GIF_buf [ $i ] { ( $seek_p - 1 ) + 3 } = chr ( ( $GIF_dis << 2 ) + 1  );
    237. 

  237. 							$GIF_buf [ $i ] { ( $seek_p - 1 ) + 4 } = chr ( $GIF_tim [ $i ] & 0xFF );
    238. 

  238. 							$GIF_buf [ $i ] { ( $seek_p - 1 ) + 5 } = chr ( $GIF_tim [ $i ] >> 8   );
    239. 

  239. 							$GIF_buf [ $i ] { ( $seek_p - 1 ) + 6 } = chr ( $j );
    240. 

  240. 					}
    241. 

  241. 					else {
    242. 

  242. 							$GIF_buf [ $i ] { ( $seek_p - 1 ) + 3 } = chr ( ( $GIF_dis << 2 ) + 0  );
    243. 

  243. 							$GIF_buf [ $i ] { ( $seek_p - 1 ) + 4 } = chr ( $GIF_tim [ $i ] & 0xFF );
    244. 

  244. 							$GIF_buf [ $i ] { ( $seek_p - 1 ) + 5 } = chr ( $GIF_tim [ $i ] >> 8   );
    245. 

  245. 							$GIF_buf [ $i ] { ( $seek_p - 1 ) + 6 } = chr ( 0 );
    246. 

  246. 					}
    247. 

  247.             	}
    248. 

  248.             	if ( ord ( $GIF_buf [ $i ] { ( $seek_p - 1 ) + 8 } ) != 0x2c ) {
    249. 

  249. 					printf	( "%s: %s ( 0x%x )", $this->VER, $this->ERR [ 'ERR03' ], ord ( substr ( $GIF_buf [ $i ], $seek_p - 1, 1 ) ) );
    250. 

  250. 					exit	( 0 );
    251. 

  251.             	}
    252. 

  252.             }
    253. 

  253.             $this->GIF	.= substr ( $GIF_buf [ $i ], $seek_p - 1, $length - $seek_p );
    254. 

  254. 		}
    255. 

  255. 		$this->GIF .= ";";
    256. 

  256. 	}
    257. 

  257. 	/*
    258. 

  258. 	:::::::::::::::::::::::::::::::::::::::::::::::::::
    259. 

  259. 	::
    260. 

  260. 	::	GetAnimation...
    261. 

  261. 	::
    262. 

  262. 	*/
    263. 

  263. 	function GetAnimation ( ) {
    264. 

  264. 		return ( $this->GIF );
    265. 

  265. 	}
    266. 

  266. } /* __END_OF_CLASS__ */
    267. 

  267. ?>
    268.