Lines 153-159
Link Here
|
153 |
|
153 |
|
154 |
let parse_ecdh_pubkey cin = |
154 |
let parse_ecdh_pubkey cin = |
155 |
let length = cin#read_int_size 1 in |
155 |
let length = cin#read_int_size 1 in |
156 |
let oid = sprintf "%x" (cin#read_int_size length) in |
156 |
let oid = sprintf "%Lx" (cin#read_int64_size length) in |
157 |
let mpi = read_mpi cin in |
157 |
let mpi = read_mpi cin in |
158 |
let kdf_length = cin#read_int_size 1 in |
158 |
let kdf_length = cin#read_int_size 1 in |
159 |
let kdf_res = cin#read_int_size 1 in |
159 |
let kdf_res = cin#read_int_size 1 in |
Lines 166-172
Link Here
|
166 |
|
166 |
|
167 |
let parse_ecdsa_pubkey cin = |
167 |
let parse_ecdsa_pubkey cin = |
168 |
let length = cin#read_int_size 1 in |
168 |
let length = cin#read_int_size 1 in |
169 |
let oid = sprintf "%x" (cin#read_int_size length) in |
169 |
let oid = sprintf "%Lx" (cin#read_int64_size length) in |
170 |
let psize = oid_to_psize oid |
170 |
let psize = oid_to_psize oid |
171 |
in |
171 |
in |
172 |
psize |
172 |
psize |