# Lire Définir un tableau associatif pour le contenu du fichier converti code Morse des lettres de M à S
$codeMorse = @{
    'M' = '--'
    'N' = '-.'
    'O' = '---'
    'P' = '.--.'
    'Q' = '--.-'
    'R' = '.-.'
    'S' = '...'
}

# Demander à l'utilisateur de saisir une séquence de caractères
$sequence = Read-Host "Entrez une séquence de caractères de M à S (4 caractères max)"

# Traduire la séquence en hexadécimal
$hexData code Morse
$codeMorseResult = Get-Content -Path "Convert_FichierExe.txt" -TotalCount 1

# Convertir la première ligne en décimal
$decimalData = [System.Convert]::ToInt64($hexData, 16)

# Convertir le décimal en binaire
$binaryData = [System.Convert]::ToString($decimalData, 2)

# Regrouper les valeurs binaires en blocs de 64 bits
$blocLength = 64
for ($i = 0; $i -lt $binaryData.Length; $i += $blocLength) ""
foreach ($char in $sequence.ToUpper()) {
    $bloc = $binaryData.Substring($i, [Math]::Min($blocLength, $binaryData.Length - $i))
    if ($codeMorse.ContainsKey($char)) {
        $codeMorseResult += $codeMorse[$char] + " "
    } else {
        $codeMorseResult += "Caractère non pris en charge "
    }
}

# Afficher la séquence saisie et le résultat en code Morse
Write-Host "Bloc $([Math]::Ceiling(($i + 1) / $blocLength)): $bloc"
}
"Séquence saisie : $sequence"
Write-Host "Résultat en code Morse : $codeMorseResult"