SQL 2000 中文base64解密[续]，飞龙哥，F姐

boombacn 2010-06-04 03:43:04
话说上一贴英文解出来了，中文解不出来，得牛飞龙大大指点后，仍未解，那帖已沉，故新开一贴，望得解！


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
...全文
347 10 打赏 收藏 转发到动态 举报
写回复
用AI写文章
10 条回复
切换为时间正序
请发表友善的回复…
发表回复
huahua726 2012-09-10
  • 打赏
  • 举报
 回复
找了好久了，能搞定吗？
boombacn 2010-06-07
  • 打赏
  • 举报
 回复
同时感谢F姐姐友情出演
boombacn 2010-06-07
  • 打赏
  • 举报
 回复
我把两个函数都删掉，重新建了一次，又好了，感谢牛哥
boombacn 2010-06-07
  • 打赏
  • 举报
 回复
多谢飞龙哥，刚刚报了个错：
服务器: 消息 257，级别 16，状态 3，行 1
不允许从数据类型 varchar 到 varbinary 的隐性转换。请使用 CONVERT 函数来运行此查询。
feilniu 2010-06-04
  • 打赏
  • 举报
 回复
附送一个UCS2转UTF8的函数：


CREATE FUNCTION dbo.ucs2_to_utf8(

@ucs2 varbinary(max)

)

RETURNS varbinary(max)

AS

/*

U-00000000 ... U-0000007F 0xxxxxxx 

U-00000080 ... U-000007FF 110xxxxx 10xxxxxx 

U-00000800 ... U-0000FFFF 1110xxxx 10xxxxxx 10xxxxxx 

*/

BEGIN

	DECLARE

		@output varbinary(max),

		@i int,

		@code int

	SET @output = 0x

	SET @i = 1

	WHILE 1 = 1

	BEGIN

		SET @code = CAST(SUBSTRING(@ucs2,@i+1,1) + SUBSTRING(@ucs2,@i,1) AS int)

		IF @code = 0

			BREAK

		IF @code >= 0x0800

			SET @output = @output +

				CAST(@code / 4096 + 224 AS binary(1)) +

				CAST((@code % 4096) / 64 + 128 AS binary(1)) +

				CAST((@code % 4096) % 64 + 128 AS binary(1))

		ELSE IF @code >= 0x0080

			SET @output = @output +

				CAST(@code / 64 + 192 AS binary(1)) +

				CAST(@code % 64 + 128 AS binary(1))

		ELSE

			SET @output = @output + CAST(@code AS binary(1))

		SET @i = @i + 2

	END

	RETURN @output

END


不过用T-SQL做转码工作真不是什么好事，太麻烦了。用前端代码只要调一个函数就搞定了。
feilniu 2010-06-04
  • 打赏
  • 举报
 回复
终于写了一个转UTF-8的函数：


CREATE FUNCTION dbo.utf8_to_ucs2(

@utf8 varbinary(max)

)

RETURNS varbinary(max)

AS

BEGIN

	DECLARE

		@output varbinary(max),

		@i int,

		@next int,

		@code int,

		@tmp varbinary(1)

	SET @output = 0x

	SET @i = 1

	SET @next = 0

	WHILE 1 = 1

	BEGIN

		SET @tmp = SUBSTRING(@utf8,@i,1)

		IF @tmp = 0x

			BREAK

		IF @tmp BETWEEN 0x01 AND 0x7F

			SET @output = @output + @tmp + 0x00

		ELSE IF @tmp BETWEEN 0xC0 AND 0xDF

		BEGIN

			SET @code = (CAST(@tmp AS int) & 0x1F) * 64

			SET @next = 1

		END

		ELSE IF @tmp BETWEEN 0xE0 AND 0xEF

		BEGIN

			SET @code = (CAST(@tmp AS int) & 0x0F) * 4096

			SET @next = 2

		END

		ELSE IF @tmp BETWEEN 0x80 AND 0xBF AND @next IN (1,2)

		BEGIN

			IF @next = 1

			BEGIN

				SET @code = @code + (CAST(@tmp AS int) & 0x3F)

				SET @output = @output + CAST(NCHAR(@code) AS binary(2))

			END

			IF @next = 2

				SET @code = @code + (CAST(@tmp AS int) & 0x3F) * 64

			SET @next = @next - 1

		END

		ELSE

			RETURN NULL

		SET @i = @i + 1

	END

	RETURN @output

