Các phương pháp mã hóa và bảo mật thông tin- P12: Thế kỷ XXI thế kỷ công nghệ thông tin, thông tin đã và đang tác động trực tiếp đến mọi mặt hoạt động kinh tế xã hội của hầu hết các quốc gia trên thế giới. Thông tin có một vai trò hết sức quan trọng, bởi vậy chúng ta phải làm sao đảm bảo được tính trong suốt của thông tin nghĩa là thông tin không bị sai lệch, bị thay đổi, bị lộ trong quá trình truyền từ nơi gửi đến nơi nhận | Upload by int ch i leng long seed miracl mip mirsys 100 0 x mirvar 0 ke mirvar 0 mip- IOBASE 60 if ifile fopen r NULL return 1 cinnum ke ifile fclose ifile seed 123456789 irand seed bigrand ke x leng strlen sin for i 0 i leng-1 i encipher character by character ifdef RSA power x 3 ke x else mad x x x ke ke x endif ch sin i chA x 1 XOR with last byte of x sout i ch return 0 miracl mirsys int nd mr_small nb Initialize MIRACL system to Trang 56 Upload by use numbers to base nb and nd digits or -nd bytes long int i mr_small b mr_mip miracl mr_alloc 1 sizeof miracl mr_mip- depth 0 mr_mip- trace 0 0 mr_mip- depth mr_mip- trace mr_mip- depth 25 if MIRACL MR_IBITS mr_mip- TOOBIG 1 MR_IBITS-2 else mr_mip- TOOBIG 1 MIRACL-1 ifdef MR_FLASH mr_mip- BTS MIRACL 2 if mr_mip- BTS MR_IBITS mr_mip- MSK -1 else mr_mip- MSK 1 mr_mip- BTS -1 endif ifdef MR_NO_STANDARD_IO mr_mip- ERCON TRUE else mr_mip- ERCON FALSE endif mr_mip- N 0 mr_mip- MSBIT mr_small 1 MIRACL-1 mr_mip- OBITS mr_mip- MSBIT-1 mr_mip- user NULL mr_set_align 0 ifdef MR_NOFULLWIDTH if nb 0 Trang 57 Upload by mr_berror MR_ERR_BAD_BASE mr_mip- depth-- return mr_mip endif if nb 1 nb MAXBASE mr_berror MR_ERR_BAD_BASE mr_mip- depth-- return mr_mip mr_setbase nb b mr_mip- base mr_mip- lg2b 0 mr_mip- base2 1 if b 0 mr_mip- lg2b MIRACL mr_mip- base2 0 else while b 1 b 2 mr_mip- lg2b mr_mip- base2 2 if nd 0 mr_mip- nib nd-1 mr_mip- pack 1 else mr_mip- nib mr_mip- lg2b-8 nd-1 mr_mip- lg2b if mr_mip- nib 2 mr_mip- nib 2 ifdef MR_FLASH mr_mip- workprec mr_mip- nib Trang .
