SQL Server stored procedures, storage function encryption, decryption

Source: Internet
Author: User
Tags decrypt functions insert return rtrim
Server| Stored Procedure | function | encryption | decryption

Encryption of stored procedures, stored functions: with encryption
<!--[If!supportlinebreaknewline]-->
<!--[endif]-->

CREATE procedure Dbo.sp_xml_main

@table_name nvarchar (260) = ',

@dirname nvarchar (20) = '

With encryption

As

Begin

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

End

Go

The decryption of stored procedures and stored functions (the following is a code written by a very tall person)

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

/*--cracked functions, procedures, triggers, views. Limited to SQLSERVER2000

--Author: j9988--*/

/*--Call Example

--Decrypt the specified stored procedure

exec sp_decrypt ' appsp_test '

--Decryption of all stored procedures

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 '/*-------stored procedure [' + @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

--crack byte unrestricted, apply to SQLSERVER2000 stored procedures, functions, views, triggers

--Fixed previous view triggers do not correctly decrypt errors

--Find fault, please e_mail:CSDNj9988@tom.com

BEGIN Tran

DECLARE @objectname1 varchar (@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 (a), @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) + ' and 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) 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"

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< /c2>)

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) 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"

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) + ' and encryption for INSERT as PRI NT 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



Related Article

Contact Us

The content source of this page is from Internet, which doesn't represent Alibaba Cloud's opinion; products and services mentioned on that page don't have any relationship with Alibaba Cloud. If the content of the page makes you feel confusing, please write us an email, we will handle the problem within 5 days after receiving your email.

If you find any instances of plagiarism from the community, please send an email to: info-contact@alibabacloud.com and provide relevant evidence. A staff member will contact you within 5 working days.

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.