资源描述：
《董凤鸿-41040317-信计1002-密码学2》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、董凤鸿-41040317-信计1002-密码学实验报告2密码学实验报告序号班级姓名学号日期时间地点2信计1002董凤鸿410403178月10日6:00-9:00实验楼102指导教师：实验名称：现代对称密码学实验实验任务：1、AESA、实验内容：熟悉AES算法，并实现AES；B、测试数据：任意，并验证加/解密结果。程序清单：(1)公用的一些函数functionstate_out=add_round_key(state_in,round_key)state_out=bitxor(state_in,round_key);function[s_box,inv_s_b
2、ox,w,poly_mat,inv_poly_mat]=aes_initclc[s_box,inv_s_box]=s_box_gen(1);rcon=rcon_gen(1);key_hex={'00''01''02''03''04''05''06''07'...'08''09''0a''0b''0c''0d''0e''0f'};key=hex2dec(key_hex);w=key_expansion(key,s_box,rcon,1);[poly_mat,inv_poly_mat]=poly_mat_gen(1);functionb_out=aff_trans
3、(b_in)mod_pol=bin2dec('100000001');mult_pol=bin2dec('00011111');add_pol=bin2dec('01100011');temp=poly_mult(b_in,mult_pol,mod_pol);b_out=bitxor(temp,add_pol);董凤鸿-41040317-信计1002-密码学实验报告2functionmatrix_out=cycle(matrix_in,direction)ifstrcmp(direction,'left')col=(0:5:15)';elsecol=(16:-
4、3:7)';endrow=0:4:12;cols=repmat(col,1,4);rows=repmat(row,4,1);ind_mat=mod(rows+cols,16)+1;matrix_out=matrix_in(ind_mat);functiondisp_hex(string,hex_array)[n_hex_array,m_hex_array]=size(hex_array);n_string=length(string);empty_string=ones(1,n_string)*'';fori=1:n_hex_arrayifi==1line=s
5、tring;elseline=empty_string;endforj=1:m_hex_arrayline=[line,lower(dec2hex(hex_array(i,j),2)),''];董凤鸿-41040317-信计1002-密码学实验报告2enddisp(line)enddisp('')functionb_inv=find_inverse(b_in,mod_pol)fori=1:255prod=poly_mult(b_in,i,mod_pol);ifprod==1b_inv=i;breakendendfunction[inv_poly_mat]=in
6、_poly_mat_gen(vargin)ifnargin>0verbose_mode=1;elseverbose_mode=0;endinv_row_hex={'0e''0b''0d''09'};inv_row=hex2dec(inv_row_hex)';inv_rows=repmat(inv_row,4,1);inv_poly_mat=cycle(inv_rows,'right');functionstate_out=inv_shift_rows(state_in)state_out=cycle(state_in,'right');functionw=ke
7、y_expansion(key,s_box,rcon,vargin)ifnargin>3verbose_mode=1;董凤鸿-41040317-信计1002-密码学实验报告2elseverbose_mode=0;endifiscell(key)
8、prod(size(key))~=16error('Keyhastobeavector(notacellarray)with16elements.')endifany(key<0
9、key>255)error('Elementsofkeyvectorhavetobebytes(0<=key(i)<=255).')endw
10、=(reshape(key,4,4))
