SQL2005存储过程解密

转载自:http://blog.csdn.net/friendliu/archive/2010/04/13/5481461.aspx

 

一 什么是DAC
   SQL Server 2005 为管理员提供了一种特殊的诊断连接，以供在无法与服务器建立标准连接时使用。即使在 SQL Server 不响应标准连接请求时，管理员也可以使用这种连接访问 SQL Server，以便执行诊断查询并解决问题。命令行界面 (sqlcmd) 通过使用特殊的管理员开关 (-A)，提供并支持这种专用管理员连接 (DAC)。
二如何使用DAC登录到服务器
1 本机DAC登录
命令行方式下执行  sqlcmd -A -S sql服务器名
2  远程DAC登录
  1) 打开远程DAC选项
    '程序'->'Sql Server2005'->  '配置工具'-> 'Sql Server  外围应用配置器'-> '功能的外围应用配置器'-> 'DataBase Engine'->  'DAC' -> '启用远程DAC'
  2)  登录到远程服务器
  sqlcmd -A -S 192.168.0.1 -U sa -P 123456
3  登录后, 可以通过查询动态管理视图来诊断问题

1.使用 DAC 与服务器连接
在 SQL Server Management Studio 中，不打开其他 DAC，单击工具栏上的“数据库引擎查询”。
在“连接到数据库引擎”对话框的“服务器名称”框中，键入 ADMIN:，并在其后继续键入服务器实例的名称。例如，若要连接到名为 ACCT\PAYABLE 的服务器实例，请键入 ADMIN:ACCT\PAYABLE。
完成“身份验证”部分（提供 sysadmin 组成员的凭据），然后单击“连接”。将建立连接。

2.DAC设置可以连接，

0 - 指明仅允许本地连接使用 DAC
1 - 指明允许远程连接使用 DAC
sp_configure 'remote admin connections', 1;
GO
RECONFIGURE;
GO

 

在STUDIO DAC模试下执行或在sqlcmd -A -o c:\1.txt模式下执行，输出文件

DECLARE @return_value int

EXEC @return_value = [dbo].[sp_undecrypt]
  @procedure = testencry,
  @revfl = 0

SELECT 'Return Value' = @return_value

GO

