annotate sites/all/modules/recaptcha/recaptcha-php-1.11/recaptchalib.php @ 9:830c812b520f

added smtp module
author root <root@paio.local>
date Mon, 28 Oct 2013 15:34:27 +0000
parents b74b41bb73f0
children
rev   line source
danielebarchiesi@2 1 <?php
danielebarchiesi@2 2 /*
danielebarchiesi@2 3 * This is a PHP library that handles calling reCAPTCHA.
danielebarchiesi@2 4 * - Documentation and latest version
danielebarchiesi@2 5 * http://recaptcha.net/plugins/php/
danielebarchiesi@2 6 * - Get a reCAPTCHA API Key
danielebarchiesi@2 7 * https://www.google.com/recaptcha/admin/create
danielebarchiesi@2 8 * - Discussion group
danielebarchiesi@2 9 * http://groups.google.com/group/recaptcha
danielebarchiesi@2 10 *
danielebarchiesi@2 11 * Copyright (c) 2007 reCAPTCHA -- http://recaptcha.net
danielebarchiesi@2 12 * AUTHORS:
danielebarchiesi@2 13 * Mike Crawford
danielebarchiesi@2 14 * Ben Maurer
danielebarchiesi@2 15 *
danielebarchiesi@2 16 * Permission is hereby granted, free of charge, to any person obtaining a copy
danielebarchiesi@2 17 * of this software and associated documentation files (the "Software"), to deal
danielebarchiesi@2 18 * in the Software without restriction, including without limitation the rights
danielebarchiesi@2 19 * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
danielebarchiesi@2 20 * copies of the Software, and to permit persons to whom the Software is
danielebarchiesi@2 21 * furnished to do so, subject to the following conditions:
danielebarchiesi@2 22 *
danielebarchiesi@2 23 * The above copyright notice and this permission notice shall be included in
danielebarchiesi@2 24 * all copies or substantial portions of the Software.
danielebarchiesi@2 25 *
danielebarchiesi@2 26 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
danielebarchiesi@2 27 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
danielebarchiesi@2 28 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
danielebarchiesi@2 29 * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
danielebarchiesi@2 30 * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
danielebarchiesi@2 31 * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
danielebarchiesi@2 32 * THE SOFTWARE.
danielebarchiesi@2 33 */
danielebarchiesi@2 34
danielebarchiesi@2 35 /**
danielebarchiesi@2 36 * The reCAPTCHA server URL's
danielebarchiesi@2 37 */
danielebarchiesi@2 38 define("RECAPTCHA_API_SERVER", "http://www.google.com/recaptcha/api");
danielebarchiesi@2 39 define("RECAPTCHA_API_SECURE_SERVER", "https://www.google.com/recaptcha/api");
danielebarchiesi@2 40 define("RECAPTCHA_VERIFY_SERVER", "www.google.com");
danielebarchiesi@2 41
danielebarchiesi@2 42 /**
danielebarchiesi@2 43 * Encodes the given data into a query string format
danielebarchiesi@2 44 * @param $data - array of string elements to be encoded
danielebarchiesi@2 45 * @return string - encoded request
danielebarchiesi@2 46 */
danielebarchiesi@2 47 function _recaptcha_qsencode ($data) {
danielebarchiesi@2 48 $req = "";
danielebarchiesi@2 49 foreach ( $data as $key => $value )
danielebarchiesi@2 50 $req .= $key . '=' . urlencode( stripslashes($value) ) . '&';
danielebarchiesi@2 51
danielebarchiesi@2 52 // Cut the last '&'
danielebarchiesi@2 53 $req=substr($req,0,strlen($req)-1);
danielebarchiesi@2 54 return $req;
danielebarchiesi@2 55 }
danielebarchiesi@2 56
danielebarchiesi@2 57
danielebarchiesi@2 58
danielebarchiesi@2 59 /**
danielebarchiesi@2 60 * Submits an HTTP POST to a reCAPTCHA server
danielebarchiesi@2 61 * @param string $host
danielebarchiesi@2 62 * @param string $path
danielebarchiesi@2 63 * @param array $data
danielebarchiesi@2 64 * @param int port
danielebarchiesi@2 65 * @return array response
danielebarchiesi@2 66 */
danielebarchiesi@2 67 function _recaptcha_http_post($host, $path, $data, $port = 80) {
danielebarchiesi@2 68
danielebarchiesi@2 69 $req = _recaptcha_qsencode ($data);
danielebarchiesi@2 70
danielebarchiesi@2 71 $http_request = "POST $path HTTP/1.0\r\n";
danielebarchiesi@2 72 $http_request .= "Host: $host\r\n";
danielebarchiesi@2 73 $http_request .= "Content-Type: application/x-www-form-urlencoded;\r\n";
danielebarchiesi@2 74 $http_request .= "Content-Length: " . strlen($req) . "\r\n";
danielebarchiesi@2 75 $http_request .= "User-Agent: reCAPTCHA/PHP\r\n";
danielebarchiesi@2 76 $http_request .= "\r\n";
danielebarchiesi@2 77 $http_request .= $req;
danielebarchiesi@2 78
danielebarchiesi@2 79 $response = '';
danielebarchiesi@2 80 if( false == ( $fs = @fsockopen($host, $port, $errno, $errstr, 10) ) ) {
danielebarchiesi@2 81 die ('Could not open socket');
danielebarchiesi@2 82 }
danielebarchiesi@2 83
danielebarchiesi@2 84 fwrite($fs, $http_request);
danielebarchiesi@2 85
danielebarchiesi@2 86 while ( !feof($fs) )
danielebarchiesi@2 87 $response .= fgets($fs, 1160); // One TCP-IP packet
danielebarchiesi@2 88 fclose($fs);
danielebarchiesi@2 89 $response = explode("\r\n\r\n", $response, 2);
danielebarchiesi@2 90
danielebarchiesi@2 91 return $response;
danielebarchiesi@2 92 }
danielebarchiesi@2 93
danielebarchiesi@2 94
danielebarchiesi@2 95
danielebarchiesi@2 96 /**
danielebarchiesi@2 97 * Gets the challenge HTML (javascript and non-javascript version).
danielebarchiesi@2 98 * This is called from the browser, and the resulting reCAPTCHA HTML widget
danielebarchiesi@2 99 * is embedded within the HTML form it was called from.
danielebarchiesi@2 100 * @param string $pubkey A public key for reCAPTCHA
danielebarchiesi@2 101 * @param string $error The error given by reCAPTCHA (optional, default is null)
danielebarchiesi@2 102 * @param boolean $use_ssl Should the request be made over ssl? (optional, default is false)
danielebarchiesi@2 103
danielebarchiesi@2 104 * @return string - The HTML to be embedded in the user's form.
danielebarchiesi@2 105 */
danielebarchiesi@2 106 function recaptcha_get_html ($pubkey, $error = null, $use_ssl = false)
danielebarchiesi@2 107 {
danielebarchiesi@2 108 if ($pubkey == null || $pubkey == '') {
danielebarchiesi@2 109 die ("To use reCAPTCHA you must get an API key from <a href='https://www.google.com/recaptcha/admin/create'>https://www.google.com/recaptcha/admin/create</a>");
danielebarchiesi@2 110 }
danielebarchiesi@2 111
danielebarchiesi@2 112 if ($use_ssl) {
danielebarchiesi@2 113 $server = RECAPTCHA_API_SECURE_SERVER;
danielebarchiesi@2 114 } else {
danielebarchiesi@2 115 $server = RECAPTCHA_API_SERVER;
danielebarchiesi@2 116 }
danielebarchiesi@2 117
danielebarchiesi@2 118 $errorpart = "";
danielebarchiesi@2 119 if ($error) {
danielebarchiesi@2 120 $errorpart = "&amp;error=" . $error;
danielebarchiesi@2 121 }
danielebarchiesi@2 122 return '<script type="text/javascript" src="'. $server . '/challenge?k=' . $pubkey . $errorpart . '"></script>
danielebarchiesi@2 123
danielebarchiesi@2 124 <noscript>
danielebarchiesi@2 125 <iframe src="'. $server . '/noscript?k=' . $pubkey . $errorpart . '" height="300" width="500" frameborder="0"></iframe><br/>
danielebarchiesi@2 126 <textarea name="recaptcha_challenge_field" rows="3" cols="40"></textarea>
danielebarchiesi@2 127 <input type="hidden" name="recaptcha_response_field" value="manual_challenge"/>
danielebarchiesi@2 128 </noscript>';
danielebarchiesi@2 129 }
danielebarchiesi@2 130
danielebarchiesi@2 131
danielebarchiesi@2 132
danielebarchiesi@2 133
danielebarchiesi@2 134 /**
danielebarchiesi@2 135 * A ReCaptchaResponse is returned from recaptcha_check_answer()
danielebarchiesi@2 136 */
danielebarchiesi@2 137 class ReCaptchaResponse {
danielebarchiesi@2 138 var $is_valid;
danielebarchiesi@2 139 var $error;
danielebarchiesi@2 140 }
danielebarchiesi@2 141
danielebarchiesi@2 142
danielebarchiesi@2 143 /**
danielebarchiesi@2 144 * Calls an HTTP POST function to verify if the user's guess was correct
danielebarchiesi@2 145 * @param string $privkey
danielebarchiesi@2 146 * @param string $remoteip
danielebarchiesi@2 147 * @param string $challenge
danielebarchiesi@2 148 * @param string $response
danielebarchiesi@2 149 * @param array $extra_params an array of extra variables to post to the server
danielebarchiesi@2 150 * @return ReCaptchaResponse
danielebarchiesi@2 151 */
danielebarchiesi@2 152 function recaptcha_check_answer ($privkey, $remoteip, $challenge, $response, $extra_params = array())
danielebarchiesi@2 153 {
danielebarchiesi@2 154 if ($privkey == null || $privkey == '') {
danielebarchiesi@2 155 die ("To use reCAPTCHA you must get an API key from <a href='https://www.google.com/recaptcha/admin/create'>https://www.google.com/recaptcha/admin/create</a>");
danielebarchiesi@2 156 }
danielebarchiesi@2 157
danielebarchiesi@2 158 if ($remoteip == null || $remoteip == '') {
danielebarchiesi@2 159 die ("For security reasons, you must pass the remote ip to reCAPTCHA");
danielebarchiesi@2 160 }
danielebarchiesi@2 161
danielebarchiesi@2 162
danielebarchiesi@2 163
danielebarchiesi@2 164 //discard spam submissions
danielebarchiesi@2 165 if ($challenge == null || strlen($challenge) == 0 || $response == null || strlen($response) == 0) {
danielebarchiesi@2 166 $recaptcha_response = new ReCaptchaResponse();
danielebarchiesi@2 167 $recaptcha_response->is_valid = false;
danielebarchiesi@2 168 $recaptcha_response->error = 'incorrect-captcha-sol';
danielebarchiesi@2 169 return $recaptcha_response;
danielebarchiesi@2 170 }
danielebarchiesi@2 171
danielebarchiesi@2 172 $response = _recaptcha_http_post (RECAPTCHA_VERIFY_SERVER, "/recaptcha/api/verify",
danielebarchiesi@2 173 array (
danielebarchiesi@2 174 'privatekey' => $privkey,
danielebarchiesi@2 175 'remoteip' => $remoteip,
danielebarchiesi@2 176 'challenge' => $challenge,
danielebarchiesi@2 177 'response' => $response
danielebarchiesi@2 178 ) + $extra_params
danielebarchiesi@2 179 );
danielebarchiesi@2 180
danielebarchiesi@2 181 $answers = explode ("\n", $response [1]);
danielebarchiesi@2 182 $recaptcha_response = new ReCaptchaResponse();
danielebarchiesi@2 183
danielebarchiesi@2 184 if (trim ($answers [0]) == 'true') {
danielebarchiesi@2 185 $recaptcha_response->is_valid = true;
danielebarchiesi@2 186 }
danielebarchiesi@2 187 else {
danielebarchiesi@2 188 $recaptcha_response->is_valid = false;
danielebarchiesi@2 189 $recaptcha_response->error = $answers [1];
danielebarchiesi@2 190 }
danielebarchiesi@2 191 return $recaptcha_response;
danielebarchiesi@2 192
danielebarchiesi@2 193 }
danielebarchiesi@2 194
danielebarchiesi@2 195 /**
danielebarchiesi@2 196 * gets a URL where the user can sign up for reCAPTCHA. If your application
danielebarchiesi@2 197 * has a configuration page where you enter a key, you should provide a link
danielebarchiesi@2 198 * using this function.
danielebarchiesi@2 199 * @param string $domain The domain where the page is hosted
danielebarchiesi@2 200 * @param string $appname The name of your application
danielebarchiesi@2 201 */
danielebarchiesi@2 202 function recaptcha_get_signup_url ($domain = null, $appname = null) {
danielebarchiesi@2 203 return "https://www.google.com/recaptcha/admin/create?" . _recaptcha_qsencode (array ('domains' => $domain, 'app' => $appname));
danielebarchiesi@2 204 }
danielebarchiesi@2 205
danielebarchiesi@2 206 function _recaptcha_aes_pad($val) {
danielebarchiesi@2 207 $block_size = 16;
danielebarchiesi@2 208 $numpad = $block_size - (strlen ($val) % $block_size);
danielebarchiesi@2 209 return str_pad($val, strlen ($val) + $numpad, chr($numpad));
danielebarchiesi@2 210 }
danielebarchiesi@2 211
danielebarchiesi@2 212 /* Mailhide related code */
danielebarchiesi@2 213
danielebarchiesi@2 214 function _recaptcha_aes_encrypt($val,$ky) {
danielebarchiesi@2 215 if (! function_exists ("mcrypt_encrypt")) {
danielebarchiesi@2 216 die ("To use reCAPTCHA Mailhide, you need to have the mcrypt php module installed.");
danielebarchiesi@2 217 }
danielebarchiesi@2 218 $mode=MCRYPT_MODE_CBC;
danielebarchiesi@2 219 $enc=MCRYPT_RIJNDAEL_128;
danielebarchiesi@2 220 $val=_recaptcha_aes_pad($val);
danielebarchiesi@2 221 return mcrypt_encrypt($enc, $ky, $val, $mode, "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0");
danielebarchiesi@2 222 }
danielebarchiesi@2 223
danielebarchiesi@2 224
danielebarchiesi@2 225 function _recaptcha_mailhide_urlbase64 ($x) {
danielebarchiesi@2 226 return strtr(base64_encode ($x), '+/', '-_');
danielebarchiesi@2 227 }
danielebarchiesi@2 228
danielebarchiesi@2 229 /* gets the reCAPTCHA Mailhide url for a given email, public key and private key */
danielebarchiesi@2 230 function recaptcha_mailhide_url($pubkey, $privkey, $email) {
danielebarchiesi@2 231 if ($pubkey == '' || $pubkey == null || $privkey == "" || $privkey == null) {
danielebarchiesi@2 232 die ("To use reCAPTCHA Mailhide, you have to sign up for a public and private key, " .
danielebarchiesi@2 233 "you can do so at <a href='http://www.google.com/recaptcha/mailhide/apikey'>http://www.google.com/recaptcha/mailhide/apikey</a>");
danielebarchiesi@2 234 }
danielebarchiesi@2 235
danielebarchiesi@2 236
danielebarchiesi@2 237 $ky = pack('H*', $privkey);
danielebarchiesi@2 238 $cryptmail = _recaptcha_aes_encrypt ($email, $ky);
danielebarchiesi@2 239
danielebarchiesi@2 240 return "http://www.google.com/recaptcha/mailhide/d?k=" . $pubkey . "&c=" . _recaptcha_mailhide_urlbase64 ($cryptmail);
danielebarchiesi@2 241 }
danielebarchiesi@2 242
danielebarchiesi@2 243 /**
danielebarchiesi@2 244 * gets the parts of the email to expose to the user.
danielebarchiesi@2 245 * eg, given johndoe@example,com return ["john", "example.com"].
danielebarchiesi@2 246 * the email is then displayed as john...@example.com
danielebarchiesi@2 247 */
danielebarchiesi@2 248 function _recaptcha_mailhide_email_parts ($email) {
danielebarchiesi@2 249 $arr = preg_split("/@/", $email );
danielebarchiesi@2 250
danielebarchiesi@2 251 if (strlen ($arr[0]) <= 4) {
danielebarchiesi@2 252 $arr[0] = substr ($arr[0], 0, 1);
danielebarchiesi@2 253 } else if (strlen ($arr[0]) <= 6) {
danielebarchiesi@2 254 $arr[0] = substr ($arr[0], 0, 3);
danielebarchiesi@2 255 } else {
danielebarchiesi@2 256 $arr[0] = substr ($arr[0], 0, 4);
danielebarchiesi@2 257 }
danielebarchiesi@2 258 return $arr;
danielebarchiesi@2 259 }
danielebarchiesi@2 260
danielebarchiesi@2 261 /**
danielebarchiesi@2 262 * Gets html to display an email address given a public an private key.
danielebarchiesi@2 263 * to get a key, go to:
danielebarchiesi@2 264 *
danielebarchiesi@2 265 * http://www.google.com/recaptcha/mailhide/apikey
danielebarchiesi@2 266 */
danielebarchiesi@2 267 function recaptcha_mailhide_html($pubkey, $privkey, $email) {
danielebarchiesi@2 268 $emailparts = _recaptcha_mailhide_email_parts ($email);
danielebarchiesi@2 269 $url = recaptcha_mailhide_url ($pubkey, $privkey, $email);
danielebarchiesi@2 270
danielebarchiesi@2 271 return htmlentities($emailparts[0]) . "<a href='" . htmlentities ($url) .
danielebarchiesi@2 272 "' onclick=\"window.open('" . htmlentities ($url) . "', '', 'toolbar=0,scrollbars=0,location=0,statusbar=0,menubar=0,resizable=0,width=500,height=300'); return false;\" title=\"Reveal this e-mail address\">...</a>@" . htmlentities ($emailparts [1]);
danielebarchiesi@2 273
danielebarchiesi@2 274 }
danielebarchiesi@2 275
danielebarchiesi@2 276
danielebarchiesi@2 277 ?>