SQL解密ctext字段内容函数

--SQL解密ctext字段内容函数
--exec sp_decrypt '约束名称'
--exec sp_decrypt 'DF_InsuranceRecord_PeriodUnit'
--exec sp_decrypt '存储过程名称'
--exec sp_decrypt 'sp_SearchPrinting_InsuranceRecord'
--主要用途:读取systemcomments中的字段内容。包括约束,存储过程等等。
--原文应该来自http://blog.csdn.net/j9988/archive/2004/04/16/16747.aspx,作者发布文章只有3篇,可能转了移BLOG.不过确实是高手。省却了我很多的时间。本来打算先找OX字符传格式的破解函数,或者在C#中解密的viabanry(8000)字段内容。
--存在存储 过程超过4000时候会换行的一些评论中反映的问题。出现错误我会及时修正。
CREATE  PROCEDURE sp_decrypt(@objectName varchar(50)) 
AS 
begin 
set nocount on 
begin tran 
declare @objectname1 varchar(100),@orgvarbin varbinary(8000) 
declare @sql1 nvarchar(4000),@sql2 varchar(8000),@sql3 nvarchar(4000),@sql4 nvarchar(4000) 
DECLARE  @OrigSpText1 nvarchar(4000),  @OrigSpText2 nvarchar(4000) , @OrigSpText3 nvarchar(4000), @resultsp nvarchar(4000) 
declare  @i int,@status int,@type varchar(10),@parentid int 
declare @colid int,@n int,@q int,@j int,@k int,@encrypted int,@number int 
select @type=xtype,@parentid=parent_obj from sysobjects where id=object_id(@ObjectName) 
 
create table  #temp(number int,colid int,ctext varbinary(8000),encrypted int,status int) 
insert #temp SELECT number,colid,ctext,encrypted,status from syscomments  WHERE id = object_id(@objectName) 
select @number=max(number) from #temp 
set @k=0 
 
while @k<=@number  
begin 
if exists(select 1 from syscomments where id=object_id(@objectname) and number=@k) 
begin 
if @type='P' 
set @sql1=(case when @number>1 then 'ALTER PROCEDURE '+ @objectName +';'+rtrim(@k)+' WITH ENCRYPTION AS '