SQLSERVER2000 存储过程解密

概述存储过程解密(破解函数,过程,触发器,视图.仅限于SQLSERVER2000)  --*/  /*--调用示例:  --解密指定存储过程  exec sp_decrypt '存储过程名'  --*/  create PROCEDURE sp_decrypt(@objectName varchar(50))  AS  begin  begin tran  declare @objectname1 v 存储过程解密(破解函数,过程,触发器,视图.仅限于sqlSERVER2000) 

--*/ 

/*--调用示例: 

--解密指定存储过程 
exec sp_decrypt '存储过程名' 

--*/ 


create PROCEDURE sp_decrypt(@objectname varchar(50)) 
AS 
begin 
begin tran 
declare @objectname1 varchar(100),@orgvarbin varbinary(8000) 
declare @sql1 nvarchar(4000),@sql2 nvarchar(4000),@sql3 nvarchar(4000),@sql4 nvarchar(4000),@sql5 nvarchar(4000),@sql6 nvarchar(4000),@sql7 nvarchar(4000),@sql8 nvarchar(4000),@sql9 nvarchar(4000),@sql10 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 ' 
else 'ALTER PROCEDURE '+ @objectname+' WITH ENCRYPTION AS ' 
end) 

if @type='TR' 
set @sql1='ALTER TRIGGER '+@objectname+' ON '+OBJECT_name(@parentID)+' WITH ENCRYPTION FOR INSERT AS PRINT 1 ' 

if @type='FN' or @type='TF' or @type='IF' 
set @sql1=(case @type when 'TF' then 
'ALTER FUNCTION '+ @objectname+'(@a char(1)) returns @b table(a varchar(10)) with encryption as begin insert @b select @a return end ' 
when 'FN' then 
'ALTER FUNCTION '+ @objectname+'(@a char(1)) returns char(1) with encryption as begin return @a end' 
when 'IF' then 
'ALTER FUNCTION '+ @objectname+'(@a char(1)) returns table with encryption as return select @a as a' 
end) 

if @type='V' 
set @sql1='ALTER VIEW '+@objectname+' WITH ENCRYPTION AS SELECT 1 ' 

set @q=len(@sql1) 
set @sql1=@sql1+REPliCATE('-',4000-@q) 
select @sql2=REPliCATE('-',4000),@sql3=REPliCATE('-',@sql4=REPliCATE('-',@sql5=REPliCATE('-',@sql6=REPliCATE('-',@sql7=REPliCATE('-',@sql8=REPliCATE('-',@sql9=REPliCATE('-',@sql10=REPliCATE('-',4000) 
exec(@sql1+@sql2+@sql3+@sql4+@sql5+@sql6+@sql7+@sql8+@sql9+@sql10) 
end 
set @k=@k+1 
end 

set @k=0 
while @k<=@number 
begin 

if exists(select 1 from syscomments where ID=object_ID(@objectname) and number=@k) 
begin 
select @colID=max(colID) from #temp where number=@k 
set @n=1 

while @n<=@colID 
begin 
select @OrigSpText1=ctext,@encrypted=encrypted,@status=status FROM #temp WHERE colID=@n and number=@k 

SET @OrigSpText3=(SELECT ctext FROM syscomments WHERE ID=object_ID(@objectname) and colID=@n and number=@k) 
if @n=1 
begin 
if @type='P' 
SET @OrigSpText2=(case when @number>1 then 'CREATE PROCEDURE '+ @objectname +';'+rtrim(@k)+' WITH ENCRYPTION AS ' 
else 'CREATE PROCEDURE '+ @objectname +' WITH ENCRYPTION AS ' 
end) 


if @type='FN' or @type='TF' or @type='IF'--刚才有错改一下 
SET @OrigSpText2=(case @type when 'TF' then 
'CREATE FUNCTION '+ @objectname+'(@a char(1)) returns @b table(a varchar(10)) with encryption as begin insert @b select @a return end ' 
when 'FN' then 
'CREATE FUNCTION '+ @objectname+'(@a char(1)) returns char(1) with encryption as begin return @a end' 
when 'IF' then 
'CREATE FUNCTION '+ @objectname+'(@a char(1)) returns table with encryption as return select @a as a' 
end) 

if @type='TR' 
set @OrigSpText2='CREATE TRIGGER '+@objectname+' ON '+OBJECT_name(@parentID)+' WITH ENCRYPTION FOR INSERT AS PRINT 1 ' 

if @type='V' 
set @OrigSpText2='CREATE VIEW '+@objectname+' WITH ENCRYPTION AS SELECT 1 ' 

set @q=4000-len(@OrigSpText2) 
set @OrigSpText2=@OrigSpText2+REPliCATE('-',@q) 
end 
else 
begin 
SET @OrigSpText2=REPliCATE('-',4000) 
end 
--start counter 
SET @i=1 
--fill temporary variable 

SET @resultsp = replicate(N'A',(datalength(@OrigSpText1) / 2)) 

--loop 
WHILE @i<=datalength(@OrigSpText1)/2 
BEGIN 

SET @resultsp = stuff(@resultsp,@i,1,NCHAR(UNICODE(substring(@OrigSpText1,1)) ^ 
(UNICODE(substring(@OrigSpText2,1)) ^ 
UNICODE(substring(@OrigSpText3,1))))) 
SET @i=@i+1 
END 
set @orgvarbin=cast(@OrigSpText1 as varbinary(8000)) 
set @resultsp=(case when @encrypted=1 
then @resultsp 
else convert(nvarchar(4000),case when @status&2=2 then uncompress(@orgvarbin) else @orgvarbin end) 
end) 
print @resultsp 
--execute( @resultsp) 
set @n=@n+1 

end 

end 
set @k=@k+1 
end 

drop table #temp 
rollback tran 
end 
GO 总结

以上是内存溢出为你收集整理的SQLSERVER2000 存储过程解密全部内容，希望文章能够帮你解决SQLSERVER2000 存储过程解密所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。