mirror of
https://github.com/c-cube/tiny_httpd.git
synced 2025-12-06 11:15:35 -05:00
19 lines
568 B
OCaml
19 lines
568 B
OCaml
let read_file file : string =
|
|
let buf = Buffer.create 32 in
|
|
let ic = open_in_bin file in
|
|
Buffer.add_channel buf ic (in_channel_length ic);
|
|
Buffer.contents buf
|
|
|
|
let apply_masking = Tiny_httpd_ws.Private_.apply_masking
|
|
|
|
let decode ~key b =
|
|
let buf = Bytes.copy b in
|
|
apply_masking ~mask_key:key buf 0 (Bytes.length buf);
|
|
buf
|
|
|
|
let () =
|
|
let key = "\x57\x7d\xfd\x95" |> Bytes.unsafe_of_string in
|
|
let content = read_file "masked.data" in
|
|
let decoded = decode ~key (Bytes.unsafe_of_string content) in
|
|
print_endline (Bytes.unsafe_to_string decoded);
|
|
()
|