I'm not familiar with mathematica, but here are my two cents:
Since there is no analytic way to solve it, a search technique will have to be used. Here is one simple-minded approach.
1) Generate the cumulative distribution function (use EmpiricalDistribution?)
2) Start with the lower interval point at the lower limit of the distribution (within reason) and with the upper interval point one step above the lower. Keep increasing the upper interval point till you get 68% in between lower and upper. Pick a step size that will give you the accuracy you want. If you want to get fancy, you may be able to get an answer with a large step size and then reduce the size to refine your answer.
3) Increase the lower point up one step and increase the upper point (if necessary) step by step till you again get 68% in between lower and upper. If it is a shorter interval, record it.
4) Keep repeating step 3 till the upper interval point hits the upper limit of the distribution (within reason).
5) The final recorded shortest interval is your answer.