UTILITY OBJECTS – E N C R Y P T

‘>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

‘UTILITY OBJECT            :           E N C R Y P T

‘DESCRIPTION                  :           ENCRIPTS THE PASSWORD

‘SYNTAX                              :           CRIPT.ENCRYPT (PARAMETER)

‘>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

Public Function funcCrypt()

strPassword = “NewPassword”

‘Encrypting the Password

strEncryptedPassword = Crypt.Encrypt(strPassword)

MsgBox (strEncryptedPassword)

Browser("title:=Gmail: Email from Google").Page("title:=Gmail: Email from Google").WebEdit("name:=Passwd").SetSecure strEncryptedPassword "

End Function

‘>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>