<%
%>
Cipher Main
Create Cipher
<%
dim strKey ' as string
if Request("data") <> "" then
response.write "
"
response.write "Encoded phrase is:
"
response.write ""
response.write pConvertToCipher ( Request("data"), strKey )
response.write ""
response.write "Using this Cipher Key:
"
response.write ""
response.write strKey
response.write "
"
response.write "To revert back to the original phrase:
"
response.write ""
response.write " - Find a letter in the encoded phrase in the second row.
"
response.write " - Convert it to the letter in the first row.
"
response.write "
"
end if
%>