IPv6 Adresse in Text suchen

Donsen64

Hallo,
ich möchte in einem Text alle IPv6 Adressen suchen. Ich habe auch schon etwas zusammen gebaut. Aber leider funktioniert es nicht. Ich vermute, dass es mit dem Pattern zusammen hängt. Wenn ich das Pattern für die IPv4 verwende ist alles super. Aber die Pattern für IPv6 funktioniert nicht. habe auch die hier im Forum vorhandenen Pattern getestet. Leider gehen die auch nicht.

Ich hoffe es hat jemand einen Tipp bzw. eine Lösung für mich.

Gruß Ingo

AutoIt

#include <Array.au3>


Local $sText
Local $aErgebnis


$sText = "Temporäre IPv6-Adresse. . . . . . : 2003:cc:dcaa:9434:ac3a:8900:3340:3cc1 " & _
		 "7.25.23.2 " & _
		 "Verbindungslokale IPv6-Adresse  . : fe80::dcaa:f15e:50a4:aa09%13"


$aErgebnis = _StringSearchIPv6($sText)


For $i=0 To UBound($aErgebnis)-1
   _ArrayDisplay($aErgebnis[$i])
Next


Func _StringSearchIPv6($sText)
	Local $aResult
	Local $aTEMP
	Local $sPattern =  	"(?x)																									" & @CRLF & _
						"([0-9a-fA-F]{1,4}:){7,7}[0-9a-fA-F]{1,4}|          # 1:2:3:4:5:6:7:8 									" & @CRLF & _
						"([0-9a-fA-F]{1,4}:){1,7}:|                         # 1::                              1:2:3:4:5:6:7::	" & @CRLF & _
						"([0-9a-fA-F]{1,4}:){1,6}:[0-9a-fA-F]{1,4}|         # 1::8             1:2:3:4:5:6::8  1:2:3:4:5:6::8	" & @CRLF & _
						"([0-9a-fA-F]{1,4}:){1,5}(:[0-9a-fA-F]{1,4}){1,2}|  # 1::7:8           1:2:3:4:5::7:8  1:2:3:4:5::8		" & @CRLF & _
						"([0-9a-fA-F]{1,4}:){1,4}(:[0-9a-fA-F]{1,4}){1,3}|  # 1::6:7:8         1:2:3:4::6:7:8  1:2:3:4::8		" & @CRLF & _
						"([0-9a-fA-F]{1,4}:){1,3}(:[0-9a-fA-F]{1,4}){1,4}|  # 1::5:6:7:8       1:2:3::5:6:7:8  1:2:3::8			" & @CRLF & _
						"([0-9a-fA-F]{1,4}:){1,2}(:[0-9a-fA-F]{1,4}){1,5}|  # 1::4:5:6:7:8     1:2::4:5:6:7:8  1:2::8			" & @CRLF & _
						"[0-9a-fA-F]{1,4}:((:[0-9a-fA-F]{1,4}){1,6})|       # 1::3:4:5:6:7:8   1::3:4:5:6:7:8  1::8  			" & @CRLF & _
						":((:[0-9a-fA-F]{1,4}){1,7}|:)|                     # ::2:3:4:5:6:7:8  ::2:3:4:5:6:7:8 ::8       ::    	" & @CRLF & _
						"fe80:(:[0-9a-fA-F]{0,4}){0,4}%[0-9a-zA-Z]{1,}|     # fe80::7:8%eth0   fe80::7:8%1     (link-local IPv6 addresses with zone index)" & @CRLF & _
						"::(ffff(:0{1,4}){0,1}:){0,1}						#													" & @CRLF & _
						"((25[0-5]|(2[0-4]|1{0,1}[0-9]){0,1}[0-9])\.){3,3}	#													" & @CRLF & _
						"(25[0-5]|(2[0-4]|1{0,1}[0-9]){0,1}[0-9])|          # ::255.255.255.255   ::ffff:255.255.255.255  ::ffff:0:255.255.255.255  (IPv4-mapped IPv6 addresses and IPv4-translated addresses)" & @CRLF & _
						"([0-9a-fA-F]{1,4}:){1,4}:							#													" & @CRLF & _
						"((25[0-5]|(2[0-4]|1{0,1}[0-9]){0,1}[0-9])\.){3,3}	#													" & @CRLF & _
						"(25[0-5]|(2[0-4]|1{0,1}[0-9]){0,1}[0-9])           # 2001:db8:3:4::192.0.2.33  64:ff9b::192.0.2.33 (IPv4-Embedded IPv6 Address)" & @CRLF & _
						")? "




