fix Fiskaltrust, datenserver, etc.

VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb

@@ -1312,8 +1312,15 @@ BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, [Control], New Object(
                     Continue For
                 End If
 
-                    ' Keine doppelten Punkte
-                    If localPart.Contains("..") Then
+                ' Keine führenden/abschließenden Punkte
+                If localPart.StartsWith("'") Then
+                    invalid.Add(e)
+                    Continue For
+                End If
+
+
+                ' Keine doppelten Punkte
+                If localPart.Contains("..") Then
                     invalid.Add(e)
                     Continue For
                 End If
@@ -1327,6 +1334,11 @@ BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, [Control], New Object(
                     Continue For
                 End If
 
+                If domainAscii.EndsWith("'") Then
+                    invalid.Add(e)
+                    Continue For
+                End If
+
 
 
                 ' Domainlabels prüfen