des算法的st7单片机实现程序.txt

c51经典子程序代码全集

其他: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