sql server存储过程、存储函数的加密、解密
1、存储过程、存储函数的加密：WITH ENCRYPTION
CREATE
procedure
dbo.sp_spName
@Parameter varchar ( 50 ) = ''
WITH ENCRYPTION
as
begin
-- SQL代码
end
go
@Parameter varchar ( 50 ) = ''
WITH ENCRYPTION
as
begin
-- SQL代码
end
go
2、存储过程、存储函数的解密（作者:J9988；破解函数,过程,触发器,视图.仅限于SQLSERVER2000）
调用示例如下：
--解密指定存储过程
exec
sp_decrypt
'
AppSP_test
'
--对所有的存储过程解密
declare
tb
cursor
for
select name from sysobjects where xtype = ' P ' and status > 0 and name <> ' sp_decrypt '
declare @name sysname
open tb
fetch next from tb into @name
while @@fetch_status = 0
begin
print ' /*-------存储过程 [ ' + @name + ' ] -----------*/ '
exec sp_decrypt @name
fetch next from tb into @name
end
close tb
deallocate tb
select name from sysobjects where xtype = ' P ' and status > 0 and name <> ' sp_decrypt '
declare @name sysname
open tb
fetch next from tb into @name
while @@fetch_status = 0
begin
print ' /*-------存储过程 [ ' + @name + ' ] -----------*/ '
exec sp_decrypt @name
fetch next from tb into @name
end
close tb
deallocate tb
--解密存储过程SQL代码
--
CSDN：j9988 copyright:2004.04.15
--
V3.1
--
破解字节不受限制，适用于SQLSERVER2000存储过程，函数，视图，触发器
--
修正上一版视图触发器不能正确解密错误
--
发现有错，请E_MAIL：[email protected]
if
exists
(
select
*
from
dbo.sysobjects
where
id
=
object_id
(N
'
[dbo].[SP_DECRYPT]
'
)
and
OBJECTPROPERTY
(id, N
'
IsProcedure
'
)
=
1
)
drop
procedure
[
dbo
]
.
[
SP_DECRYPT
]
GO
CREATE
PROCEDURE
sp_decrypt(
@objectName
varchar
(
50
))
AS
begin
set
nocount
on
begin
tran
declare
@objectname1
varchar
(
100
),
@orgvarbin
varbinary
(
8000
)
declare
@sql1
nvarchar
(
4000
),
@sql2
varchar
(
8000
),
@sql3
nvarchar
(
4000
),
@sql4
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
'
begin
declare
@parent_obj
varchar
(
255
),
@tr_parent_xtype
varchar
(
10
)
select
@parent_obj
=
parent_obj
from
sysobjects
where
id
=
object_id
(
@objectName
)
select
@tr_parent_xtype
=
xtype
from
sysobjects
where
id
=
@parent_obj
if
@tr_parent_xtype
=
'
V
'
begin
set
@sql1
=
'
ALTER TRIGGER
'
+
@objectname
+
'
ON
'
+
OBJECT_NAME
(
@parentid
)
+
'
WITH ENCRYPTION INSTERD OF INSERT AS PRINT 1
'
end
else
begin
set
@sql1
=
'
ALTER TRIGGER
'
+
@objectname
+
'
ON
'
+
OBJECT_NAME
(
@parentid
)
+
'
WITH ENCRYPTION FOR INSERT AS PRINT 1
'
end
end
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 as f
'
set
@q
=
len
(
@sql1
)
set
@sql1
=
@sql1
+
REPLICATE
(
'
-
'
,
4000
-
@q
)
select
@sql2
=
REPLICATE
(
'
-
'
,
8000
)
set
@sql3
=
'
exec(@sql1
'
select
@colid
=
max
(colid)
from
#
temp
where
number
=
@k
set
@n
=
1
while
@n
<=
CEILING
(
1.0
*
(
@colid
-
1
)
/
2
)
and
len
(
@sQL3
)
<=
3996
begin
set
@sql3
=
@sql3
+
'
+@
'
set
@n
=
@n
+
1
end
set
@sql3
=
@sql3
+
'
)
'
exec
sp_executesql
@sql3
,N
'
@sql1 nvarchar(4000),@ varchar(8000)
'
,
@sql1
=
@sql1
,@
=
@sql2
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
'
begin
if
@tr_parent_xtype
=
'
V
'
begin
set
@OrigSpText2
=
'
CREATE TRIGGER
'
+
@objectname
+
'
ON
'
+
OBJECT_NAME
(
@parentid
)
+
'
WITH ENCRYPTION INSTEAD OF INSERT AS PRINT 1
'
end
else
begin
set
@OrigSpText2
=
'
CREATE TRIGGER
'
+
@objectname
+
'
ON
'
+
OBJECT_NAME
(
@parentid
)
+
'
WITH ENCRYPTION FOR INSERT AS PRINT 1
'
end
end
if
@type
=
'
V
'
set
@OrigSpText2
=
'
CREATE VIEW
'
+
@objectname
+
'
WITH ENCRYPTION AS SELECT 1 as f
'
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
))
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
(
@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
set
@n
=
@n
+
1
end
end
set
@k
=
@k
+
1
end
drop
table
#
temp
rollback
tran
end