SQL Server存储函数的加密解密

server|函数|加密|解密

存储过程、存储函数的加密:WITH ENCRYPTION

  <!--[if !supportLineBreakNewLine]-->

  <!--[endif]-->

  CREATE procedure dbo.sp_XML_main

  @table_name nvarchar(260)='',

  @dirname nvarchar(20)=''

  WITH ENCRYPTION

  as

  begin

  ....................................................

  end

  go

  存储过程、存储函数的解密(以下是一位绝世高人编写的代码)

  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

  /*--破解函数,过程,触发器,视图.仅限于SQLSERVER2000

  --作者:J9988--*/

  /*--调用示例

  --解密指定存储过程

  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

  --*/

  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

  --CSDN:j9988 copyright:2004.04.15

  --V3.1

  --破解字节不受限制,适用于SQLSERVER2000存储过程,函数,视图,触发器

  --修正上一版视图触发器不能正确解密错误

  --发现有错,请E_MAIL:CSDNj9988@tom.com

  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

 

时间: 2024-09-05 04:16:02

SQL Server存储函数的加密解密的相关文章

sql server存储过程、存储函数的加密、解密

server|存储过程|函数|加密|解密 存储过程.存储函数的加密:WITH ENCRYPTION<!--[if !supportLineBreakNewLine]--><!--[endif]--> CREATE procedure dbo.sp_XML_main @table_name nvarchar(260)='', @dirname nvarchar(20)='' WITH ENCRYPTION as begin ..............................

sql server 解密-请问Microsoft SQL Server 2005数据库中加密记录解密方法

问题描述 请问Microsoft SQL Server 2005数据库中加密记录解密方法 请问Microsoft SQL Server 2005数据库中类似 0MHCkgK7c4E= 的记录(共12位)是使用什么算法加密得到的?能否提供解密的方式或网址,谢谢! 解决方案 有些用到了base64来加密

分析MS SQL Server里函数的两种用法

server|函数 SQL Server里函数的两种用法(可以代替游标) 1. 因为update里不能用存储过程,然而要根据更新表的某些字段还要进行计算.我们常常采用游标的方法,这里用函数的方法实现. 函数部分: 以下是引用片段: CREATE FUNCTION [DBO].[FUN_GETTIME] (@TASKPHASEID INT) RETURNS FLOAT AS BEGIN DECLARE @TASKID INT, @HOUR FLOAT, @PERCENT FLOAT, @RETUR

SQL Server里函数的两种用法(可以代替游标)

server|函数|游标 SQL Server里函数的两种用法(可以代替游标)1. 因为update里不能用存储过程,然而要根据更新表的某些字段还要进行计算.我们常常采用游标的方法,这里用函数的方法实现. 函数部分:CREATE FUNCTION [DBO].[FUN_GETTIME] (@TASKPHASEID INT) RETURNS FLOAT AS BEGIN   DECLARE @TASKID INT,          @HOUR FLOAT,           @PERCENT

使用sql server日期函数获取指定格式的当前日期

使用sqlserver日期函数中的getdate()可以获取当现的日期,下面就将为您介绍这种使用sqlserver日期函数获取当前日期的方法. 但是如果我们只需要得到当前的日期,不需要时间部分,或者不需要日期只要时间部分,再或者我要只要字段中的日期以某种形式显示,应该怎么操作呢? 可以使用convert(varchar(10),getdate(),120)这样的方法来实现,其中varchar(10)定义的是你要的字段的长度,当然长度的不同返回的也会不的,如果我们只要日期部分,设成10正好为日期长

SQL SERVER其它函数

本篇文章还是学习<程序员的SQL金典>内容的记录,此次将讲解的是SQL SERVER常用的其它函数. (其它数据库这里就不罗列了,想看更多的可以关注<程序员的SQL金典>). 具体的其他函数包括:类型转换的函数.空值处理的函数.流程控制函数.SQL SERVER独有函数. 类型转换的函数 CAST ( expression AS data_type)函数         CONVERT ( data_type, expression)函数 上面两个函数都是SQL SERVER提供的

SQL Server里函数的两种用法

SQL Server里函数的两种用法(可以代替游标) 1. 因为update里不能用存储过程,然而要根据更新表的某些字段还要进行计算.我们常常采用游标的方法,这里用函数的方法实现. 函数部分: 以下是引用片段: CREATE FUNCTION [DBO].[FUN_GETTIME] (@TASKPHASEID INT) RETURNS FLOAT AS BEGIN DECLARE @TASKID INT, @HOUR FLOAT, @PERCENT FLOAT, @RETURN FLOAT IF

SQL Server编写函数获取汉字的拼音码

  SQL Server编写函数获取汉字的拼音码(首字母) Create function fun_getPY ( @str nvarchar(4000) ) returns nvarchar(4000) as begin declare @word nchar(1),@PY nvarchar(4000) set @PY='' while len(@str)>0 begin set @word=left(@str,1) --如果非汉字字符,返回原字符 set @PY=@PY+(case when

一个字节造成的巨大性能差异——SQL Server存储结构

今天同事问了我一个SQL的问题,关于SQL Server内部存储结构的,我觉得挺有意思,所以写下这篇博客讨论并归纳了一下.问题是这样的: 首先我们创建两张表,一张表的列长度是4039字节,另一张表的长度是4040字节,他们就只有一个字节的差距,比如以下创建表的SQL: CREATE TABLE tb4039(c1 INT IDENTITY,c2 char(4035) not null)CREATE TABLE tb4040(c1 INT IDENTITY,c2 char(4036) not nu