summaryrefslogtreecommitdiff
path: root/program/lib/utf7.inc
diff options
context:
space:
mode:
Diffstat (limited to 'program/lib/utf7.inc')
-rw-r--r--program/lib/utf7.inc572
1 files changed, 218 insertions, 354 deletions
diff --git a/program/lib/utf7.inc b/program/lib/utf7.inc
index a887958cf..9ea5f6db5 100644
--- a/program/lib/utf7.inc
+++ b/program/lib/utf7.inc
@@ -1,384 +1,248 @@
<?php
-//
-//
-// utf7.inc - Routines to encode bytes to UTF7 and decode UTF7 strings
-//
-// Copyright (C) 1999, 2002 Ziberex and Torben Rybner
-//
-//
-// Version 1.01 2002-06-08 19:00
-//
-// - Adapted for use in IlohaMail (modified UTF-7 decoding)
-// - Converted from C to PHP4
-//
-//
-// Version 1.00 1999-09-03 19:00
-//
-// - Encodes bytes to UTF7 strings
-// *OutString = '\0';
-// StartBase64Encode();
-// for (CP = InString; *CP; CP++)
-// strcat(OutString, Base64Encode(*CP));
-// strcat(OutString, StopBase64Encode());
-// - Decodes Base64 strings to bytes
-// StartBase64Decode();
-// for (CP1 = InString, CP2 = OutString; *CP1 && (*CP1 != '='); CP1++)
-// CP2 += Base64Decode(*CP1, CP2);
-// StopBase64Decode();
-//
-$BASE64LENGTH = 60;
-
-$BASE64DECODE_NO_DATA = -1;
-$BASE64DECODE_EMPTY_DATA = -2;
-$BASE64DECODE_INVALID_DATA = -3;
-
-
-//
-//
-// Used for conversion to UTF7
-//
-$_ToUTF7 = array
-(
- 'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O', 'P',
- 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z', 'a', 'b', 'c', 'd', 'e', 'f',
- 'g', 'h', 'i', 'j', 'k', 'l', 'm', 'n', 'o', 'p', 'q', 'r', 's', 't', 'u', 'v',
- 'w', 'x', 'y', 'z', '0', '1', '2', '3', '4', '5', '6', '7', '8', '9', '+', ','
-);
-
-//
-//
-// Used for conversion from UTF7
-// (0x80 => Illegal, 0x40 => CR/LF)
-//
-$_FromUTF7 = array
-(
- 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, // 00 - 07 - Ctrl -
- 0x80, 0x80, 0x40, 0x80, 0x80, 0x40, 0x80, 0x80, // 08 - 0F - Ctrl -
- 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, // 10 - 17 - Ctrl -
- 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, // 18 - 1F - Ctrl -
- 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, // 20 - 27 !"#$%&'
- 0x80, 0x80, 0x80, 0x3E, 0x3F, 0x80, 0x80, 0x3F, // 28 - 2F ()*+,-./
- 0x34, 0x35, 0x36, 0x37, 0x38, 0x39, 0x3A, 0x3B, // 30 - 37 01234567
- 0x3C, 0x3D, 0x80, 0x80, 0x80, 0x00, 0x80, 0x80, // 38 - 3F 89:;<=>?
- 0x80, 0x00, 0x01, 0x02, 0x03, 0x04, 0x05, 0x06, // 40 - 47 @ABCDEFG
- 0x07, 0x08, 0x09, 0x0A, 0x0B, 0x0C, 0x0D, 0x0E, // 48 - 4F HIJKLMNO
- 0x0F, 0x10, 0x11, 0x12, 0x13, 0x14, 0x15, 0x16, // 50 - 57 PQRSTUVW
- 0x17, 0x18, 0x19, 0x80, 0x80, 0x80, 0x80, 0x80, // 58 - 5F XYZ[\]^_
- 0x80, 0x1A, 0x1B, 0x1C, 0x1D, 0x1E, 0x1F, 0x20, // 60 - 67 `abcdefg
- 0x21, 0x22, 0x23, 0x24, 0x25, 0x26, 0x27, 0x28, // 68 - 6F hijklmno
- 0x29, 0x2A, 0x2B, 0x2C, 0x2D, 0x2E, 0x2F, 0x30, // 70 - 77 pqrstuvw
- 0x31, 0x32, 0x33, 0x80, 0x80, 0x80, 0x80, 0x80, // 78 - 7F xyz{|}~
-);
-
-
-//
-//
-// UTF7EncodeInit:
-//
-// Start the encoding of bytes
-//
-function UTF7EncodeInit(&$Context)
-{
- $Context[ "Data" ] = "";
- $Context[ "Count" ] = 0;
- $Context[ "Pos" ] = 0;
- $Context[ "State" ] = 0;
-} // UTF7EncodeInit
-
-
-//
-//
-// UTF7EncodeByte:
-//
-// Encodes one byte to UTF7
-//
-function UTF7EncodeByte(&$Context, $Byte)
-{
- global $_ToUTF7;
-
- $Byte = ord($Byte);
- switch ($Context[ "State" ])
- {
- case 0:
- // Convert into a byte
- $Context[ "Data" ] = $_ToUTF7[ $Byte >> 2 ];
- $Context[ "Pos" ]++;
- // Save residue for next converted byte
- $Context[ "Residue" ] = ($Byte & 0x03) << 4;
- // This is the first byte in this line
- $Context[ "Count" ] = 1;
- // Next state is 1
- $Context[ "State" ] = 1;
- break;
-
- case 1:
- // Convert into a byte
- $Context[ "Data" ] .= $_ToUTF7[ $Context[ "Residue" ] | ($Byte >> 4) ];
- $Context[ "Pos" ]++;
- // Save residue for next converted byte
- $Context[ "Residue" ] = ($Byte & 0x0F) << 2;
- // Bumb byte counter
- $Context[ "Count" ]++;
- // Next state is 2
- $Context[ "State" ] = 2;
- break;
-
- case 2:
- // Convert into a byte
- $Context[ "Data" ] .= $_ToUTF7[ $Context[ "Residue" ] | ($Byte >> 6) ];
- $Context[ "Pos" ]++;
- // Residue fits precisely into the next byte
- $Context[ "Data" ] .= $_ToUTF7[ $Byte & 0x3F ];
- $Context[ "Pos" ]++;
- // Bumb byte counter
- $Context[ "Count" ]++;
- // Next state is 3
- $Context[ "State" ] = 3;
- break;
-
- case 3:
- // Convert into a byte
- $Context[ "Data" ] .= $_ToUTF7[ $Byte >> 2 ];
- $Context[ "Pos" ]++;
- // Save residue for next converted byte
- $Context[ "Residue" ] = ($Byte & 0x03) << 4;
- // Bumb byte counter
- $Context[ "Count" ]++;
- // Next state is 1
- $Context[ "State" ] = 1;
- break;
-
- default:
- // printf("Internal error in UTF7Encode: State is %d\n", $Context[ "State" ]);
- // exit(1);
- break;
- }
-} // UTF7EncodeByte
-
-
-//
-//
-// UTF7EncodeFinal:
-//
-// Terminates the encoding of bytes
-//
-function UTF7EncodeFinal(&$Context)
-{
- if ($Context[ "State" ] == 0)
- return "";
- if ($Context[ "State" ] != 3)
- UTF7EncodeByte($Context, "\0");
- return $Context[ "Data" ];
-} // UTF7EncodeFinal
-
-
-//
-//
-// UTF7EncodeString
-//
-// Encodes a string to modified UTF-7 format
-//
-function UTF7EncodeString($String)
+/*
+ * Copyright (C) 2000 Edmund Grimley Evans <edmundo@rano.org>
+ *
+ * This program is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 2 of the License, or
+ * (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ * GNU General Public License for more details.
+ *
+ * Translated from C to PHP by Thomas Bruederli <roundcube@gmail.com>
+ */
+
+
+/**
+ * Convert the data ($str) from RFC 2060's UTF-7 to UTF-8.
+ * If input data is invalid, return the original input string.
+ * RFC 2060 obviously intends the encoding to be unique (see
+ * point 5 in section 5.1.3), so we reject any non-canonical
+ * form, such as &ACY- (instead of &-) or &AMA-&AMA- (instead
+ * of &AMAAwA-).
+ */
+function utf7_to_utf8($str)
{
- // Not during encoding, yet
- $Encoding = false;
- // Go through the string
- for ($I = 0; $I < strlen($String); $I++)
+ $Index_64 = array(
+ -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1,
+ -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1,
+ -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,62, 63,-1,-1,-1,
+ 52,53,54,55, 56,57,58,59, 60,61,-1,-1, -1,-1,-1,-1,
+ -1, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9,10, 11,12,13,14,
+ 15,16,17,18, 19,20,21,22, 23,24,25,-1, -1,-1,-1,-1,
+ -1,26,27,28, 29,30,31,32, 33,34,35,36, 37,38,39,40,
+ 41,42,43,44, 45,46,47,48, 49,50,51,-1, -1,-1,-1,-1
+ );
+
+ $u7len = strlen($str);
+ $p = $err = '';
+
+ for ($i=0; $u7len > 0; $i++, $u7len--)
{
- $Ch = substr($String, $I, 1);
- if (ord($Ch) > 0x7F)
+ $u7 = $str{$i};
+ if ($u7 == '&')
{
- if (! $Encoding)
+ $i++;
+ $u7len--;
+ $u7 = $str{$i};
+
+ if ($u7len && $u7 == '-')
{
- $RetVal .= "&";
- $Encoding = true;
- // Initialise UTF7 context
- UTF7EncodeInit($Context);
+ $p .= '&';
+ continue;
}
- UTF7EncodeByte($Context, "\0");
- UTF7EncodeByte($Context, $Ch);
- }
- elseif ($Ch == "&")
- {
- if (! $Encoding)
- {
- $RetVal .= "&";
- $Encoding = true;
- // Initialise UTF7 context
- UTF7EncodeInit($Context);
- }
- else
+
+ $ch = 0;
+ $k = 10;
+ for (; $u7len > 0; $i++, $u7len--)
{
- UTF7EncodeByte($Context, "\0");
- UTF7EncodeByte($Context, $Ch);
+ $u7 = $str{$i};
+
+ if ((ord($u7) & 0x80) || ($b = $Index_64[ord($u7)]) == -1)
+ break;
+
+ if ($k > 0)
+ {
+ $ch |= $b << $k;
+ $k -= 6;
+ }
+ else
+ {
+ $ch |= $b >> (-$k);
+ if ($ch < 0x80)
+ {
+ /* Printable US-ASCII */
+ if (0x20 <= $ch && $ch < 0x7f)
+ return $err;
+ $p .= chr($ch);
+ }
+ else if ($ch < 0x800)
+ {
+ $p .= chr(0xc0 | ($ch >> 6));
+ $p .= chr(0x80 | ($ch & 0x3f));
+ }
+ else
+ {
+ $p .= chr(0xe0 | ($ch >> 12));
+ $p .= chr(0x80 | (($ch >> 6) & 0x3f));
+ $p .= chr(0x80 | ($ch & 0x3f));
+ }
+
+ $ch = ($b << (16 + $k)) & 0xffff;
+ $k += 10;
+ }
}
+
+ /* Non-zero or too many extra bits */
+ if ($ch || $k < 6)
+ return $err;
+
+ /* BASE64 not properly terminated */
+ if (!$u7len || $u7 != '-')
+ return $err;
+
+ /* Adjacent BASE64 sections */
+ if ($u7len > 2 && $str{$i+1} == '&' && $str{$i+2} != '-')
+ return $err;
}
+ /* Not printable US-ASCII */
+ else if (ord($u7) < 0x20 || ord($u7) >= 0x7f)
+ return $err;
else
- {
- if ($Encoding)
- {
- $RetVal .= UTF7EncodeFinal($Context) . "-$Ch";
- $Encoding = false;
- }
- else
- $RetVal .= $Ch;
- }
+ $p .= $u7;
}
- if ($Encoding)
- $RetVal .= UTF7EncodeFinal($Context) . "-";
- return $RetVal;
-} // UTF7EncodeString
-
-//
-//
-// UTF7DecodeInit:
-//
-// Start the decoding of bytes
-//
-function UTF7DecodeInit(&$Context)
-{
- $Context[ "Data" ] = "";
- $Context[ "State" ] = 0;
- $Context[ "Pos" ] = 0;
-} // UTF7DecodeInit
+ return $p;
+}
-//
-//
-// UTF7DecodeByte:
-//
-// Decodes one character from UTF7
-//
-function UTF7DecodeByte(&$Context, $Byte)
+/**
+ * Convert the data ($str) from UTF-8 to RFC 2060's UTF-7.
+ * Unicode characters above U+FFFF are replaced by U+FFFE.
+ * If input data is invalid, return an empty string.
+ */
+function utf8_to_utf7($str)
{
- global $BASE64DECODE_INVALID_DATA;
- global $_FromUTF7;
-
- // Restore bits
- $Byte = $_FromUTF7[ ord($Byte) ];
- // Ignore carriage returns and linefeeds
- if ($Byte == 0x40)
- return "";
- // Invalid byte - Tell caller!
- if ($Byte == 0x80)
- $Context[ "Count" ] = $BASE64DECODE_INVALID_DATA;
- switch ($Context[ "State" ])
+ $B64Chars = array(
+ 'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O',
+ 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z', 'a', 'b', 'c', 'd',
+ 'e', 'f', 'g', 'h', 'i', 'j', 'k', 'l', 'm', 'n', 'o', 'p', 'q', 'r', 's',
+ 't', 'u', 'v', 'w', 'x', 'y', 'z', '0', '1', '2', '3', '4', '5', '6', '7',
+ '8', '9', '+', ','
+ );
+
+ $u8len = strlen($str);
+ $base64 = $i = 0;
+ $p = $err = '';
+
+ while ($u8len)
{
- case 0:
- // Save residue
- $Context[ "Residue" ] = $Byte;
- // Initialise count
- $Context[ "Count" ] = 0;
- // Next state
- $Context[ "State" ] = 1;
- break;
-
- case 1:
- // Store byte
- $Context[ "Data" ] .= chr(($Context[ "Residue" ] << 2) | ($Byte >> 4));
- $Context[ "Pos" ]++;
- // Update count
- $Context[ "Count" ]++;
- // Save residue
- $Context[ "Residue" ] = $Byte;
- // Next state
- $Context[ "State" ] = 2;
- break;
-
- case 2:
- // Store byte
- $Context[ "Data" ] .= chr(($Context[ "Residue" ] << 4) | ($Byte >> 2));
- $Context[ "Pos" ]++;
- // Update count
- $Context[ "Count" ]++;
- // Save residue
- $Context[ "Residue" ] = $Byte;
- // Next state
- $Context[ "State" ] = 3;
- break;
-
- case 3:
- // Store byte
- $Context[ "Data" ] .= chr(($Context[ "Residue" ] << 6) | $Byte);
- $Context[ "Pos" ]++;
- // Update count
- $Context[ "Count" ]++;
- // Next state
- $Context[ "State" ] = 4;
- break;
+ $u8 = $str{$i};
+ $c = ord($u8);
+
+ if ($c < 0x80)
+ {
+ $ch = $c;
+ $n = 0;
+ }
+ else if ($c < 0xc2)
+ return $err;
+ else if ($c < 0xe0)
+ {
+ $ch = $c & 0x1f;
+ $n = 1;
+ }
+ else if ($c < 0xf0)
+ {
+ $ch = $c & 0x0f;
+ $n = 2;
+ }
+ else if ($c < 0xf8)
+ {
+ $ch = $c & 0x07;
+ $n = 3;
+ }
+ else if ($c < 0xfc)
+ {
+ $ch = $c & 0x03;
+ $n = 4;
+ }
+ else if ($c < 0xfe)
+ {
+ $ch = $c & 0x01;
+ $n = 5;
+ }
+ else
+ return $err;
- case 4:
- // Save residue
- $Context[ "Residue" ] = $Byte;
- // Next state
- $Context[ "State" ] = 1;
- break;
- }
-} // UTF7DecodeByte
+ $i++;
+ $u8len--;
+ if ($n > $u8len)
+ return $err;
-//
-//
-// UTF7DecodeFinal:
-//
-// Decodes one character from UTF7
-//
-function UTF7DecodeFinal(&$Context)
-{
- // Buffer not empty - Return remainder!
- if ($Context[ "Count" ])
- {
- $Context[ "Pos" ] = 0;
- $Context[ "State" ] = 0;
- return $Context[ "Data" ];
- }
- return "";
-} // UTF7DecodeFinal
-
-
-//
-//
-// UTF7DecodeString
-//
-// Converts a string encoded in modified UTF-7 encoding
-// to ISO 8859-1.
-// OBS: Works only for valid ISO 8859-1 characters in the
-// encoded data
-//
-function UTF7DecodeString($String)
-{
- $Decoding = false;
- for ($I = 0; $I < strlen($String); $I++)
- {
- $Ch = substr($String, $I, 1);
- if ($Decoding)
+ for ($j=0; $j < $n; $j++)
{
- if ($Ch == "-")
- {
- $RetVal .= UTF7DecodeFinal($Context);
- $Decoding = false;
- }
- else
- UTF7DecodeByte($Context, $Ch);
+ $o = ord($str{$i+$j});
+ if (($o & 0xc0) != 0x80)
+ return $err;
+ $ch = ($ch << 6) | ($o & 0x3f);
}
- elseif ($Ch == "&")
+
+ if ($n > 1 && !($ch >> ($n * 5 + 1)))
+ return $err;
+
+ $i += $n;
+ $u8len -= $n;
+
+ if ($ch < 0x20 || $ch >= 0x7f)
{
- if (($I < strlen($String) - 1) && (substr($String, $I + 1, 1) == "-"))
+ if (!$base64)
{
- $RetVal .= $Ch;
- $I++;
+ $p .= '&';
+ $base64 = 1;
+ $b = 0;
+ $k = 10;
}
- else
+ if ($ch & ~0xffff)
+ $ch = 0xfffe;
+
+ $p .= $B64Chars[($b | $ch >> $k)];
+ $k -= 6;
+ for (; $k >= 0; $k -= 6)
+ $p .= $B64Chars[(($ch >> $k) & 0x3f)];
+
+ $b = ($ch << (-$k)) & 0x3f;
+ $k += 16;
+ }
+ else
+ {
+ if ($base64)
{
- UTF7DecodeInit($Context);
- $Decoding = true;
+ if ($k > 10)
+ $p .= $B64Chars[$b];
+ $p .= '-';
+ $base64 = 0;
}
+
+ $p .= chr($ch);
+ if (chr($ch) == '&')
+ $p .= '-';
}
- else
- $RetVal .= $Ch;
}
- return str_replace("\0", "", $RetVal);
-} // UTF7DecodeString
+
+ if ($base64)
+ {
+ if ($k > 10)
+ $p .= $B64Chars[$b];
+ $p .= '-';
+ }
+
+ return $p;
+}
+
?>