解密存储过程如下：

                  

  1 Create PROCEDURE [ dbo ] . [ sp_undecrypt ]     
  2 ( @procedure sysname = NULL , @revfl int = 1 )    
  3 AS     
  4 /**//*    
  5 王成辉翻译整理，转贴请注明出自微软BI开拓者www.windbi.com   
  6 调用形式为：   
  7 exec dbo.sp__windbi$decrypt @procedure,0   
  8 如果第二个参数使用1的话，会给出该存储过程的一些提示。   
  9 --版本4.0  修正存储过程过长解密出来是空白的问题   
10 */     
11 SET NOCOUNT ON     
12 IF @revfl = 1     
13 BEGIN     
14 PRINT ' 警告：该存储过程会删除并重建原始的存储过程。 '     
15 PRINT ' 在运行该存储过程之前确保你的数据库有一个备份。 '     
16 PRINT ' 该存储过程通常应该运行在产品环境的一个备份的非产品环境下。 '     
17 PRINT ' 为了运行这个存储过程，将参数@refl的值更改为0。 '     
18 RETURN 0     
19 END     
20 DECLARE @intProcSpace bigint , @t bigint , @maxColID smallint , @procNameLength int     
21 select @maxColID = max (subobjid) FROM     
22 sys.sysobjvalues WHERE objid = object_id ( @procedure )    
23 -- select @maxColID as 'Rows in sys.sysobjvalues'    
24 select @procNameLength = datalength ( @procedure ) + 29     
25 DECLARE @real_01 nvarchar ( max )    
26 DECLARE @fake_01 nvarchar ( max )    
27 DECLARE @fake_encrypt_01 nvarchar ( max )    
28 DECLARE @real_decrypt_01 nvarchar ( max ), @real_decrypt_01a nvarchar ( max )    
29 declare @objtype varchar ( 2 ), @ParentName nvarchar ( max )    
30 select @real_decrypt_01a = ''     
31 -- 提取对象的类型如是存储过程还是函数，如果是触发器，还要得到其父对象的名称    
32 select @objtype = type, @parentname = object_name (parent_object_id)    
33 from sys.objects where [ object_id ] = object_id ( @procedure )    
34 -- 从sys.sysobjvalues里提出加密的imageval记录    
35 SET @real_01 = ( SELECT top 1 imageval FROM sys.sysobjvalues WHERE objid =     
36 object_id ( @procedure ) and valclass = 1 order by subobjid)    
37     
38 -- 创建一个临时表    
39 create table #output ( [ ident ] [ int ] IDENTITY ( 1 , 1 ) NOT NULL ,    
40 [ real_decrypt ] NVARCHAR ( MAX ) )    
41 -- 开始一个事务，稍后回滚    
42 BEGIN TRAN     
43 -- 更改原始的存储过程，用短横线替换    
44 if @objtype = ' P '     
45   SET @fake_01 = ' ALTER PROCEDURE ' + @procedure + ' WITH ENCRYPTION AS select 1    
46   /**//* ' + REPLICATE ( cast ( ' * ' as nvarchar ( max )), datalength ( @real_01 ) / 2 - @procNameLength ) + ' */ '     
47 else if @objtype = ' FN '     
48   SET @fake_01 = ' ALTER FUNCTION ' + @procedure + ' () RETURNS INT WITH ENCRYPTION AS BEGIN RETURN 1    
49   /**//* ' + REPLICATE ( cast ( ' * ' as nvarchar ( max )), datalength ( @real_01 ) / 2 - @procNameLength ) + ' */ END '     
50 else if @objtype = ' V '     
51   SET @fake_01 = ' ALTER view ' + @procedure + ' WITH ENCRYPTION AS select 1 as col    
52   /**//* ' + REPLICATE ( cast ( ' * ' as nvarchar ( max )), datalength ( @real_01 ) / 2 - @procNameLength ) + ' */ '     
53 else if @objtype = ' TR '     
54   SET @fake_01 = ' ALTER trigger ' + @procedure + ' ON ' + @parentname + ' WITH ENCRYPTION AFTER INSERT AS RAISERROR ( '' N '' ,16,10)    
55   /**//* ' + REPLICATE ( cast ( ' * ' as nvarchar ( max )), datalength ( @real_01 ) / 2 - @procNameLength ) + ' */ '     
56 EXECUTE ( @fake_01 )    
57 -- 从sys.sysobjvalues里提出加密的假的    
58 SET @fake_encrypt_01 = ( SELECT top 1 imageval FROM sys.sysobjvalues WHERE objid =     
59 object_id ( @procedure ) and valclass = 1 order by subobjid )    
60 if @objtype = ' P '     
61   SET @fake_01 = ' Create PROCEDURE ' + @procedure + ' WITH ENCRYPTION AS select 1    
62   /**//* ' + REPLICATE ( cast ( ' * ' as nvarchar ( max )), datalength ( @real_01 ) / 2 - @procNameLength ) + ' */ '     
63 else if @objtype = ' FN '     
64   SET @fake_01 = ' CREATE FUNCTION ' + @procedure + ' () RETURNS INT WITH ENCRYPTION AS BEGIN RETURN 1    
65   /**//* ' + REPLICATE ( cast ( ' * ' as nvarchar ( max )), datalength ( @real_01 ) / 2 - @procNameLength ) + ' */ END '     
66 else if @objtype = ' V '     
67   SET @fake_01 = ' Create view ' + @procedure + ' WITH ENCRYPTION AS select 1 as col    
68   /**//* ' + REPLICATE ( cast ( ' * ' as nvarchar ( max )), datalength ( @real_01 ) / 2 - @procNameLength ) + ' */ '     
69 else if @objtype = ' TR '     
70   SET @fake_01 = ' Create trigger ' + @procedure + ' ON ' + @parentname + ' WITH ENCRYPTION AFTER INSERT AS RAISERROR ( '' N '' ,16,10)    
71   /**//* ' + REPLICATE ( cast ( ' * ' as nvarchar ( max )), datalength ( @real_01 ) / 2 - @procNameLength ) + ' */ '     
72 -- 开始计数    
73 SET @intProcSpace = 1     
74 -- 使用字符填充临时变量    
75 SET @real_decrypt_01 = replicate ( cast ( ' A ' as nvarchar ( max )), ( datalength ( @real_01 ) / 2 ))    
76 -- 循环设置每一个变量，创建真正的变量    
77 -- 每次一个字节    
78 SET @intProcSpace = 1     
79 -- 如有必要，遍历每个@real_xx变量并解密    
80 WHILE @intProcSpace <= ( datalength ( @real_01 ) / 2 )    
81 BEGIN     
82 -- 真的和假的和加密的假的进行异或处理    
83 SET @real_decrypt_01 = stuff ( @real_decrypt_01 , @intProcSpace , 1 ,    
84 NCHAR ( UNICODE ( substring ( @real_01 , @intProcSpace , 1 )) ^     
85 ( UNICODE ( substring ( @fake_01 , @intProcSpace , 1 )) ^     
86 UNICODE ( substring ( @fake_encrypt_01 , @intProcSpace , 1 )))))    
87 SET @intProcSpace = @intProcSpace + 1     
88 END     
89     
90     
91 -- 通过sp_helptext逻辑向表#output里插入变量    
92 insert #output (real_decrypt) select @real_decrypt_01     
93 -- select real_decrypt AS '#output chek' from #output --测试    
94 -- -------------------------------------    
95 -- 开始从sp_helptext提取    
96 -- -------------------------------------    
97 declare @dbname sysname    
98 , @BlankSpaceAdded int     
99 , @BasePos int     
100 , @CurrentPos int     
101 , @TextLength int     
102 , @LineId int     
103 , @AddOnLen int     
104 , @LFCR int -- 回车换行的长度    
105 , @DefinedLength int     
106 , @SyscomText nvarchar ( max )    
107 , @Line nvarchar ( 255 )    
108 Select @DefinedLength = 255     
109 SELECT @BlankSpaceAdded = 0 -- 跟踪行结束的空格。注意Len函数忽略了多余的空格    
110 CREATE TABLE #CommentText    
111 (LineId int     
112 , Text nvarchar ( 255 ) collate database_default)    
113 -- 使用#output代替sys.sysobjvalues    
114 DECLARE ms_crs_syscom CURSOR LOCAL    
115 FOR SELECT real_decrypt from #output    
116 ORDER BY ident    
117 FOR READ ONLY     
118 -- 获取文本    
119 SELECT @LFCR = 2     
120 SELECT @LineId = 1     
121 OPEN ms_crs_syscom    
122 FETCH NEXT FROM ms_crs_syscom into @SyscomText     
123 WHILE @@fetch_status >= 0     
124 BEGIN     
125 SELECT @BasePos = 1     
126 SELECT @CurrentPos = 1     
127 SELECT @TextLength = LEN ( @SyscomText )    
128 WHILE @CurrentPos != 0     
129 BEGIN     
130 -- 通过回车查找行的结束    
131 SELECT @CurrentPos = CHARINDEX ( char ( 13 ) + char ( 10 ), @SyscomText ,    
132 @BasePos )    
133 -- 如果找到回车    
134 IF @CurrentPos != 0     
135 BEGIN     
136 -- 如果@Lines的长度的新值比设置的大就插入@Lines目前的内容并继续    
137 While ( isnull ( LEN ( @Line ), 0 ) + @BlankSpaceAdded +     
138 @CurrentPos - @BasePos + @LFCR ) > @DefinedLength     
139 BEGIN     
140 SELECT @AddOnLen = @DefinedLength - ( isnull ( LEN ( @Line ), 0 ) +     
141 @BlankSpaceAdded )    
142 INSERT #CommentText VALUES     
143 ( @LineId ,    
144 isnull ( @Line , N '' ) + isnull ( SUBSTRING ( @SyscomText ,    
145 @BasePos , @AddOnLen ), N '' ))    
146 SELECT @Line = NULL , @LineId = @LineId + 1 ,    
147 @BasePos = @BasePos + @AddOnLen , @BlankSpaceAdded = 0     
148 END     
149 SELECT @Line = isnull ( @Line , N '' ) +     
150 isnull ( SUBSTRING ( @SyscomText , @BasePos , @CurrentPos - @BasePos + @LFCR ), N '' )    
151 SELECT @BasePos = @CurrentPos + 2     
152 INSERT #CommentText VALUES ( @LineId , @Line )    
153 SELECT @LineId = @LineId + 1     
154 SELECT @Line = NULL     
155 END     
156 ELSE     
157 -- 如果回车没找到    
158 BEGIN     
159 IF @BasePos <= @TextLength     
160 BEGIN     
161 -- 如果@Lines长度的新值大于定义的长度    
162 While ( isnull ( LEN ( @Line ), 0 ) + @BlankSpaceAdded +     
163 @TextLength - @BasePos + 1 ) > @DefinedLength     
164 BEGIN     
165 SELECT @AddOnLen = @DefinedLength -     
166 ( isnull ( LEN ( @Line ), 0 ) + @BlankSpaceAdded )    
167 INSERT #CommentText VALUES     
168 ( @LineId ,    
169 isnull ( @Line , N '' ) + isnull ( SUBSTRING ( @SyscomText ,    
170 @BasePos , @AddOnLen ), N '' ))    
171 SELECT @Line = NULL , @LineId = @LineId + 1 ,    
172 @BasePos = @BasePos + @AddOnLen , @BlankSpaceAdded =     
173 0     
174 END     
175 SELECT @Line = isnull ( @Line , N '' ) +     
176 isnull ( SUBSTRING ( @SyscomText , @BasePos , @TextLength - @BasePos + 1 ), N '' )    
177 if LEN ( @Line ) < @DefinedLength and charindex ( ' ' ,    
178 @SyscomText , @TextLength + 1 ) > 0     
179 BEGIN     
180 SELECT @Line = @Line + ' ' , @BlankSpaceAdded = 1     
181 END     
182 END     
183 END     
184 END     
185 FETCH NEXT FROM ms_crs_syscom into @SyscomText     
186 END     
187 IF @Line is NOT NULL     
188 INSERT #CommentText VALUES ( @LineId , @Line )    
189 select Text from #CommentText order by LineId    
190 CLOSE ms_crs_syscom    
191 DEALLOCATE ms_crs_syscom    
192 DROP TABLE #CommentText    
193 -- -------------------------------------    
194 -- 结束从sp_helptext提取    
195 -- -------------------------------------    
196 -- 删除用短横线创建的存储过程并重建原始的存储过程    
197 ROLLBACK TRAN     
198 DROP TABLE #output