SET QUOTED_IDENTIFIER  OFF    SET ANSI_NULLS  ON 
GO

if exists (select * from sysobjects where id = object_id(N'[dbo].[sp_encryptPassword]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[sp_encryptPassword]
GO

CREATE PROCEDURE sp_encryptPassword 

@pwd VARCHAR(10),
@EncPwd   VARCHAR(10) OUTPUT

AS

/*Stored Procedure For Encrypting a Password
Instantiates a COM object created in Visual Basic 
Visual Basic Project: Encrypt
Class Name: EncryptionClass
Method Name: EncryptString
DLL Name:  encrypt.dll
*/

DECLARE @object int
DECLARE @hr int
DECLARE @property varchar(255)
DECLARE @return varchar(255)

  -- Create the com  object.
EXEC @hr = sp_OACreate 'Encrypt.EncryptionClass', @object OUT
IF @hr <> 0
BEGIN
    EXEC sp_displayoaerrorinfo @object, @hr
    RETURN
END

-- Call  EncryptString which returns a string
EXEC @hr = sp_OAMethod @object, 'EncryptString',@return OUTPUT, @pwd
IF @hr <> 0
BEGIN
    EXEC sp_displayoaerrorinfo @object, @hr
    RETURN
END

-- Destroy the Encrypt.EncryptionClass object
EXEC @hr = sp_OADestroy @object
IF @hr <> 0
BEGIN
    EXEC sp_displayoaerrorinfo @object, @hr
    RETURN
END

       SELECT @EncPwd   = @return 


GO
SET QUOTED_IDENTIFIER  OFF    SET ANSI_NULLS  ON 
GO