local ffi = require 'ffi' local M = ffi.load 'ssl' ffi.cdef [[ typedef struct bignum_st { uint64_t *d; int top; int dmax; int neg; int flags; } BN; typedef BN * BN_ptr; typedef const BN * BN_srcptr; BN_ptr BN_new(void); void BN_free(BN_ptr); int BN_set_word(BN_ptr, uint64_t); int BN_dec2bn(BN_ptr *, const char *); char * BN_bn2dec(BN_srcptr); void CRYPTO_free(void *, const char *, int); typedef struct bignum_pool_item { BN vals[16]; struct bignum_pool_item *prev, *next; } BN_POOL_ITEM; typedef struct bignum_pool { BN_POOL_ITEM *head, *current, *tail; unsigned used, size; } BN_POOL; typedef struct bignum_ctx_stack { unsigned int *indexes; unsigned int depth, size; } BN_STACK; typedef struct bignum_ctx { BN_POOL pool; BN_STACK stack; unsigned int used; int err_stack; int too_many; int flags; } BN_CTX; typedef BN_CTX * BN_CTX_ptr; BN_CTX_ptr BN_CTX_new(void); void BN_CTX_free(BN_CTX_ptr); int BN_mod_exp(BN_ptr, BN_srcptr, BN_srcptr, BN_srcptr, BN_CTX_ptr); ]] local ct = ffi.typeof 'BN_ptr[1]' print((function (n, m) local r,mod,ctx=ffi.gc(M.BN_new(),M.BN_free),ffi.gc(M.BN_new(),M.BN_free),ffi.gc(M.BN_CTX_new(),M.BN_CTX_free) M.BN_dec2bn(n,io.stdin:read("*l")) M.BN_dec2bn(m,io.stdin:read("*l")) M.BN_set_word(mod,10ULL) M.BN_mod_exp(r, n[0], m[0], mod, ctx) return ffi.string(ffi.gc(M.BN_bn2dec(r),function (a) M.CRYPTO_free(a,"",0) end)) end)(ct(), ct()))