SQLServer存储过程和存储函数的加密以及解密代码

SQL Server存储过程和存储函数的加密以及解密代码的相关知识是本文我们主要要介绍的内容，接下来就让我们一起来了解下这部分代码吧。

存储过程和存储函数的加密：

 
 
 
    
  
  
  
  1. WITH ENCRYPTION  
    2. 
  
  
  
  2. CREATE procedure dbo.sp_XML_main 
    3. 
  
  
  
  3. @table_name nvarchar(260)='', 
    4. 
  
  
  
  4. @dirname nvarchar(20)='' 
    5. 
  
  
  
  5. WITH ENCRYPTION 
    6. 
  
  
  
  6. as 
    7. 
  
  
  
  7. begin 
    8. 
  
  
  
  8. .................................................... 
    9. 
  
  
  
  9. end 
    10. 
  
  
  
  10. go 
    11.

存储过程、存储函数的解密(以下是一位绝世高人编写的代码)。

 
 
 
    
  
  
  
  1. if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_decrypt]')  
    2. 
  
  
  
  2. and OBJECTPROPERTY(id, N'IsProcedure') = 1) 
    3. 
  
  
  
  3. drop procedure [dbo].[sp_decrypt] 
    4. 
  
  
  
  4. GO
    5. 
 
 
 
 
 
 
    
  
  
  
  1. /*--破解函数,过程,触发器,视图.仅限于SQL Server 2000 
    2. 
  
  
  
  2. --作者:J9988--*/ 
    3. 
  
  
  
  3. /*--调用示例 
    4. 
  
  
  
  4. --解密指定存储过程 
    5. 
  
  
  
  5. exec sp_decrypt 'AppSP_test' 
    6. 
  
  
  
  6. --对所有的存储过程解密 
    7. 
  
  
  
  7. declare tb cursor for 
    8. 
  
  
  
  8. select name from sysobjects where xtype='P' and status>0 and name<>'sp_decrypt' 
    9. 
  
  
  
  9. declare @name sysname 
    10. 
  
  
  
  10. open tb 
    11. 
  
  
  
  11. fetch next from tb into @name 
    12. 
  
  
  
  12. while @@fetch_status=0
    13. 
  
  
  
  13. begin 
    14. 
  
  
  
  14. print '/*-------存储过程 ['+@name+'] -----------*/' 
    15. 
  
  
  
  15. exec sp_decrypt @name 
    16. 
  
  
  
  16. fetch next from tb into @name 
    17. 
  
  
  
  17. end 
    18. 
  
  
  
  18. close tb 
    19. 
  
  
  
  19. deallocate tb 
    20. 
  
  
  
  20. --*/ 
    21. 
  
  
  
  21. if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SP_DECRYPT]') and OBJECTPROPERTY(id, N'IsProcedure') = 1) 
    22. 
  
  
  
  22. drop procedure [dbo].[SP_DECRYPT] 
    23. 
  
  
  
  23. GO 
    24. 
  
  
  
  24. CREATE  PROCEDURE sp_decrypt(@objectName varchar(50)) 
    25. 
  
  
  
  25. AS 
    26. 
  
  
  
  26. begin 
    27. 
  
  
  
  27. set nocount on 
    28. 
  
  
  
  28. --CSDN：j9988 copyright:2004.04.15 
    29. 
  
  
  
  29. --V3.1 
    30. 
  
  
  
  30. --破解字节不受限制，适用于SQL Server 2000存储过程，函数，视图，触发器 
    31. 
  
  
  
  31. --修正上一版视图触发器不能正确解密错误 
    32. 
  
  
  
  32. --发现有错，请E_MAIL：CSDNj9988@tom.com 
    33. 
  
  
  
  33. begin tran 
    34. 
  
  
  
  34. declare @objectname1 varchar(100),@orgvarbin varbinary(8000) 
    35. 
  
  
  
  35. declare @sql1 nvarchar(4000),@sql2 varchar(8000),@sql3 nvarchar(4000),@sql4 nvarchar(4000) 
    36. 
  
  
  
  36. DECLARE  @OrigSpText1 nvarchar(4000),  @OrigSpText2 nvarchar(4000) , @OrigSpText3 nvarchar(4000), @resultsp nvarchar(4000) 
    37. 
  
  
  
  37. declare  @i int,@status int,@type varchar(10),@parentid int 
    38. 
  
  
  
  38. declare @colid int,@n int,@q int,@j int,@k int,@encrypted int,@number int 
    39. 
  
  
  
  39. select @type=xtype,@parentid=parent_obj from sysobjects where id=object_id(@ObjectName) 
    40. 
  
  
  
  40. create table  #temp(number int,colid int,ctext varbinary(8000),encrypted int,status int) 
    41. 
  
  
  
  41. insert #temp SELECT number,colid,ctext,encrypted,status FROM syscomments  WHERE id = object_id(@objectName) 
    42. 
  
  
  
  42. select @number=max(number) from #temp 
    43. 
  
  
  
  43. set @k=0
    44. 
  
  
  
  44. while @k<=@number 
    45. 
  
  
  
  45. begin 
    46. 
  
  
  
  46. if exists(select 1 from syscomments where id=object_id(@objectname) and number=@k) 
    47. 
  
  
  
  47. begin 
    48. 
  
  
  
  48. if @type='P'
    49. 
  
  
  
  49. set @sql1=(case when @number>1 then 'ALTER PROCEDURE '+ @objectName +';'+rtrim(@k)+' WITH ENCRYPTION AS ' 
    50. 
  
  
  
  50. else 'ALTER PROCEDURE '+ @objectName+' WITH ENCRYPTION AS ' 
    51. 
  
  
  
  51. end) 
    52. 
  
  
  
  52. if @type='TR'
    53. 
  
  
  
  53. begin 
    54. 
  
  
  
  54. declare @parent_obj varchar(255),@tr_parent_xtype varchar(10) 
    55. 
  
  
  
  55. select @parent_objparent_obj=parent_obj from sysobjects where id=object_id(@objectName) 
    56. 
  
  
  
  56. select @tr_parent_xtype=xtype from sysobjects where id=@parent_obj 
    57. 
  
  
  
  57. if @tr_parent_xtype='V'
    58. 
  
  
  
  58. begin 
    59. 
  
  
  
  59. set @sql1='ALTER TRIGGER '+@objectname+' ON '+OBJECT_NAME(@parentid)+' WITH ENCRYPTION INSTERD OF INSERT AS PRINT 1 ' 
    60. 
  
  
  
  60. end 
    61. 
  
  
  
  61. else 
    62. 
  
  
  
  62. begin 
    63. 
  
  
  
  63. set @sql1='ALTER TRIGGER '+@objectname+' ON '+OBJECT_NAME(@parentid)+' WITH ENCRYPTION FOR INSERT AS PRINT 1 ' 
    64. 
  
  
  
  64. end 
    65. 
  
  
  
  65. end 
    66. 
  
  
  
  66. if @type='FN' or @type='TF' or @type='IF'
    67. 
  
  
  
  67. set @sql1=(case @type when 'TF' then 
    68. 
  
  
  
  68. 'ALTER FUNCTION '+ @objectName+'(@a char(1)) returns @b table(a varchar(10)) with encryption as begin insert @b select @a return end ' 
    69. 
  
  
  
  69. when 'FN' then 
    70. 
  
  
  
  70. 'ALTER FUNCTION '+ @objectName+'(@a char(1)) returns char(1) with encryption as begin return @a end' 
    71. 
  
  
  
  71. when 'IF' then 
    72. 
  
  
  
  72. 'ALTER FUNCTION '+ @objectName+'(@a char(1)) returns table with encryption as return select @a as a' 
    73. 
  
  
  
  73. end) 
    74. 
  
  
  
  74. if @type='V'
    75. 
  
  
  
  75. set @sql1='ALTER VIEW '+@objectname+' WITH ENCRYPTION AS SELECT 1 as f' 
    76. 
  
  
  
  76. set @q=len(@sql1) 
    77. 
  
  
  
  77. set @sql1=@sql1+REPLICATE('-',4000-@q) 
    78. 
  
  
  
  78. select @sql2=REPLICATE('-',8000) 
    79. 
  
  
  
  79. set @sql3='exec(@sql1'
    80. 
  
  
  
  80. select @colid=max(colid) from #temp where number=@k 
    81. 
  
  
  
  81. set @n=1
    82. 
  
  
  
  82. while @n<=CEILING(1.0*(@colid-1)/2) and len(@sQL3)<=3996 
    83. 
  
  
  
  83. begin 
    84. 
  
  
  
  84. set @sql3=@sql3+'+@' 
    85. 
  
  
  
  85. set @n=@n+1 
    86. 
  
  
  
  86. end 
    87. 
  
  
  
  87. set @sql3=@sql3+')' 
    88. 
  
  
  
  88. exec sp_executesql @sql3,N'@sql1 nvarchar(4000),@ varchar(8000)',@sql1=@sql1,@=@sql2 
    89. 
  
  
  
  89. end 
    90. 
  
  
  
  90. set @k=@k+1 
    91. 
  
  
  
  91. end 
    92. 
  
  
  
  92. set @k=0
    93. 
  
  
  
  93. while @k<=@number 
    94. 
  
  
  
  94. begin 
    95. 
  
  
  
  95. if exists(select 1 from syscomments where id=object_id(@objectname) and number=@k) 
    96. 
  
  
  
  96. begin 
    97. 
  
  
  
  97. select @colid=max(colid) from #temp where number=@k 
    98. 
  
  
  
  98. set @n=1
    99. 
  
  
  
  99. while @n<=@colid 
    100. 
  
  
  
  100. begin 
    101. 
  
  
  
  101. select @OrigSpText1=ctext,@encryptedencrypted=encrypted,@statusstatus=status FROM #temp  WHERE colid=@n and number=@k 
    102. 
  
  
  
  102. SET @OrigSpText3=(SELECT ctext FROM syscomments WHERE id=object_id(@objectName) and colid=@n and number=@k) 
    103. 
  
  
  
  103. if @n=1
    104. 
  
  
  
  104. begin 
    105. 
  
  
  
  105. if @type='P'
    106. 
  
  
  
  106. SET @OrigSpText2=(case when @number>1 then 'CREATE PROCEDURE '+ @objectName +';'+rtrim(@k)+' WITH ENCRYPTION AS ' 
    107. 
  
  
  
  107. else 'CREATE PROCEDURE '+ @objectName +' WITH ENCRYPTION AS ' 
    108. 
  
  
  
  108. end) 
    109. 
  
  
  
  109. if @type='FN' or @type='TF' or @type='IF'
    110. 
  
  
  
  110. SET @OrigSpText2=(case @type when 'TF' then 
    111. 
  
  
  
  111. 'CREATE FUNCTION '+ @objectName+'(@a char(1)) returns @b table(a varchar(10)) with encryption as begin insert @b select @a return end ' 
    112. 
  
  
  
  112. when 'FN' then 
    113. 
  
  
  
  113. 'CREATE FUNCTION '+ @objectName+'(@a char(1)) returns char(1) with encryption as begin return @a end' 
    114. 
  
  
  
  114. when 'IF' then 
    115. 
  
  
  
  115. 'CREATE FUNCTION '+ @objectName+'(@a char(1)) returns table with encryption as return select @a as a' 
    116. 
  
  
  
  116. end) 
    117. 
  
  
  
  117. if @type='TR'
    118. 
  
  
  
  118. begin 
    119. 
  
  
  
  119. if @tr_parent_xtype='V'
    120. 
  
  
  
  120. begin 
    121. 
  
  
  
  121. set @OrigSpText2='CREATE TRIGGER '+@objectname+' ON '+OBJECT_NAME(@parentid)+' WITH ENCRYPTION INSTEAD OF INSERT AS PRINT 1 ' 
    122. 
  
  
  
  122. end 
    123. 
  
  
  
  123. else 
    124. 
  
  
  
  124. begin 
    125. 
  
  
  
  125. set @OrigSpText2='CREATE TRIGGER '+@objectname+' ON '+OBJECT_NAME(@parentid)+' WITH ENCRYPTION FOR INSERT AS PRINT 1 ' 
    126. 
  
  
  
  126. end 
    127. 
  
  
  
  127. end 
    128. 
  
  
  
  128. if @type='V'
    129. 
  
  
  
  129. set @OrigSpText2='CREATE VIEW '+@objectname+' WITHENCRYPTION AS SELECT 1 as f' 
    130. 
  
  
  
  130. set @q=4000-len(@OrigSpText2) 
    131. 
  
  
  
  131. set @OrigSpText2=@OrigSpText2+REPLICATE('-',@q) 
    132. 
  
  
  
  132. end 
    133. 
  
  
  
  133. else 
    134. 
  
  
  
  134. begin 
    135. 
  
  
  
  135. SET @OrigSpText2=REPLICATE('-', 4000) 
    136. 
  
  
  
  136. end 
    137. 
  
  
  
  137. SET @i=1
    138. 
  
  
  
  138. SET @resultsp = replicate(N'A', (datalength(@OrigSpText1) / 2)) 
    139. 
  
  
  
  139. WHILE @i<=datalength(@OrigSpText1)/2 
    140. 
  
  
  
  140. BEGIN 
    141. 
  
  
  
  141. SET @resultsp = stuff(@resultsp, @i, 1, NCHAR(UNICODE(substring(@OrigSpText1, @i, 1)) ^ 
    142. 
  
  
  
  142.       (UNICODE(substring(@OrigSpText2, @i, 1)) ^ 
    143. 
  
  
  
  143.       UNICODE(substring(@OrigSpText3, @i, 1))))) 
    144. 
  
  
  
  144. SET @i=@i+1 
    145. 
  
  
  
  145. END 
    146. 
  
  
  
  146. set @orgvarbin=cast(@OrigSpText1 as varbinary(8000)) 
    147. 
  
  
  
  147. set @resultsp=(case when @encrypted=1
    148. 
  
  
  
  148. then @resultsp 
    149. 
  
  
  
  149. else convert(nvarchar(4000),case when @status&22=2 then uncompress(@orgvarbin) else @orgvarbin end) 
    150. 
  
  
  
  150. end) 
    151. 
  
  
  
  151. print @resultsp 
    152. 
  
  
  
  152. set @n=@n+1 
    153. 
  
  
  
  153. end 
    154. 
  
  
  
  154. end 
    155. 
  
  
  
  155. set @k=@k+1 
    156. 
  
  
  
  156. end 
    157. 
  
  
  
  157. drop table #temp 
    158. 
  
  
  
  158. rollback tran 
    159. 
  
  
  
  159. end
    160.

关于SQL Server存储过程和存储函数的加密以及解密代码的相关知识就介绍到这里了，希望本次的介绍能够对您有所收获！

标题名称：SQLServer存储过程和存储函数的加密以及解密代码
网页地址：http://www.csdahua.cn/qtweb/news18/312168.html

网站建设、网络推广公司-快上网，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 快上网

成都快上网为您推荐相关内容

面包屑导航知识

分类信息网

德阳柴油发电机组　　 　成都商城app开发　　 　移动APP　　 　h5页面制作　　 　成都展柜制作　　 　营山产后护理服务　　 　航空文化传媒　　 　中国（西部）云计算中心　　 　成都网站排名　　 　成都棕数机房　　 　消防工程　　 　尊格展览　　 　成都广告制作　　 　工商财税　　 　商城网站　　 　广汉锦华橡塑　　 　企业网站设计　　 　手机网站制作　　 　成都网站制作　　 　重庆网站建设公司