A very useful verification code tool

A very useful verification code tool

<无详细内容> /** * Verification code */ Class Base_Tool_Verify { /** * Verification code generation method */ Public static function createCode (){ // Generate a verification code Image // All numbers $ Str = "D, B, 2, 3, 4, 5, 6, 8, 9, A, B, C, D, E, F, G, H, W, J, K, M, m, N, K, P, Q, R, S, T, U, V, W, X, Y, Z "; // you can add or delete the characters to be displayed. $ List = explode (",", $ str ); $ Cmax = count ($ list)-1; $ VerifyCode = ''; For ($ I = 0; $ I <4; $ I ++ ){ $ Randnum = mt_rand (0, $ cmax ); $ VerifyCode. = $ list [$ randnum]; // extract the characters and combine them into the verification code characters. } $ _ SESSION ['code'] = $ verifyCode; // put the characters in the SESSION $ Im = imagecreate (); // generate an image $ Black = imagecolorallocate ($ im, 0, 0, 0); // set the color of the bar and the following three items $ White = imagecolorallocate ($ im, 244,249,244 ); $ Gray = imagecolorallocate ($ im, rand (200,255), rand (200,255), rand (200,255 )); $ Red = imagecolorallocate ($ im, rand (200,255), rand (200,255), rand (200,255 )); $ Rand_color = imagecolorallocate ($ im, rand (0,255), rand (0,255), rand (0,255 )); $ Rand_color2 = imagecolorallocate ($ im, rand (0,255), rand (0,255), rand (0,255 )); Imagefill ($ im, $ white); // fill the color of the image $ Pix = imagecolorallocate ($ im, rand (0,255), rand (0,255), rand (0,255 )); Mt_srand (); For ($ I = 0; I I <100; $ I ++) { Imagesetpixel ($ im, mt_rand (0,180), mt_rand (), $ pix ); } Imageline ($ im, 0, rand (0, 28), 80, rand (0, 28), $ rand_color ); Imageline ($ im, 0, rand (0, 28), 80, rand (0, 28), $ rand_color2 ); // Print the verification code into the image $ Mycolor = imagecolorallocate ($ im, 0, 78,152 ); $ Path = API_PATH.DS. 'base'. DS. 'tool '; Putenv ('gdfontpath = '. $ path ); $ Font = 'simhei. ttf '; $ Arrstr = str_split ($ verifyCode ); Imagettftext ($ im, 20, rand (0, 50), 10, rand (20, 30), $ mycolor, $ font, $ arrstr [0]); Imagettftext ($ im, 15, rand (0, 50), 20, rand (20, 30), $ mycolor, $ font, $ arrstr [1]); Imagettftext ($ im, 15, rand (0, 50), 30, rand (20, 30), $ mycolor, $ font, $ arrstr [2]); Imagettftext ($ im, 15, rand (0, 50), 40, rand (20, 30), $ mycolor, $ font, $ arrstr [3]); $ Font2 = imagecolorallocate ($ im, 41,163,238 ); Imagerectangle ($ im, 0, 0, 1, 1, $ font2 ); Imagepng ($ im ); Imagedestroy ($ im ); } }