The code segment is found when I search for related solutions on the internet. The logic of the makePregIP function of this class is a bit problematic. I have modified it and can use it. This function allows access from IP addresses in the whitelist. To restrict access from IP addresses in the blacklist, simply modify the code logic in the checkIP function.
Usage
| The code is as follows: |
Copy code |
$ Allow_ip = array ("192.168.1.1", "210.10.2.1-20", "222.34.4. *", "127.0.0.1 ");
$ OBlock_ip = new allowIp ($ allow_ip );
If (! $ OBlock_ip-> checkIP ()){
Echo 'Your IP address is :';
Echo $ oBlock_ip-> ip;
Exit ('Access prohibited ');
} |
AllowIP files
| The code is as follows: |
Copy code |
Class allowIp {
Function _ construct ($ allow_ip ){
If (empty ($ allow_ip )){
Return false;
}
$ This-> allow_ip = $ allow_ip;
$ This-> ip = '';
}
Private function makePregIP ($ str)
{
If (strstr ($ str ,"-")){
$ AIP = explode (".", $ str );
Foreach ($ aIP as $ k =>v v ){
If (! Strstr ($ v ,"-")){
$ Preg_limit. = $ this-> makePregIP ($ v );
$ Preg_limit. = ".";
} Else {
$ AipNum = explode ("-", $ v );
For ($ I = $ aipNum [0]; $ I <= $ aipNum [1]; $ I ++ ){
$ Preg. = $ preg? "|". $ I: "[". $ I;
}
$ Preg_limit. = strrpos ($ preg_limit, ".", 1) = (strlen ($ preg_limit)-1 )? $ Preg. "]": ".". $ preg. "]";
}
}
}
Else {
$ Preg_limit = $ str;
}
Return $ preg_limit;
}
Private function getAllBlockIP (){
If ($ this-> allow_ip ){
$ I = 1;
Foreach ($ this-> allow_ip as $ k => $ v ){
$ Ipaddres = $ this-> makePregIP ($ v );
$ Ip = str_ireplace (".", ".", $ ipaddres );
$ Ip = str_replace ("*", "[0-9] {1, 3}", $ ip );
$ Ipaddres = "/". $ ip ."/";
$ Ip_list [] = $ ipaddres;
$ I ++;
}
}
Return $ ip_list;
}
Public function checkIP (){
$ Iptable = $ this-> getAllBlockIP ();
$ IsJoined = false;
// Obtain the user ip address
$ Ip = $ this-> get_client_ip ();
$ Ip = trim ($ Ip );
// In the whitelist
If ($ iptable ){
Foreach ($ iptable as $ value ){
If (preg_match ("{$ value}", $ Ip )){
$ IsJoined = true;
Break;
}
}
}
// The IP address is not in the whitelist.
If (! $ IsJoined ){
Return false;
}
Return true;
}
Private function get_client_ip (){
If (getenv ("HTTP_CLIENT_IP") & strcasecmp (getenv ("HTTP_CLIENT_IP"), "unknown "))
$ Ip = getenv ("HTTP_CLIENT_IP ");
Else if (getenv ("HTTP_X_FORWARDED_FOR") & strcasecmp (getenv ("HTTP_X_FORWARDED_FOR"), "unknown "))
$ Ip = getenv ("HTTP_X_FORWARDED_FOR ");
Else if (getenv ("REMOTE_ADDR") & strcasecmp (getenv ("REMOTE_ADDR"), "unknown "))
$ Ip = getenv ("REMOTE_ADDR ");
Else if (isset ($ _ SERVER ['remote _ ADDR ']) & $ _ SERVER ['remote _ ADDR '] & strcasecmp ($ _ SERVER ['remote _ ADDR'], "unknown "))
$ Ip = $ _ SERVER ['remote _ ADDR '];
Else
$ Ip = "unknown ";
$ This-> ip = $ ip;
Return ($ ip );
}
} |
