<%

Set DynCrypto = server.CreateObject("DynCrypto.Crypto")

Senha = "minha_senha"
Dados = "Texto para ser criptografado"

response.write DynCrypto.SymEncrypt(Senha,Dados)

Set DynCrypto = Nothing

%>