请选择 进入手机版 | 继续访问电脑版
搜索
查看: 266|回复: 2

[数据库] SQL2005_2008存储过程解密代码

[复制链接]
  • TA的每日心情
    郁闷
    2018-7-31 18:12
  • 签到天数: 5 天

    [LV.2]偶尔看看I

    发表于 2018-7-26 15:04:48 | 显示全部楼层 |阅读模式 <
    操作步骤:
    1、先用Windows身份验证登陆SQL Server Management Studio;
    2、依次点击文件->新建->数据库引擎查询,在弹出的连接对话框中,服务器名称改为 ADMIN:服务器名称;然后点选项->连接属性->连接到数据库 改为加密存储过程所在的数据库->连接即可.
    3、把下面的解密代码复制到数据库查询对话框中并执行
    4、最后清除数据库查询对话框中的所有代码,执行 exec dbo.sp_windbi$decrypt @procedure,0  (@procedure为加密的存储过程或函数)

    SQL2005/2008 存储过程解密代码如下:

    Create PROCEDURE [dbo].[sp_windbi$decrypt] (@procedure sysname = NULL, @revfl int = 1)  
    AS  
    /**//*  
    调用形式为:  
    exec dbo.sp_windbi$decrypt @procedure,0  
    如果第二个参数使用1的话,会给出该存储过程的一些提示。  
    --版本4.0  修正存储过程过长解密出来是空白的问题  
    */  
    SET NOCOUNT ON  
    IF @revfl = 1  
    BEGIN  
    PRINT '警告:该存储过程会删除并重建原始的存储过程。'  
    PRINT ' 在运行该存储过程之前确保你的数据库有一个备份。'  
    PRINT ' 该存储过程通常应该运行在产品环境的一个备份的非产品环境下。'  
    PRINT ' 为了运行这个存储过程,将参数@refl的值更改为0。'  
    RETURN 0  
    END  
    DECLARE @intProcSpace bigint, @t bigint, @maxColID smallint,@procNameLength int  
    select @maxColID = max(subobjid) FROM  
    sys.sysobjvalues WHERE objid = object_id(@procedure)  
    --select @maxColID as 'Rows in sys.sysobjvalues'  
    select @procNameLength = datalength(@procedure) 29  
    DECLARE @real_01 nvarchar(max)  
    DECLARE @fake_01 nvarchar(max)  
    DECLARE @fake_encrypt_01 nvarchar(max)  
    DECLARE @real_decrypt_01 nvarchar(max),@real_decrypt_01a nvarchar(max)  
    declare @objtype varchar(2),@ParentName nvarchar(max)  
    select @real_decrypt_01a = ''  
    --提取对象的类型如是存储过程还是函数,如果是触发器,还要得到其父对象的名称  
    select @objtype=type,@parentname=object_name(parent_object_id)  
    from sys.objects where [object_id]=object_id(@procedure)  
    -- 从sys.sysobjvalues里提出加密的imageval记录  
    SET @real_01=(SELECT top 1 imageval FROM sys.sysobjvalues WHERE objid =  
    object_id(@procedure) and valclass = 1 order by subobjid)  

    --创建一个临时表  
    create table #output ( [ident] [int] IDENTITY (1, 1) NOT NULL ,  
    [real_decrypt] NVARCHAR(MAX) )  
    --开始一个事务,稍后回滚  
    BEGIN TRAN  
    --更改原始的存储过程,用短横线替换  
    if @objtype='P'  
      SET @fake_01='ALTER PROCEDURE ' @procedure ' WITH ENCRYPTION AS select 1  
      /**//*' REPLICATE(cast('*'as nvarchar(max)), datalength(@real_01) /2 - @procNameLength) '*/'  
    else if @objtype='FN'  
      SET @fake_01='ALTER FUNCTION ' @procedure '() RETURNS INT WITH ENCRYPTION AS BEGIN RETURN 1  
      /**//*' REPLICATE(cast('*'as nvarchar(max)), datalength(@real_01) /2 - @procNameLength) '*/ END'  
    else if @objtype='V'  
      SET @fake_01='ALTER view ' @procedure ' WITH ENCRYPTION AS select 1 as col  
      /**//*' REPLICATE(cast('*'as nvarchar(max)), datalength(@real_01) /2 - @procNameLength) '*/'  
    else if @objtype='TR'  
      SET @fake_01='ALTER trigger ' @procedure ' ON ' @parentname 'WITH ENCRYPTION AFTER INSERT AS RAISERROR (''N'',16,10)  
      /**//*' REPLICATE(cast('*'as nvarchar(max)), datalength(@real_01) /2 - @procNameLength) '*/'  
    EXECUTE (@fake_01)  
    --从sys.sysobjvalues里提出加密的假的  
    SET @fake_encrypt_01=(SELECT top 1 imageval FROM sys.sysobjvalues WHERE objid =  
    object_id(@procedure) and valclass = 1 order by subobjid )  
    if @objtype='P'  
      SET @fake_01='Create PROCEDURE ' @procedure ' WITH ENCRYPTION AS select 1  
      /**//*' REPLICATE(cast('*'as nvarchar(max)), datalength(@real_01) /2 - @procNameLength) '*/'  
    else if @objtype='FN'  
      SET @fake_01='CREATE FUNCTION ' @procedure '() RETURNS INT WITH ENCRYPTION AS BEGIN RETURN 1  
      /**//*' REPLICATE(cast('*'as nvarchar(max)), datalength(@real_01) /2 - @procNameLength) '*/ END'  
    else if @objtype='V'  
      SET @fake_01='Create view ' @procedure ' WITH ENCRYPTION AS select 1 as col  
      /**//*' REPLICATE(cast('*'as nvarchar(max)), datalength(@real_01) /2 - @procNameLength) '*/'  
    else if @objtype='TR'  
      SET @fake_01='Create trigger ' @procedure ' ON ' @parentname 'WITH ENCRYPTION AFTER INSERT AS RAISERROR (''N'',16,10)  
      /**//*' REPLICATE(cast('*'as nvarchar(max)), datalength(@real_01) /2 - @procNameLength) '*/'  
    --开始计数  
    SET @intProcSpace=1  
    --使用字符填充临时变量  
    SET @real_decrypt_01 = replicate(cast('A'as nvarchar(max)), (datalength(@real_01) /2 ))  
    --循环设置每一个变量,创建真正的变量  
    --每次一个字节  
    SET @intProcSpace=1  
    --如有必要,遍历每个@real_xx变量并解密  
    WHILE @intProcSpace<=(datalength(@real_01)/2)  
    BEGIN  
    --真的和假的和加密的假的进行异或处理  
    SET @real_decrypt_01 = stuff(@real_decrypt_01, @intProcSpace, 1,  
    NCHAR(UNICODE(substring(@real_01, @intProcSpace, 1)) ^  
    (UNICODE(substring(@fake_01, @intProcSpace, 1)) ^  
    UNICODE(substring(@fake_encrypt_01, @intProcSpace, 1)))))  
    SET @intProcSpace=@intProcSpace 1  
    END  


    --通过sp_helptext逻辑向表#output里插入变量  
    insert #output (real_decrypt) select @real_decrypt_01  
    --select real_decrypt AS '#output chek' from #output --测试  
    -- -------------------------------------  
    --开始从sp_helptext提取  
    -- -------------------------------------  
    declare @dbname sysname  
    ,@BlankSpaceAdded int  
    ,@BasePos int  
    ,@CurrentPos int  
    ,@TextLength int  
    ,@LineId int  
    ,@AddOnLen int  
    ,@LFCR int --回车换行的长度  
    ,@DefinedLength int  
    ,@SyscomText nvarchar(max)  
    ,@Line nvarchar(255)  
    Select @DefinedLength = 255  
    SELECT @BlankSpaceAdded = 0 --跟踪行结束的空格。注意Len函数忽略了多余的空格  
    CREATE TABLE #CommentText  
    (LineId int  
    ,Text nvarchar(255) collate database_default)  
    --使用#output代替sys.sysobjvalues  
    DECLARE ms_crs_syscom CURSOR LOCAL  
    FOR SELECT real_decrypt from #output  
    ORDER BY ident  
    FOR READ ONLY  
    --获取文本  
    SELECT @LFCR = 2  
    SELECT @LineId = 1  
    OPEN ms_crs_syscom  
    FETCH NEXT FROM ms_crs_syscom into @SyscomText  
    WHILE @@fetch_status >= 0  
    BEGIN  
    SELECT @BasePos = 1  
    SELECT @CurrentPos = 1  
    SELECT @TextLength = LEN(@SyscomText)  
    WHILE @CurrentPos != 0  
    BEGIN  
    --通过回车查找行的结束  
    SELECT @CurrentPos = CHARINDEX(char(13) char(10), @SyscomText,  
    @BasePos)  
    --如果找到回车  
    IF @CurrentPos != 0  
    BEGIN  
    --如果@Lines的长度的新值比设置的大就插入@Lines目前的内容并继续  
    While (isnull(LEN(@Line),0) @BlankSpaceAdded   
    @CurrentPos-@BasePos @LFCR) > @DefinedLength  
    BEGIN  
    SELECT @AddOnLen = @DefinedLength-(isnull(LEN(@Line),0)   
    @BlankSpaceAdded)  
    INSERT #CommentText VALUES  
    ( @LineId,  
    isnull(@Line, N'') isnull(SUBSTRING(@SyscomText,  
    @BasePos, @AddOnLen), N''))  
    SELECT @Line = NULL, @LineId = @LineId 1,  
    @BasePos = @BasePos @AddOnLen, @BlankSpaceAdded = 0  
    END  
    SELECT @Line = isnull(@Line, N'')   
    isnull(SUBSTRING(@SyscomText, @BasePos, @CurrentPos-@BasePos @LFCR), N'')  
    SELECT @BasePos = @CurrentPos 2  
    INSERT #CommentText VALUES( @LineId, @Line )  
    SELECT @LineId = @LineId 1  
    SELECT @Line = NULL  
    END  
    ELSE  
    --如果回车没找到  
    BEGIN  
    IF @BasePos <= @TextLength  
    BEGIN  
    --如果@Lines长度的新值大于定义的长度  
    While (isnull(LEN(@Line),0) @BlankSpaceAdded   
    @TextLength-@BasePos 1 ) > @DefinedLength  
    BEGIN  
    SELECT @AddOnLen = @DefinedLength -  
    (isnull(LEN(@Line),0) @BlankSpaceAdded)  
    INSERT #CommentText VALUES  
    ( @LineId,  
    isnull(@Line, N'') isnull(SUBSTRING(@SyscomText,  
    @BasePos, @AddOnLen), N''))  
    SELECT @Line = NULL, @LineId = @LineId 1,  
    @BasePos = @BasePos @AddOnLen, @BlankSpaceAdded =  
    0  
    END  
    SELECT @Line = isnull(@Line, N'')   
    isnull(SUBSTRING(@SyscomText, @BasePos, @TextLength-@BasePos 1 ), N'')  
    if LEN(@Line) < @DefinedLength and charindex(' ',  
    @SyscomText, @TextLength 1 ) > 0  
    BEGIN  
    SELECT @Line = @Line ' ', @BlankSpaceAdded = 1  
    END  
    END  
    END  
    END  
    FETCH NEXT FROM ms_crs_syscom into @SyscomText  
    END  
    IF @Line is NOT NULL  
    INSERT #CommentText VALUES( @LineId, @Line )  
    select Text from #CommentText order by LineId  
    CLOSE ms_crs_syscom  
    DEALLOCATE ms_crs_syscom  
    DROP TABLE #CommentText  
    -- -------------------------------------  
    --结束从sp_helptext提取  
    -- -------------------------------------  
    --删除用短横线创建的存储过程并重建原始的存储过程  
    ROLLBACK TRAN  
    DROP TABLE #output  
    go  

    该用户从未签到

    发表于 2018-8-5 16:39:35 | 显示全部楼层
    好贴,值得收藏,大家都顶
    回复

    使用道具 举报

    该用户从未签到

    发表于 2019-2-23 22:26:03 | 显示全部楼层
    支持一下吧,确实是不错的贴子。













    qq名片赞
    代刷网
    代刷
    代刷平台
    qq空间刷赞
    qq代刷
    QQ代刷网
    qq代刷
    抖音刷赞
    qq代刷网
    卡盟
    刷赞平台
    QQ代刷
    刷赞
    刷赞网站
    刷赞
    回复

    使用道具 举报

    您需要登录后才可以回帖 登录 | 立即注册

    本版积分规则

    艾特资源分享

    艾特资源分享,一个分享各种资源的部落,提供优质互联网资源!

    扫描并关注

    联系我们

    • QQ:2129911300
    • Email:gly@it155.cn

    申请友链|Archiver|手机版|艾特资源分享 ( 粤ICP备18077912号 )

    Powered by Discuz! X3.4 © 2001-2013 Comsenz Inc.

    快速回复 返回顶部 返回列表