Monday, March 18, 2013

Encyption

CREATE FUNCTION [dbo].[EncryptText] (@UText varchar(50))
 RETURNS varchar(50)  AS
Begin

    declare @Tvar Varchar(50)
    declare @TRnd int
    declare @i int

    set @i=1
       set @TRnd=  right( convert(varchar,getdate(),108),2)
    set  @Tvar= ''
   
    while @i<=len(@Utext)
        begin
            set  @Tvar=@Tvar + char(ascii(substring(@Utext,@i,1))+@TRnd)
            set @i=@i+1
        end
        return(@Tvar + case  len(cast(@TRnd as varchar)) when 1 then '0'+cast(@TRnd as varchar)  else cast(@TRnd as varchar) end)
End
=====================================================================================================================
CREATE FUNCTION [dbo].[DecryptText] (@UText varchar(52))
 RETURNS varchar(50)  AS
Begin

    declare @Tvar Varchar(50)
    declare @PId int
    declare @i int

    set @i=1
       set @PId= cast( right(@Utext,2) as int)
    set  @Tvar= ''
   
    while @i<=len(@Utext)-2
        begin
            set  @Tvar=@Tvar + char(ascii(substring(@Utext,@i,1))-@PId)
            set @i=@i+1
        end
        return(@Tvar)
End