标题: MYSQL教程之SQL Server存储函数的加密解密 [打印本页] 作者: 山那边是海 时间: 2015-1-16 22:30 标题: MYSQL教程之SQL Server存储函数的加密解密 任何规模的组织都可能受益于外包服务，并在一个标准化和优化的平台上统一其数据库管理任务。基于其本身的特性，DBaaS提供了敏捷和高效的数据库服务，它可以支持多变的需求。server|函数|加密|解密存储历程、存储函数的加密:WITHENCRYPTION
<!--[if!supportLineBreakNewLine]-->
<!--[endif]-->
CREATEproceduredbo.sp_XML_main
@table_namenvarchar(260)=,
@dirnamenvarchar(20)=
WITHENCRYPTION
as
begin
....................................................
end
go
存储历程、存储函数的解密(以下是一名尽世高人编写的代码)
ifexists(select*fromdbo.sysobjectswhereid=object_id(N[dbo].[sp_decrypt])andOBJECTPROPERTY(id,NIsProcedure)=1)
dropprocedure[dbo].[sp_decrypt]
GO
/*--破解函数,历程,触发器,视图.仅限于SQLSERVER2000
--作者:J9988--*/
/*--挪用示例
--解密指定存储历程
execsp_decryptAppSP_test
--对一切的存储历程解密
declaretbcursorfor
selectnamefromsysobjectswherextype=Pandstatus>0andnamesp_decrypt
declare@namesysname
opentb
fetchnextfromtbinto@name
while@@fetch_status=0
begin
print/*-------存储历程[+@name+]-----------*/
execsp_decrypt@name
fetchnextfromtbinto@name
end
closetb
deallocatetb
--*/
ifexists(select*fromdbo.sysobjectswhereid=object_id(N[dbo].[SP_DECRYPT])andOBJECTPROPERTY(id,NIsProcedure)=1)
dropprocedure[dbo].[SP_DECRYPT]
GO
CREATEPROCEDUREsp_decrypt(@objectNamevarchar(50))
AS
begin
setnocounton
--CSDN:j9988copyright:2004.04.15
--V3.1
--破解字节不受限定，合用于SQLSERVER2000存储历程，函数，视图，触发器
--修改上一版视图触发器不克不及准确解密毛病
--发明有错，请E_MAIL:CSDNj9988@tom.com
begintran
declare@objectname1varchar(100),@orgvarbinvarbinary(8000)
declare@sql1nvarchar(4000),@sql2varchar(8000),@sql3nvarchar(4000),@sql4nvarchar(4000)
DECLARE@OrigSpText1nvarchar(4000),@OrigSpText2nvarchar(4000),@OrigSpText3nvarchar(4000),@resultspnvarchar(4000)
declare@iint,@statusint,@typevarchar(10),@parentidint
declare@colidint,@nint,@qint,@jint,@kint,@encryptedint,@numberint
select@type=xtype,@parentid=parent_objfromsysobjectswhereid=object_id(@ObjectName)
createtable#temp(numberint,colidint,ctextvarbinary(8000),encryptedint,statusint)
insert#tempSELECTnumber,colid,ctext,encrypted,statusFROMsyscommentsWHEREid=object_id(@objectName)
select@number=max(number)from#temp
set@k=0
while@k<=@number
begin
ifexists(select1fromsyscommentswhereid=object_id(@objectname)andnumber=@k)
begin
if@type=P
set@sql1=(casewhen@number>1thenALTERPROCEDURE+@objectName+;+rtrim(@k)+WITHENCRYPTIONAS
elseALTERPROCEDURE+@objectName+WITHENCRYPTIONAS
end)
if@type=TR
begin
declare@parent_objvarchar(255),@tr_parent_xtypevarchar(10)
select@parent_obj=parent_objfromsysobjectswhereid=object_id(@objectName)
select@tr_parent_xtype=xtypefromsysobjectswhereid=@parent_obj
if@tr_parent_xtype=V
begin
set@sql1=ALTERTRIGGER+@objectname+ON+OBJECT_NAME(@parentid)+WITHENCRYPTIONINSTERDOFINSERTASPRINT1
end
else
begin
set@sql1=ALTERTRIGGER+@objectname+ON+OBJECT_NAME(@parentid)+WITHENCRYPTIONFORINSERTASPRINT1
end
end
if@type=FNor@type=TFor@type=IF
set@sql1=(case@typewhenTFthen
ALTERFUNCTION+@objectName+(@achar(1))returns@btable(avarchar(10))withencryptionasbegininsert@bselect@areturnend
whenFNthen
ALTERFUNCTION+@objectName+(@achar(1))returnschar(1)withencryptionasbeginreturn@aend
whenIFthen
ALTERFUNCTION+@objectName+(@achar(1))returnstablewithencryptionasreturnselect@aasa
end)
if@type=V
set@sql1=ALTERVIEW+@objectname+WITHENCRYPTIONASSELECT1asf
set@q=len(@sql1)
set@sql1=@sql1+REPLICATE(-,4000-@q)
select@sql2=REPLICATE(-,8000)
set@sql3=exec(@sql1
select@colid=max(colid)from#tempwherenumber=@k
set@n=1
while@n<=CEILING(1.0*(@colid-1)/2)andlen(@sQL3)<=3996
begin
set@sql3=@sql3++@
set@n=@n+1
end
set@sql3=@sql3+)
execsp_executesql@sql3,N@sql1nvarchar(4000),@varchar(8000),@sql1=@sql1,@=@sql2
end
set@k=@k+1
end
set@k=0
while@k<=@number
begin
ifexists(select1fromsyscommentswhereid=object_id(@objectname)andnumber=@k)
begin
select@colid=max(colid)from#tempwherenumber=@k
set@n=1
while@n<=@colid
begin
select@OrigSpText1=ctext,@encrypted=encrypted,@status=statusFROM#tempWHEREcolid=@nandnumber=@k
SET@OrigSpText3=(SELECTctextFROMsyscommentsWHEREid=object_id(@objectName)andcolid=@nandnumber=@k)
if@n=1
begin
if@type=P
SET@OrigSpText2=(casewhen@number>1thenCREATEPROCEDURE+@objectName+;+rtrim(@k)+WITHENCRYPTIONAS
elseCREATEPROCEDURE+@objectName+WITHENCRYPTIONAS
end)
if@type=FNor@type=TFor@type=IF
SET@OrigSpText2=(case@typewhenTFthen
CREATEFUNCTION+@objectName+(@achar(1))returns@btable(avarchar(10))withencryptionasbegininsert@bselect@areturnend
whenFNthen
CREATEFUNCTION+@objectName+(@achar(1))returnschar(1)withencryptionasbeginreturn@aend
whenIFthen
CREATEFUNCTION+@objectName+(@achar(1))returnstablewithencryptionasreturnselect@aasa
end)
if@type=TR
begin
if@tr_parent_xtype=V
begin
set@OrigSpText2=CREATETRIGGER+@objectname+ON+OBJECT_NAME(@parentid)+WITHENCRYPTIONINSTEADOFINSERTASPRINT1
end
else
begin
set@OrigSpText2=CREATETRIGGER+@objectname+ON+OBJECT_NAME(@parentid)+WITHENCRYPTIONFORINSERTASPRINT1
end
end
if@type=V
set@OrigSpText2=CREATEVIEW+@objectname+WITHENCRYPTIONASSELECT1asf
set@q=4000-len(@OrigSpText2)
set@OrigSpText2=@OrigSpText2+REPLICATE(-,@q)
end
else
begin
SET@OrigSpText2=REPLICATE(-,4000)
end
SET@i=1
SET@resultsp=replicate(NA,(datalength(@OrigSpText1)/2))
WHILE@i<=datalength(@OrigSpText1)/2
BEGIN
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
set@orgvarbin=cast(@OrigSpText1asvarbinary(8000))
set@resultsp=(casewhen@encrypted=1
then@resultsp
elseconvert(nvarchar(4000),casewhen@status&2=2thenuncompress(@orgvarbin)else@orgvarbinend)
end)
print@resultsp
set@n=@n+1
end
end
set@k=@k+1
end
droptable#temp
rollbacktran
end