Initial Kohana install

[speedfreak] / Server / system / libraries / drivers / Captcha / Word.php

diff --git a/Server/system/libraries/drivers/Captcha/Word.php b/Server/system/libraries/drivers/Captcha/Word.php
new file mode 100644 (file)
index 0000000..856bd9b
--- /dev/null
+++ b/Server/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
\ No newline at end of file