<%
' Cria uma instância do controle
Set AspCrypt = Server.CreateObject("AspCrypt.Crypt")
str_Chave = "AB"
str_Valor = "Componentes ASP | AspCrypt - Server Objects"
Response.Write "Resultado da Criptografia: "& AspCrypt.Crypt(str_Chave, str_Valor)
' Tira o objeto da memória
Set AspCrypt = Nothing
%>