param([string]$ldpFile)

$text = [IO.File]::ReadAllText($ldpFile).Trim()
$byteCount = $text.Length / 2

$bytes = 0..$($byteCount - 1) |
    ForEach-Object {
        $index = $_ * 2
        $hex = $text.Substring($index, 2)
        [Convert]::ToByte($hex, 16)
    }

$offset = 155
$channelCount = $bytes[$offset] * 256 + $bytes[$offset + 1]
$offset = $offset + 2

0..$($channelCount - 1) |
    ForEach-Object {
        $name = ""
        while ($bytes[$offset] -ne 0) {
            $name = $name + [char]$bytes[$offset]
            $offset = $offset + 1
        }
        
        $offset = $offset + 1
        $name
    }