SQL Server下字符串，整数转换成16进制字符串的方法

/* *************************** 
  字符串转成16进制
  作者：不得闲
  QQ: 75492895
  Email: appleak46@yahoo.com.cn
*************************** */
Create   Function  VarCharToHex( @Str    Varchar ( 400 ))
returns   varchar ( 800 )
as
begin
   declare   @i   int , @Asi   int , @ModS   int , @res   varchar ( 800 ), @Len   int , @Cres   varchar ( 4 ), @tempstr   varbinary ( 400 )
   select   @i   =   1 , @res = '' , @len = datalength ( @str ), @tempStr   =   Convert ( varbinary , @str )
   while   @i <= @len  
   begin
      Select   @Asi   =   substring ( @tempstr , 1 , 1 ), @Cres = ''
      while   @Asi   <>   0
      begin
        select   @Mods   =   @Asi   % 16 ,
        @Cres = Case   when  ( @Mods   >   9 )  then   Char ( Ascii ( ' A ' ) + @Mods - 10 ) + @Cres   else   Cast ( @Mods   as   varchar ( 4 ))  +   @Cres   end ,
        @Asi   =   @Asi / 16
      end  
      Select   @res   =   @res   +   @Cres , @tempStr   =    substring ( @tempStr , 2 , @len - 1 ), @i   =   @i + 1   
   end
   return   @res
end


/* *************************** 
  整数转换成16进制
  作者：不得闲
  QQ: 75492895
  Email: appleak46@yahoo.com.cn
*************************** */
Create   Function  IntToHex( @IntNum   int )
returns   varchar ( 16 )
as
begin
   declare   @Mods   int , @res   varchar ( 16 )
   set   @res = ''
   while   @IntNum   <>   0  
   begin
     set   @Mods   = @IntNum   %   16
     if   @Mods   >   9  
       set   @res   =   Char ( Ascii ( ' A ' ) + @Mods - 10 ) + @res
     else  
       set   @res   =   Cast ( @Mods   as   varchar ( 4 ))  +   @res
     set   @IntNum   =   @IntNum / 16
   end
   return   @res
end