repare que o objeto que você está criptografando não é o correto vC = objCriptografia.QuickEncrypt("'"&rs_login("senha")&"'", "%r3E9gY,gq4$2#*")
Response.Write "<br />Senha Cript: " & vC
vD = objCriptografia.QuickDecrypt(objCriptografia.QuickEncrypt(vD, "%r3E9gY,gq4$2#*"), "%r3E9gY,gq4$2#*")
experimente
chave = "%r3E9gY,gq4$2#*"
vC = objCriptografia.QuickEncrypt("'"&rs_login("senha")&"'", chave )
Response.Write "<br />Senha Cript: " & vC
vD = objCriptografia.QuickDecrypt(vC, chave)