<%
Set DynCrypto = server.CreateObject("DynCrypto.Crypto")
Senha = "minha_senha" Dados = "Texto para ser criptografado"
response.write DynCrypto.SymEncrypt(Senha,Dados)
Set DynCrypto = Nothing
%>