Como usar o componente Dynu?
Exemplo de implementação de DynuDNS:
<%
entrada = trim(request("txt_DNS"))
if entrada = "" then
%>
<html>
<head>
<title>DynuDNS</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<form name="form1" method="post" action="">
<p>Domínio:
<input type="text" name="txt_DNS">
<input type="submit" name="Enviar" value="Enviar">
<br>
</p>
</form>
</body>
</html>
<%
else
Set oDNS = Server.Createobject("Dynu.DNS")
REM Display the ip address of host ’dynu.com’
resultado = "Resultado: " & oDNS.Lookup(entrada)
Set oDNS = nothing
%>
<html>
<head>
<title>DynuDNS</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<form name="form2" method="post" action="">
<p>Endereço IP:
<input type="text" name="txt_DNS">
<input type="submit" name="Enviar" value="Enviar">
<br>
</p>
<p><%= resultado %></p>
</form>
</body>
</html>
<%
end if
%>
Exemplo de DynuCrypt:
<%
' Criar objeto para criptografia com Dynu
Set oEncryptor = Server.Createobject("Dynu.Encrypt")
Const sFrase="Esta é a frase secreta!"
Dim sEncrypt
Dim sDecrypt
' Criptografar uma string utilizando a chave senhacriptografia:
sEncrypt = oEncryptor.Encrypt(sFrase, "senhacriptografia")
Response.Write("Frase ANTES de Criptografar : '" & sFrase & "'<BR>")
Response.Write("Frase APÓS Criptografar : '" & sEncrypt & "'<BR>")
' Descriptografar a string utilizando a chave senhacriptografia:
sDecrypt = oEncryptor.Decrypt(sEncrypt, "senhacriptografia")
Response.Write("Frase APÓS Descriptografar : '" & sDecrypt & "'")
Set oEncrypt = nothing
%>
|