求SQL 2000 中文BASE64解码

Question

各位大大，我已经用网上找来的函数，解了非中文的码了，但中文解不出来，一解就是乱的，请帮忙看看，下面是非中文的解码程序：CREATE   FUNCTION   base64_decode  
  (  
      @encoded_text   varchar(8000)  
  )  
  RETURNS    
                      varchar(6000)  
  AS   BEGIN  
  --local   variables  
  DECLARE  
      @output                       varchar(8000),  
      @block_start             int,  
      @encoded_length       int,  
      @decoded_length       int,  
      @mapr                           binary(122)  
  --IF   @encoded_text   COLLATE   LATIN1_GENERAL_BIN  
  --   LIKE   '%[^ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/=]%'  
  --           COLLATE   LATIN1_GENERAL_BIN  
  --     RETURN   NULL  
  --IF   LEN(@encoded_text)   &   3   >   0  
  --     RETURN   NULL  
  SET   @output       =   ''  
  --   The   nth   byte   of   @mapr   contains   the   base64   value  
  --   of   the   character   with   an   ASCII   value   of   n.  
  --   EG,   65th   byte   =   0x00   =   0   =   value   of   'A'  
  SET   @mapr   =  
      0xFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF   --   1-33  
  +   0xFFFFFFFFFFFFFFFFFFFF3EFFFFFF3F3435363738393A3B3C3DFFFFFF00FFFFFF   --   33-64  
  +   0x000102030405060708090A0B0C0D0E0F10111213141516171819FFFFFFFFFFFF   --   65-96  
  +   0x1A1B1C1D1E1F202122232425262728292A2B2C2D2E2F30313233   --   97-122  
  --get   the   number   of   blocks   to   be   decoded  
  SET   @encoded_length   =   LEN(@encoded_text)  
  SET   @decoded_length   =   @encoded_length   /   4   *   3  
  --for   each   block  
  SET   @block_start   =   1  
  WHILE   @block_start   <   @encoded_length   BEGIN  
      --decode   the   block   and   add   to   output  
      --BINARY   values   between   1   and   4   bytes   can   be   implicitly   cast   to   INT  
      SET   @output   =   @output   +     CAST(CAST(CAST(  
        substring(   @mapr,   ascii(   substring(   @encoded_text,   @block_start         ,   1)   ),   1)   *   262144  
    +   substring(   @mapr,   ascii(   substring(   @encoded_text,   @block_start   +   1,   1)   ),   1)   *   4096  
    +   substring(   @mapr,   ascii(   substring(   @encoded_text,   @block_start   +   2,   1)   ),   1)   *   64  
    +   substring(   @mapr,   ascii(   substring(   @encoded_text,   @block_start   +   3,   1)   ),   1)    
        AS   INTEGER)   AS   BINARY(3))   AS   VARCHAR(3))  
      SET   @block_start   =   @block_start   +   4  
  END  
  IF   RIGHT(@encoded_text,   2)   =   '=='  
    SET   @decoded_length   =   @decoded_length   -   2  
  ELSE   IF   RIGHT(@encoded_text,   1)   =   '='  
    SET   @decoded_length   =   @decoded_length   -   1  
  --IF   SUBSTRING(@output,   @decoded_length,   1)   =   CHAR(0)  
  --   SET   @decoded_length   =   @decoded_length   -   1  
  --return   the   decoded   string  
  RETURN   LEFT(@output,   @decoded_length)  
  END  
  GO   

Answer 1

稍微做了一下修改：CREATE FUNCTION dbo.base64_decode
(
@encoded_text varchar(max)
)
RETURNS varchar(max)
AS
BEGIN
DECLARE
@output varbinary(max),
@block_start int,
@encoded_length int,
@decoded_length int,
@mapr binary(122)
IF LEN(@encoded_text) & 3 > 0
OR @encoded_text LIKE '%[^ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/=]%' COLLATE Latin1_General_Bin
RETURN NULL
SET @output = 0x
-- The nth byte of @mapr contains the base64 value of the character with an ASCII value of n.
-- eg. 65th byte = 0x00 = 0 = value of 'A'
SET @mapr =
  0xFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF -- 1-33
