----------------------------------------------------------------------------------------
--Function Name: mf_PWDEncrypt
--Author: Alain Tessier
--Date: May 31th 2002
--Description: Decrypt
----------------------------------------------------------------------------------------
CREATE FUNCTION mf_PWDEncrypt
( @strPWD varchar(30) )
RETURNS varchar(1000)
AS
BEGIN
DECLARE @strCoded varchar(1000)
DECLARE @ctr int
SET @Ctr = 1
SET @strCoded = ''
set @strPWD = LOWER ( @strPWD )
WHILE @Ctr <= LEN( @strPWD )
BEGIN
SET @strCoded = @strCoded + dbo.mf_DecTo26 ( CONVERT ( varchar(4) , 5000 +
CASE WHEN @CTR % 2 = 0 THEN ( 1 * @ctr ) ELSE ( -1 * @ctr ) END
* ASCII ( SUBSTRING ( @strPWD , @Ctr , 1 ) )
) )
SET @Ctr = @Ctr + 1
END
RETURN @strCoded
END