funzione dec2string ($ decimale, $ base)
{
global $ errore;
$ Stringa = null;
$ Base = (int) $ base;
if ($ base di <2 | | $ di base> 36 | | $ di base == 10) {
echo 'BASE deve essere compreso nell'intervallo 2-9 o 11-36';
uscita;
}
Charset = $ '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ ';
$ Charset = substr ($ charset, 0, $ base);
if (! ereg ('(^[ 0-9] {1,16 }$)', trim ($ decimale))) {
$ Error ['dec_input'] = 'Il valore deve essere un numero intero positivo';
return false;
}
do {
$ Resto = bcmod ($ decimale, $ base);
$ Carattere = substr ($ charset, $ resto, 1); / / ottiene CHAR dall'array
$ Stringa = "$ char $ stringa"; / / anteporre a uscita
$ Decimale = bcdiv (bcsub ($ decimale, $ resto), $ base);
} While ($> decimale 0);
return $ string;
} funzione string2dec ($ stringa, $ base)
{
global $ errore;
$ Decimale = 0;
$ Base = (int) $ base;
if ($ base di <2 | | $ di base> 36 | | $ di base == 10) {
echo 'BASE deve essere compreso nell'intervallo 2-9 o 11-36';
uscita;
}
Charset = $ '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ ';
$ Charset = substr ($ charset, 0, $ base);
$ Stringa = trim ($ stringa);
if (empty ($ stringa)) {
$ Error [] = 'stringa di input è vuota';
return false;
}
do {
$ Carattere = substr ($ stringa, 0, 1); / / extract protagonista
$ Stringa = substr ($ stringa, 1); / / drop protagonista
$ Pos = strpos ($ charset, $ char); / / ottiene offset $ charset
if ($ pos === false) {
$ Error [] = "Carattere non valido ($ char) nella stringa di input";
return false;
}
$ Decimale = bcadd (bcmul ($ decimale, $ base), $ pos);
} While ($ stringa <> null);
return $ decimale;
} funzione pad ($ str, $ num)
{
ritorno str_repeat ("0", $ num - strlen ($ str)) $ str.;
} / / Main
if (isset ($ _GET ["submit"]))
{
$ Ip = 0;
if (isset ($ _GET ["int"]) & & $ _GET ["int"]! = "")
{
$ Ip = $ _GET ["int"];
}
else if (isset ($ _GET ["punto"]) & & $ _GET ["punto"]! = "")
{
$ Ip = ip2long ($ _GET ["punto"]);
}
altro
{
$ Ip = 0;
} Uns_ip = $ ($ ip> 0 $ ip: 0xffffffff + $ ip + 1) + 0; if (($ uns_ip & 0 × 80000000) == 0)
{
$ Mask = 0xFF000000;
}
else if (($ uns_ip & 0xC0000000) == -2147483648)
{
$ Mask = 0xFFFF0000;
}
else if (($ uns_ip & 0xE0000000) == -1073741824)
{
$ Mask = 0xffffff00;
}
altro
{
$ Mask = "";
}
$ Dot_ip = long2ip ($ uns_ip);
$ Hex_ip = dec2string ($ uns_ip, 16);
. Hex_ip $ = "0x" pad ($ hex_ip, 8);
$ Oct_ip = dec2string ($ uns_ip, 8);
Oct_ip $ = "0" pad ($ oct_ip, 16).;
$ Bin_ip = dec2string ($ uns_ip, 2);
$ Bin_ip = pad ($ bin_ip, 32);
?> Conversione risultato | Dot notazione | |
|---|
| Numero decimale | |
|---|
| Numero decimale senza segno | |
|---|
| Numero esadecimale | |
|---|
| Numero binario | |
|---|
| Numero ottale | |
|---|
| Netmask naturale | |
|---|
| |
