create PROCEDURE DecryptObject (@objectName varchar(50))
WITH ENCRYPTION AS
begin
declare @objectname1 varchar(100)
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 , @t bigint
declare @m int,@n int,@q int
DECLARE @tablename varchar(255) --觸發(fā)器所對應的表名
DECLARE @trigtype varchar(6) --觸發(fā)器類(lèi)型
DECLARE @type char(1) --對象類(lèi)型：P-procedure ;V-View; T-trigger
DECLARE @bb bit
select @i=count(1) from sysobjects where name = @objectName
if @i=0
begin
print ‘Object ‘ + @objectName + ‘ isnt exist!‘--對象不存在
return
end
select @type= case xtype when ‘TR‘ then ‘T‘ else xtype end from sysobjects where name = @objectName
if (@type<>‘T‘ and @type<>‘V‘ and @type<>‘P‘)
begin
print ‘Object ‘ + @objectName + ‘ isnt procedure or trigger or view!‘--沒(méi)有所需要的對象類(lèi)型
return
end
select @bb=encrypted FROM syscomments WHERE id = object_id(@objectName)
select @m=max(colid) FROM syscomments WHERE id = object_id(@objectName)
if @bb=0
begin
print ‘Object ‘ + @objectName + ‘ is not encrypted!‘--對象沒(méi)有加密
return
end
create table #temp(colid int,ctext varbinary(8000))
create table #tempresult(cctext nvarchar(4000))
insert #temp SELECT colid,ctext FROM syscomments WHERE id = object_id(@objectName)--get encrypted data 將加密信息存儲于臨時(shí)表中
IF @type=‘T‘--如果是觸發(fā)子,則取得它的表名和類(lèi)型
BEGIN
SET @tablename=(SELECT sysobjects_1.name FROM dbo.sysobjects INNER JOIN dbo.sysobjects sysobjects_1 ON dbo.sysobjects.parent_obj = sysobjects_1.id WHERE (dbo.sysobjects.type = ‘TR‘) AND (dbo.sysobjects.name = @ObjectName))
SET @trigtype=(SELECT CASE WHEN dbo.sysobjects.deltrig > 0 THEN ‘DELETE‘ WHEN dbo.sysobjects.instrig > 0 THEN ‘INSERT‘ WHEN dbo.sysobjects.updtrig > 0 THEN ‘UPDATE‘ END FROM dbo.sysobjects INNER JOIN dbo.sysobjects sysobjects_1 ON dbo.sysobjects.parent_obj = sysobjects_1.id WHERE (dbo.sysobjects.type = ‘TR‘) AND (dbo.sysobjects.name = @ObjectName))
END
SET @sql1=case @type--為修改原有的對象內容準備ALTER語(yǔ)句
WHEN ‘P‘ THEN ‘ALTER PROCEDURE ‘+ @ObjectName +‘ WITH ENCRYPTION AS ‘
WHEN ‘V‘ THEN ‘ALTER VIEW ‘+ @ObjectName +‘ WITH ENCRYPTION AS SELECT dbo.dtproperties.* FROM dbo.dtproperties‘
WHEN ‘T‘ THEN ‘ALTER TRIGGER ‘+@ObjectName+‘ ON ‘+ @tablename+‘ WITH ENCRYPTION FOR ‘+@trigtype+‘ AS PRINT ‘‘a(chǎn)‘‘‘
END
set @q=len(@sql1)
set @sql1=@sql1 +REPLICATE(‘-‘,4000-@q)
select @sql2=REPLICATE(‘-‘,4000),@sql3=REPLICATE(‘-‘,4000),@sql4=REPLICATE(‘-‘,4000),@sql5=REPLICATE(‘-‘,4000),@sql6=REPLICATE(‘-‘,4000),@sql7=REPLICATE(‘-‘,4000),@sql8=REPLICATE(‘-‘,4000),@sql9=REPLICATE(‘-‘,4000),@sql10=REPLICATE(‘-‘,4000)
exec(@sql1+@sql2+@sql3+@sql4+@sql5+@sql6+@sql7+@sql8+@sql9+@sql10)
select @sql1=‘‘,@sql2=‘‘,@sql3=‘‘,@sql4=‘‘,@sql5=‘‘,@sql6=‘‘,@sql7=‘‘,@sql8=‘‘,@sql9=‘‘,@sql10=‘‘
set @n=1 --從編號為1開(kāi)始
while @n<=@m
begin
SET @OrigSpText1=(SELECT ctext FROM #temp WHERE colid=@n)--從臨時(shí)表中取加密數據
SET @OrigSpText3=(SELECT ctext FROM syscomments WHERE id=object_id(@objectName) and colid=@n)--從修改過(guò)的對象取得對象數據
if @n=1--如果是第一次循環(huán),則需要準備前面的開(kāi)頭部分的語(yǔ)句
begin
SET @OrigSpText2=case @type
WHEN ‘P‘ THEN ‘CREATE PROCEDURE ‘+ @ObjectName +‘ WITH ENCRYPTION AS ‘
WHEN ‘V‘ THEN ‘CREATE VIEW ‘+ @ObjectName +‘ WITH ENCRYPTION AS SELECT dbo.dtproperties.* FROM dbo.dtproperties‘
WHEN ‘T‘ THEN ‘CREATE TRIGGER ‘+@ObjectName+‘ ON ‘+ @tablename+‘ WITH ENCRYPTION FOR ‘+@trigtype+‘ AS PRINT ‘‘a(chǎn)‘‘‘
END
set @q=4000-len(@OrigSpText2)
set @OrigSpText2=@OrigSpText2+REPLICATE(‘-‘,@q)
end
else
begin
SET @OrigSpText2=REPLICATE(‘-‘, 4000)
end
SET @i=1
SET @resultsp = replicate(N‘A‘, (datalength(@OrigSpText1) / 2))--fill temporary variable
WHILE @i<=datalength(@OrigSpText1)/2
BEGIN
--reverse encryption (XOR original+bogus+bogus encrypted)
SET @resultsp = stuff(@resultsp, @i, 1, NCHAR(
UNICODE(substring(@OrigSpText1, @i, 1)) ^
(
UNICODE(substring(@OrigSpText2, @i, 1)) ^ UNICODE(substring(@OrigSpText3, @i, 1))
)
)
)
SET @i=@i+1
END
if @n=1 begin set @sql1=@resultsp end
if @n=2 begin set @sql2=@resultsp end
if @n=3 begin set @sql3=@resultsp end
if @n=4 begin set @sql4=@resultsp end
if @n=5 begin set @sql5=@resultsp end
if @n=6 begin set @sql6=@resultsp end
if @n=7 begin set @sql7=@resultsp end
if @n=8 begin set @sql8=@resultsp end
if @n=9 begin set @sql9=@resultsp end
if @n=10 begin set @sql10=@resultsp end
insert into #tempresult values (@resultsp)--把解密數據放入結果表中
set @n=@n+1--循環(huán)
end
drop table #temp--刪除臨時(shí)表
SET @resultsp=case @type
WHEN ‘P‘ THEN ‘drop PROCEDURE ‘+ @ObjectName
WHEN ‘V‘ THEN ‘drop VIEW ‘+ @ObjectName
WHEN ‘T‘ THEN ‘drop TRIGGER ‘+@ObjectName
END
Execute( @resultsp)--刪除對象
--重新創(chuàng )建對象
if @n=1 begin exec(@sql1) end
if @n=2 begin exec(@sql1 + @sql2) end
if @n=3 begin exec(@sql1 + @sql2+@sql3 ) end
if @n=4 begin exec(@sql1 + @sql2+@sql3 + @sql4 ) end
if @n=5 begin exec(@sql1 + @sql2+@sql3 + @sql4 + @sql5) end
if @n=6 begin exec(@sql1 + @sql2+@sql3 + @sql4 + @sql5+ @sql6) end
if @n=7 begin exec(@sql1 + @sql2+@sql3 + @sql4 + @sql5+ @sql6+ @sql7 ) end
if @n=8 begin exec(@sql1 + @sql2+@sql3 + @sql4 + @sql5+ @sql6+ @sql7 + @sql8) end
if @n=9 begin exec(@sql1 + @sql2+@sql3 + @sql4 + @sql5+ @sql6+ @sql7 + @sql8 + @sql9) end
if @n=10 begin exec(@sql1 + @sql2+@sql3 + @sql4 + @sql5+ @sql6+ @sql7 + @sql8 + @sql8 + @sql10) end
select * from #tempresult--顯示結果表
drop table #tempresult--刪除結果表
end
--NCHAR 根據 Unicode 標準所進(jìn)行的定義，用給定整數代碼返回 Unicode 字符。
--語(yǔ)法 NCHAR ( integer_expression )
--參數
--integer_expression 介于 0 與 65535 之間的所有正整數。如果指定了超出此范圍的值，將返回 NULL。
---------------------------------
--STUFF 刪除指定長(cháng)度的字符并在指定的起始點(diǎn)插入另一組字符。
--語(yǔ)法 STUFF ( character_expression , start , length , character_expression )
--參數
--character_expression 由字符數據組成的表達式。character_expression 可以是常量、變量，也可以是字符或二進(jìn)制數據的列。
--start 是一個(gè)整形值，指定刪除和插入的開(kāi)始位置。如果 start 或 length 是負數，則返回空字符串。如果 start 比第一個(gè) character_expression 長(cháng)，則返回空字符串。
--length 是一個(gè)整數，指定要刪除的字符數。如果 length 比第一個(gè) character_expression 長(cháng)，則最多刪除到最后一個(gè) character_expression 中的最后一個(gè)字符。
