Lines Matching refs:bsR
262 bsR = encodePoint prx pR function
263 sK = getK prx ph ctx pub bsR msg
265 in encodeSignature prx (bsR, pR, sS)
280 (bsR, pR, sS) <- decodeSignature prx sig
282 let sK = getK prx ph ctx pub bsR msg
297 getK prx ph ctx (PublicKey pub) bsR msg =
299 digK = hashWithDom prx alg ph ctx (bytes bsR <> bytes pub) msg
306 encodeSignature prx (bsR, _, sS) = Signature $ buildAndFreeze $
307 bytes bsR <> bytes bsS <> zero len0
310 len0 = signatureSize prx - B.length bsR - B.length bsS
319 let (bsR, bsS) = B.splitAt (publicKeySize prx) bs
320 pR <- decodePoint prx bsR
322 return (bsR, pR, sS)