IP制限機能
良い提案とアルゴリズムがある場合は、私に連絡してください! ! :)
「*************************************************
"functioncheckip(cinput_ip、cbound_ip)
「createdbyqqdao、[email protected]/11/28
「注:最初に、数に応じてサイクリングする必要があります。次に、「 - 」が含まれているかどうかを判断します。
「パラメーター:CINPUT_IP、GERENERによる検査のためのIP
「cbound_ip、指定された範囲形式は単一のIP、および範囲IPです。範囲IPが最後に使用されます」 - "セグメント「*」の場合、最後の数字に配置する必要があります
「追加」:各範囲の後に許可することは、ログインが許可され、追加されることを意味し、「拒否」とはログインが拒否されることを意味します。複数の範囲が使用されます。
「たとえば、192.168.1*。*。
「戻り値:true/false
「更新:2001/12/05サポート許可、サポートを拒否する *'、正しくなりたくない?サポートは *に似ているからです *
「*************************************************
functioncheckip(cinput_ip、cbound_ip)
dimcsingle_ip、ctemp_ip、cstart_ip、cend_ip
checkip = false
csingle_ip = split(cbound_ip、 ";")
fori = 0toubound(csingle_ip)
ifinstr(csingle_ip(i)、 "reduse")<> 0then "は拒否します
ctemp_ip = left(csingle_ip(i)、strunt(csingle_ip(i)、 ":")-1)
ifinstr(ctemp_ip、 "*")<> 0then "は幅広い範囲です
cstart_ip = left(ctemp_ip、instr(ctemp_ip、 "*")-1)
ifleft(cinput_ip、len(cstart_ip))= cstart_ipthen
checkip = false
exitFunction
endif
endif
ifinstr(ctemp_ip、 " - ")= 0then
cstart_ip = ctemp_ip
cend_ip = ctemp_ip
それ以外
cstart_ip = left(ctemp_ip、instr(ctemp_ip、 " - ") - 1)
cend_ip = left(cstart_ip、instrrev(cstart_ip、 "。") - 1)+"
endif
ifip2str(cinput_ip)> = ip2str(cstart_ip)andip2str(cinput_ip)<= ip2str(cend_ip)then
checkip = false
exitFunction
endif
elseifinstr(csingle_ip(i)、 "lock")<> 0then "aop
ctemp_ip = left(csingle_ip(i)、strunt(csingle_ip(i)、 ":")-1)
ifinstr(ctemp_ip、 "*")<> 0then "は幅広い範囲です
cstart_ip = left(ctemp_ip、instr(ctemp_ip、 "*")-1)
ifleft(cinput_ip、len(cstart_ip))= cstart_ipthen
checkip = true
endif
endif
ifinstr(ctemp_ip、 " - ")= 0then
cstart_ip = ctemp_ip
cend_ip = ctemp_ip
それ以外
cstart_ip = left(ctemp_ip、instr(ctemp_ip、 " - ") - 1)
cend_ip = left(cstart_ip、instrrev(cstart_ip、 "。") - 1)+"
endif
ifip2str(cinput_ip)> = ip2str(cstart_ip)andip2str(cinput_ip)<= ip2str(cend_ip)then
checkip = true