• https://github.com/Pkcs11Admin/Be.HexEditor
• Método alternativo: https://stackoverflow.com/a/23344431/1248295
• Ejemplo de integración en una aplicación: https://github.com/ElektroStudios/Easy-Link-File-Viewer

• https://github.com/abbaye/WpfHexEditorControl

• https://github.com/Pkcs11Admin/Be.HexEditor/blob/master/Be.Windows.Forms.HexBox/FindOptions.cs
• https://github.com/Pkcs11Admin/Be.HexEditor/blob/master/Be.HexEditor/FormFind.cs

<HideModuleName>
Public Module StreamExtensions
 
	''' ----------------------------------------------------------------------------------------------------
	''' <summary>
	''' Searches for the specified byte pattern within the source <see cref="Global.System.IO.Stream"/>, 
	''' and returns the zero-based index of the first occurrence.
	''' </summary>
	''' ----------------------------------------------------------------------------------------------------
	''' <param name="stream">
	''' The source <see cref="Global.System.IO.Stream"/>.
	''' </param>
	''' 
	''' <param name="startPosition">
	''' The zero-based starting position in the source <see cref="Global.System.IO.Stream"/> to perform the search.
	''' </param>
	''' 
	''' <param name="count">
	''' The number of bytes in the source <see cref="Global.System.IO.Stream"/> to search.
	''' </param>
	''' ----------------------------------------------------------------------------------------------------
	''' <returns>
	''' The zero-based index of the first occurrence of the specified byte pattern 
	''' within the source <see cref="Global.System.IO.Stream"/>, 
	''' if found; otherwise, –1.
	''' </returns>
	''' ----------------------------------------------------------------------------------------------------
	<Extension>
	<EditorBrowsable(EditorBrowsableState.Always)>
	<DebuggerStepThrough>
	Public Function IndexOf(stream As Global.System.IO.Stream, pattern As Byte(), startPosition As Long, count As Long) As Long
 
	  Dim streamLength As Long = stream.Length
	  Dim endPosition As Long = startPosition + count
 
	  If startPosition > streamLength Then
	    Throw New InvalidOperationException("Start Position is greater than the source stream length.",
	                      New ArgumentException("", paramName:=NameOf(startPosition)))
	  End If
 
	  If endPosition > streamLength Then
	    Throw New InvalidOperationException("End Position is greater than the source stream length.",
	                      New ArgumentException("", paramName:=NameOf(count)))
	  End If
 
	  If count <= 0 Then
	    Throw New ArgumentException("A value greater than zero is required.", paramName:=NameOf(count))
	  End If
 
	  Dim initialStreamPosition As Long = stream.Position
	  stream.Seek(startPosition, SeekOrigin.Begin)
 
	  Dim foundPosition As Long
	  Dim index As Integer
	  Dim readByte As Integer
 
	  While (stream.Position <= endPosition)
	    readByte = stream.ReadByte()
	    If readByte = -1 Then
	      Exit While
	    End If
 
	    If pattern(index) <> readByte Then
	      stream.Position -= index
	      index = 0
	      Continue While
	    End If
 
	    If index = (pattern.Length - 1) Then
	      foundPosition = stream.Position - index
	      Exit While
	    End If
	    index += 1
	  End While
 
	  stream.Seek(initialStreamPosition, SeekOrigin.Begin)
	  Return foundPosition - 1
 
	End Function
 
	<Extension>
	<EditorBrowsable(EditorBrowsableState.Always)>
	<DebuggerStepThrough>
	Public Function IndexOf(stream As Global.System.IO.Stream, pattern As Byte(), startPosition As Long) As Long
 
	  Return StreamExtensions.IndexOf(stream, pattern, startPosition, stream.Length - startPosition)
 
	End Function
 
End Module

<DebuggerStepThrough>
<Extension>
<EditorBrowsable(EditorBrowsableState.Always)>
Public Function IndexOf(stream As Global.System.IO.Stream, pattern As Byte(), startPosition As Long, count As Long) As Long
 
    Dim streamLen As Long = stream.Length
    Dim pattLen As Integer = pattern.Length
    Dim endPos As Long = startPosition + count
 
    If startPosition > streamLen Then
        Throw New InvalidOperationException("Start Position is greater than the source stream length.",
                                            New ArgumentException("", paramName:=NameOf(startPosition)))
    End If
 
    If endPos > streamLen Then
        Throw New InvalidOperationException("End Position is greater than the source stream length.",
                                            New ArgumentException("", paramName:=NameOf(count)))
    End If
 
    If pattLen > (streamLen - startPosition) Then
        Throw New InvalidOperationException("Pattern Length is greater than the current search capacity length.",
                                            New ArgumentException("", paramName:=NameOf(count)))
    End If
 
    If count <= 0 Then
        Throw New ArgumentException("A value greater than zero is required.", paramName:=NameOf(count))
    End If
 
    Dim matchPos As Long = -1
    Dim pattPos As Integer = 0
 
    Dim buffSize As Integer = CInt(Math.Min(4096, stream.Length))
    Dim buff(buffSize - 1) As Byte
 
    Dim buffStream As New BufferedStream(stream, buffSize)
    buffStream.Seek(startPosition, SeekOrigin.Begin)
 
    Dim streamPos As Long = startPosition
    Dim readArray As Integer = -1
 
    While (readArray <> 0) AndAlso (streamPos <= endPos)
        readArray = buffStream.Read(buff, 0, buffSize)
 
        For buffPos As Integer = 0 To buff.Length - 1
            streamPos += 1
 
            If buff(buffPos) <> pattern(pattPos) Then
                pattPos = 0
            Else
                If pattPos = (pattLen - 1) Then
                    matchPos = (streamPos - pattPos - 1)
                    Exit While
                End If
                pattPos += 1
            End If
 
            If streamPos > endPos Then
                Exit While
            End If
        Next
    End While
 
    Return matchPos
 
End Function

• https://learn.microsoft.com/en-us/dotnet/api/system.memoryextensions.indexof?view=net-7.0