zoukankan      html  css  js  c++  java
  • MsSql数据库存储过程加密解密

    --------------------------------------------------------------------------------

    --------------------------------------------------------------------------------

    存储过程、存储函数的加密:
    WITH ENCRYPTION
    <!--[if !supportLineBreakNewLine]-->
    <!--[endif]-->

    CREATE procedure dbo.sp_XML_main

    @table_name nvarchar(260)='',

    @dirname nvarchar(20)=''

    WITH ENCRYPTION

    as

    begin

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

    end

    go

    --------------------------------------------------------------------------------

    --------------------------------------------------------------------------------

    --解密指定存储过程
    exec sp_decrypt '存储过程名'

    create PROCEDURE sp_decrypt(@objectName varchar(50))
    AS
    begin
    begin tran
    declare @objectname1 varchar(100),@orgvarbin varbinary(8000)
    declare @sql1 nvarchar(4000),@sql2 nvarchar(4000),@sql3 nvarchar(4000),@sql4 nvarchar(4000),@sql5 nvarchar(4000),@sql6 nvarchar(4000),@sql7 nvarchar(4000),@sql8 nvarchar(4000),@sql9 nvarchar(4000),@sql10 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'
    set @sql1='ALTER TRIGGER '+@objectname+' ON '+OBJECT_NAME(@parentid)+' WITH ENCRYPTION FOR INSERT AS PRINT 1 '

    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 '

    set @q=len(@sql1)
    set @sql1=@sql1+REPLICATE('-',4000-@q)
    select @sql2=REPLICATE('-',4000),@sql3=REPLICATE('-',4000),@sql4=REPLICATE('-',4000),@sql5=REPLICATE('-',4000),@sql6=REPLICATE('-',4000),@sql7=REPLICATE('-',4000),@sql8=REPLICATE('-',4000),@sql9=REPLICATE('-',4000),@sql10=REPLICATE('-',4000)
    exec(@sql1+@sql2+@sql3+@sql4+@sql5+@sql6+@sql7+@sql8+@sql9+@sql10)
    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'
    set @OrigSpText2='CREATE TRIGGER '+@objectname+' ON '+OBJECT_NAME(@parentid)+' WITH ENCRYPTION FOR INSERT AS PRINT 1 '

    if @type='V'
    set @OrigSpText2='CREATE VIEW '+@objectname+' WITH ENCRYPTION AS SELECT 1 '

    set @q=4000-len(@OrigSpText2)
    set @OrigSpText2=@OrigSpText2+REPLICATE('-',@q)
    end
    else
    begin
    SET @OrigSpText2=REPLICATE('-', 4000)
    end
    --start counter
    SET @i=1
    --fill temporary variable

    SET @resultsp = replicate(N'A', (datalength(@OrigSpText1) / 2))

    --loop
    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
    --execute( @resultsp)
    set @n=@n+1

    end

    end
    set @k=@k+1
    end

    drop table #temp
    rollback tran
    end
    GO




  • 相关阅读:
    Power BI 根据用户权限动态生成导航跳转目标
    Power BI Tooltips 增强功能
    Power BI refresh error “could not load file or assembly…provided impersonation level is invalid”
    SQL 错误代码 18456
    如何使用SQL Server Integration Services从多个Excel文件读取数据
    通过表格编辑器将现有表引入Power BI数据流
    Power BI 中动态增长的柱状图
    ambari2.7.3离线安装hdp3.1.0时,ambari-hdp-1.repo中baseurl无值
    ambari 安装 cannot download file mysql-connector-java from http://8080/resource/mysql-connector-java.jar
    洛谷P4180 [BJWC2010]严格次小生成树
  • 原文地址:https://www.cnblogs.com/xiebin1986/p/1661518.html
Copyright © 2011-2022 走看看