分享
 
 
 

解密WITH ENCRYPTION 存储过程

王朝other·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

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) --触发器所对应的表名

DECLARE @trigtype varchar(6) --触发器类型

DECLARE @type char(1) --对象类型: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!'--没有所需要的对象类型

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!'--对象没有加密

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 将加密信息存储于临时表中

IF @type='T'--如果是触发子,则取得它的表名和类型

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语句

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'''

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开始

while @n<=@m

begin

SET @OrigSpText1=(SELECT ctext FROM #temp WHERE colid=@n)--从临时表中取加密数据

SET @OrigSpText3=(SELECT ctext FROM syscomments WHERE id=object_id(@objectName) and colid=@n)--从修改过的对象取得对象数据

if @n=1--如果是第一次循环,则需要准备前面的开头部分的语句

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'''

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--循环

end

drop table #temp--删除临时表

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)--删除对象

--重新创建对象

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 标准所进行的定义,用给定整数代码返回 Unicode 字符。

--语法 NCHAR ( integer_expression )

--参数

--integer_expression 介于 0 与 65535 之间的所有正整数。如果指定了超出此范围的值,将返回 NULL。

---------------------------------

--STUFF 删除指定长度的字符并在指定的起始点插入另一组字符。

--语法 STUFF ( character_expression , start , length , character_expression )

--参数

--character_expression 由字符数据组成的表达式。character_expression 可以是常量、变量,也可以是字符或二进制数据的列。

--start 是一个整形值,指定删除和插入的开始位置。如果 start 或 length 是负数,则返回空字符串。如果 start 比第一个 character_expression 长,则返回空字符串。

--length 是一个整数,指定要删除的字符数。如果 length 比第一个 character_expression 长,则最多删除到最后一个 character_expression 中的最后一个字符。

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有