📄 一套加解密字符串的函数.htm
字号:
<P align=center>中国动感资源交流，网络动感资源荟萃</P></TD>
<TD align=middle>
<P align=center><A href="http://www.moonet.com/edu/">教育网</A>
英文版</P></TD></TR></TBODY></TABLE>
<CENTER>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=755>
<TBODY>
<TR vAlign=top>
<TD bgColor=#297dff width=1> </TD>
<TD width=753></TD>
<TD bgColor=#297dff width=1> </TD></TR></TBODY></TABLE>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=755>
<TBODY>
<TR vAlign=top>
<TD bgColor=#297dff width=1> </TD>
<TD width=753>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD bgColor=#297dff colSpan=2 height=20><FONT color=#ceffff> →
<A href="http://www.aspsky.net/article/index.asp?classid=2"><FONT
color=#ceffff>ASP技术</FONT></A> >> <A
href="http://www.aspsky.net/article/index.asp?classid=2&Nclassid=5"><FONT
color=#ceffff>安全加密</FONT></A> >> 《一套加解密字符串的函数》</FONT></TD></TR>
<TR>
<TD bgColor=#586011 colSpan=2 height=1><SPACER type="block"
width="1"></TD></TR>
<TR>
<TD colSpan=2 height=7></TD></TR>
<TR>
<TD align=middle class=p4
colSpan=2><B>一套加解密字符串的函数</B></FONT><BR>2002-3-4 动网先锋
</TD></TR>
<TR>
<TD class=p4 colSpan=2>
<BLOCKQUOTE><BR><%<BR>Function Encrypt(theNumber)<BR>On Error
Resume Next<BR>Dim n, szEnc, t, HiN, LoN, i<BR>n = CDbl((theNumber
+ 1570) ^ 2 - 7 * (theNumber + 1570) - 450)<BR>If n < 0 Then
szEnc = "R" Else szEnc = "J"<BR>n = CStr(abs(n))<BR>For i = 1 To
Len(n) step 2<BR>t = Mid(n, i, 2)<BR>If Len(t) = 1 Then<BR>szEnc =
szEnc & t<BR>Exit For<BR>End If<BR>HiN = (CInt(t) And 240) /
16<BR>LoN = CInt(t) And 15<BR>szEnc = szEnc & Chr(Asc("M") +
HiN) & Chr(Asc("C") + LoN)<BR>Next<BR>Encrypt = szEnc<BR>End
Function
<P></P>
<P>Function Decrypt(theNumber)<BR>On Error Resume Next<BR>Dim e,
n, sign, t, HiN, LoN, NewN, i<BR>e = theNumber<BR>If Left(e, 1) =
"R" Then sign = -1 Else sign = 1<BR>e = Mid(e, 2)<BR>NewN =
""<BR>For i = 1 To Len(e) step 2<BR>t = Mid(e, i, 2)<BR>If Asc(t)
>= Asc("0") And Asc(t) <= Asc("9") Then<BR>NewN = NewN &
t<BR>Exit For<BR>End If<BR>HiN = Mid(t, 1, 1)<BR>LoN = Mid(t, 2,
1)<BR>HiN = (Asc(HiN) - Asc("M")) * 16<BR>LoN = Asc(LoN) -
Asc("C")<BR>t = CStr(HiN Or LoN)<BR>If Len(t) = 1 Then t = "0"
& t<BR>NewN = NewN & t<BR>Next<BR>e = CDbl(NewN) *
sign<BR>Decrypt = CLng((7 + sqr(49 - 4 * (-450 - e))) / 2 -
1570)<BR>End
Function<BR>%><BR><html><body><BR>Original number:
69 <br><BR>Encrypt(69) returns: JNMQMOJ8
<br><BR>Decrypt("JNMQMOJ8") returns:
69<BR><p><BR>Another example using variables instead:
<br><BR>Encrypt(Request.Form("ID"))
<br><BR>Encrypt(myVar)
<br><BR>Decrypt(Request.QueryString("id"))
<br><BR>Decrypt("JNMQMOJ8") <br><BR>Decrypt(myVar)</P>
<P></body></html> <BR><BR></P></BLOCKQUOTE></TD></TR>
<TR>
<TD class=p4 vAlign=top width="50%">
<BLOCKQUOTE>原作者：GenieLi<BR>来 源：开发者俱乐部<BR>共有4911位读者阅读过此文<BR>【<A
href="http://bbs.aspsky.net/list.asp?boardid=1">发表评论</A>】
</BLOCKQUOTE></TD>
<TD class=p4 vAlign=top width="50%">
<P>
<LI><FONT color=#0772b1>上篇文章</FONT>：<A
href="http://www.aspsky.net/article/list.asp?id=2637">一段加密函数（base64）</A>
<BR>
<LI><FONT color=#0772b1>下篇文章</FONT>：<A
href="http://www.aspsky.net/article/list.asp?id=2639">一个不错的随机函数</A>
</LI></TD></TR>
<TR>
<TD bgColor=#297dff class=p4 height=20 width="50%"><FONT
color=#ceffff> → 本周热门</FONT></TD>
<TD bgColor=#297dff class=p4 width="50%"><FONT color=#ceffff> →
相关文章</FONT></TD></TR>
<TR>
<TD bgColor=#586011 colSpan=2 height=1><SPACER type="block"
width="1"></TD></TR>
<TR>
<TD colSpan=2 height=7></TD></TR>
<TR>
<TD class=p4 vAlign=top width="50%">
<LI><A href="http://www.aspsky.net/article/list.asp?id=1510"
target=_top title="SQL Server 7.0 入门（一）">SQL Server 7.0
入门（...</A>[<FONT color=red>7239</FONT>]<BR>
<LI><A href="http://www.aspsky.net/article/list.asp?id=1540"
target=_top title=PHP4实际应用经验篇(1)>PHP4实际应用经验篇(1)</A>[<FONT
color=red>7135</FONT>]<BR>
<LI><A href="http://www.aspsky.net/article/list.asp?id=1536"
target=_top
title=无组件文件上传代码实例（支持多文件上传及文件和input域混合上传）>无组件文件上传代码实例（支持多文件上...</A>[<FONT
color=red>6029</FONT>]<BR>
<LI><A href="http://www.aspsky.net/article/list.asp?id=2557"
target=_top title=树型结构在ASP中的简单解决>树型结构在ASP中的简单解决</A>[<FONT
color=red>5757</FONT>]<BR>
<LI><A href="http://www.aspsky.net/article/list.asp?id=1545"
target=_top title=PHP4实际应用经验篇(6)>PHP4实际应用经验篇(6)</A>[<FONT
color=red>5599</FONT>]<BR>
<LI><A href="http://www.aspsky.net/article/list.asp?id=2563"
target=_top title=一个老个写的无组件上传>一个老个写的无组件上传</A>[<FONT
color=red>5013</FONT>]<BR>
<LI><A href="http://www.aspsky.net/article/list.asp?id=1542"
target=_top title=PHP4实际应用经验篇(3)>PHP4实际应用经验篇(3)</A>[<FONT
color=red>4731</FONT>]<BR></LI></TD>
<TD class=p4 vAlign=top width="50%">
<LI><A
href="http://www.aspsky.net/article/list.asp?id=2785">RC4经典加密算法VB版本代码</A><BR>
<LI><A
href="http://www.aspsky.net/article/list.asp?id=2783">在asp中通过vbs类实现rsa加密与解密</A><BR>
<LI><A
href="http://www.aspsky.net/article/list.asp?id=2774">给大家一个新的加密方法，C#的</A><BR>
<LI><A
href="http://www.aspsky.net/article/list.asp?id=2638">一套加解密字符串的函数</A><BR>
<LI><A
href="http://www.aspsky.net/article/list.asp?id=2637">一段加密函数（base64）</A><BR>
<LI><A
href="http://www.aspsky.net/article/list.asp?id=2636">一段加密函数</A><BR>
<LI><A
href="http://www.aspsky.net/article/list.asp?id=2613">MD5加密的javascript实现例子</A><BR></LI></TD></TR>
<TR>
<TD colSpan=2 height=7></TD></TR></TBODY></TABLE>
<TD bgColor=#297dff width=1> </TD></TR></TBODY></TABLE>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=755>
<TBODY>
<TR>
<TD bgColor=#297dff height=1><SPACER type="block"
width="1"></TD></TR></TBODY></TABLE>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=755>
<TBODY>
<TR>
<TD align=middle height=30></TD></TR></TBODY></TABLE>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=755>
<TBODY>
<TR>
<TD align=middle class=p2 width="100%">
<TABLE border=0 cellPadding=0 cellSpacing=0 width=755>
<TBODY>
<TR>
<TD align=middle class=p2 width="100%">
<P align=center><A
href="http://www.aspsky.net/produce/index.asp">客户服务</A> -- <A
href="http://www.aspsky.net/aspads.asp">广告合作</A> -- <A
href="http://www.aspsky.net/about.asp">关于本站</A> -- <A
href="http://www.aspsky.net/tell.asp">联系方法</A><BR><BR>动网先锋版权所有 <FONT
face=Verdana, size=1 Arial, Helvetica, sans-serif>Copyright ©
2000-2001 <B>AspSky<FONT color=#cc0000>.Net</FONT></B>, All Rights
Reserved .</FONT>
</P></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></CENTER></CENTER></BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -