3 function encodeBASE64($s) {
4 $B64Chars = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+,';
5 $p = 0; // phase: 1 / 2 / 3 / 1 / 2 / 3...
6 $e = ''; // base64-encoded string
8 for ($i = 0; $i < strlen($s); $i++
) {
11 $e = $e . substr($B64Chars, ((ord($c) & 252) >> 2), 1);
15 $e = $e . $B64Chars[($t << 4) +
((ord($c) & 240) >> 4)];
19 $e = $e . $B64Chars[($t << 2) +
((ord($c) & 192) >> 6)];
20 $e = $e . $B64Chars[ord($c) & 63];
28 $e = $e . $B64Chars[$t << 4];
30 $e = $e . $B64Chars[$t << 2];
35 function imap_utf7_encode_local($s) {
36 $b64_s = ''; // buffer for substring to be base64-encoded
37 $utf7_s = ''; // imap-utf7-encoded string
38 for ($i = 0; $i < strlen($s); $i++
) {
41 if ((($ord_c >= 0x20) and ($ord_c <= 0x25)) or
42 (($ord_c >= 0x27) and ($ord_c <= 0x7e))) {
44 $utf7_s = $utf7_s . '&' . encodeBASE64($b64_s) .'-';
47 $utf7_s = $utf7_s . $c;
48 } elseif ($ord_c == 0x26) {
50 $utf7_s = $utf7_s . '&' . encodeBASE64($b64_s) . '-';
53 $utf7_s = $utf7_s . '&-';
55 $b64_s = $b64_s . chr(0) . $c;
62 $utf7_s = $utf7_s . '&' . encodeBASE64($b64_s) . '-';