Sách
Haskell
Chương 11. HTML và Web
Gửi một yêu cầu HTTP với xác thực cơ bản

Haskell:
Gửi một yêu cầu HTTP với xác thực cơ bản

Làm gì & Tại sao?

Gửi một yêu cầu HTTP với xác thực cơ bản có nghĩa là chương trình của bạn gõ cửa dịch vụ web, truyền tài khoản người dùng và mật khẩu để vào. Các lập trình viên thực hiện điều này để truy cập vào các API không mở cho công chúng hoặc để thực hiện các hành động thay mặt cho người dùng.

Cách thực hiện:

Bạn sẽ cần đến gói http-conduit cho các hành động HTTP và base64-bytestring để mã hóa thông tin đăng nhập. Nhập chúng và sử dụng applyBasicAuth để thêm thông tin đăng nhập vào yêu cầu của bạn.

import Network.HTTP.Simple
import Data.ByteString.Char8 (pack)
import Data.ByteString.Base64 (encode)

-- Xây dựng tiêu đề xác thực cơ bản
let username = "user"
let password = "pass"
let auth = encode $ pack (username ++ ":" ++ password)

-- Tạo yêu cầu của bạn
request' = parseRequest_ "GET http://example.com/bi-mat"
let request = setRequestHeader "Authorization" ["Basic " <> auth] request'

-- Thực hiện yêu cầu
response <- httpLBS request

-- Xử lý phản hồi
print $ getResponseBody response

Điều này sẽ xuất ra phản hồi từ API, nếu thông tin đăng nhập của bạn được xác minh.

Đào sâu

Xác thực cơ bản là cổ xưa trong các năm của web, được thiết kế vào đầu những năm ‘90, và nó đơn giản nhất có thể: mã hóa base64 tên người dùng:mật khẩu được gửi trong một tiêu đề. Nó thiếu các tính năng tiện ích như thời gian hết hạn của mã token và, vì không được mã hóa, nên luôn được sử dụng qua HTTPS.

Các phương thức thay thế như OAuth cung cấp kiểm soát chặt chẽ, an toàn hơn. Đối với Haskell, các thư viện như http-client và wreq mang lại cho bạn nhiều lựa chọn và linh hoạt hơn.

Về việc triển khai, nhớ không mã hóa cứng thông tin đăng nhập! Sử dụng biến môi trường hoặc một két sắt an toàn trong sản xuất. Và vì mã hóa base64 không phải là mã hóa (ai cũng có thể giải mã nó), HTTPS không chỉ là một ý tưởng hay, mà còn là một yêu cầu bắt buộc.

Xem thêm

Gửi một yêu cầu HTTP