;~    Local $sPattern = 	"(?x)                                                                                                                     " & @CRLF & _
;~ 					   "((?:(?:25[0-5]|2[0-4]\d|[01]\d\d|\d?\d)(?(?=\.?\d)\.)){4}\b)      # erste IP-Adresse (mit Wertebereichscheck)                        " & @CRLF & _
;~ 					   "(?:                                                               # Beginn der optionalen Netzmaske                                  " & @CRLF & _
;~ 					   "    \s?/?\s?                                                      # das optionale Trennzeichen mit eventuellen Leerzeichen           " & @CRLF & _
;~ 					   "    \b(                                                           # falls etwas existiert soll es auch als Group gematcht werden     " & @CRLF & _
;~ 					   "        ([0-9]|[0-2][0-9]|3[0-2])(?!\.)                           # Die Netzmaske als einfache Zahl (=Anzahl der 1-Bits in der Maske)" & @CRLF & _
;~ 					   "        |                                                                                                                            " & @CRLF & _
;~ 					   "        (?:(?:0|128|192|224|240|248|252|254)\.0\.0\.0)|(?:255\.(?:(?:(?:0|128|192|224|240|248|252|254)\.0\.0)|(?:255\.(?:(?:(?:0|128|192|224|240|248|252|254)\.0)|255\.(?:0|128|192|224|240|248|252|254|255)))))  # Die Netzmaske als IP-Maske                                       " & @CRLF & _
;~ 					   "    )(?:[^\d]|$)                                                                                                                     " & @CRLF & _
;~ 					   ")?"




	;im Text nach IP oder Netzwerke suchen
	$aResult = StringRegExp($sText, $sPattern, 4)


   Return $aResult
EndFunc

Alles anzeigen

**Kanashius**

Naja, du kannst nicht erwarten, dass ein kopiertes Pattern von http://stackoverflow.com/questions/5349…-ipv6-addresses einfach in Autoit eingefügt werden kann, und es dann funktioniert.
1. Du hast die Kommentare mit kopiert.
2. Du hast die @CRLF mitdazugepackt.

Du solltest die obere, kleine Zeile kopieren, nicht die erklärung des Patterns. Desweiteren bin ich mir gerade nicht so sicher, ob das dort verwendete RegEx in Autoit ebenfalls funktioniert, da es unterschiedliche Formate von RegEx gibt, und Java glaube ich eine etwas andere nutzt.

Peter S. Taler · *Ab 19-10-22 ergänzt um:*

Du solltest uns mal den Text zur Verfügung stellen. Wichtig an der suche ist, dass Dein Code die Adresse auch richtig erkennen kann. Beginnen Deine Adressen z.B alle mit 2001? Stehen zeilenweise nur ips im Text, stehen ip4 und 6 gemischt usw usw....

Mehr input --> hilfe

Gruß

Peter

Donsen64

Hallo,
vielen Dank für eure Hinweise.

Im Bezug auf dem zu durchsuchenden Text wollte ich es möglichst sehr flexibel haben, denn der Text soll später aus sehr verschiedenen Quellen kommen. Also möglichst eine universelle AutoIT Funktion die in einem Text nach IPv6 Adressen suchen kann. Außerdem ist es bei IPv6 etwas Komplex mit den vielen zugelassenen verschiedenen Schreibweisen. Im Kommentar der Pattern sind die vielen möglichen Schreibweisen zu sehen. In meinem Programmbeispiel hatte ich eine Text als Beispiel für den zu durchsuchenden Text drin:

