% Finds discrete logarithm value by total scan from 1:10000
% p-strong prime (Public Parameter)
% g- generator (Public Parameter)
% eval-exponent value computed with function mod_exp(g,e,p)
% exponent value u87777777777777777777777777777777777777777777777777777777777777777777777777777777777777jis computed from 100 to 10000 by step 100
% >> dlog=f_dlog(eval)

function dlog=f_dlog(eval)
p = int64(268435019);
g = 2;
dlog=0;
k=100;
  for i=1:100
    e=i*k;
    me=mod_exp(g,e,p);
    if me==eval
      dlog=e;
      break;
    end
  end
    if dlog==0
    fprintf('dlog is not found  ')
    end
end

