mirror of https://github.com/voidlizard/hbs2
fixme
This commit is contained in:
parent
cd1b6ddf77
commit
be55aa55e7
|
@ -0,0 +1,4 @@
|
||||||
|
FIXME: zero-block-reading
|
||||||
|
похоже, что при чтении ИЛИ попытки расшифровки
|
||||||
|
блока размера 0 возникает ошибка.
|
||||||
|
Написать тест на чтение / шифрование такого блока.
|
|
@ -219,6 +219,25 @@ instance ( MonadIO m
|
||||||
|
|
||||||
let key0 = HKDF.expand prk nonceS typicalKeyLength & Saltine.decode & fromJust
|
let key0 = HKDF.expand prk nonceS typicalKeyLength & Saltine.decode & fromJust
|
||||||
|
|
||||||
|
-- NOTE: new-format-and-compatibility
|
||||||
|
-- мы можем:
|
||||||
|
-- 1. поменять схему и схему вычисления нонсов
|
||||||
|
-- сделать зависимой от схемы. Вот мы пишем
|
||||||
|
-- её внизу, это ок.
|
||||||
|
-- Минусы: сложнее код, менее локальный
|
||||||
|
-- Плюсы: надёжнее
|
||||||
|
-- Совместимость: обратная? старая версия
|
||||||
|
-- не будет читать новые блоки.
|
||||||
|
--
|
||||||
|
-- 2. сериализовать блок с параметрами
|
||||||
|
-- при чтении: пытаемся десереализовать,
|
||||||
|
-- как блок (читать голову). если не удаётся
|
||||||
|
-- --- читаем, как байтстроку.
|
||||||
|
-- минусы: будет медленнее --- лишняя проверка/попытка
|
||||||
|
-- десереализации на каждый блок.
|
||||||
|
-- плюсы: более локальные изменения
|
||||||
|
--
|
||||||
|
|
||||||
hashes' <- liftIO $ toEncryptData source
|
hashes' <- liftIO $ toEncryptData source
|
||||||
& S.zip (S.enumFrom (1 :: Word64) )
|
& S.zip (S.enumFrom (1 :: Word64) )
|
||||||
& S.mapM ( \(i,bs) -> do
|
& S.mapM ( \(i,bs) -> do
|
||||||
|
|
Loading…
Reference in New Issue