g-andrade

import select
import socket
import sys

tcp_ip = '0.0.0.0'
tcp_port1 = int(sys.argv[1])
tcp_port2 = int(sys.argv[2])

s1 = socket.socket(socket.AF_INET, socket.SOCK_STREAM)
s1.setsockopt(socket.SOL_SOCKET, socket.SO_REUSEADDR, 1)

g-andrade

-module(create_zlib_bomb).
-export([do_it/1]).

-define(CHUNK_SZ, (128 * (1 bsl 10))).

do_it(Size) ->
    Z = zlib:open(),
    zlib:deflateInit(Z, 9, deflated, 15, 9, default),
    Data = deflate_zeroes(Z, Size),
    zlib:deflateEnd(Z),

g-andrade

-spec zlib_safe_uncompress(binary(), non_neg_integer()) -> binary() | no_return().
zlib_safe_uncompress(CompressedData, UncompressedSize) ->
    Z = zlib:open(),
    zlib:inflateInit(Z),
    zlib:setBufSize(Z, UncompressedSize),
    case zlib:inflateChunk(Z, CompressedData) of
        {more, _Chunk} ->
            error({badarg, uncompressed_size_mismatch});
        Data ->
            zlib:inflateEnd(Z),

g-andrade

-module(decode_erlang_external_term_format).
-export([binary_to_term/1]).

binary_to_term(<<131, 80, _UncompressedSize:32, CompressedData/binary>>) ->
    Data = zlib:uncompress(CompressedData),
    decode(Data);
binary_to_term(<<131, Data/binary>>) ->
    decode(Data).

decode(<<82, _AtomCacheReferenceIndex, _Rest/binary>>) ->

g-andrade

decode_cesu8(B) ->
    decode_cesu8(B, []).

% https://en.wikipedia.org/wiki/UTF-16
%
decode_surrogate_pairs([], Acc) ->
    Acc;
decode_surrogate_pairs([Low, High | Rest], Acc) when High >= 16#D800, High =< 16#DBFF, Low >= 16#DC00, Low =< 16#DFFF ->
    decode_surrogate_pairs(Rest, [16#10000 + (((High - 16#D800) bsl 10) bor (Low - 16#DC00)) | Acc]);
decode_surrogate_pairs([Other | Rest], Acc) ->