create function 加密(@In Varchar(8000))
returns varchar(8000)
As
begin
  declare @out varchar(8000),@i int,@j int
  select @Out='',@i=1
  while @i <= len(Rtrim(@In))
  Begin
    Set @j = ascii(SubString(@In,@i,1))+19
    Set @Out=@Out+Char(@j) 
    Set @i=@i+1
  End
  return @out
end
go
create function 解密(@In Varchar(8000))
returns varchar(8000)
As
begin
  declare @out varchar(8000),@i int,@j int
  select @Out='',@i=1
  while @i <= len(Rtrim(@In))
  Begin
    Set @j = ascii(SubString(@In,@i,1))-19
    Set @Out=@Out+Char(@j) 
    Set @i=@i+1
  End
  return @out
end
go