Imported Upstream version 0.6.24+dfsg1

lib/kohana/system/libraries/drivers/Captcha/Word.php

@@ -0,0 +1,37 @@
+<?php defined('SYSPATH') OR die('No direct access allowed.');
+/**
+ * Captcha driver for "word" style.
+ *
+ * $Id: Word.php 3769 2008-12-15 00:48:56Z zombor $
+ *
+ * @package    Captcha
+ * @author     Kohana Team
+ * @copyright  (c) 2007-2008 Kohana Team
+ * @license    http://kohanaphp.com/license.html
+ */
+class Captcha_Word_Driver extends Captcha_Basic_Driver {
+
+	/**
+	 * Generates a new Captcha challenge.
+	 *
+	 * @return  string  the challenge answer
+	 */
+	public function generate_challenge()
+	{
+		// Load words from the current language and randomize them
+		$words = Kohana::lang('captcha.words');
+		shuffle($words);
+
+		// Loop over each word...
+		foreach ($words as $word)
+		{
+			// ...until we find one of the desired length
+			if (abs(Captcha::$config['complexity'] - strlen($word)) < 2)
+				return strtoupper($word);
+		}
+
+		// Return any random word as final fallback
+		return strtoupper($words[array_rand($words)]);
+	}
+
+} // End Captcha Word Driver Class