One of the directions the company is taking to address this is to allow for running some things as a free tier on the cloud.
But I think the open vs. closed source discussion in academic research is not really about that: lots of Mathematica code is fairly concise and highly automated.
Let me make an example: suppose you're minimizing some complicated function and you claim to have found some minimum with Mathematica. Your source code looks like NMinimize[complicatedFunction[x], {x, 0}]. If I wanted to reproduce your result I would not need to use Mathematica, but access to the internals would allow me to see what tricks I need in terms of minimization method used, whether or not extended precision was necessary, etc...
Being able to rerun that black box minimization independently for free is not really reproducing my result, because we might both be observing the same bug in Mathematica.