『IPv4アドレスのマスクの変換』投稿２

Mask2Bit:  
	##c=0;  
	##bit=0;  
	while (strlen($$1)) {  
		$b = leftstr($$1,1);  
		$$1 = rightstr($$1, strlen($$1)-1);  
		if ($b == “.”) {  
			##c = ##c + 1;  
		} else if (val($b) == 0 && $b != “0”) {  
			break;  
		} else {  
			$$aar[##c] = $$aar[##c] + $b;  
		}  
	}  
	while (0 <= ##c) {  
		call Dec2Bin val($$aar[##c]);  
		while (strlen($$return)) {  
			##bit = ##bit + val(leftstr($$return,1));  
			$$return = rightstr($$return, strlen($$return)-1);  
		}  
		##c = ##c – 1;  
	}  
	return ##bit;  
  
Bit2Mask:  
	$$b_str = “”;  
	$$mask = “”;  
	while (strlen($$b_str) < 32) {  
		if (0<##1) {  
			$$b_str = $$b_str + “1”;  
		} else {  
			$$b_str = $$b_str + “0”;  
		}  
		##1 = ##1 – 1;  
	}  
	while (strlen($$b_str)) {  
		call Bin2Dec leftstr($$b_str, 8);  
		$$mask = $$mask + str(##return);  
		$$b_str = rightstr($$b_str, strlen($$b_str)-8);  
		if (strlen($$b_str)) {  
			$$mask = $$mask + “.”;  
		}  
	}  
	return $$mask;  
  
Bin2Dec:  
	##dec = 0;  
	##val = 1;  
	while (strlen($$1)) {  
		if (rightstr($$1, 1) == “1”) {  
			##dec = ##dec + ##val;  
		}  
		##val = ##val*2;  
		$$1 = leftstr($$1, strlen($$1)-1);  
	}  
	return ##dec;  
  
Dec2Bin:  
	$$str = “”;  
	if (##1!=0) {  
		while (##1!=1) {  
			$$str = str(##1%2)+$$str;  
			##1 = ##1/2;  
		}  
		$$str = “1”+$$str;  
	} else {  
		$$str = “0”;  
	}  
	return $$str;