十三基础加密函数:
<html>
<meta charset="gbk">
<body>
<form name="test" method="post" action="">
<CENTER><textarea name="text" cols="80%" rows="20"></textarea><br></CENTER>
<CENTER><input type="submit" value="加密"></CENTER>
</form>
<%
dim str,newstr,ps,i
str=Request("text")
'将双引号替换成特殊字符
newstr=replace(str,"""","╁")
'将换行替换成特殊字符
newstr=replace(newstr,vbcrlf,"╋")
for i=1 to len(newstr)
'每次取一个字符,并进行倒序输出
ps=mid(newstr,i,1)&ps
next
%>
<CENTER>
<textarea name="b" cols="80%" rows="20"><%=ps%></textarea>
</CENTER>
</body>
</html>
十三基础解