* Max len 3 per number in dotted quad

git-svn-id: trunk@45368 -

packages/rtl-extra/src/inc/sockets.inc

@@ -328,6 +328,8 @@ begin
         end
        else
          Dummy:=IP;
+      if Length(Dummy)>3 then 
+        exit;   
       Val (Dummy,k,J);
       If J<>0 then
         exit;