mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-12 22:49:34 +02:00
253 lines
8.6 KiB
ObjectPascal
253 lines
8.6 KiB
ObjectPascal
program tw37013;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
{
|
|
Test StrToHostAddr6 in the sockets unit with lists of known bad and known
|
|
good IPv6 addresses. By Noel Duffy (bug ID 37013)
|
|
}
|
|
|
|
uses Classes, sockets, SysUtils;
|
|
|
|
procedure BuildBaddAddrList(out bad_addrs: TStringList);
|
|
begin
|
|
// start with some obviously bad formats.
|
|
bad_addrs.Add('');
|
|
bad_addrs.Add(':');
|
|
bad_addrs.Add(':::');
|
|
bad_addrs.Add('::.');
|
|
bad_addrs.Add('::::');
|
|
bad_addrs.Add('fe80:');
|
|
bad_addrs.Add('x:');
|
|
bad_addrs.Add('.');
|
|
bad_addrs.Add('....');
|
|
|
|
// invalid chars in all 8 hextets.
|
|
bad_addrs.Add('fe@0:b46c:c2a1:a202:9*6e:9d2f:a520:4172');
|
|
bad_addrs.Add('fe80:b4%c:c2a1:a202:9*6e:9d2f:a520:4172');
|
|
bad_addrs.Add('fe80:b46c:c2#1:a202:926e:9d2f:a520:4172');
|
|
bad_addrs.Add('fe80:b46c:c2a1:a2^2:926e:9d2f:a520:4172');
|
|
bad_addrs.Add('fe80:b46c:c2a1:a202:9*6e:9d2f:a520:4172');
|
|
bad_addrs.Add('fe80:b46c:c2a1:a202:926e:9!d2f:a520:4172');
|
|
bad_addrs.Add('fe80:b46c:c2a1:a202:926e:9d2f:a=20:4172');
|
|
bad_addrs.Add('fe80:b46c:c2a1:a202:926e:9d2f:a520:41+2');
|
|
|
|
// $ sign in hextets.
|
|
bad_addrs.Add('$fe80:b46c:c2a1:a202:926e:9d2f:a520:4172');
|
|
bad_addrs.Add('fe80:b$46c:c2a1:a202:926e:9d2f:a520:4172');
|
|
bad_addrs.Add('fe80:b46c:c2a1$:a202:926e:9d2f:a520:4172');
|
|
bad_addrs.Add('fe80:b46c:c2a1:a202:926$e:9d2f:a520:4172');
|
|
|
|
// last char is :
|
|
bad_addrs.Add('fe80:b46c:c2a1:a202:926e:9d2f:a520:4172:');
|
|
|
|
// first char is :
|
|
bad_addrs.Add(':fe80:b46c:c2a1:a202:926e:9d2f:a520:4172');
|
|
|
|
// two sequences of collapsed zeroes. :: is the Highlander
|
|
// sequence. There can be only one.
|
|
bad_addrs.Add('fe80::c2a1:a202::9d2f:a520:4172');
|
|
|
|
// 8 hextets plus collapsed zeroes, which means at least 1 hextet
|
|
// of all zeroes, equaling 9 hextets.
|
|
bad_addrs.Add('fe80:b46c:c2a1::a202:926e:9d2f:a520:4172');
|
|
|
|
// try the same with the :: at the start.
|
|
bad_addrs.Add('::b46c:c2a1:8fcb:a202:926e:9d2f:a520:4172');
|
|
|
|
// and now try the same with the :: at the ned.
|
|
bad_addrs.Add('b46c:a771:8fcb:a202:926e:9d2f:a520:4172::');
|
|
|
|
// too many hextets
|
|
bad_addrs.Add('fe80:b46c:c2a1:a202:926e:9d2f:a520:4172:1211');
|
|
|
|
// too few hextets
|
|
bad_addrs.Add('fe80:b46c:9d2f:a520:4172:1211');
|
|
|
|
// too many digits in each of the 8 hextets
|
|
bad_addrs.Add('fe801:b46c:c2a1:a202:926e:9d2f:a520:4172');
|
|
bad_addrs.Add('fe80:b46cb:c2a1:a202:926e:9d2f:a520:4172');
|
|
bad_addrs.Add('fe80:b46c:0c2ad:a202:926e:9d2f:a520:4172');
|
|
bad_addrs.Add('fe80:b46c:c2a1:a2022:926e:9d2f:a520:4172');
|
|
bad_addrs.Add('fe80:b46c:c2a1:a202:926e6:9d2f:a520:4172');
|
|
bad_addrs.Add('fe80:b46c:c2a1:a202:926e:09d2f:a520:4172');
|
|
bad_addrs.Add('fe80:b46c:c2a1:a202:926e:9d2f:a5209:4172');
|
|
bad_addrs.Add('fe80:b46c:c2a1:a202:926e:9d2f:a520:04172');
|
|
|
|
// math signs in hextets. naive parsing of hextets with
|
|
// math signs produces a positive result, but these are not
|
|
// valid.
|
|
bad_addrs.Add('fe80:-b46c:c2a1:a202:926e:9d2f:a520:4172');
|
|
bad_addrs.Add('fe80:b46c:-c2a1:a202:926e:9d2f:a520:4172');
|
|
|
|
// Hybrid 6 and 4 addresses.
|
|
|
|
// ipv4 octet can't contain hex
|
|
bad_addrs.Add('fe80:b46c:c2a1:a202:926e:9d2f:19F.168.1.2');
|
|
bad_addrs.Add('fe80:b46c:c2a1:a202:926e:9d2f:192.1A8.1.2');
|
|
bad_addrs.Add('fe80:b46c:c2a1:a202:926e:9d2f:192.168.B.2');
|
|
bad_addrs.Add('fe80:b46c:c2a1:a202:926e:9d2f:192.168.1.C');
|
|
|
|
// ipv4 octets can't contain math signs
|
|
bad_addrs.Add('fe80:b46c:c2a1:a202:926e:9d2f:-192.168.1.1');
|
|
bad_addrs.Add('fe80:b46c:c2a1:a202:926e:9d2f:192.-168.1.1');
|
|
bad_addrs.Add('fe80:b46c:c2a1:a202:926e:9d2f:192.168.-1.1');
|
|
bad_addrs.Add('fe80:b46c:c2a1:a202:926e:9d2f:192.168.1.-1');
|
|
|
|
// invalid hybrid ipv6/ipv4 address, because there are 7
|
|
// hextets before the ipv4. there can be only 6, as the 4
|
|
// octets make up 2 hextets, and there can be no more than 8
|
|
// hextets in total.
|
|
bad_addrs.Add('fe80:b46c:c2a1:a202:926e:9d2f:a520:192.168.1.2');
|
|
|
|
// 5 hextets plus 2 hextets (4 octets) = 7. Must be 8.
|
|
bad_addrs.Add('fe80:b46c:926e:9d2f:a520:192.168.1.2');
|
|
|
|
// too few octets in ipv4 bit.
|
|
bad_addrs.Add('fe80:b46c:c2a1:a202:926e:9d2f:192.168.1');
|
|
bad_addrs.Add('fe80:b46c:c2a1:a202:926e:9d2f:192.168');
|
|
bad_addrs.Add('fe80:b46c:c2a1:a202:926e:9d2f:192');
|
|
|
|
// 7 hextets plus two octets of ipv4 = 8 hextets, but still must
|
|
// not be parsed as valid because there must be 4 octets.
|
|
bad_addrs.Add('fe80:b46c:c2a1:a202:926e:9d2f:e2fc:192.168');
|
|
|
|
// too many ipv4 octets
|
|
bad_addrs.Add('fe80:b46c:c2a1:a202:926e:9d2f:192.168.1.17.32');
|
|
|
|
// addr starts with .
|
|
bad_addrs.Add('.fe80:b46c:c2a1:a202:926e:9d2f:192.168.1.17');
|
|
// addr ends with .
|
|
bad_addrs.Add('fe80:b46c:c2a1:a202:926e:9d2f:192.168.1.17.');
|
|
|
|
// 6 hextets + 2 hextets (4 octets) plus collapsed zero sequence = 9 hextets.
|
|
bad_addrs.Add('fe80:b46c::c2a1:a202:926e:9d2f:72.16.32.1');
|
|
|
|
// repeat with :: at start
|
|
bad_addrs.Add('::fe80:b46c:c2a1:a202:926e:9d2f:72.16.32.1');
|
|
// and at end
|
|
bad_addrs.Add('fe80:b46c:c2a1:a202:926e:9d2f::72.16.32.1');
|
|
|
|
// ipv4 octets > 255
|
|
bad_addrs.Add('fe80:b46c:c2a1:a202:926e:9d2f:351.16.32.1');
|
|
bad_addrs.Add('fe80:b46c:c2a1:a202:926e:9d2f:72.123216.32.1');
|
|
bad_addrs.Add('fe80:b46c:c2a1:a202:926e:9d2f:72.16.9999999999999999999.1');
|
|
bad_addrs.Add('fe80:b46c:c2a1:a202:926e:9d2f:72.16.32.5e21');
|
|
|
|
// dot sequence
|
|
bad_addrs.Add('fe80:b46c:c2a1:a202:926e:9d2f:192..168.1.17');
|
|
|
|
// start with dot
|
|
bad_addrs.Add('fe80:b46c:c2a1:a202:926e:9d2f:.192.168.1.17');
|
|
|
|
// end with dot
|
|
bad_addrs.Add('fe80:b46c:c2a1:a202:926e:9d2f:192.168.1.17.');
|
|
|
|
// ipv4 octets followed by hextet
|
|
bad_addrs.Add('fe80:b46c:c2a1:a202:926e:192.168.1.1:a2c1');
|
|
|
|
// all zeroes but for mathematical operator.
|
|
bad_addrs.Add('::-');
|
|
|
|
// end on colon, but with earlier collapsed section.
|
|
bad_addrs.Add('fe80::a202:926e:a2c1:');
|
|
|
|
// too many digits in ipv4 octet
|
|
bad_addrs.Add('21ac:d349:07c4:198e:6fab:df5a:0192.168.1.17');
|
|
bad_addrs.Add('21ac:d349:07c4:198e:6fab:df5a:192.0168.1.17');
|
|
bad_addrs.Add('21ac:d349:07c4:198e:6fab:df5a:192.168.0001.17');
|
|
bad_addrs.Add('21ac:d349:07c4:198e:6fab:df5a:192.0168.1.0017');
|
|
|
|
// just ipv4 address
|
|
bad_addrs.Add('127.0.0.2');
|
|
end;
|
|
|
|
procedure BuildGoodAddrList(out addrlist: TStringList);
|
|
begin
|
|
// Each str is two parts, separated by a pipe. The left part is the input
|
|
// address to be parsed, and the right is the expected result of taking the
|
|
// resulting address and converting back to a string. This provides an
|
|
// easy way to verify that the StrToHostAddr6 function parsed the address
|
|
// correctly.
|
|
// The values on the right have been double-checked with libc's inet_pton.
|
|
addrlist.Add('::1|::0001');
|
|
addrlist.Add('::|::');
|
|
addrlist.Add('2001:4860:4000::|2001:4860:4000::');
|
|
addrlist.Add('21ac:d349:07c4:198e:6fab:df5a:192.168.1.17|21AC:D349:07C4:198E:6FAB:DF5A:C0A8:0111');
|
|
addrlist.Add('21ac:d349:07c4:198e:6fab:df5a:0.0.0.0|21AC:D349:07C4:198E:6FAB:DF5A::');
|
|
addrlist.Add('::213.41.35.14|::D529:230E');
|
|
addrlist.Add('fe80:b46c:c2a1:a202:926e:9d2f:a520:4172|FE80:B46C:C2A1:A202:926E:9D2F:A520:4172');
|
|
addrlist.Add('a:b:c:d:e:f:0:1|000A:000B:000C:000D:000E:000F::0001');
|
|
addrlist.Add('a:B:c:D:e:f:9:1|000A:000B:000C:000D:000E:000F:0009:0001');
|
|
end;
|
|
|
|
function TestAddrs(al: TStringList): Cardinal;
|
|
var
|
|
bad_addr: String;
|
|
i6: in6_addr;
|
|
begin
|
|
Result := 0;
|
|
for bad_addr in al do
|
|
begin
|
|
i6 := StrToHostAddr6(bad_addr);
|
|
if (i6.s6_addr32[0] <> 0) or (i6.s6_addr32[1] <> 0) or
|
|
(i6.s6_addr32[2] <> 0) or (i6.s6_addr32[3] <> 0) then
|
|
begin
|
|
writeln(' [x]"'+bad_addr+'".');
|
|
Inc(Result);
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
function TestGoodAddrs(al: TStringList): Cardinal;
|
|
var
|
|
addr,instr,parsed_addr,expected: String;
|
|
i6: in6_addr;
|
|
idx: Cardinal;
|
|
begin
|
|
Result := 0;
|
|
for addr in al do
|
|
begin
|
|
idx := Pos('|', addr);
|
|
if idx > 0 then
|
|
begin
|
|
instr := Copy(addr,1,idx-1);
|
|
i6 := StrToHostAddr6(instr);
|
|
expected := Copy(addr, idx+1, Length(addr)-idx);
|
|
parsed_addr := HostAddrToStr6(i6);
|
|
if parsed_addr <> expected then
|
|
writeln(' [x] "'+instr+'" -> '+parsed_addr+'".')
|
|
else
|
|
Inc(Result);
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
var
|
|
addrlist: TStringList;
|
|
count: Cardinal;
|
|
begin
|
|
ExitCode := 0;
|
|
addrlist := TStringList.Create;
|
|
|
|
BuildBaddAddrList(addrlist);
|
|
count := TestAddrs(addrlist);
|
|
writeln('Got non-zero result for '+inttostr(count)+' out of '+
|
|
inttostr(addrlist.Count)+' bad addresses.');
|
|
writeln();
|
|
// if we successfully parsed any bad addresses
|
|
if count > 0 then ExitCode := 1;
|
|
|
|
addrlist.Clear;
|
|
BuildGoodAddrList(addrlist);
|
|
count := TestGoodAddrs(addrlist);
|
|
writeln('Successfully parsed '+inttostr(count)+' out of '+
|
|
inttostr(addrlist.Count)+' good addresses.');
|
|
|
|
// if we didn't parse all the good addresses.
|
|
if count < addrlist.Count then
|
|
ExitCode := 1;
|
|
addrlist.Free;
|
|
end.
|
|
|