AutoIt

$sText = "Temporäre IPv6-Adresse. . . . . . : 2003:cc:dcaa:9434:ac3a:8900:3340:3cc1 " & _
		 "7.25.23.2 " & _
		 "Verbindungslokale IPv6-Adresse  . : fe80::dcaa:f15e:50a4:aa09%13"

Im Bezug zu dem Pattern kann ich nur sagen, dass ich viele verschiedenen getestet habe. Aber leider hat keine ein Ergebnis gebracht. Das Pattern welches ich in dem Beispiel drin habe scheint aus meiner Sicht aber die größte Abdeckung für verschiedene Schreibweisen zu haben. Aber auch die hier aus dem AutoIT Forum stammenden Pattern (von hier) funktionieren nicht. Irgendwie mache ich da wohl etwas grundsätzliches falsch.

Gruß Ingo

misterspeed

"Geht nicht" ist immer eine tolle Fehlerbeschreibung.

Wenn du Hilfe willst mach erstmal folgendes:

1. Poste ein fehlerfreies Testscript (siehe Anmerkungen oben bzgl. copy&paste von Kommentaren im Pattern)
2. Erweitere dein Testscript um alle Pattern die du testen möchtest und mach eine Ergebnisausgabe für jedes Pattern
3. Poste deinen Suchtext, welcher mit dem Pattern funktionieren soll. Bevorzugt enthält der Suchtext möglichst viele unterschiedliche Variationen, welche alle erkannt werden sollen/müssen.
4. Zum einfacheren Vergleich poste das von dir erwartete oder erwünschte Ergebnis welches du manuell ermittelt hast.

Wenn du das alles gemacht hast kann man hier auch den Fehler finden und dein Suchpattern verbessern, so dass es letzlich das gewünschte Ergebnis zeigt.

**Alina**

"Geht ja doch" ist da immer eine bessere Rückmeldung. *fg*

AutoIt

#include <String.au3>
#include <Array.au3>






$sText = "Temporäre IPv6-Adresse. . . . . . : 2003:cc:dcaa:9434:ac3a:8900:3340:3cc1 " & _
		 "7.25.23.2 " & _
		 "Verbindungslokale IPv6-Adresse  . : fe80::dcaa:f15e:50a4:aa09%13"






_IPAusgabe()


Func _IPAusgabe()
    Local $aArray1 = _StringBetween($sText, 'Temporäre IPv6-Adresse. . . . . . : ', ' ')
    _ArrayDisplay($aArray1, 'Standardsuche')




	Local $aArray2 = _StringBetween($sText, $aArray1[0],'Verbindungslokale IPv6-Adresse  . : ')
    _ArrayDisplay($aArray2, 'Standardsuche')




	Local $aArray3 = _StringBetween($sText, 'Verbindungslokale IPv6-Adresse  . : ','')
    _ArrayDisplay($aArray3, 'Standardsuche')
EndFunc   ;==>_IPAusgabe

Alles anzeigen

Donsen64

Hallo,
manchmal ist es nicht schlecht wenn man nochmal zum Nachdenken gebracht wird. Ich habe mich nochmals mit der Problematik Pattern beschäftigt und mit erstaunen festgestellt, dass es nicht wirklich so schwer ist wie ich immer angenommen haben. Also vielen Dank für eure Anstöße dazu.

Ich habe also ein Pattern gebaut welches fast alle Schreibweisen, die in der Wikipedia beschrieben werden, abdeckt. Lediglich der Punkt 5 also die Ergebnisse 11 und 12 sind nicht wirklich richtig. Diese sind aber in der Praxis nicht so relevant. Auch die Schreibweisen der Netznotation, also mit Netzwerkmaske (z.B. 2001:0db8:1234::/48) sind nicht mit drin. Aber eventuell mache ich mich da nochmals ran.

