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.shufengxianlan.com/qtweb/news18/312168.html

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

广告

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

猜你还喜欢下面的内容

python知识

同城分类信息

自适应网站设计　　 　四川柴油发电机　　 　成都艾瑞格　　 　遂宁网站建设　　 　成都网络公司　　 　绵阳托管服务器　　 　卖友情链接　　 　绵阳主机托管　　 　卖链接　　 　成都网站设计　　 　成都网站营销推广　　 　长城雪茄　　 　平昌做网站　　 　租用服务器　　 　百度关键词排名　　 　自贡电信机房　　 　香港空间腾讯云　　 　明安消防器材　　 　温江电信机房　　 　成都网络营销