Problem Statement

The purpose of this task is to demonstrate parsing of text-format IP addresses, using IPv4 and IPv6.

Taking the following as inputs:

Emit each described IP address as a hexadecimal integer representing the address, the address space, and the port number specified, if any.
In languages where variant result types are clumsy, the result should be ipv4 or ipv6 address number, something which says which address space was represented, port number and something that says if the port was specified.

127.0.0.1   has the address number   7F000001   (2130706433 decimal) in the ipv4 address space.
::ffff:127.0.0.1   represents the same address in the ipv6 address space where it has the address number   FFFF7F000001   (281472812449793 decimal).
::1   has address number   1   and serves the same purpose in the ipv6 address space that   127.0.0.1   serves in the ipv4 address space.

Let's start with the solution:

ParseIP(Address){
	return InStr(A_LoopField, ".") ? IPv4(Address) : IPv6(Address)
}

IPv4(Address){
	for i, v in StrSplit(Address, "."){
		x := StrSplit(v, ":")
		num .= SubStr("00" . Format("{:X}", x.1), -1) 
		port := x.2 ? x.2 : ""
	}
	return [num, port]
}

IPv6(Address){
	for i, v in StrSplit(Address, "]")
		if i = 1
			for j, x in StrSplit(LTrim(v, "[:"), ":")
				num .= x = "" ? "00000000" : SubStr("0000" x, -3)
		else
			port := LTrim(v, ":")
	return [SubStr("00000000000000000000000000000000" num, -31), port]
}


data =
(
127.0.0.1
127.0.0.1:80
::1
[::1]:80
2605:2700:0:3::4713:93e3
[2605:2700:0:3::4713:93e3]:80
)

output := ""
loop, parse, data, `n, `r
{
	x := ParseIP(A_LoopField)
	output .= "input = " A_LoopField "`t>`t" x.1 . (x.2 ? " port : " x.2 : "") "`n"
}
MsgBox % output
return