用asp判断某IP是否属于某网段的另类算法

2016-02-19 19:31 27 1 收藏

每个人都希望每天都是开心的,不要因为一些琐事扰乱了心情还,闲暇的时间怎么打发,关注图老师可以让你学习更多的好东西,下面为大家推荐用asp判断某IP是否属于某网段的另类算法,赶紧看过来吧!

【 tulaoshi.com - Web开发 】

  有时候我们需要判断某一个IP地址是否属于一个网段,以决定该用户能否访问系统.
  比如用户登录的IP是218.6.7.7,而我们的程序必须判断他是否属于218.6.0.0/16这个网段(其中/16是新的子网掩码的表示方式,相当于255.255.0.0).
  要实现这样的功能,现在流行的算法是将218.6.0.0和218.6.7.7按256进制换算成10进制并进行比较得出,如先计算出218.6.0.0和218.6.255.255的十进制:218×256×256×256+6×256×256=3657826304,218×256×256×256+6×256×256+255×256×256+255=3657891839。再计算出218.6.7.7的十进:218×256×256×256+6×256×256+7×256+7=3657828103,最后再比较3657828103是否大于等于3657826304和小于等于3657891839。但明显有一个问题,计算量非常多,值非常大,如果IP地址是61开头的还好,如果是218开头的,这将会造成数据溢出而出错。
  其实比较IP是否属于某一网段,最好的方式就是将IP与网段分别转为32位二进制,再比较他们的网络部分是否相同就可以了.asp本身不具备位运行功能,所以要实现这个只有我们手工实现,具体如下:
  '将十进制转为二进制字符串
  function dec2bin(octNumber)
  vara=octNumber
  do
  dec2bin=cstr(vara mod 2) & dec2bin
  vara=vara 2
  loop until vara=0
  end function

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/webkaifa/)

  '将二进制字符串填充为8位
  function pad(str)
  pad=right("00000000" & str,8)
  end function

  '判断是否是一个IP地址
  function isIp(ipadd)
  isIp=false
  set oReg=new RegExp
  oReg.IgnoreCase=true
  oReg.global=true
  oReg.Pattern="(d{1,4}.d{1,4}.d{1,4}.d{1,4})|(d{1,4}.d{1,4}.d{1,4}.d{1,4}/d{1,2})"
  if oReg.test(ipadd) then isIp=true
  set oReg=nothing
  end function

  '其中UserIP是我们要检测的IP
  'NetIP是要检测的网段或某个IP,用xxx.xxx.xxx.xxx/N来表示网段,其中N表示子网掩码位数
  '注,该程序是环球万维原创程序,所以如果您要转载,请保留出处信息,谢谢.
  '程序设计:环球万维,专业提供域名注册,虚拟主机服务
  '网址:http://www.netInter.cn
  '以上信息与文章正文是不可分割的一部分,所以如果您要转载本文章,您必须保留以上信息.

  Function check_ip(UserIp,NetIP)
  currentip=UserIp
  collection_ips=split(iplist,",") '将网络按点分割成4段
  check_ip=false '初始函数值,false假设IP不在这网段
  NetIP=trim(NetIP)
  slashPos=inStr(NetIP,"/")
  if slashPos=0 then '网段没含有/符号,他只是一个IP,所以比较比个字符串是否相同就可以了
  if NetIP=currentip then
  check_ip=true 'check_ip=true表示IP相等
  exit function
  end if
  else
  netRang=mid(NetIP,slashPos+1) '得到/后边的数字
  if not isNumeric(netRang) then '/后边不是数字,格式不正确
  exit function
  end if
  netRang=cint(netRang) '将字符转为数字
  if netRang31 then
  exit function '/后的数字不能超过32位
  end if
  ipsets=split(currentip,".") '将用户IP按点分成四段

  C_IP_BIN=pad(dec2bin(ipsets(0))) & pad(dec2bin(ipsets(1))) & pad(dec2bin(ipsets(2))) & pad(dec2bin(ipsets(3)))
  '上边这行是将用户IP地址手工转换为对应的一个32个字符长的二进制
  ipsets=split(NetIP,".") '按上边的过程将网段IP同样转为32个字符长的二进制
  sPos=instr(ipsets(3),"/") '最后一点格式应该是 数字/数字
  if sPos=0 then
  exit function
  end if
  ipsets(3)=left(ipsets(3),sPos-1) '得到最后一段/前边的数字
  S_IP_BIN=pad(dec2bin(ipsets(0))) & pad(dec2bin(ipsets(1))) & pad(dec2bin(ipsets(2))) & pad(dec2bin(ipsets(3)))
  '将其转换为32个字符长的二进制
  if left(C_IP_BIN,netRang) = left(S_IP_BIN,netRang) then '比较网段络是否相同就可以判断用户IP否属于某个网段了
  check_ip=true
  end if
  end if
  end function

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/webkaifa/)

  应用举例:

  要判断61.139.1.1是否在61.139.0.0/16 (255.255.0.0)这个网段
  只需要简单的使用这个函数就可以了,如:

  if check_ip("61.139.1.1","61.139.0.0/16") then
  Response.write "同一网段"
  else
  Response.write "不是同一网段"
  end if

来源:http://www.tulaoshi.com/n/20160219/1621206.html

延伸阅读
在制作自己的发行版时经常需要判定某条命令需要哪些库文件的支持,以确保指定的命令在独立的系统内可以可靠的运行。 在Linux环境下通过ldd命令即可实现,在控制台执行: ldd /bin/ls 即可得到/bin/ls命令的相关库文件列表。 查询某个命令使用了什么库文件 例如要知道ls使用了什么库文件,可以使用: $ l...
在有些系统中有这样的需求,希望内部网中的某几个IP地址连接互联网,而又希望这些IP地址不被非法用户盗用。可以通过下面的解决办法实现: 方法一: 首先使用ipchains或者iptables来设定只允许合法的IP地址连出。 对于合法IP建立IP/Mac捆绑。要讨论这个问题我们首先需要了解ARP协议的工作原理,arp协议是地...
  最终效果如下   下面让我们用线框来着手布局。下图就是我们绘制的简单布局,这么做的目的是要确定每个元素的位置。确定主导航栏包含几个部分、以及最新增加的内容在主页面中的展示位置。 新建一个文件,宽960px、高1200px。这对于屏幕分辨率为1024*768的朋友来说是黄金尺寸。前景色设为#85848c,背景色设为#414048. 拉一...
    首先在sqlplus下以该用户登录到Oracle数据库,然后将以下内容粘贴到sqlplus中: set feedback off; set pagesize 0; set heading off; set verify off; set linesize 200; set trimspool on; spool c:数据库备份.bat; select 'eXP username/ffffff@yourdb TABLES='table_name' FILE='table_name'.dmp ...
标签: SQLServer
Question 1:Can you use a batch SQL or store procedure to calculating the Number of Days in a Month Answer 1: 找出当月的天数 selectdatepart(dd,dateadd(dd,-1,dateadd(mm,1,cast(cast(year(getdate()) asvarchar)+'-'+cast(month(getdate()) as varchar)+'-01' as datetime)))) Question2:Can you use a SQL statement to cal...

经验教程

630

收藏

57
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部