quote:

---

KiXtart
KiXtart Version = 4.21 Release Candidate 1
KiXGolf Script = kixgolf_moan.kix

Computer
OS = Windows 2000 Professional
CPU = Intel Pentium II
Speed = 398 MHz
Memory = 320 MB

KiXGolf Scoring Engine
Scoring Engine = 3.0.3

KiXtart Golf Score
Tournament = KiXtart Golf: MOAN - Mother Of All Networks
Processing Start = 2003/06/02 14:47:28.406
Processing End = 2003/06/02 14:47:28.757
Duration = 0000/00/00 00:00:00.350
# Loops = 1
KiXGolf Result = passed (9 out of 9 correct)
KiXGolf Score = 657

---

code:

---

; begin MOAN
;
;!
Function moan($a,$b,$c)
    Dim $,$d,$e,$f,$g,$h,$m[3]
    $d="."

    ;Build Subnet Mask
    $f=0,128,192,224,240,248,252,254
    for $e=8 to 31
        $=$e
        $h=1
        for $g=0 to 3
            $m[$g]=iif($/8,255,$f[$ mod 8])
            $=($>8)*($-8)
            if $a & $b
               $h=$h & split($b,$d)[$g]=(0+split($a,$d)[$g] & $m[$g])
            endif
        next
        if $h
            $c=$c+" /"+$e
        endif
        if $e=$c
           $c=join($m,$d)
        endif
    next
    ;End build mask array
    if instr($c,$d)
        ;build array of input values by splitting a string. Then convert to integers
        ; Mask = $[0..3]   NetID = $[4..7]   IPaddr = $[8..11]
        $=split($c+$d+$b,$d)
        $c=""
            ;Calculate NetworkID using $ array
            for $e=0 to 3
		if $a
		 $c=$c+$d+(0+$[$e] & 0+split($a,$d)[$e])
		else
		 $[$e]=255 + $[$e+4] - $[$e]
		endif
            next
        if $a
            if $d+join(split($a),"")=$c
               $c=""
            endif

            ;Output: 1 if the IP is a member of a nework defined by network ID and subnet mask, otherwise 0
            ;Input NetworkID = Calculated NetworkID
            if $b
                $c=$d+join(split($b),"")=$c
            endif
        else
            ;Output: Network ID or empty string if no match
            ;Output: Array of all potential IP addresses or empty string if no match
            for $b=$[4] to $[0]
                for $h=$[5] to $[1]
                    for $e=$[6] to $[2]
                        for $f=1+$[7] to $[3]-1
                            $c = $c+" "+$b+$d+$h+$d+$e+$d+$f
                        next
                    next
                next
            next
        endif
    endif $=$c,split(substr($c,2))
    $moan=$[len($c)>1]
EndFunction
;!
;!
; end MOAN

---