+ 0xFFFFFFFFFFFFFFFFFFFF3EFFFFFF3F3435363738393A3B3C3DFFFFFF00FFFFFF -- 33-64
+ 0x000102030405060708090A0B0C0D0E0F10111213141516171819FFFFFFFFFFFF -- 65-96
+ 0x1A1B1C1D1E1F202122232425262728292A2B2C2D2E2F30313233 -- 97-122
--get the number of blocks to be decoded
SET @encoded_length = LEN(@encoded_text)
SET @decoded_length = @encoded_length / 4 * 3
--for each block
SET @block_start = 1
WHILE @block_start < @encoded_length
BEGIN
--decode the block and add to output
--BINARY values between 1 and 4 bytes can be implicitly cast to INT
SET @output = @output +
CAST(CAST(
  SUBSTRING(@mapr, ASCII(SUBSTRING(@encoded_text, @block_start    , 1)), 1) * 262144
+ SUBSTRING(@mapr, ASCII(SUBSTRING(@encoded_text, @block_start + 1, 1)), 1) * 4096
+ SUBSTRING(@mapr, ASCII(SUBSTRING(@encoded_text, @block_start + 2, 1)), 1) * 64
+ SUBSTRING(@mapr, ASCII(SUBSTRING(@encoded_text, @block_start + 3, 1)), 1)
AS int) AS binary(3))
SET @block_start = @block_start + 4
END
IF RIGHT(@encoded_text, 2) = '=='
SET @decoded_length = @decoded_length - 2
ELSE IF RIGHT(@encoded_text, 1) = '='
SET @decoded_length = @decoded_length - 1
RETURN LEFT(CAST(@output AS varchar(max)), @decoded_length)
END
GO要求数据库的排序规则为Chinese_PRC_xxxx类型的。测试：SELECT dbo.base64_decode('VGhpcyBpcyBhbiBFbmdsaXNoIHRleHQgd2l0aCBBU0NJSSBjaGFyYWN0ZXJzLg==')
SELECT dbo.base64_decode('1eLKx9K7vuRnYjIzMTKx4MLrtcS88szl1tDOxM7Esb6how==')
这个函数写得真牛。
不过这种编码转换的工作，最好还是前端代码处理掉，毕竟T-SQL在这方面不擅长。

Answer 2

哦，SS2000不支持varchar(max)，把函数中的max全改成8000就可以了。

Answer 3

Chinese_PRC_CI_AS是排序规则，它包含了指定数据库varchar类型为GBK编码。
详见SQLServer中文处理。

Answer 4

feilniu老大，XX，我解出来还是乱码…………

Answer 5

alter FUNCTION dbo.base64_decode
(
@encoded_text varchar(8000)
)
RETURNS varchar(8000)
AS
BEGIN
DECLARE
    @output varbinary(8000),
    @block_start int,
    @encoded_length int,
    @decoded_length int,
    @mapr binary(122)
IF LEN(@encoded_text) & 3 > 0
    OR @encoded_text LIKE '%[^ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/=]%' COLLATE Latin1_General_Bin
    RETURN NULL
SET @output = 0x
-- The nth byte of @mapr contains the base64 value of the character with an ASCII value of n.
-- eg. 65th byte = 0x00 = 0 = value of 'A'
SET @mapr =
          0xFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF -- 1-33
        + 0xFFFFFFFFFFFFFFFFFFFF3EFFFFFF3F3435363738393A3B3C3DFFFFFF00FFFFFF -- 33-64
        + 0x000102030405060708090A0B0C0D0E0F10111213141516171819FFFFFFFFFFFF -- 65-96
        + 0x1A1B1C1D1E1F202122232425262728292A2B2C2D2E2F30313233 -- 97-122
--get the number of blocks to be decoded
SET @encoded_length = LEN(@encoded_text)
SET @decoded_length = @encoded_length / 4 * 3
--for each block
SET @block_start = 1
WHILE @block_start < @encoded_length
BEGIN
    --decode the block and add to output
    --BINARY values between 1 and 4 bytes can be implicitly cast to INT
    SET @output = @output +
        CAST(CAST(
              SUBSTRING(@mapr, ASCII(SUBSTRING(@encoded_text, @block_start    , 1)), 1) * 262144
            + SUBSTRING(@mapr, ASCII(SUBSTRING(@encoded_text, @block_start + 1, 1)), 1) * 4096
            + SUBSTRING(@mapr, ASCII(SUBSTRING(@encoded_text, @block_start + 2, 1)), 1) * 64
            + SUBSTRING(@mapr, ASCII(SUBSTRING(@encoded_text, @block_start + 3, 1)), 1)
        AS int) AS binary(3))
    SET @block_start = @block_start + 4
END
IF RIGHT(@encoded_text, 2) = '=='
    SET @decoded_length = @decoded_length - 2
ELSE IF RIGHT(@encoded_text, 1) = '='
    SET @decoded_length = @decoded_length - 1
RETURN LEFT(CAST(@output AS varchar(8000)), @decoded_length)
END
GO

Answer 6

我执行你的这句：
SELECT dbo.base64_decode('1eLKx9K7vuRnYjIzMTKx4MLrtcS88szl1tDOxM7Esb6how==')
出来是正常的啊：这是一句gb2312编码的简体中文文本。

Answer 7

6K+277yM6Kej5LiN5Ye65p2l5ZWK77yM5ZKL5Yqe5Yqe57G7这个

Answer 8

这个用的是UTF-8字符编码。
方案见：http://topic.csdn.net/u/20100604/15/a4e1cf03-b973-4049-b1ac-ffde1329955d.html