%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% Copyright: 2010 Integrated Sytems Laboratory, ETH Zurich
%%            http://www.iis.ee.ethz.ch/~sha3
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
function [x] = jh_256(m,iv)

%Xor message with first half of H

h1=[bitxor(m(1:64),iv(1:64)),iv(65:128)];
%Execute E8

out=e8(h1);
%Xor message with second half of H

x=[out(1:64),bitxor(m,out(65:128))];