20CN网络安全小组论坛 - 菜鸟乐园 - 关于一个简单网页防火墙的程序设计

论坛: 菜鸟乐园标题: 关于一个简单网页防火墙的程序设计

作者: hacker521 [hacker521]

论坛用户

最近开始学习编程了，可惜还停留在初始阶段，写不出什么好东西给大家，如果在此文中发现错误的，请给我留言，我在此表示感谢！

什么是防火墙？
这个还是要介绍的，所谓防火墙，是指一种将内部网和INTERNET分开的的方法，实际上就是一种隔离技术，把一些有恶意或者带有病毒的“人”或数据，代码拒之门外，而允许你同意的数据，代码进入你的电脑。最大限度的阻止了网络中的黑客来访问你的网络或者恶意代码修改，毁坏你的重要信息。

一个简单网页防火墙的编程实现
下面要实现一个简单网页防火墙的功能，此页面只限制局域网内部的用户进行访问，如果是局域网以外的用户访问则需要输入用户名和密码。（在此假设局域网内部IP为61.57.194.!到61.57.195!之间）在此要使用到reguest对象的ServerVariables属性。
程序源码（firewall.asp)如下：
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb_2312-80">
<meta name="GENERATOR" content="Microsoft FrontPage Express 5.0">
<title> firewall.asp </title>
</head>
<body background="#800080 ">
<%
remoteip=Request.ServerVariables("REMOTE_ADDR") 使用Request.ServerVariables("REMOTE_ADDR")
得到IP地址并保存在变量remote中
stip=cstr(remoteip)
for i=1 to 2
stip=right(stip,len(stip)-instr(1,stip,"."))
next
stip=left(stip,instr(1,stip,".")-1)
if (left(remoteip,5) <> "61.57" or stip <"194" or stip> "195")then
username=reguest.form("t1")
password=reguest.form("t2")
Set fs = CreateObject("Scripting.FileSystemObject")
Set thisfile = fs.OpenTextFile("dsn.txt")
db_loc=thisfile.readline
thisfile.close
cnstr=db_loc&&"uid="&&username&&"; "&&"pid="&&password
on error resume next
set cn=server.createobject("adodb.connection")
cn.open cnstr
if err=3709 then %>
<p> <font color="#FF0000"> 对不起，用户: <%=username%>没有访问权限，或密码不正确！ <BR> </font>
</BR>
<form method="POST">
<p align="center"> 用户名： <input type="text" name="T1" size="20">
口令：〈input type="password" name="T2" size="20"><input type="submit" value="提交" name="B1">
<input type="reset" value="全部重写" name="B2">
</p>
</form>
<%end if
cn.close
set cn=nothing%>
<%else %>
恭喜你，你已经通过了验证，可以直接使用本站点的资源了！
<%end if%>
</body>
</html>

稍微修改一下上面如IP地址等信息，该程序就可以运行了。

[此贴被无风之夜(hacker521) 在 01月02日22时39分编辑过]

地主发表时间: 04-01-02 22:39

论坛: 菜鸟乐园