Gruß Ingo

AutoIt

#include <Array.au3>
Local $sText
Local $aErgebnis
$sText = "Quelle: https://de.wikipedia.org/wiki/IPv6" & _
		 "Die textuelle Notation von IPv6-Adressen ist in Abschnitt 2.2 von RFC 4291 beschrieben:" & _
		 "1. IPv6-Adressen werden gewöhnlicherweise hexadezimal (IPv4: dezimal) notiert, wobei die Zahl in acht Blöcke zu jeweils 16 Bit (4 Hexadezimalstellen) unterteilt wird. Diese Blöcke werden durch Doppelpunkte (IPv4: Punkte) getrennt notiert: 2001:0db8:85a3:08d3:1319:8a2e:0370:7344." & _
		 "2. Führende Nullen innerhalb eines Blockes dürfen ausgelassen werden: 2001:0db8:0000:08d3:0000:8a2e:0070:7344 ist gleichbedeutend mit 2001:db8:0:8d3:0:8a2e:70:7344." & _
		 "3. Ein oder mehrere aufeinander folgende Blöcke, deren Wert 0 (bzw. 0000) beträgt, dürfen ausgelassen werden. Dies wird durch zwei aufeinander folgende Doppelpunkte angezeigt: 2001:0db8:0:0:0:0:1428:57ab ist gleichbedeutend mit 2001:db8::1428:57ab.[20]" & _
		 "4. Die Reduktion durch Regel 3 darf nur einmal durchgeführt werden, das heißt, es darf höchstens eine zusammenhängende Gruppe aus Null-Blöcken in der Adresse ersetzt werden. Die Adresse 2001:0db8:0:0:8d3:0:0:0 darf demnach entweder zu 2001:db8:0:0:8d3:: oder 2001:db8::8d3:0:0:0 gekürzt werden; 2001:db8::8d3:: ist unzulässig, da dies mehrdeutig ist und fälschlicherweise z. B. auch als 2001:db8:0:0:0:8d3:0:0 interpretiert werden könnte. Es empfiehlt sich den Block mit den meisten Null-Blöcken zu kürzen." & _
		 "5. Ebenfalls darf für die letzten vier Bytes (also 32 Bits) der Adresse die herkömmliche dezimale Notation verwendet werden. So ist ::ffff:127.0.0.1 eine alternative Schreibweise für ::ffff:7f00:1. Diese Schreibweise wird vor allem bei Einbettung des IPv4-Adressraums in den IPv6-Adressraum verwendet." & _
		 "URL-Notation von IPv6-Adressen" & _
		 "In einer URL wird die IPv6-Adresse in eckige Klammern eingeschlossen,[21] z. B.:" & _
		 "http://[2001:0db8:85a3:08d3:1319:8a2e:0370:7344]/" & _
		 "Diese Notation verhindert die fälschliche Interpretation von Portnummern als Teil der IPv6-Adresse:" & _
		 "http://[2001:0db8:85a3:08d3:1319:8a2e:0370:7344]:8080/ "
$aErgebnis = _StringSearchIPv6($sText)
_ArrayDisplay($aErgebnis)
Func _StringSearchIPv6($sText)
	Local $aResult[1]
	Local $aTEMP
	Local $aTEMP2
	Local $sPattern = "([0-9a-fA-F]{1,4}:{0,2}){7,8}|([0-9a-fA-F]{1,4}:{2})"
   ;im Text nach IPv6 suchen
   $aTEMP = StringRegExp($sText, $sPattern, 4)
   If IsArray($aTEMP) = 1 Then
	  $aResult[0] = 0
	  For $i=0 To UBound($aTEMP)-1
		 $aTEMP2 = $aTEMP[$i]
		 _ArrayAdd($aResult, $aTEMP2[0])
		 $aResult[0] = $aResult[0] +1
	  Next
	  Return($aResult)
   Else
		Return 0 ;Nix gefunden
   EndIf