END


测试：


SELECT CAST(dbo.utf8_to_ucs2(dbo.base64_decode('6K+277yM6Kej5LiN5Ye65p2l5ZWK77yM5ZKL5Yqe5Yqe57G7')) AS nvarchar(max))

boombacn 2010-06-04
  • 打赏
  • 举报
 回复
难道真的是UTF8…………
feilniu 2010-06-04
  • 打赏
  • 举报
 回复 


CREATE FUNCTION dbo.base64_decode

(

@encoded_text varchar(max)

)

RETURNS varbinary(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 SUBSTRING(@output, 1, @decoded_length)

END

base64解码的函数改成这样，返回解码后的字节流，更具一般性。
根据返回的字节流（假定是@varbins）的字符集再转成字符串：
如果是ucs-2，直接CAST(@varbins AS nvarchar(max))；
如果是gb2312(GBK)，在数据库排序规则是"Chinese_PRC_CI_AS"的情况下CAST(@varbins AS varchar(max))；
如果是utf-8，只能自己写转换函数了。
Garnett_KG 2010-06-04
  • 打赏
  • 举报
 回复
你的DB的排序规则要指定成"Chinese_PRC_CI_AS"

--小F-- 2010-06-04
  • 打赏
  • 举报
 回复
继续帮顶
2019小白SQL入门（零基础60分钟含SQL语法问答精彩）
零基础60分钟含SQL语法问答精彩
AES对称加密实战——前端js加密后端python解密_前端aes加密
/ 加密// 将key解析为字节// 将iv解析为字节// AES加密 CBC模式 ZeroPadding});// 返回字符串//解密// 将数据编码成Base64格式// AES解密 CBC模式 ZeroPadding});// 返回字符串测试前端加解密：// 输出：AA2uUXaD4p/s6HcPbX3CGw==// 输出：123456。
AES对称加密实战——前端js加密后端python解密_前端aes加密(1)
Python编程学习，学习内容包含：语法、正则、文件、 网络、多线程等常用库，推荐《Python核心编程》，不要看完；在实际的渗透测试过程中，面对复杂多变的网络环境，当常用工具不能满足实际需求的时候，往往需要对现有工具进行扩展，或者编写符合我们要求的工具、自动化脚本，这个时候就需要具备一定的编程能力。恭喜你，如果学到这里，你基本可以从事一份网络安全相关的工作，比如渗透测试、Web 渗透、安全服务、安全分析等岗位；③漏洞扫描、漏洞利用、原理，利用方法、工具（MSF）、绕过IDS和反病毒侦察。
Polar靶场-MISC通关笔记
得到字符串MD5加密套上flag题目我的解答：根据题目脚本可知，这是将图片像素转换成对应数字保存到列表中。而且，可知flag.png的分辨率是33*33。运行结果已经给出，接下来就是将数字转换成对应的图片。观察结果可发现数据只有0和255，想到01二维码为了方便将运行结果处理一下：将255全部替换为1，并删除其他字符。根据注释得知图片为3333，将数据列为3333。可以看出来图片大致为一个二维码。运行后扫描二维码，结果MD5加密。
Pandas 秘籍：1~5
原文：Pandas Cookbook 协议：CC BY-NC-SA 4.0 译者：飞龙 一、Pandas 基础 在本章中，我们将介绍以下内容： 剖析数据帧的结构 访问主要的数据帧组件 了解数据类型 选择单列数据作为序列 调用序列方法 与运算符一起使用序列 将序列方法链接在一起 使索引有意义 重命名行和列名称 创建和删除列 介绍 本章的目的是通过彻底检查序列和数据帧数据结构来介绍 Pandas 的基础。 对于 Pandas 用户来说，了解序列和数据帧的每个组件，并了解 Pandas 中的每一列数据正好
疑难问题

22,209

社区成员

121,730

社区内容

发帖
与我相关
我的任务
社区描述
MS-SQL Server 疑难问题
社区管理员
  • 疑难问题社区
  • 尘觉
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章