sqlserver2000存储过程，触发器,函数，视图的解密

/*
 引用：邹建
 CSDN：j9988 copyright:2004.04.15
 V3.1
 破解字节不受限制，适用于SQLSERVER2000存储过程，函数，视图，触发器
 修正上一版视图触发器不能正确解密错误
 发现有错，请E_MAIL：[email protected]
*/

CREATE procedure sp_decrypt(@objectName varchar(50))
--WITH ENCRYPTION
as

begin
 set nocount on

 begin tran

 declare
  @objectname1 varchar(100),
  @orgvarbin varbinary(8000),

  @sql1 nvarchar(4000),
  @sql2 varchar(8000),
  @sql3 nvarchar(4000),
  @sql4 nvarchar(4000),

  @OrigSpText1 nvarchar(4000),
  @OrigSpText2 nvarchar(4000),
  @OrigSpText3 nvarchar(4000),
  @resultsp nvarchar(4000),

  @i int,
  @status int,
  @type varchar(10),
  @parentid int,

  @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