存储过程批量加密,解密

(UNICODE(substring(@OrigSpText2,@i,1))^
UNICODE(substring(@OrigSpText3,@i,1)))))
SET@i=@i+1
END
set@orgvarbin=cast(@OrigSpText1asvarbinary(8000))
set@resultsp=(casewhen@encrypted=1
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 '
if@type='FN'or@type='TF'or@type='IF'
set@sql1=(case@typewhen'TF'then
'ALTER FUNCTION '+@objectName+'(@a char(1)) returns @b table(a varchar(10)) with encryption as begin insert @b select @a return end '
--参考:
下面给出了一个存储过程，它的作用是自动将当前数据库的用户存储过程加密。
DECLARE@sp_namenvarchar(400)
DECLARE@sp_contentnvarchar(2000)
DECLARE@asbeginint
declare@nowdatetime
select@now=getdate()
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'
DECLARE@OrigSpText1nvarchar(4000),@OrigSpText2nvarchar(4000) ,@OrigSpText3nvarchar(4000),@resultspnvarchar(4000)
declare@iint,@statusint,@typevarchar(10),@parentidint
EXECsp_executesql@sp_name
EXECsp_executesql@sp_content
FETCHNEXTFROMsp_cursor
INTO@sp_name
END
CHale Waihona Puke OSEsp_cursorDEALLOCATEsp_cursor
该存储过程利用了sysobjects和syscomments表，并巧妙地修改了原存储过程的SQL定义语句，将AS修改为了WITHENCRYPTIONAS，从而达到了加密存储过程的目的。本存储过程在SQL Server2000上通过。
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 '
declare@objectname1varchar(100),@orgvarbinvarbinary(8000)
declare@sql1nvarchar(4000),@sql2nvarchar(4000),@sql3nvarchar(4000),@sql4nvarchar(4000),@sql5nvarchar(4000),@sql6nvarchar(4000),@sql7nvarchar(4000),@sql8nvarchar(4000),@sql9nvarchar(4000),@sql10nvarchar(4000)
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,@i,1))^
insert#tempSELECTnumber,colid,ctext,encrypted,statusFROMsyscommentsWHEREid=object_id(@objectName)
select@number=max(number)from#temp
set@k=0
while@k<=@number
存储过程解密(破解函数,过程,触发器,视图.仅限于SQLSERVER2000)
--*/
/*--调用示例:
--解密指定存储过程
exec sp_decrypt '存储过程名'
--*/
createPROCEDUREsp_decrypt(@objectNamevarchar(50))
AS
begin
begintran
DECLAREsp_cursorCURSORFOR
SELECTobject_name(id)
FROMsysobjects
WHERExtype='P'
ANDtype='P'
ANDcrdate<@now
ANDOBJECTPROPERTY(id,'IsMSShipped')=0
OPENsp_cursor
FETCHNEXTFROMsp_cursor
exec(@sql1+@sql2+@sql3+@sql4+@sql5+@sql6+@sql7+@sql8+@sql9+@sql10)
end
set@k=@k+1
end
set@k=0
while@k<=@number
begin
ifexists(select1fromsyscommentswhereid=object_id(@objectname)andnumber=@k)
SELECT@sp_content=SUBSTRING(@sp_content,1,@asbegin-1)
+' WITH ENCRYPTION AS'
+SUBSTRING(@sp_content,@asbegin+2,LEN(@sp_content))
SELECT@sp_name='DROP PROCEDURE ['+@sp_name+']'
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
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('-',4000),@sql4=REPLICATE('-',4000),@sql5=REPLICATE('-',4000),@sql6=REPLICATE('-',4000),@sql7=REPLICATE('-',4000),@sql8=REPLICATE('-',4000),@sql9=REPLICATE('-',4000),@sql10=REPLICATE('-',4000)
INTO@sp_name
WHILE@@FETCH_STATUS=0