EndFunc

Alles anzeigen

Donsen64

Hallo,
leider war es noch nicht wirklich die endgültige Lösung für mein Problem. In einem Text wie:
DHCPv6-IAID . . . . . . . . . . . : 356792294 C:\Users\cc00815>

Findet er leider die folgenden zwei "IPv6 Adressen":
356792294
cc00815

Hat jemand eine Idee wir ich das verhindern kann?

Gruß Ingo

AutoIt

#include <Array.au3>


Local $sText
Local $aErgebnis


$sText = "Quelle: https://de.wikipedia.org/wiki/IPv6" & _
		 "Die textuelle Notation von IPv6-Adressen ist in Abschnitt 2.2 von RFC 4291 beschrieben:" & _
		 "1. IPv6-Adressen werden gewöhnlicherweise hexadezimal (IPv4: dezimal) notiert, wobei die Zahl in acht Blöcke zu jeweils 16 Bit (4 Hexadezimalstellen) unterteilt wird. Diese Blöcke werden durch Doppelpunkte (IPv4: Punkte) getrennt notiert: 2001:0db8:85a3:08d3:1319:8a2e:0370:7344." & _
		 "2. Führende Nullen innerhalb eines Blockes dürfen ausgelassen werden: 2001:0db8:0000:08d3:0000:8a2e:0070:7344 ist gleichbedeutend mit 2001:db8:0:8d3:0:8a2e:70:7344." & _
		 "3. Ein oder mehrere aufeinander folgende Blöcke, deren Wert 0 (bzw. 0000) beträgt, dürfen ausgelassen werden. Dies wird durch zwei aufeinander folgende Doppelpunkte angezeigt: 2001:0db8:0:0:0:0:1428:57ab ist gleichbedeutend mit 2001:db8::1428:57ab.[20]" & _
		 "4. Die Reduktion durch Regel 3 darf nur einmal durchgeführt werden, das heißt, es darf höchstens eine zusammenhängende Gruppe aus Null-Blöcken in der Adresse ersetzt werden. Die Adresse 2001:0db8:0:0:8d3:0:0:0 darf demnach entweder zu 2001:db8:0:0:8d3:: oder 2001:db8::8d3:0:0:0 gekürzt werden; 2001:db8::8d3:: ist unzulässig, da dies mehrdeutig ist und fälschlicherweise z. B. auch als 2001:db8:0:0:0:8d3:0:0 interpretiert werden könnte. Es empfiehlt sich den Block mit den meisten Null-Blöcken zu kürzen." & _
		 "5. Ebenfalls darf für die letzten vier Bytes (also 32 Bits) der Adresse die herkömmliche dezimale Notation verwendet werden. So ist ::ffff:127.0.0.1 eine alternative Schreibweise für ::ffff:7f00:1. Diese Schreibweise wird vor allem bei Einbettung des IPv4-Adressraums in den IPv6-Adressraum verwendet." & _
		 "URL-Notation von IPv6-Adressen" & _
		 "In einer URL wird die IPv6-Adresse in eckige Klammern eingeschlossen,[21] z. B.:" & _
		 "http://[2001:0db8:85a3:08d3:1319:8a2e:0370:7344]/" & _
		 "Diese Notation verhindert die fälschliche Interpretation von Portnummern als Teil der IPv6-Adresse:" & _
		 "http://[2001:0db8:85a3:08d3:1319:8a2e:0370:7344]:8080/ " & _
		 " DHCPv6-IAID . . . . . . . . . . . : 356792294 C:\Users\cc00815> "


$aErgebnis = _StringSearchIPv6($sText)


_ArrayDisplay($aErgebnis)


