varbinary 与 字符串 的互换函数

---

CREATE function [dbo].[varbin2hexstr](
    @bin varbinary(8000)
    )returns varchar(8000)
    as
    begin
        declare @re varchar(8000),@i int
        select @re='',@i=datalength(@bin)
        while @i>0
            select @re=substring('0123456789ABCDEF',substring(@bin,@i,1)/16+1,1)
                    +substring('0123456789ABCDEF',substring(@bin,@i,1)%16+1,1)
                    +@re
                ,@i=@i-1
       -- return('0x'+@re)
        return @re
    end
   

 

 

CREATE  function [dbo].[hexstr2varbin](
  @char varchar(8000)
)returns varbinary(8000)
as
begin
    declare @re varbinary(8000), @tempchar varchar(2),
            @getchar varchar(1), @getint int, @n int, @totalint int,
            @i int, @tempint int, @runNum int -- 字符串截取段数

     select @tempchar='',@i=datalength(@char), @re=0x;

    if( @i>0)
    begin
        if ( @i%2 = 0) set @runNum= @i/2
        else set @runNum= @i/2 + 1

        while (@runNum > 0)
        begin
            if(@runNum = 1) set @tempchar = @char
            else set @tempchar = substring(@char, (@runNum)*2-1,2)

            select @n=1,@totalint=0;
           
            -- 循环处理截取的每个字符串 (这里的字符串长度为2)
            while @n < ( datalength(@tempchar) + 1 )
            begin
                set @getchar=substring(@tempchar,@n,1);

                -- 将字符转换为十六进制对应的数字
                select @getint=case 
                       when @getchar='a' then 10
                       when @getchar='b' then 11
                       when @getchar='c' then 12
                       when @getchar='d' then 13
                       when @getchar='e' then 14
                       when @getchar='f' then 15
                       else  convert(int,@getchar) end;

                set @tempint=@getint*power(16,datalength(@tempchar)-@n)
                set @totalint = @totalint + @tempint
                set @n=@n+1
            end

               set @re=convert(varbinary(1),@totalint) + @re;   
               set @runNum=@runNum-1;        
        end
    end
   return @re

end