📄 0102.htm
字号:
<html>
<head>
<title>新时代软件教程:操作系统 主页制作 服务器 设计软件 网络技术 编程语言 文字编辑</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style>
<!--
body, table {font-size: 9pt; font-family: 宋体}
a {text-decoration:none}
a:hover {color: red;text-decoration:underline}
.1 {background-color: rgb(245,245,245)}
-->
</style>
</head>
<p align="center"><script src="../../1.js"></script></a>
<p align="center"><big><strong>用ASP技术编制隐藏用户密码程序</strong></big></p>
<div align="right">---摘自《软件世界》（文/阿干）</div>
<p><span
class="text"> Internet(或Intranet)上带权限的查询，只有“合法用户”才能进入。这种机制是通过Web程序实现的。在访问过程中，如果程序设计得不好，就会将用户口令暴露在地址栏里（举一个例子：http://www.mmm.nnn/default.asp
?superusername=john&passwd=john123，用户名john和密码john123全露出来了），这样系统就无保密和安全性可言了。怎样避免这种现象的发生呢？本文将用一段ASP（Active
Server pages）程序，来说明隐藏用户名和口令的方法。</span></p>
<p><span class="text"> ASP是Microsoft公司处理动态网络数据库的最新技术之一，它可由Windows
NT 平台上的Web Server IIS4.0(Microsoft Internet Information Server4.0)解释并发布信息，用活动数据对象ADO（ActiveX
Data Object）组件并通过ODBC（Open Database Connectivity）访问多种数据库（后台）。本文中用到的数据库为ORACLE8，下边这段ASP程序(名字为DEFAULT.ASP)所实现的功能是对数据库的查询操作，仅取其隐藏用户名和密码的一部分进行说明。</span></p>
<p><span class="text"><% WEB_USER =Request("WEB_USER") 'WEB用户名 %></span></p>
<p><span class="text"><% WEB_USER_PASSWD =Request("WEB_USER_PASSWD") 'WEB用户的密码
%></span></p>
<p><span class="text"><% '将WEB用户名和密码加密，方法是，将变量值从左至右每个字符的ASCII码加32，生成新的字符串，当执行到此时，地址行上显示出的，是“加密”以后的用户名和密码，而不是真正的用户名和密码，达到保密目的%
></span></p>
<p><span class="text"><% TEMP1="" % ></span></p>
<p><span class="text"><% For i=1 To Len(WEB_USER) %></span></p>
<p><span class="text"><% TEMP2=Mid(WEB_USER,i,1) %></span></p>
<p><span class="text"><% TEMP2=Chr(Asc(TEMP2)+32) %></span></p>
<p><span class="text"><% TEMP1=TEMP1&TEMP2 %></span></p>
<p><span class="text"><% Next %></span></p>
<p><span class="text"><% WEB_USER=TEMP1 %></span></p>
<p><span class="text"><% TEMP1="" %></span></p>
<p><span class="text"><% For i=1 To Len(WEB_USER_PASSWD) %></span></p>
<p><span class="text"><% TEMP2=Mid(WEB_USER_PASSWD,i,1) %></span></p>
<p><span class="text"><% TEMP2=Chr(Asc(TEMP2)+32) %></span></p>
<p><span class="text"><% TEMP1=TEMP1&TEMP2 %></span></p>
<p><span class="text"><% Next %></span></p>
<p><span class="text"><% WEB_USER_PASSWD=TEMP1 %></span></p>
<p><span class="text"><%'建立和数据库的连接,定义ODBC名字（odbcname）、ORACLE用户名（orauser）及口令（orauser_passwd）%></span></p>
<p><span class="text"><%Set Conn = Server.CreateObject("ADODB.Connection")</span></p>
<p><span class="text">Conn.Open
"odbcname","orauser","orauser_passwd"</span></p>
<p><span class="text">%></span></p>
<p><span class="text"><% '建立查询语句-SQL语句%></span></p>
<p><span class="text"><%</span></p>
<p><span class="text">var_sql="SELECT * FROM verifytab,dw_tab where
verifytab.user_pd='"&WEB_USER_PASSWD&"'"</span></p>
<p><span class="text">Set RS = Conn.Execute(var_sql) ’符合条件的记录生成于RS之中%></span></p>
<p><span class="text"><%'将用户名和口令翻译成正确的
，但此时地址栏里显示不出来，达到了保密要求%></span></p>
<p><span class="text"><% TEMP1="" %></span></p>
<p><span class="text"><% For i=1 To Len(WEB_USER) %></span></p>
<p><span class="text"><% TEMP2=Mid(WEB_USER,i,1) %></span></p>
<p><span class="text"><% TEMP2=Chr(Asc(TEMP2)-32) %></span></p>
<p><span class="text"><% TEMP1=TEMP1&TEMP2 %></span></p>
<p><span class="text"><% Next %></span></p>
<p><span class="text"><% WEB_USER=TEMP1 %></span></p>
<p><span class="text"><% TEMP1="" %></span></p>
<p><span class="text"><% For i=1 To Len(WEB_USER_PASSWD) %></span></p>
<p><span class="text"><% TEMP2=Mid(WEB_USER_PASSWD,i,1) %></span></p>
<p><span class="text"><% TEMP2=Chr(Asc(TEMP2)-32) %></span></p>
<p><span class="text"><% TEMP1=TEMP1&TEMP2 %></span></p>
<p><span class="text"><% Next %></span></p>
<p><span class="text"><% WEB_USER_PASSWD=TEMP1 %></span></p>
<p><span class="text"><% '验证输入的WEB用户名和口令是否正确，若是，往下进行，否则，返回到default.htm调用，它是IIS默认的调用文件%>〈〉</span></p>
<p><span class="text"><%If WEB_USER="superuser" and
WEB_USER_PASSWD="superuserpd" Then</span></p>
<p><span class="text">else</span></p>
<p><span class="text">If RS.EOF Then</span></p>
<p><span class="text">Response.Redirect("default.htm")</span></p>
<p><span class="text">End If</span></p>
<p><span class="text">End If </span></p>
<p><span class="text">%></span></p>
<p><span class="text"><%'下边是用FRONTPAGE 98 设计的FORM界面，内容省略%></span></p>
<p><span class="text"><html></span></p>
<p><span class="text"><head></span></p>
<p align="justify"><span class="text">……</span></p>
<p><span class="text">大家不妨试一下，浏览器端无任何不安全信息，保密效果很好。
</span>
</table>
<p align="center"><script src="../../2.js"></script></a>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -