Well, I submit 19 lines 293 characters. If I do not have to print the array, then remove three lines and twenty characters. (16 lines, 273 characters)
code:
dim $c[256]
$z="%tmp%\computers.ini"
$A=split(ReadProfileString($z,"",""),chr(10))
for each $h in $A
$i=ReadProfileString($z,$h,"IP")
$c[val(right($i,len($i)-InstrRev($i,".")))]=$h
next
for $j=1 to 15
for $h=0 to 255
if len($c[$h])=$j
$q='$q"'+$c[$h]+'",'
endif
next
next
$q=$q+'""'
execute('$$r=$q')
for each $d in $r
? $d
next
