DES算法的ST7单片机实现程序.rar_des mcu_des　单片机_st7_单片机 des_单片机 算法

其他:DES算法的ST7单片机实现程序2 [zlf341] [16次] 01-7-18 下午 10:42:05 ;*******************Standard permutation function*********** STANDARD_PERMUTATION: LD A,#8 LD Byte_Buf2,A P LD A,#8 LD Byte_Buf1,A LD X,Input LD A,(X) LD X,Output INC Input P1 RLC A RRC (X) INC X DEC Byte_Buf1 JRNE P1 DEC Byte_Buf2 JRNE P RET ;**************** BYTES XOR FUNCTION************** XOR_FUNCTION LD X,Input AGAIN LD A,[Output] XOR A,(X) LD [Output],A INC Output INC X DEC Table_index JRNE AGAIN RET ;****************S REPLACEMENT FUNCTION*********** S_FUNCTION: LD A,#8 ;???????????? LD Byte_Buf1,A LD A,#S_Buf LD Output,A LD A,#S_ADR LD Input,A STEP LD A,[Input] AND A,#%10000100 CP A,#$84 JRNE CMP0 LD A,#3 JP CMP2 CMP0 CP A,#$80 JRNE CMP1 LD A,#2 JP CMP2 CMP1 CP A,#$04 JRNE CMP2 LD A,#1 CMP2 LD X,#8 MUL X,A LD Byte_Buf2,A LD A,Byte_Buf1 DEC A LD X,#32 MUL X,A ADD A,Byte_Buf2 LD Byte_Buf2,A LD A,[Input] RLC A AND A,#$F0 SWAP A CP A,#8 JRUGE STEP0 ADD A,Byte_Buf2 LD X,A LD A,(S_TABLE,X) JP STEP1 STEP0 SUB A,#8 ADD A,Byte_Buf2 LD X,A LD A,(S_TABLE,X) SWAP A STEP1 AND A,#$F LD [Output],A INC Input INC Output DEC Byte_Buf1 JRNE STEP RET ;****************F FUNCTION****** ;**READY FOR E REPLACEMENT FUNCTION** F_FUNCTION: LD A,#E_Buf ;**READY FOR E REPLACEMENT FUNCTION** LD Output,A ; LD A,#E_Length LD LENGTH,A LD A,#E_TABLE.L LD TH_L,A LD A,#E_TABLE.H LD TH_H,A LD A,#E_ADR LD Input,A ; CALL Permutation_FUN ; LD A,#XOR1_Buf ;**READY FOR XOR** LD Output,A LD A,#XOR1_ADR LD Input,A ; LD A,#8 LD Table_index,A ;DO XOR 8 TIMES. CALL XOR_FUNCTION CALL S_FUNCTION ;**READY FOR S REPLACEMENT FUNCTION** LD A,#P_Buf ;**READY FOR P REPLACEMENT FUNCTION** LD Output,A ; LD A,#P_Length LD LENGTH,A LD A,#P_TABLE.L LD TH_L,A LD A,#P_TABLE.H LD TH_H,A LD A,#P_ADR LD Input,A ; CALL Permutation_FUN RET ;************************************** IP_EXCHANGE DC.B $0,$6B,$68,$6B,$6E,$6F,$69,$6F,$6C FIP_EXCHANGE DC.B $0,$6A,$69,$6E,$6B,$6E,$6D,$6C,$6A PC1_EXCHANGE DC.B $0,$59,$5B,$5B,$5C,$5A,$5D,$59,$5E,$58,$5F REPEAT_TABLE DC.B $0,$6B,$6F,$6A,$6E,$69,$6D,$68,$6C PC2_TABLE DC.B $36,$85,$66,$15,$87,$47,$0F,$0F DC.B $67,$54,$26,$37,$45,$76,$0F,$0F DC.B $25,$65,$56,$57,$74,$17,$0F,$0F DC.B $16,$27,$64,$55,$46,$77,$0F,$0F DC.B $42,$11,$63,$82,$61,$60,$0F,$0F DC.B $73,$52,$21,$81,$43,$51,$0F,$0F DC.B $12,$41,$62,$50,$33,$80,$0F,$0F DC.B $71,$32,$31,$13,$83,$53,$0F,$0F RLC_TABLE DC.B 0,1,2,2,2,2,2,2 DC.B 1,2,2,2,2,2,2,1,1 RLC_TABLE1 DC.B 0,27,26,26,26,26,26, DC.B 26,27,26,26,26,26,26,26,27,28 S_TABLE DC.B $3E,$0A4,$6D,$0C1,$52,$9F,$0B,$78 DC.B $0A0,$6F,$0C7,$0B4,$9E,$52,$3D,$81 DC.B $0F4,$0C1,$9E,$78,$3D,$0A6,$52,$0B DC.B $5F,$0BC,$38,$0E2,$0A4,$09,$61,$0D7 DC.B $9F,$71,$28,$0DE,$0C6,$0B,$53,$0A4 DC.B $0C3,$0D,$14,$A7,$6F,$92,$0B8,$5E DC.B $50,$8E,$0C7,$6B,$9A,$34,$2D,$0F1 DC.B $0BD,$68,$7A,$0C1,$03,$5F,$0E4,$92 DC.B $1A,$0D0,$0C9,$7E,$0B6,$43,$2F,$85 DC.B $2D,$87,$50,$0E9,$0C3,$0B4,$0F6,$1A DC.B $0BD,$16,$24,$0C9,$58,$0AF,$0E3,$70 DC.B $41,$0FA,$0ED,$36,$0B6,$59,$28,$0C7 DC.B $17,$2D,$8E,$53,$0B0,$0C6,$49,$0FA DC.B $4D,$78,$2B,$0C5,$16,$0AF,$0E0,$93 DC.B $0FA,$16,$39,$0E0,$5C,$2B,$87,$4D DC.B $93,$4F,$50,$0B6,$0CA,$71,$2D,$0E8 DC.B $82,$5C,$34,$0F1,$0D7,$0A,$0EB,$96 DC.B $5E,$0B,$0F2,$0AC,$34,$97,$8D,$61 DC.B $0F4,$92,$0C1,$5B,$6A,$3D,$07,$0E8 DC.B $6B,$0F8,$0C,$97,$0A1,$4E,$52,$3D DC.B $0C,$0D1,$3A,$4F,$E9,$72,$56,$0B8 DC.B $6A,$1F,$0D4,$0E2,$07,$0BC,$39,$85 DC.B $79,$0E,$4F,$0A5,$12,$0D8,$0BC,$63 DC.B $0B4,$0E3,$12,$7C,$69,$05,$8F,$0DA DC.B $34,$0CB,$92,$7E,$5F,$0A0,$68,$1D DC.B $0ED,$30,$5B,$0C7,$24,$0F9,$81,$6A DC.B $0A1,$0F4,$6B,$8D,$0C,$53,$97,$2E DC.B $96,$5B,$0D,$0F8,$0E1,$24,$3A,$0C7 DC.B $0AD,$92,$38,$0E4,$56,$0F,$0CB,$71 DC.B $0C1,$05F,$6D,$0B8,$0A,$0E3,$97,$24 DC.B $07,$6B,$0A4,$0D1,$0F9,$3C,$5E,$82 DC.B $0F2,$0C1,$9E,$07,$34,$5A,$68,$0BD E_TABLE DC.B $10,$83,$73,$63,$53,$43,$0F,$0F DC.B $53,$43,$33,$23,$13,$82,$0F,$0F DC.B $13,$82,$72,$62,$52,$42,$0F,$0F DC.B $52,$42,$32,$22,$12,$81,$0F,$0F DC.B $12,$81,$71,$61,$51,$41,$0F,$0F DC.B $51,$41,$31,$21,$11,$80,$0F,$0F DC.B $11,$80,$70,$60,$50,$40,$0F,$0F DC.B $50,$40,$30,$20,$10,$83,$0F,$0F P_TABLE DC.B $14,$26,$13,$42,$40,$15,$11,$43 DC.B $47,$24,$22,$31,$46,$33,$20,$35 DC.B $37,$16,$12,$34,$10,$21,$27,$45 DC.B $23,$44,$30,$36,$32,$25,$17,$41 segment byte at FFE0-FFFF 'vectit' DC.W 0 ;FFE0-FFE1h location DC.W 0 ;FFE2-FFE3h location DC.W 0 ;FFE4-FFE5h location DC.W 0 ;FFE6-FFE7h location DC.W 0 ;FFE8-FFE9h location DC.W 0 ;FFEA-FFEBh location DC.W 0 ;FFEC-FFEDh location DC.W 0 ;FFEE-FFEFh location DC.W 0 ;FFF0-FFF1h location DC.W 0 ;FFF2-FFF3h location DC.W 0 ;FFF4-FFF5h location DC.W 0 ;FFF6-FFF7h location DC.W 0 ;FFF8-FFF9h location DC.W 0 ;FFFA-FFFBh location DC.W 0 ;FFFC-FFFDh location .reset DC.W main ;FFFE-FFFFh location ; This last line refers to the first line. ; It used by the compiler/linker to determine code zone END ; Be aware of the fact that the END directive should not ; stand on the left of the page like the labels's names. 点击这里回复这篇贴子>> _____________________________________________________________________________ Copyright?，C51BBS论坛 2000-2001