OpenSSL::KDF.scrypt

static VALUE
kdf_scrypt(int argc, VALUE *argv, VALUE self)
{
    VALUE pass, salt, opts, kwargs[5], str, pass_tmp, salt_tmp;
    static ID kwargs_ids[5];
    size_t passlen, saltlen;
    rb_len_t len;
    uint64_t N, r, p;

    if (!kwargs_ids[0]) {
        kwargs_ids[0] = rb_intern_const("salt");
        kwargs_ids[1] = rb_intern_const("N");
        kwargs_ids[2] = rb_intern_const("r");
        kwargs_ids[3] = rb_intern_const("p");
        kwargs_ids[4] = rb_intern_const("length");
    }
    rb_scan_args(argc, argv, "1:", &pass, &opts);
    rb_get_kwargs(opts, kwargs_ids, 5, 0, kwargs);

    StringValue(pass);
    salt = StringValue(kwargs[0]);
    N = NUM2UINT64T(kwargs[1]);
    r = NUM2UINT64T(kwargs[2]);
    p = NUM2UINT64T(kwargs[3]);
    len = NUM2LEN(kwargs[4]);
    passlen = RSTRING_LEN(pass);
    saltlen = RSTRING_LEN(salt);
    str = rb_str_new(NULL, len);
    struct scrypt_args args = {
        .pass = ALLOCV(pass_tmp, passlen),
        .passlen = passlen,
        .salt = ALLOCV(salt_tmp, saltlen),
        .saltlen = saltlen,
        .N = N,
        .r = r,
        .p = p,
        .len = len,
        .out = (unsigned char *)RSTRING_PTR(str),
    };
    memcpy(args.pass, RSTRING_PTR(pass), passlen);
    memcpy(args.salt, RSTRING_PTR(salt), saltlen);
    if (!rb_thread_call_without_gvl(scrypt_nogvl, &args, NULL, NULL))
        ossl_raise(eKDF, "EVP_PBE_scrypt");
    OPENSSL_cleanse(args.pass, passlen);
    ALLOCV_END(pass_tmp);
    ALLOCV_END(salt_tmp);
    return str;
}