quote:

---

KiXtart
KiXtart Version = 4.21
KiXGolf Script = kixgolf_moan.kix

Computer
OS = Windows 2000 Professional
CPU = Intel Pentium III
Speed = 797 MHz
Memory = 376 MB

KiXGolf Scoring Engine
Scoring Engine = 3.0.3

KiXtart Golf Score
Tournament = KiXtart Golf: MOAN - Mother Of All Networks
Processing Start = 2003/06/01 03:11:06.511
Processing End = 2003/06/01 03:11:06.621
Duration = 0000/00/00 00:00:00.109
# Loops = 1
KiXGolf Result = passed (9 out of 9 correct)
KiXGolf Score = 765

Thank you for participating in KiXtart Golf!

---

code:

---

; begin MOAN
;
;!
Function moan($a,$b,$c)
    Dim $,$e,$f,$g,$m[32],$d

    ; Convert all input data to numeric array elements.
    ; The array is 12 elements each element is value (0-255).
    ;'$' hold the input data and later is the array version of the input data

    $d="."

    ;Build Subnet Mask ARARRY
    $f=0,128,192,224,240,248,252,254,255
    for $e=8 to 31
        $=$e
        for $g=1 to 4
            $m[$e]=$m[$e]+iif($/8,"255",$f[$ mod 8])+iif($g<4,$d,"")
            $=iif($>8,$-8,0)
        next
        if $e=$c $c=$m[$e] endif
    next
    ;End build mask array


    ;build array of input values by splitting a string. Then convert to integers
    ;IPaddr = $[0..3]   NetID = $[4..7]   Mask = $[8..11]
    $="..."
    $=split(IIF($a,$a,$)+$d+IIF($b,$b,$)+$d+iif($c,$c,$),$d)
    for $e=0 to 11
        $[$e]=0+$[$e]
    next
    ;End build array

    ;if $a and $c
    if $a & $c   ;Output: Network ID or empty string if no match

        ;Calculate NetworkID using $ array
        $e=""
        for $f=0 to 3
            $e=$e+$d+($[$f] & $[$f+8])
        next
        $=substr($e,2)




        ;Output: 1 if the IP is a member of a nework defined by network ID and subnet mask, otherwise 0
        ;Input NetworkID = Calculated NetworkID
        $=iif( $b,IIF(join(split($b),"")=$,1,0),iif(join(split($a),"")=$,"",$))
    else

        ;Output: Array of all potential subnet masks or empty string if no match
        ; if $a and $b
        if $a & $b
            $a=""
            for $f=8 to 31
                $b=1
                for $e=0 to 3
                    $b=$b & $[$e+4]=($[$e] & 0+split($m[$f],$d)[$e])
                next
                if $b
                    $a=$a+" /"+$f
                endif
            next

        else
           ;Output: Array of all potential IP addresses or empty string if no match
            for $b=$[4] to $[4] + 255 - $[8]
                for $c=$[5] to $[5] + 255 - $[9]
                    for $e=$[6] to $[6] + 255 - $[10]
                        for $f=$[7]+1 to $[7] + 254 - $[11]
                            $a = $a+" "+$b+$d+$c+$d+$e+$d+$f
                        next
                    next
                next
            next
        endif
            $=IIF($a,split(substr($a,2)),"")
    endif
$moan=$
EndFunction
;!
;!
; end MOAN

---