Func _StringSearchIPv6($sText)
	Local $aResult[1]
	Local $aTEMP
	Local $aTEMP2
	Local $sPattern = "([0-9a-fA-F]{1,4}:{0,2}){7,8}|([0-9a-fA-F]{1,4}:{2})"


   ;im Text nach IPv6 suchen
   $aTEMP = StringRegExp($sText, $sPattern, 4)


   If IsArray($aTEMP) = 1 Then
	  $aResult[0] = 0
	  For $i=0 To UBound($aTEMP)-1
		 $aTEMP2 = $aTEMP[$i]
		 _ArrayAdd($aResult, $aTEMP2[0])
		 $aResult[0] = $aResult[0] +1
	  Next
	  Return($aResult)
   Else
		Return 0 ;Nix gefunden
   EndIf
EndFunc

Alles anzeigen

Peter S. Taler · *Ab 19-10-22 ergänzt um:*

Die aAressen sind doch ein wenig kurz für ip6 adressen? Kannst Du dein Such /Filterergebnis nicht auf Länge prüfen? Was zu kurz ist kann keine IP Adresse sein. Oder auf : Punkte - was keine
: Punkt enthällt kann keine Ip sein usw...

Wenn es um Filter geht muss es auch Kriterien geben, an der sich die Software festhalten kann.

Über die def. von IP 6 Adressen findet man u.a. folgendes:

Eine IPv6-Adresse besteht aus 128 Bit. Wegen der unhandlichen Länge werden die 128 Bit in 8 mal 16 Bit unterteilt. Je 4 Bit werden als eine hexadezimale Zahl dargestellt. Je 4 Hexzahlen werden gruppiert und durch einen Doppelpunkt (":") getrennt. Um die Schreibweise zu vereinfachen lässt führende Nullen in den Blöcken weg. Eine Folge von 8 Nullen kann man durch zwei Doppelpunkte ("::") ersetzen.
Bei der IPv6-Adresse wird der vordere Teil Präfix oder Network-ID genannt. Die ersten 64 Bit adressieren das Netz bzw. ein Subnetz. Dieser Teil wird in der Regel vom Betreiber des Netzzugangs vorgegeben. Bei einem Internet-Anschluss ist das der Internet-Provider. Der Provider wiederum hat seine Network-ID von einer Registry zugeteilt bekommen.
Der hintere Teil der Adresse, also die restlichen 64 Bit adressieren immer den Host im jeweiligen Subnetz. Es handelt sich dabei um das Suffix oder den Interface Identifier.
Es gilt also, dass die ersten 64 Bit einer IPv6-Adresse das Netz und die restlichen 64 Bit den Host adressieren.

