<%
'Inicializa as variáveis
dim dados
dim codEmp
dim chave
dim pedido
dim formato
dim cripto
chave = "ELONLU1410983126" 'Coloque aqui sua chave de criptografia em maiúscula
'Inicializa valores
codEmp = "J0318316700001830000006187" 'Coloque aqui seu código de empresa
formato = "1" 'Coloque aqui o tipo de retorno desejado: 0 para HTML ou 1 para XML
'Recebe o pedido
pedido = Request.Form("pedido")
Set cripto = Server.CreateObject("Itaucripto.cripto")
'Realiza a criptografia dos dados
dados = cripto.geraConsulta(codEmp, pedido, formato, chave)
set cripto = nothing
%>