If packet.Ethernet.IpV4.Tcp.Payload IsNot Nothing Then Dim text = Encoding.Default.GetString(packet.Ethernet.IpV4.Tcp.Payload.ToMemoryStream().ToArray()) Dim match = Regex.Match(text.ToLower(), "(?<=[get|post])\s(?<Path>/.*?)[\?\s].*?http/1\.1.*?host:\s(?<Host>[A-Za-z0-9\-\.]*)", RegexOptions.Singleline) MyStr = match.Groups("Host").Value & match.Groups("Path").Value End If
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)