Quelle : (http://www.elektronik-kompendium.de/sites/net/1902111.htm)

--------------> Keine Doppelpunkte keine IP

Gruß

Peter

**chesstiger**

Leider ist die Länge bei IPv6 kaum ausschlaggebend. Erstens können (wie bei IPv4 auch) führende Nullen in den Blöcken ausgelassen werden. Man schreibt ja auch 127.0.0.1 und nicht 127.000.000.001. Darüber hinaus gibt es bei IPv6 noch eine Auslassungsregel zur kürzeren Notation von Adressen. Eigentlich besteht eine IPv6-Adresse aus 8 Blöcken mit je 4 Zeichen plus 7 Doppelpunkte als Trenner, ergo 39 Zeichen. Man kann jedoch Blöcke auslassen, wenn sie nur aus Nullen bestehen. Mein Router hat eine interne IPv6-Adresse: fe80::e9b3:5825:7acb:dc13
Dieser doppelte Doppelpunkt mittendrin steht für so eine Auslassung. Pro Adresse darf man das nur einmal machen, damit die Adresse eindeutig bleibt. Statt "::" müssen hier dann so viele Nullblöcke eingesetzt werden, dass man insgesamt auf 8 Blöcke kommt. Hier gibt es bereits 5 Blöcke, es kommen also 3 Nullblöcke hinzu. Die eigentliche IP lautet also fe80:0000:0000:0000:e9b3:5825:7acb:dc13 - Von 39 Stellen auf 25 Stellen. Die Länge ist also kein eindeutiges Merkmal, da sie stark variieren kann. Im Prinzip wäre ::1 auch schon eine valide IPv6-Adresse.

Peter S. Taler · *Ab 19-10-22 ergänzt um:*

Wo ist das Problem? er kann doch die Doppelpunkte abarbeiten keine Doppelpunkte --> Keine IP6
In dem angebotenen Beispiel kommen gar keine Doppelpunkte vor --> wenn auf Doppelpunkte gerüft wird --> sind das keine IP6 Adressen -> das ist simpel und beseitigt das genannte Problem?

Mit den doppelten Doppelpunkten ist das doch auch einfach. Wenn direkt nach einem Doppelpunkt ein zweiter kommt darf die Adresse entsprechend kürzer sein. Die fehlenden sind dann null. So läßt sich die Länge anpacken.

Gruß

Peter

Donsen64

Hallo,
die Idee mit dem Doppelpunkt ist eigentlich nicht schlecht. Wenn kein Doppelpunkt drin ist, ist es keine IPv6 Adresse. Werde ich mir mal ansehen.

Vielen Dank für eure Hinweise.

Gruß Ingo

Donsen64

Hallo,
so habe es nochmal angepasst. Jetzt sollte es hoffentlich alles gewesen sein.

Gruß Ingo

AutoIt

#include <Array.au3>


Local $sText
Local $aErgebnis


$sText = "Quelle: https://de.wikipedia.org/wiki/IPv6" & _
		 "Die textuelle Notation von IPv6-Adressen ist in Abschnitt 2.2 von RFC 4291 beschrieben:" & _
		 "1. IPv6-Adressen werden gewöhnlicherweise hexadezimal (IPv4: dezimal) notiert, wobei die Zahl in acht Blöcke zu jeweils 16 Bit (4 Hexadezimalstellen) unterteilt wird. Diese Blöcke werden durch Doppelpunkte (IPv4: Punkte) getrennt notiert: 2001:0db8:85a3:08d3:1319:8a2e:0370:7344." & _
		 "2. Führende Nullen innerhalb eines Blockes dürfen ausgelassen werden: 2001:0db8:0000:08d3:0000:8a2e:0070:7344 ist gleichbedeutend mit 2001:db8:0:8d3:0:8a2e:70:7344." & _
		 "3. Ein oder mehrere aufeinander folgende Blöcke, deren Wert 0 (bzw. 0000) beträgt, dürfen ausgelassen werden. Dies wird durch zwei aufeinander folgende Doppelpunkte angezeigt: 2001:0db8:0:0:0:0:1428:57ab ist gleichbedeutend mit 2001:db8::1428:57ab.[20]" & _
		 "4. Die Reduktion durch Regel 3 darf nur einmal durchgeführt werden, das heißt, es darf höchstens eine zusammenhängende Gruppe aus Null-Blöcken in der Adresse ersetzt werden. Die Adresse 2001:0db8:0:0:8d3:0:0:0 darf demnach entweder zu 2001:db8:0:0:8d3:: oder 2001:db8::8d3:0:0:0 gekürzt werden; 2001:db8::8d3:: ist unzulässig, da dies mehrdeutig ist und fälschlicherweise z. B. auch als 2001:db8:0:0:0:8d3:0:0 interpretiert werden könnte. Es empfiehlt sich den Block mit den meisten Null-Blöcken zu kürzen." & _
		 "5. Ebenfalls darf für die letzten vier Bytes (also 32 Bits) der Adresse die herkömmliche dezimale Notation verwendet werden. So ist ::ffff:127.0.0.1 eine alternative Schreibweise für ::ffff:7f00:1. Diese Schreibweise wird vor allem bei Einbettung des IPv4-Adressraums in den IPv6-Adressraum verwendet." & _
		 "URL-Notation von IPv6-Adressen" & _
		 "In einer URL wird die IPv6-Adresse in eckige Klammern eingeschlossen,[21] z. B.:" & _
		 "http://[2001:0db8:85a3:08d3:1319:8a2e:0370:7344]/" & _
		 "Diese Notation verhindert die fälschliche Interpretation von Portnummern als Teil der IPv6-Adresse:" & _
		 "http://[2001:0db8:85a3:08d3:1319:8a2e:0370:7344]:8080/ " & _
		 " DHCPv6-IAID . . . . . . . . . . . : 356792294 C:\Users\cc00815> "


$aErgebnis = _StringSearchIPv6($sText)


_ArrayDisplay($aErgebnis)


Func _StringSearchIPv6($sText)
	Local $aResult[1]
	Local $aTEMP
	Local $aTEMP2
	Local $sPattern = "([0-9a-fA-F]{1,4}:{0,2}){7,8}|([0-9a-fA-F]{1,4}:{2})"


   ;im Text nach IPv6 suchen
   $aTEMP = StringRegExp($sText, $sPattern, 4)


   If IsArray($aTEMP) = 1 Then
	  $aResult[0] = 0
	  For $i=0 To UBound($aTEMP)-1
		 $aTEMP2 = $aTEMP[$i]
		 If StringInStr($aTEMP2[0], ":") <> 0 Then
			_ArrayAdd($aResult, $aTEMP2[0])
			$aResult[0] = $aResult[0] +1
		 EndIf
	  Next
	  Return($aResult)
   Else
		Return 0 ;Nix gefunden
   EndIf
EndFunc

Alles anzeigen

Donsen64

Hallo,
leider ist das Ergebnis doch noch nicht wirklich richtig bzw. optimal.Wenn ich das folgende Starte:

AutoIt

#include <Array.au3>


Local $sText
Local $aErgebnis


$sText = "Antwort von 2001:0db8:85a3:08d3:1319:8a2e:0370: Zeit=42ms" & _
		 "Antwort von 2001:0db8:85a3:08d3:1319:8a2e:0370: Zeit=44ms" & _
		 "Antwort von 2001:0db8:85a3:08d3:1319:8a2e:0370: Zeit=41ms" & _
		 "So lautet das Präfix		2001:0db8:85a3:08d3::/64"


$aErgebnis = _StringSearchIPv6($sText)


_ArrayDisplay($aErgebnis)


Func _StringSearchIPv6($sText)
	Local $aResult[1]
	Local $aTEMP
	Local $aTEMP2
	Local $sPattern = "([0-9a-fA-F]{1,4}:{0,2}){7,8}|([0-9a-fA-F]{1,4}:{2})"


   ;im Text nach IPv6 suchen
   $aTEMP = StringRegExp($sText, $sPattern, 4)


   If IsArray($aTEMP) = 1 Then
	  $aResult[0] = 0
	  For $i=0 To UBound($aTEMP)-1
		 $aTEMP2 = $aTEMP[$i]
		 If StringInStr($aTEMP2[0], ":") <> 0 Then
			_ArrayAdd($aResult, $aTEMP2[0])
			$aResult[0] = $aResult[0] +1
		 EndIf
	  Next
	  Return($aResult)
   Else
		Return 0 ;Nix gefunden
   EndIf
EndFunc

Alles anzeigen

Findet er leider so etwas: "2001:0db8:85a3:08d3:1319:8a2e:0370:" Also die IPv6 Endet auf einen Doppelpunkt. Das darf aber nicht sein. Nur der letzte Eintrag mit zwei Doppelpunkten am Ende "2001:0db8:85a3:08d3::" ist richtig und gültig.

Hat jemand eine Idee wie ich den einfachen Doppelpunkt am Ende verhindern kann?

Gruß Ingo