פונקציה dec2string ($ העשרונית, $ בסיס)
{
שגיאה גלובלית $;
$ String = null;
בסיס $ = (int) $ היסודי;
אם ($ בסיס <2 | | $ בסיס> 36 | | $ בסיס == 10) {
הד "הבסיס צריך להיות בטווח 2-9 או 11-36 ';
היציאה;
}
$ Charset = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ ';
$ Charset = substr ($ charset, 0, $ הבסיס);
אם (! ereg ("(^ [0-9] {1,16} $)", קיצוץ ($ עשרוני))) {
$ שגיאות ['dec_input'] = 'ערך חייב להיות מספר חיובי ";
בתמורה שווא;
}
לעשות {
$ יתרת = bcmod ($ עשרוני, בסיס $);
Char $ = substr ($ charset, $ השאר, 1); / / לקבל CHAR ממערך
$ String = "$ $ char מחרוזת"; / / פלט הקדם
$ עשרוני = bcdiv (bcsub ($ העשרונית, $ שארית), $ הבסיס);
} While ($ העשרונית> 0);
לחזור $ string;
} פונקציה string2dec ($ string, $ בסיס)
{
שגיאה גלובלית $;
$ עשרוני = 0;
בסיס $ = (int) $ היסודי;
אם ($ בסיס <2 | | $ בסיס> 36 | | $ בסיס == 10) {
הד "הבסיס צריך להיות בטווח 2-9 או 11-36 ';
היציאה;
}
$ Charset = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ ';
$ Charset = substr ($ charset, 0, $ הבסיס);
$ String = Trim ($ string);
אם (ריק ($ string)) {
שגיאה $ [] = 'מחרוזת הקלט ריקה';
בתמורה שווא;
}
לעשות {
Char $ = substr ($ string, 0, 1); / / לחלץ הדמות המובילה
$ String = substr ($ string, 1); / / ירידה הדמות המובילה
$ קופה = strpos ($ charset, $ char); / / קבל לקזז דולר charset
אם ($ pos === false) {
שגיאה $ [] = "תו לא חוקי ($ char) במחרוזת קלט";
בתמורה שווא;
}
$ עשרוני = bcadd (bcmul ($ העשרונית, $ בסיס), $ POS);
} While ($ string <> ריק);
לחזור $ העשרונית;
} הפונקציה משטח ($ str, $ NUM)
{
לחזור str_repeat ("0", $ NUM - strlen ($ str)) $ str.
} / / Main
if (isset ($ _GET ["להגיש"]))
{
$ Ip = 0;
if (isset ($ _GET ["int"]) && $ _GET ["int"]! = "")
{
$ Ip = $ _GET ["int"];
}
else if (isset ($ _GET ["נקודה"]) && דולר _GET ["נקודה"]! = "")
{
$ Ip = ip2long ($ _GET ["נקודה"]);
}
אחר
{
$ Ip = 0;
} Uns_ip $ = ($ ip> 0 $ IP: 0xFFFFFFFF $ + IP + 1) + 0; אם (($ uns_ip & 0 × 80000000) == 0)
{
מסכת $ = 0xff000000;
}
אחר אם (($ uns_ip & 0xC0000000) == -2147483648)
{
מסכת $ = 0xffff0000;
}
אחר אם (($ uns_ip & 0xE0000000) == -1073741824)
{
מסכת $ = 0xffffff00;
}
אחר
{
מסכת $ = "";
}
$ Dot_ip = long2ip ($ uns_ip);
$ Hex_ip = dec2string ($ uns_ip, 16);
$ Hex_ip = "0x" בלוק ($ hex_ip, 8).
$ Oct_ip = dec2string ($ uns_ip, 8);
$ Oct_ip = "0" בלוק ($ oct_ip, 16).
$ Bin_ip = dec2string ($ uns_ip, 2);
$ Bin_ip = משטח ($ bin_ip, 32);
> התוצאה המרה | דוט סימון | |
|---|
| מספר עשרוני | |
|---|
| עשרוני לא חתום מספר | |
|---|
| מספר הקסדצימלי | |
|---|
| מספר בינארי | |
|---|
| מספר אוקטלי | |
|---|
| טבע netmask | |
|---|
| |
