Bu asp kodu ile birlikte verilerinizi şifreleyebilir ve şifreli metinlerinizi açabilirsiniz. yani hem code hem encode...
Kod:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
plainText = cstr(request.Form("ad"))
cipherKey = "parolaparolaparola"
For Counter = 1 To Len(plainText)
Char = Asc(Mid(plainText, Counter, 1))
keyChar = Asc(Mid(cipherKey, Counter, 1))
cipherText = cipherText & Chr(Char Xor keyChar)
Next
response.Write("Sifrelenmemis Metin: " & cipherText & "<br>")
For Counter = 1 To Len(cipherText)
Char = Asc(Mid(cipherText, Counter, 1))
keyChar = Asc(Mid(cipherKey, Counter, 1))
plainText = plainText & Chr(Char Xor keyChar)
Next
uzunluk = len(ciphertext)
yazdir = left(plaintext,uzunluk)
response.Write("<br>Sifresi Çözülmüs Metin: " & yazdir)
cipherText = ""
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Untitled Document</title>
</head>
<body>
<label></label>
<form id="form1" name="form1" method="post" action="sifrele.asp">
<label>
<input name="ad" type="text" id="ad" />
</label>
<label>
<input type="submit" name="Submit" value="Submit" />
</label>
</form>
</body>
</html>