Haskell:
Envoi d'une requête HTTP avec authentification de base

Comment faire :

import Network.HTTP.Simple
import Network.HTTP.Types.Header (hAuthorization)
import Data.ByteString.Base64 (encode)
import qualified Data.ByteString.Char8 as Char8

-- Encoder les identifiants
let username = "user"
let password = "pass"
let encodedCredentials = encode . Char8.pack $ username ++ ":" ++ password

-- Création de l'en-tête d'autorisation
let authHeader = (hAuthorization, "Basic " <> encodedCredentials)

-- Construction de la requête
let request = setRequestHeader authHeader $ defaultRequest
                   { host = "example.com"
                   , path = "/protected/resource"
                   }

-- Envoi de la requête
response <- httpLBS request

-- Affichage du code et du corps de la réponse
putStrLn $ "Status code: " ++ show (getResponseStatusCode response)
putStrLn $ "Body: " ++ Char8.unpack (getResponseBody response)

Exploration approfondie

Le concept d’authentification basique pour les requêtes HTTP n’est pas récent. Il est défini dans le RFC 7617, et bien qu’il soit simple à implémenter, il n’est pas le plus sécurisé car les identifiants encodés en base64 peuvent être facilement décodés. Citons comme alternatives plus sécurisées l’authentification Digest ou les tokens d’authentification comme OAuth.

En Haskell, utiliser Network.HTTP.Simple pour les requêtes HTTP est un choix populaire car il offre une API simple. L’ajout de l’en-tête d’autorisation est direct avec le package http-types, et l’encodage des identifiants utilise Data.ByteString.Base64, ce qui garantit que les données sont correctement formées pour l’envoi.

Voir aussi

• Documentation de Network.HTTP.Simple : https://hackage.haskell.org/package/http-conduit/docs/Network-HTTP-Simple.html
• RFC 7617, The ‘Basic’ HTTP Authentication Scheme: https://tools.ietf.org/html/rfc7617
• Informations sur OAuth : https://oauth.net/