zoukankan      html  css  js  c++  java
  • 解密SQL SERVER 2005加密存储过程,函数

    在SQL SERVER 2005中必须用专用管理连接才可以查看过程过程中用到的表

    EG:sqlcmd -A

    1>use test

    2>go

    1>sp_decrypt 'p_testa'

    2>go

    Text
    ----------------------
    Create procedure P_testa

    with encryption

    as

    select * from test

     

    create PROCEDURE [dbo].[sp_decrypt] 
    (@procedure sysname = NULL)  
    AS  
    SET NOCOUNT ON  
    BEGIN
    DECLARE @intProcSpace bigint, @t bigint, @maxColID smallint,@intEncrypted  
    tinyint,@procNameLength int  
    select @maxColID = max(subobjid),@intEncrypted = imageval FROM  
    sys.sysobjvalues WHERE objid = object_id(@procedure)  
    GROUP BY imageval  

    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  
    '+REPLICATE('-', 40003 - @procNameLength)  
    else if @objtype='FN'  
    SET @fake_01='ALTER FUNCTION '+ @procedure +'() RETURNS INT WITH ENCRYPTION AS BEGIN RETURN 1  
    /*'+REPLICATE('*', datalength(@real_01) /2 - @procNameLength)+'*/ END'  
    else if @objtype='V'  
    SET @fake_01='ALTER view '+ @procedure +' WITH ENCRYPTION AS select 1 as col  
    /*'+REPLICATE('*', 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('*', 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  
    '+REPLICATE('-', 40003 - @procNameLength)  
    else if @objtype='FN'  
    SET @fake_01='CREATE FUNCTION '+ @procedure +'() RETURNS INT WITH ENCRYPTION AS BEGIN RETURN 1  
    /*'+REPLICATE('*', datalength(@real_01) /2 - @procNameLength)+'*/ END'  
    else if @objtype='V'  
    SET @fake_01='Create view '+ @procedure +' WITH ENCRYPTION AS select 1 as col  
    /*'+REPLICATE('*', 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('*', datalength(@real_01) /2 - @procNameLength)+'*/'  
    --开始计数  
    SET @intProcSpace=1  
    --使用字符填充临时变量  
    SET @real_decrypt_01 = replicate(N'A', (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(4000)  
    ,@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

    END

  • 相关阅读:
    js node 操作
    深入认识javascript中的eval函数
    连接到网页objectivec
    web.config的数据库连接字符串进行加密
    fontsize和font标签的size属性的区别
    js改变背景图片
    MS:Chart:Series 成員 饼图 文字Label 显示在饼外
    读取plist文件
    js判断undefined类型
    当用updatepanel和scriptmanager时,弹出框
  • 原文地址:https://www.cnblogs.com/doudou618/p/4334401.html
Copyright © 2011-2022 走看看