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
‘>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>