source: spip-zone/_plugins_/antispam-recaptcha/recaptchalib.php @ 50455

Last change on this file since 50455 was 13831, checked in by fil@…, 14 years ago

un CFG mieux integre visuellement a l'espace prive, et qui etablit la liste des configurations accessibles ; et consequences sur quelques plugins (autorite, boutonstexte, etc)

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