! Copyright 2000-2018 The OpenSSL Project Authors. All Rights Reserved.
!
! Licensed under the Apache License 2.0 (the "License"). You may not use
! this file except in compliance with the License. You can obtain a copy
! in the file LICENSE in the source distribution or at
! https://www.openssl.org/source/license.html
!
! To expand the m4 macros: m4 -B 8192 des_enc.m4 > des_enc.S
!
! Global registers 1 to 5 are used. This is the same as done by the
! cc compiler. The UltraSPARC load/store little endian feature is used.
!
! Instruction grouping often refers to one CPU cycle.
!
! Assemble through gcc: gcc -c -mcpu=ultrasparc -o des_enc.o des_enc.S
!
! Assemble through cc: cc -c -xarch=v8plusa -o des_enc.o des_enc.S
!
! Performance improvement according to './apps/openssl speed des'
!
! 32-bit build:
! 23% faster than cc-5.2 -xarch=v8plus -xO5
! 115% faster than gcc-3.2.1 -m32 -mcpu=ultrasparc -O5
! 64-bit build:
! 50% faster than cc-5.2 -xarch=v9 -xO5
! 100% faster than gcc-3.2.1 -m64 -mcpu=ultrasparc -O5
!
.ident "des_enc.m4 2.1"
.file "des_enc-sparc.S"
#if defined(__SUNPRO_C) && defined(__sparcv9)
# define ABI64 /* They've said -xarch=v9 at command line */
#elif defined(__GNUC__) && defined(__arch64__)
# define ABI64 /* They've said -m64 at command line */
#endif
#ifdef ABI64
.register %g2,#scratch
.register %g3,#scratch
# define FRAME -192
# define BIAS 2047
# define LDPTR ldx
# define STPTR stx
# define ARG0 128
# define ARGSZ 8
#else
# define FRAME -96
# define BIAS 0
# define LDPTR ld
# define STPTR st
# define ARG0 68
# define ARGSZ 4
#endif
#define LOOPS 7
#define global0 %g0
#define global1 %g1
#define global2 %g2
#define global3 %g3
#define global4 %g4
#define global5 %g5
#define local0 %l0
#define local1 %l1
#define local2 %l2
#define local3 %l3
#define local4 %l4
#define local5 %l5
#define local7 %l6
#define local6 %l7
#define in0 %i0
#define in1 %i1
#define in2 %i2
#define in3 %i3
#define in4 %i4
#define in5 %i5
#define in6 %i6
#define in7 %i7
#define out0 %o0
#define out1 %o1
#define out2 %o2
#define out3 %o3
#define out4 %o4
#define out5 %o5
#define out6 %o6
#define out7 %o7
#define stub stb
! Macro definitions:
! ip_macro
!
! The logic used in initial and final permutations is the same as in
! the C code. The permutations are done with a clever , xor, and
! technique.
!
! The macro also loads address sbox 1 to 5 to global 1 to 5, address
! sbox 6 to local6, and address sbox 8 to out3.
!
! Rotates the halves 3 left to bring the sbox bits in convenient positions.
!
! Loads key first round from address in parameter 5 to out0, out1.
!
! After the original LibDES initial permutation, the resulting left
! is in the variable initially used for right and vice versa. The macro
! implements the possibility to keep the halves in the original registers.
!
! parameter 1 left
! parameter 2 right
! parameter 3 result left (modify in first round)
! parameter 4 result right (use in first round)
! parameter 5 key address
! parameter 6 1/2 for include encryption/decryption
! parameter 7 1 for move in1 to in3
! parameter 8 1 for move in3 to in4, 2 for move in4 to in3
! parameter 9 1 for load ks3 and ks2 to in4 and in3
! rounds_macro
!
! The logic used in the DES rounds is the same as in the C code,
! except that calculations for sbox 1 and sbox 5 begin before
! the previous round is finished.
!
! In each round one half (work) is modified based on key and the
! other half (use).
!
! In this version we do two rounds in a loop repeated 7 times
! and two rounds separately.
!
! One half has the bits for the sboxes in the following positions:
!
! 777777xx555555xx333333xx111111xx
!
! 88xx666666xx444444xx222222xx8888
!
! The bits for each sbox are xor-ed with the key bits for that box.
! The above xx bits are cleared, and the result used for lookup in
! the sbox table. Each sbox entry contains the 4 output bits permuted
! into 32 bits according to the P permutation.
!
! In the description of DES, left and right are switched after
! each round, except after last round. In this code the original
! left and right are kept in the same register in all rounds, meaning
! that after the 16 rounds the result for right is in the register
! originally used for left.
!
! parameter 1 first work (left in first round)
! parameter 2 first use (right in first round)
! parameter 3 enc/dec 1/-1
! parameter 4 loop label
! parameter 5 key address register
! parameter 6 optional address for key next encryption/decryption
! parameter 7 not empty for include retl
!
! also compares in2 to 8
! fp_macro
!
! parameter 1 right (original left)
! parameter 2 left (original right)
! parameter 3 1 for optional store to [in0]
! parameter 4 1 for load input/output address to local5/7
!
! The final permutation logic switches the halves, meaning that
! left and right ends up the registers originally used.
! fp_ip_macro
!
! Does initial permutation for next block mixed with
! final permutation for current block.
!
! parameter 1 original left
! parameter 2 original right
! parameter 3 left ip
! parameter 4 right ip
! parameter 5 1: load ks1/ks2 to in3/in4, add 120 to in4
! 2: mov in4 to in3
!
! also adds -8 to length in2 and loads loop counter to out4
! load_little_endian
!
! parameter 1 address
! parameter 2 destination left
! parameter 3 destination right
! parameter 4 temporary
! parameter 5 label
! load_little_endian_inc
!
! parameter 1 address
! parameter 2 destination left
! parameter 3 destination right
! parameter 4 temporary
! parameter 4 label
!
! adds 8 to address
! load_n_bytes
!
! Loads 1 to 7 bytes little endian
! Remaining bytes are zeroed.
!
! parameter 1 address
! parameter 2 length
! parameter 3 destination register left
! parameter 4 destination register right
! parameter 5 temp
! parameter 6 temp2
! parameter 7 label
! parameter 8 return label
! store_little_endian
!
! parameter 1 address
! parameter 2 source left
! parameter 3 source right
! parameter 4 temporary
! store_n_bytes
!
! Stores 1 to 7 bytes little endian
!
! parameter 1 address
! parameter 2 length
! parameter 3 source register left
! parameter 4 source register right
! parameter 5 temp
! parameter 6 temp2
! parameter 7 label
! parameter 8 return label
.section ".text"
.align 32
.des_enc:
! key address in3
! loads key next encryption/decryption first round from [in4]
! rounds_macro
! in5 out5 1 .des_enc.1 in3 in4 retl
xor out5, out0, local1
ld [out2+284], local5 ! 0x0000FC00
ba .des_enc.1
and local1, 252, local1
.align 32
.des_enc.1:
! local6 is address sbox 6
! out3 is address sbox 8
! out4 is loop counter
ld [global1+local1], local1
xor out5, out1, out1 ! 8642
xor out5, out0, out0 ! 7531
! fmovs %f0, %f0 ! fxor used for alignment
srl out1, 4, local0 ! rotate 4 right
and out0, local5, local3 ! 3
! fmovs %f0, %f0
ld [in3+1*8], local7 ! key 7531 next round
srl local3, 8, local3 ! 3
and local0, 252, local2 ! 2
! fmovs %f0, %f0
ld [global3+local3],local3 ! 3
sll out1, 28, out1 ! rotate
xor in5, local1, in5 ! 1 finished, local1 now sbox 7
ld [global2+local2], local2 ! 2
srl out0, 24, local1 ! 7
or out1, local0, out1 ! rotate
ldub [out2+local1], local1 ! 7 (and 0xFC)
srl out1, 24, local0 ! 8
and out1, local5, local4 ! 4
ldub [out2+local0], local0 ! 8 (and 0xFC)
srl local4, 8, local4 ! 4
xor in5, local2, in5 ! 2 finished local2 now sbox 6
ld [global4+local4],local4 ! 4
srl out1, 16, local2 ! 6
xor in5, local3, in5 ! 3 finished local3 now sbox 5
ld [out3+local0],local0 ! 8
and local2, 252, local2 ! 6
add global1, 1536, local5 ! address sbox 7
ld [local6+local2], local2 ! 6
srl out0, 16, local3 ! 5
xor in5, local4, in5 ! 4 finished
ld [local5+local1],local1 ! 7
and local3, 252, local3 ! 5
xor in5, local0, in5 ! 8 finished
ld [global5+local3],local3 ! 5
xor in5, local2, in5 ! 6 finished
subcc out4, 1, out4
ld [in3+1*8+4], out0 ! key 8642 next round
xor in5, local7, local2 ! sbox 5 next round
xor in5, local1, in5 ! 7 finished
srl local2, 16, local2 ! sbox 5 next round
xor in5, local3, in5 ! 5 finished
ld [in3+1*16+4], out1 ! key 8642 next round again
and local2, 252, local2 ! sbox5 next round
! next round
xor in5, local7, local7 ! 7531
ld [global5+local2], local2 ! 5
srl local7, 24, local3 ! 7
xor in5, out0, out0 ! 8642
ldub [out2+local3], local3 ! 7 (and 0xFC)
srl out0, 4, local0 ! rotate 4 right
and local7, 252, local1 ! 1
sll out0, 28, out0 ! rotate
xor out5, local2, out5 ! 5 finished local2 used
srl local0, 8, local4 ! 4
and local0, 252, local2 ! 2
ld [local5+local3], local3 ! 7
srl local0, 16, local5 ! 6
or out0, local0, out0 ! rotate
ld [global2+local2], local2 ! 2
srl out0, 24, local0
ld [in3+1*16], out0 ! key 7531 next round
and local4, 252, local4 ! 4
and local5, 252, local5 ! 6
ld [global4+local4], local4 ! 4
xor out5, local3, out5 ! 7 finished local3 used
and local0, 252, local0 ! 8
ld [local6+local5], local5 ! 6
xor out5, local2, out5 ! 2 finished local2 now sbox 3
srl local7, 8, local2 ! 3 start
ld [out3+local0], local0 ! 8
xor out5, local4, out5 ! 4 finished
and local2, 252, local2 ! 3
ld [global1+local1], local1 ! 1
xor out5, local5, out5 ! 6 finished local5 used
ld [global3+local2], local2 ! 3
xor out5, local0, out5 ! 8 finished
add in3, 1*16, in3 ! enc add 8, dec add -8 to key pointer
ld [out2+284], local5 ! 0x0000FC00
xor out5, out0, local4 ! sbox 1 next round
xor out5, local1, out5 ! 1 finished
xor out5, local2, out5 ! 3 finished
bne .des_enc.1
and local4, 252, local1 ! sbox 1 next round
! two rounds more:
ld [global1+local1], local1
xor out5, out1, out1
xor out5, out0, out0
srl out1, 4, local0 ! rotate
and out0, local5, local3
ld [in3+1*8], local7 ! key 7531
srl local3, 8, local3
and local0, 252, local2
ld [global3+local3],local3
sll out1, 28, out1 ! rotate
xor in5, local1, in5 ! 1 finished, local1 now sbox 7
ld [global2+local2], local2
srl out0, 24, local1
or out1, local0, out1 ! rotate
ldub [out2+local1], local1
srl out1, 24, local0
and out1, local5, local4
ldub [out2+local0], local0
srl local4, 8, local4
xor in5, local2, in5 ! 2 finished local2 now sbox 6
ld [global4+local4],local4
srl out1, 16, local2
xor in5, local3, in5 ! 3 finished local3 now sbox 5
ld [out3+local0],local0
and local2, 252, local2
add global1, 1536, local5 ! address sbox 7
ld [local6+local2], local2
srl out0, 16, local3
xor in5, local4, in5 ! 4 finished
ld [local5+local1],local1
and local3, 252, local3
xor in5, local0, in5
ld [global5+local3],local3
xor in5, local2, in5 ! 6 finished
cmp in2, 8
ld [out2+280], out4 ! loop counter
xor in5, local7, local2 ! sbox 5 next round
xor in5, local1, in5 ! 7 finished
ld [in3+1*8+4], out0
srl local2, 16, local2 ! sbox 5 next round
xor in5, local3, in5 ! 5 finished
and local2, 252, local2
! next round (two rounds more)
xor in5, local7, local7 ! 7531
ld [global5+local2], local2
srl local7, 24, local3
xor in5, out0, out0 ! 8642
ldub [out2+local3], local3
srl out0, 4, local0 ! rotate
and local7, 252, local1
sll out0, 28, out0 ! rotate
xor out5, local2, out5 ! 5 finished local2 used
srl local0, 8, local4
and local0, 252, local2
ld [local5+local3], local3
srl local0, 16, local5
or out0, local0, out0 ! rotate
ld [global2+local2], local2
srl out0, 24, local0
ld [in4], out0 ! key next encryption/decryption
and local4, 252, local4
and local5, 252, local5
ld [global4+local4], local4
xor out5, local3, out5 ! 7 finished local3 used
and local0, 252, local0
ld [local6+local5], local5
xor out5, local2, out5 ! 2 finished local2 now sbox 3
srl local7, 8, local2 ! 3 start
ld [out3+local0], local0
xor out5, local4, out5
and local2, 252, local2
ld [global1+local1], local1
xor out5, local5, out5 ! 6 finished local5 used
ld [global3+local2], local2
srl in5, 3, local3
xor out5, local0, out5
ld [in4+4], out1 ! key next encryption/decryption
sll in5, 29, local4
xor out5, local1, out5
retl
xor out5, local2, out5
.align 32
.des_dec:
! implemented with out5 as first parameter to avoid
! register exchange in ede modes
! key address in4
! loads key next encryption/decryption first round from [in3]
! rounds_macro
! out5 in5 -1 .des_dec.1 in4 in3 retl
xor in5, out0, local1
ld [out2+284], local5 ! 0x0000FC00
ba .des_dec.1
and local1, 252, local1
.align 32
.des_dec.1:
! local6 is address sbox 6
! out3 is address sbox 8
! out4 is loop counter
ld [global1+local1], local1
xor in5, out1, out1 ! 8642
xor in5, out0, out0 ! 7531
! fmovs %f0, %f0 ! fxor used for alignment
srl out1, 4, local0 ! rotate 4 right
and out0, local5, local3 ! 3
! fmovs %f0, %f0
ld [in4+-1*8], local7 ! key 7531 next round
srl local3, 8, local3 ! 3
and local0, 252, local2 ! 2
! fmovs %f0, %f0
ld [global3+local3],local3 ! 3
sll out1, 28, out1 ! rotate
xor out5, local1, out5 ! 1 finished, local1 now sbox 7
ld [global2+local2], local2 ! 2
srl out0, 24, local1 ! 7
or out1, local0, out1 ! rotate
ldub [out2+local1], local1 ! 7 (and 0xFC)
srl out1, 24, local0 ! 8
and out1, local5, local4 ! 4
ldub [out2+local0], local0 ! 8 (and 0xFC)
srl local4, 8, local4 ! 4
xor out5, local2, out5 ! 2 finished local2 now sbox 6
ld [global4+local4],local4 ! 4
srl out1, 16, local2 ! 6
xor out5, local3, out5 ! 3 finished local3 now sbox 5
ld [out3+local0],local0 ! 8
and local2, 252, local2 ! 6
add global1, 1536, local5 ! address sbox 7
ld [local6+local2], local2 ! 6
srl out0, 16, local3 ! 5
xor out5, local4, out5 ! 4 finished
ld [local5+local1],local1 ! 7
and local3, 252, local3 ! 5
xor out5, local0, out5 ! 8 finished
ld [global5+local3],local3 ! 5
xor out5, local2, out5 ! 6 finished
subcc out4, 1, out4
ld [in4+-1*8+4], out0 ! key 8642 next round
xor out5, local7, local2 ! sbox 5 next round
xor out5, local1, out5 ! 7 finished
srl local2, 16, local2 ! sbox 5 next round
xor out5, local3, out5 ! 5 finished
ld [in4+-1*16+4], out1 ! key 8642 next round again
and local2, 252, local2 ! sbox5 next round
! next round
xor out5, local7, local7 ! 7531
ld [global5+local2], local2 ! 5
srl local7, 24, local3 ! 7
xor out5, out0, out0 ! 8642
ldub [out2+local3], local3 ! 7 (and 0xFC)
srl out0, 4, local0 ! rotate 4 right
and local7, 252, local1 ! 1
sll out0, 28, out0 ! rotate
xor in5, local2, in5 ! 5 finished local2 used
srl local0, 8, local4 ! 4
and local0, 252, local2 ! 2
ld [local5+local3], local3 ! 7
srl local0, 16, local5 ! 6
or out0, local0, out0 ! rotate
ld [global2+local2], local2 ! 2
srl out0, 24, local0
ld [in4+-1*16], out0 ! key 7531 next round
and local4, 252, local4 ! 4
and local5, 252, local5 ! 6
ld [global4+local4], local4 ! 4
xor in5, local3, in5 ! 7 finished local3 used
and local0, 252, local0 ! 8
ld [local6+local5], local5 ! 6
xor in5, local2, in5 ! 2 finished local2 now sbox 3
srl local7, 8, local2 ! 3 start
ld [out3+local0], local0 ! 8
xor in5, local4, in5 ! 4 finished
and local2, 252, local2 ! 3
ld [global1+local1], local1 ! 1
xor in5, local5, in5 ! 6 finished local5 used
ld [global3+local2], local2 ! 3
xor in5, local0, in5 ! 8 finished
add in4, -1*16, in4 ! enc add 8, dec add -8 to key pointer
ld [out2+284], local5 ! 0x0000FC00
xor in5, out0, local4 ! sbox 1 next round
xor in5, local1, in5 ! 1 finished
xor in5, local2, in5 ! 3 finished
bne .des_dec.1
and local4, 252, local1 ! sbox 1 next round
! two rounds more:
ld [global1+local1], local1
xor in5, out1, out1
xor in5, out0, out0
srl out1, 4, local0 ! rotate
and out0, local5, local3
ld [in4+-1*8], local7 ! key 7531
srl local3, 8, local3
and local0, 252, local2
ld [global3+local3],local3
sll out1, 28, out1 ! rotate
xor out5, local1, out5 ! 1 finished, local1 now sbox 7
ld [global2+local2], local2
srl out0, 24, local1
or out1, local0, out1 ! rotate
ldub [out2+local1], local1
srl out1, 24, local0
and out1, local5, local4
ldub [out2+local0], local0
srl local4, 8, local4
xor out5, local2, out5 ! 2 finished local2 now sbox 6
ld [global4+local4],local4
srl out1, 16, local2
xor out5, local3, out5 ! 3 finished local3 now sbox 5
ld [out3+local0],local0
and local2, 252, local2
add global1, 1536, local5 ! address sbox 7
ld [local6+local2], local2
srl out0, 16, local3
xor out5, local4, out5 ! 4 finished
ld [local5+local1],local1
and local3, 252, local3
xor out5, local0, out5
ld [global5+local3],local3
xor out5, local2, out5 ! 6 finished
cmp in2, 8
ld [out2+280], out4 ! loop counter
xor out5, local7, local2 ! sbox 5 next round
xor out5, local1, out5 ! 7 finished
ld [in4+-1*8+4], out0
srl local2, 16, local2 ! sbox 5 next round
xor out5, local3, out5 ! 5 finished
and local2, 252, local2
! next round (two rounds more)
xor out5, local7, local7 ! 7531
ld [global5+local2], local2
srl local7, 24, local3
xor out5, out0, out0 ! 8642
ldub [out2+local3], local3
srl out0, 4, local0 ! rotate
and local7, 252, local1
sll out0, 28, out0 ! rotate
xor in5, local2, in5 ! 5 finished local2 used
srl local0, 8, local4
and local0, 252, local2
ld [local5+local3], local3
srl local0, 16, local5
or out0, local0, out0 ! rotate
ld [global2+local2], local2
srl out0, 24, local0
ld [in3], out0 ! key next encryption/decryption
and local4, 252, local4
and local5, 252, local5
ld [global4+local4], local4
xor in5, local3, in5 ! 7 finished local3 used
and local0, 252, local0
ld [local6+local5], local5
xor in5, local2, in5 ! 2 finished local2 now sbox 3
srl local7, 8, local2 ! 3 start
ld [out3+local0], local0
xor in5, local4, in5
and local2, 252, local2
ld [global1+local1], local1
xor in5, local5, in5 ! 6 finished local5 used
ld [global3+local2], local2
srl out5, 3, local3
xor in5, local0, in5
ld [in3+4], out1 ! key next encryption/decryption
sll out5, 29, local4
xor in5, local1, in5
retl
xor in5, local2, in5
! void DES_encrypt1(data, ks, enc)
! *******************************
.align 32
.global DES_encrypt1
.type DES_encrypt1,#function
DES_encrypt1:
save %sp, FRAME, %sp
sethi %hi(_PIC_DES_SPtrans-1f),global1
or global1,%lo(_PIC_DES_SPtrans-1f),global1
1: call .+8
add %o7,global1,global1
sub global1,_PIC_DES_SPtrans-.des_and,out2
ld [in0], in5 ! left
cmp in2, 0 ! enc
be .encrypt.dec
ld [in0+4], out5 ! right
! parameter 6 1/2 for include encryption/decryption
! parameter 7 1 for move in1 to in3
! parameter 8 1 for move in3 to in4, 2 for move in4 to in3
! ip_macro
! in5 out5 out5 in5 in3 0 1 1
ld [out2+256], local1
srl out5, 4, local4
xor local4, in5, local4
mov in1, in3
ld [out2+260], local2
and local4, local1, local4
mov in3, in4
ld [out2+280], out4 ! loop counter
sll local4, 4, local1
xor in5, local4, in5
ld [out2+264], local3
srl in5, 16, local4
xor out5, local1, out5
xor local4, out5, local4
nop !sethi %hi(DES_SPtrans), global1 ! sbox addr
and local4, local2, local4
nop !or global1, %lo(DES_SPtrans), global1 ! sbox addr
sll local4, 16, local1
xor out5, local4, out5
srl out5, 2, local4
xor in5, local1, in5
sethi %hi(16711680), local5
xor local4, in5, local4
and local4, local3, local4
or local5, 255, local5
sll local4, 2, local2
xor in5, local4, in5
srl in5, 8, local4
xor out5, local2, out5
xor local4, out5, local4
add global1, 768, global4
and local4, local5, local4
add global1, 1024, global5
ld [out2+272], local7
sll local4, 8, local1
xor out5, local4, out5
srl out5, 1, local4
xor in5, local1, in5
ld [in3], out0 ! key 7531
xor local4, in5, local4
add global1, 256, global2
ld [in3+4], out1 ! key 8642
and local4, local7, local4
add global1, 512, global3
sll local4, 1, local1
xor in5, local4, in5
sll in5, 3, local3
xor out5, local1, out5
sll out5, 3, local2
add global1, 1280, local6 ! address sbox 8
srl in5, 29, local4
add global1, 1792, out3 ! address sbox 8
srl out5, 29, local1
or local4, local3, out5
or local2, local1, in5
! rounds_macro
! in5 out5 1 .des_encrypt1.1 in3 in4
xor out5, out0, local1
ld [out2+284], local5 ! 0x0000FC00
ba .des_encrypt1.1
and local1, 252, local1
.align 32
.des_encrypt1.1:
! local6 is address sbox 6
! out3 is address sbox 8
! out4 is loop counter
ld [global1+local1], local1
xor out5, out1, out1 ! 8642
xor out5, out0, out0 ! 7531
! fmovs %f0, %f0 ! fxor used for alignment
srl out1, 4, local0 ! rotate 4 right
and out0, local5, local3 ! 3
! fmovs %f0, %f0
ld [in3+1*8], local7 ! key 7531 next round
srl local3, 8, local3 ! 3
and local0, 252, local2 ! 2
! fmovs %f0, %f0
ld [global3+local3],local3 ! 3
sll out1, 28, out1 ! rotate
xor in5, local1, in5 ! 1 finished, local1 now sbox 7
ld [global2+local2], local2 ! 2
srl out0, 24, local1 ! 7
or out1, local0, out1 ! rotate
ldub [out2+local1], local1 ! 7 (and 0xFC)
srl out1, 24, local0 ! 8
and out1, local5, local4 ! 4
ldub [out2+local0], local0 ! 8 (and 0xFC)
srl local4, 8, local4 ! 4
xor in5, local2, in5 ! 2 finished local2 now sbox 6
ld [global4+local4],local4 ! 4
srl out1, 16, local2 ! 6
xor in5, local3, in5 ! 3 finished local3 now sbox 5
ld [out3+local0],local0 ! 8
and local2, 252, local2 ! 6
add global1, 1536, local5 ! address sbox 7
ld [local6+local2], local2 ! 6
srl out0, 16, local3 ! 5
xor in5, local4, in5 ! 4 finished
ld [local5+local1],local1 ! 7
and local3, 252, local3 ! 5
xor in5, local0, in5 ! 8 finished
ld [global5+local3],local3 ! 5
xor in5, local2, in5 ! 6 finished
subcc out4, 1, out4
ld [in3+1*8+4], out0 ! key 8642 next round
xor in5, local7, local2 ! sbox 5 next round
xor in5, local1, in5 ! 7 finished
srl local2, 16, local2 ! sbox 5 next round
xor in5, local3, in5 ! 5 finished
ld [in3+1*16+4], out1 ! key 8642 next round again
and local2, 252, local2 ! sbox5 next round
! next round
xor in5, local7, local7 ! 7531
ld [global5+local2], local2 ! 5
srl local7, 24, local3 ! 7
xor in5, out0, out0 ! 8642
ldub [out2+local3], local3 ! 7 (and 0xFC)
srl out0, 4, local0 ! rotate 4 right
and local7, 252, local1 ! 1
sll out0, 28, out0 ! rotate
xor out5, local2, out5 ! 5 finished local2 used
srl local0, 8, local4 ! 4
and local0, 252, local2 ! 2
ld [local5+local3], local3 ! 7
srl local0, 16, local5 ! 6
or out0, local0, out0 ! rotate
ld [global2+local2], local2 ! 2
srl out0, 24, local0
ld [in3+1*16], out0 ! key 7531 next round
and local4, 252, local4 ! 4
and local5, 252, local5 ! 6
ld [global4+local4], local4 ! 4
xor out5, local3, out5 ! 7 finished local3 used
and local0, 252, local0 ! 8
ld [local6+local5], local5 ! 6
xor out5, local2, out5 ! 2 finished local2 now sbox 3
srl local7, 8, local2 ! 3 start
ld [out3+local0], local0 ! 8
xor out5, local4, out5 ! 4 finished
and local2, 252, local2 ! 3
ld [global1+local1], local1 ! 1
xor out5, local5, out5 ! 6 finished local5 used
ld [global3+local2], local2 ! 3
xor out5, local0, out5 ! 8 finished
add in3, 1*16, in3 ! enc add 8, dec add -8 to key pointer
ld [out2+284], local5 ! 0x0000FC00
xor out5, out0, local4 ! sbox 1 next round
xor out5, local1, out5 ! 1 finished
xor out5, local2, out5 ! 3 finished
bne .des_encrypt1.1
and local4, 252, local1 ! sbox 1 next round
! two rounds more:
ld [global1+local1], local1
xor out5, out1, out1
xor out5, out0, out0
srl out1, 4, local0 ! rotate
and out0, local5, local3
ld [in3+1*8], local7 ! key 7531
srl local3, 8, local3
and local0, 252, local2
ld [global3+local3],local3
sll out1, 28, out1 ! rotate
xor in5, local1, in5 ! 1 finished, local1 now sbox 7
ld [global2+local2], local2
srl out0, 24, local1
or out1, local0, out1 ! rotate
ldub [out2+local1], local1
srl out1, 24, local0
and out1, local5, local4
ldub [out2+local0], local0
srl local4, 8, local4
xor in5, local2, in5 ! 2 finished local2 now sbox 6
ld [global4+local4],local4
srl out1, 16, local2
xor in5, local3, in5 ! 3 finished local3 now sbox 5
ld [out3+local0],local0
and local2, 252, local2
add global1, 1536, local5 ! address sbox 7
ld [local6+local2], local2
srl out0, 16, local3
xor in5, local4, in5 ! 4 finished
ld [local5+local1],local1
and local3, 252, local3
xor in5, local0, in5
ld [global5+local3],local3
xor in5, local2, in5 ! 6 finished
cmp in2, 8
ld [out2+280], out4 ! loop counter
xor in5, local7, local2 ! sbox 5 next round
xor in5, local1, in5 ! 7 finished
ld [in3+1*8+4], out0
srl local2, 16, local2 ! sbox 5 next round
xor in5, local3, in5 ! 5 finished
and local2, 252, local2
! next round (two rounds more)
xor in5, local7, local7 ! 7531
ld [global5+local2], local2
srl local7, 24, local3
xor in5, out0, out0 ! 8642
ldub [out2+local3], local3
srl out0, 4, local0 ! rotate
and local7, 252, local1
sll out0, 28, out0 ! rotate
xor out5, local2, out5 ! 5 finished local2 used
srl local0, 8, local4
and local0, 252, local2
ld [local5+local3], local3
srl local0, 16, local5
or out0, local0, out0 ! rotate
ld [global2+local2], local2
srl out0, 24, local0
ld [in4], out0 ! key next encryption/decryption
and local4, 252, local4
and local5, 252, local5
ld [global4+local4], local4
xor out5, local3, out5 ! 7 finished local3 used
and local0, 252, local0
ld [local6+local5], local5
xor out5, local2, out5 ! 2 finished local2 now sbox 3
srl local7, 8, local2 ! 3 start
ld [out3+local0], local0
xor out5, local4, out5
and local2, 252, local2
ld [global1+local1], local1
xor out5, local5, out5 ! 6 finished local5 used
ld [global3+local2], local2
srl in5, 3, local3
xor out5, local0, out5
ld [in4+4], out1 ! key next encryption/decryption
sll in5, 29, local4
xor out5, local1, out5
xor out5, local2, out5
! in4 not used
! fp_macro
! in5 out5 1
! initially undo the rotate 3 left done after initial permutation
! original left is received shifted 3 right and 29 left in local3/4
sll out5, 29, local1
or local3, local4, in5
srl out5, 3, out5
sethi %hi(0x55555555), local2
or out5, local1, out5
or local2, %lo(0x55555555), local2
srl out5, 1, local3
sethi %hi(0x00ff00ff), local1
xor local3, in5, local3
or local1, %lo(0x00ff00ff), local1
and local3, local2, local3
sethi %hi(0x33333333), local4
sll local3, 1, local2
xor in5, local3, in5
srl in5, 8, local3
xor out5, local2, out5
xor local3, out5, local3
or local4, %lo(0x33333333), local4
and local3, local1, local3
sethi %hi(0x0000ffff), local1
sll local3, 8, local2
xor out5, local3, out5
srl out5, 2, local3
xor in5, local2, in5
xor local3, in5, local3
or local1, %lo(0x0000ffff), local1
and local3, local4, local3
sethi %hi(0x0f0f0f0f), local4
sll local3, 2, local2
xor in5, local3, in5
srl in5, 16, local3
xor out5, local2, out5
xor local3, out5, local3
or local4, %lo(0x0f0f0f0f), local4
and local3, local1, local3
sll local3, 16, local2
xor out5, local3, local1
srl local1, 4, local3
xor in5, local2, in5
xor local3, in5, local3
and local3, local4, local3
sll local3, 4, local2
xor in5, local3, in5
! optional store:
st in5, [in0]
xor local1, local2, out5
st out5, [in0+4]
! 1 for store to [in0]
ret
restore
.encrypt.dec:
add in1, 120, in3 ! use last subkey for first round
! parameter 6 1/2 for include encryption/decryption
! parameter 7 1 for move in1 to in3
! parameter 8 1 for move in3 to in4, 2 for move in4 to in3
! ip_macro
! in5 out5 in5 out5 in4 2 0 1
ld [out2+256], local1
srl out5, 4, local4
xor local4, in5, local4
nop
ld [out2+260], local2
and local4, local1, local4
mov in3, in4
ld [out2+280], out4 ! loop counter
sll local4, 4, local1
xor in5, local4, in5
ld [out2+264], local3
srl in5, 16, local4
xor out5, local1, out5
xor local4, out5, local4
nop !sethi %hi(DES_SPtrans), global1 ! sbox addr
and local4, local2, local4
nop !or global1, %lo(DES_SPtrans), global1 ! sbox addr
sll local4, 16, local1
xor out5, local4, out5
srl out5, 2, local4
xor in5, local1, in5
sethi %hi(16711680), local5
xor local4, in5, local4
and local4, local3, local4
or local5, 255, local5
sll local4, 2, local2
xor in5, local4, in5
srl in5, 8, local4
xor out5, local2, out5
xor local4, out5, local4
add global1, 768, global4
and local4, local5, local4
add global1, 1024, global5
ld [out2+272], local7
sll local4, 8, local1
xor out5, local4, out5
srl out5, 1, local4
xor in5, local1, in5
ld [in4], out0 ! key 7531
xor local4, in5, local4
add global1, 256, global2
ld [in4+4], out1 ! key 8642
and local4, local7, local4
add global1, 512, global3
sll local4, 1, local1
xor in5, local4, in5
sll in5, 3, local3
xor out5, local1, out5
sll out5, 3, local2
add global1, 1280, local6 ! address sbox 8
srl in5, 29, local4
add global1, 1792, out3 ! address sbox 8
srl out5, 29, local1
or local4, local3, in5
or local2, local1, out5
ld [out2+284], local5 ! 0x0000FC00 used in the rounds
or local2, local1, out5
xor in5, out0, local1
call .des_dec.1
and local1, 252, local1
! include dec, ks in4
! fp_macro
! out5 in5 1
! initially undo the rotate 3 left done after initial permutation
! original left is received shifted 3 right and 29 left in local3/4
sll in5, 29, local1
or local3, local4, out5
srl in5, 3, in5
sethi %hi(0x55555555), local2
or in5, local1, in5
or local2, %lo(0x55555555), local2
srl in5, 1, local3
sethi %hi(0x00ff00ff), local1
xor local3, out5, local3
or local1, %lo(0x00ff00ff), local1
and local3, local2, local3
sethi %hi(0x33333333), local4
sll local3, 1, local2
xor out5, local3, out5
srl out5, 8, local3
xor in5, local2, in5
xor local3, in5, local3
or local4, %lo(0x33333333), local4
and local3, local1, local3
sethi %hi(0x0000ffff), local1
sll local3, 8, local2
xor in5, local3, in5
srl in5, 2, local3
xor out5, local2, out5
xor local3, out5, local3
or local1, %lo(0x0000ffff), local1
and local3, local4, local3
sethi %hi(0x0f0f0f0f), local4
sll local3, 2, local2
xor out5, local3, out5
srl out5, 16, local3
xor in5, local2, in5
xor local3, in5, local3
or local4, %lo(0x0f0f0f0f), local4
and local3, local1, local3
sll local3, 16, local2
xor in5, local3, local1
srl local1, 4, local3
xor out5, local2, out5
xor local3, out5, local3
and local3, local4, local3
sll local3, 4, local2
xor out5, local3, out5
! optional store:
st out5, [in0]
xor local1, local2, in5
st in5, [in0+4]
! 1 for store to [in0]
ret
restore
.DES_encrypt1.end:
.size DES_encrypt1,.DES_encrypt1.end-DES_encrypt1
! void DES_encrypt2(data, ks, enc)
!*********************************
! encrypts/decrypts without initial/final permutation
.align 32
.global DES_encrypt2
.type DES_encrypt2,#function
DES_encrypt2:
save %sp, FRAME, %sp
sethi %hi(_PIC_DES_SPtrans-1f),global1
or global1,%lo(_PIC_DES_SPtrans-1f),global1
1: call .+8
add %o7,global1,global1
sub global1,_PIC_DES_SPtrans-.des_and,out2
! Set sbox address 1 to 6 and rotate halves 3 left
! Errors caught by destest? Yes. Still? *NO*
!sethi %hi(DES_SPtrans), global1 ! address sbox 1
!or global1, %lo(DES_SPtrans), global1 ! sbox 1
add global1, 256, global2 ! sbox 2
add global1, 512, global3 ! sbox 3
ld [in0], out5 ! right
add global1, 768, global4 ! sbox 4
add global1, 1024, global5 ! sbox 5
ld [in0+4], in5 ! left
add global1, 1280, local6 ! sbox 6
add global1, 1792, out3 ! sbox 8
! rotate
sll in5, 3, local5
mov in1, in3 ! key address to in3
sll out5, 3, local7
srl in5, 29, in5
srl out5, 29, out5
add in5, local5, in5
add out5, local7, out5
cmp in2, 0
! we use our own stackframe
be .encrypt2.dec
STPTR in0, [%sp+BIAS+ARG0+0*ARGSZ]
ld [in3], out0 ! key 7531 first round
mov LOOPS, out4 ! loop counter
ld [in3+4], out1 ! key 8642 first round
sethi %hi(0x0000FC00), local5
call .des_enc
mov in3, in4
! rotate
sll in5, 29, in0
srl in5, 3, in5
sll out5, 29, in1
add in5, in0, in5
srl out5, 3, out5
LDPTR [%sp+BIAS+ARG0+0*ARGSZ], in0
add out5, in1, out5
st in5, [in0]
st out5, [in0+4]
ret
restore
.encrypt2.dec:
add in3, 120, in4
ld [in4], out0 ! key 7531 first round
mov LOOPS, out4 ! loop counter
ld [in4+4], out1 ! key 8642 first round
sethi %hi(0x0000FC00), local5
mov in5, local1 ! left expected in out5
mov out5, in5
call .des_dec
mov local1, out5
.encrypt2.finish:
! rotate
sll in5, 29, in0
srl in5, 3, in5
sll out5, 29, in1
add in5, in0, in5
srl out5, 3, out5
LDPTR [%sp+BIAS+ARG0+0*ARGSZ], in0
add out5, in1, out5
st out5, [in0]
st in5, [in0+4]
ret
restore
.DES_encrypt2.end:
.size DES_encrypt2, .DES_encrypt2.end-DES_encrypt2
! void DES_encrypt3(data, ks1, ks2, ks3)
! **************************************
.align 32
.global DES_encrypt3
.type DES_encrypt3,#function
DES_encrypt3:
save %sp, FRAME, %sp
sethi %hi(_PIC_DES_SPtrans-1f),global1
or global1,%lo(_PIC_DES_SPtrans-1f),global1
1: call .+8
add %o7,global1,global1
sub global1,_PIC_DES_SPtrans-.des_and,out2
ld [in0], in5 ! left
add in2, 120, in4 ! ks2
ld [in0+4], out5 ! right
mov in3, in2 ! save ks3
! parameter 6 1/2 for include encryption/decryption
! parameter 7 1 for mov in1 to in3
! parameter 8 1 for mov in3 to in4
! parameter 9 1 for load ks3 and ks2 to in4 and in3
! ip_macro
! in5 out5 out5 in5 in3 1 1 0 0
ld [out2+256], local1
srl out5, 4, local4
xor local4, in5, local4
mov in1, in3
ld [out2+260], local2
and local4, local1, local4
ld [out2+280], out4 ! loop counter
sll local4, 4, local1
xor in5, local4, in5
ld [out2+264], local3
srl in5, 16, local4
xor out5, local1, out5
xor local4, out5, local4
nop !sethi %hi(DES_SPtrans), global1 ! sbox addr
and local4, local2, local4
nop !or global1, %lo(DES_SPtrans), global1 ! sbox addr
sll local4, 16, local1
xor out5, local4, out5
srl out5, 2, local4
xor in5, local1, in5
sethi %hi(16711680), local5
xor local4, in5, local4
and local4, local3, local4
or local5, 255, local5
sll local4, 2, local2
xor in5, local4, in5
srl in5, 8, local4
xor out5, local2, out5
xor local4, out5, local4
add global1, 768, global4
and local4, local5, local4
add global1, 1024, global5
ld [out2+272], local7
sll local4, 8, local1
xor out5, local4, out5
srl out5, 1, local4
xor in5, local1, in5
ld [in3], out0 ! key 7531
xor local4, in5, local4
add global1, 256, global2
ld [in3+4], out1 ! key 8642
and local4, local7, local4
add global1, 512, global3
sll local4, 1, local1
xor in5, local4, in5
sll in5, 3, local3
xor out5, local1, out5
sll out5, 3, local2
add global1, 1280, local6 ! address sbox 8
srl in5, 29, local4
add global1, 1792, out3 ! address sbox 8
srl out5, 29, local1
or local4, local3, out5
or local2, local1, in5
ld [out2+284], local5 ! 0x0000FC00 used in the rounds
or local2, local1, in5
xor out5, out0, local1
call .des_enc.1
and local1, 252, local1
call .des_dec
mov in2, in3 ! preload ks3
call .des_enc
nop
! fp_macro
! in5 out5 1
! initially undo the rotate 3 left done after initial permutation
! original left is received shifted 3 right and 29 left in local3/4
sll out5, 29, local1
or local3, local4, in5
srl out5, 3, out5
sethi %hi(0x55555555), local2
or out5, local1, out5
or local2, %lo(0x55555555), local2
srl out5, 1, local3
sethi %hi(0x00ff00ff), local1
xor local3, in5, local3
or local1, %lo(0x00ff00ff), local1
and local3, local2, local3
sethi %hi(0x33333333), local4
sll local3, 1, local2
xor in5, local3, in5
srl in5, 8, local3
xor out5, local2, out5
xor local3, out5, local3
or local4, %lo(0x33333333), local4
and local3, local1, local3
sethi %hi(0x0000ffff), local1
sll local3, 8, local2
xor out5, local3, out5
srl out5, 2, local3
xor in5, local2, in5
xor local3, in5, local3
or local1, %lo(0x0000ffff), local1
and local3, local4, local3
sethi %hi(0x0f0f0f0f), local4
sll local3, 2, local2
xor in5, local3, in5
srl in5, 16, local3
xor out5, local2, out5
xor local3, out5, local3
or local4, %lo(0x0f0f0f0f), local4
and local3, local1, local3
sll local3, 16, local2
xor out5, local3, local1
srl local1, 4, local3
xor in5, local2, in5
xor local3, in5, local3
and local3, local4, local3
sll local3, 4, local2
xor in5, local3, in5
! optional store:
st in5, [in0]
xor local1, local2, out5
st out5, [in0+4]
ret
restore
.DES_encrypt3.end:
.size DES_encrypt3,.DES_encrypt3.end-DES_encrypt3
! void DES_decrypt3(data, ks1, ks2, ks3)
! **************************************
.align 32
.global DES_decrypt3
.type DES_decrypt3,#function
DES_decrypt3:
save %sp, FRAME, %sp
sethi %hi(_PIC_DES_SPtrans-1f),global1
or global1,%lo(_PIC_DES_SPtrans-1f),global1
1: call .+8
add %o7,global1,global1
sub global1,_PIC_DES_SPtrans-.des_and,out2
ld [in0], in5 ! left
add in3, 120, in4 ! ks3
ld [in0+4], out5 ! right
mov in2, in3 ! ks2
! parameter 6 1/2 for include encryption/decryption
! parameter 7 1 for mov in1 to in3
! parameter 8 1 for mov in3 to in4
! parameter 9 1 for load ks3 and ks2 to in4 and in3
! ip_macro
! in5 out5 in5 out5 in4 2 0 0 0
ld [out2+256], local1
srl out5, 4, local4
xor local4, in5, local4
nop
ld [out2+260], local2
and local4, local1, local4
ld [out2+280], out4 ! loop counter
sll local4, 4, local1
xor in5, local4, in5
ld [out2+264], local3
srl in5, 16, local4
xor out5, local1, out5
xor local4, out5, local4
nop !sethi %hi(DES_SPtrans), global1 ! sbox addr
and local4, local2, local4
nop !or global1, %lo(DES_SPtrans), global1 ! sbox addr
sll local4, 16, local1
xor out5, local4, out5
srl out5, 2, local4
xor in5, local1, in5
sethi %hi(16711680), local5
xor local4, in5, local4
and local4, local3, local4
or local5, 255, local5
sll local4, 2, local2
xor in5, local4, in5
srl in5, 8, local4
xor out5, local2, out5
xor local4, out5, local4
add global1, 768, global4
and local4, local5, local4
add global1, 1024, global5
ld [out2+272], local7
sll local4, 8, local1
xor out5, local4, out5
srl out5, 1, local4
xor in5, local1, in5
ld [in4], out0 ! key 7531
xor local4, in5, local4
add global1, 256, global2
ld [in4+4], out1 ! key 8642
and local4, local7, local4
add global1, 512, global3
sll local4, 1, local1
xor in5, local4, in5
sll in5, 3, local3
xor out5, local1, out5
sll out5, 3, local2
add global1, 1280, local6 ! address sbox 8
srl in5, 29, local4
add global1, 1792, out3 ! address sbox 8
srl out5, 29, local1
or local4, local3, in5
or local2, local1, out5
ld [out2+284], local5 ! 0x0000FC00 used in the rounds
or local2, local1, out5
xor in5, out0, local1
call .des_dec.1
and local1, 252, local1
call .des_enc
add in1, 120, in4 ! preload ks1
call .des_dec
nop
! fp_macro
! out5 in5 1
! initially undo the rotate 3 left done after initial permutation
! original left is received shifted 3 right and 29 left in local3/4
sll in5, 29, local1
or local3, local4, out5
srl in5, 3, in5
sethi %hi(0x55555555), local2
or in5, local1, in5
or local2, %lo(0x55555555), local2
srl in5, 1, local3
sethi %hi(0x00ff00ff), local1
xor local3, out5, local3
or local1, %lo(0x00ff00ff), local1
and local3, local2, local3
sethi %hi(0x33333333), local4
sll local3, 1, local2
xor out5, local3, out5
srl out5, 8, local3
xor in5, local2, in5
xor local3, in5, local3
or local4, %lo(0x33333333), local4
and local3, local1, local3
sethi %hi(0x0000ffff), local1
sll local3, 8, local2
xor in5, local3, in5
srl in5, 2, local3
xor out5, local2, out5
xor local3, out5, local3
or local1, %lo(0x0000ffff), local1
and local3, local4, local3
sethi %hi(0x0f0f0f0f), local4
sll local3, 2, local2
xor out5, local3, out5
srl out5, 16, local3
xor in5, local2, in5
xor local3, in5, local3
or local4, %lo(0x0f0f0f0f), local4
and local3, local1, local3
sll local3, 16, local2
xor in5, local3, local1
srl local1, 4, local3
xor out5, local2, out5
xor local3, out5, local3
and local3, local4, local3
sll local3, 4, local2
xor out5, local3, out5
! optional store:
st out5, [in0]
xor local1, local2, in5
st in5, [in0+4]
ret
restore
.DES_decrypt3.end:
.size DES_decrypt3,.DES_decrypt3.end-DES_decrypt3
! void DES_ncbc_encrypt(input, output, length, schedule, ivec, enc)
! *****************************************************************
.align 32
.global DES_ncbc_encrypt
.type DES_ncbc_encrypt,#function
DES_ncbc_encrypt:
save %sp, FRAME, %sp
sethi %hi(_PIC_DES_SPtrans-1f),global1
or global1,%lo(_PIC_DES_SPtrans-1f),global1
1: call .+8
add %o7,global1,global1
sub global1,_PIC_DES_SPtrans-.des_and,out2
cmp in5, 0 ! enc
be .ncbc.dec
STPTR in4, [%sp+BIAS+ARG0+4*ARGSZ]
! addr left right temp label
! load_little_endian
! in4 in5 out5 local3 .LLE1
! first in memory to rightmost in register
.LLE1:
ldub [in4+3], in5
ldub [in4+2], local3
sll in5, 8, in5
or in5, local3, in5
ldub [in4+1], local3
sll in5, 8, in5
or in5, local3, in5
ldub [in4+0], local3
sll in5, 8, in5
or in5, local3, in5
ldub [in4+3+4], out5
ldub [in4+2+4], local3
sll out5, 8, out5
or out5, local3, out5
ldub [in4+1+4], local3
sll out5, 8, out5
or out5, local3, out5
ldub [in4+0+4], local3
sll out5, 8, out5
or out5, local3, out5
.LLE1a:
! iv
addcc in2, -8, in2 ! bytes missing when first block done
bl .ncbc.enc.seven.or.less
mov in3, in4 ! schedule
.ncbc.enc.next.block:
! load_little_endian
! in0 out4 global4 local3 .LLE2
! first in memory to rightmost in register
.LLE2:
ldub [in0+3], out4
ldub [in0+2], local3
sll out4, 8, out4
or out4, local3, out4
ldub [in0+1], local3
sll out4, 8, out4
or out4, local3, out4
ldub [in0+0], local3
sll out4, 8, out4
or out4, local3, out4
ldub [in0+3+4], global4
ldub [in0+2+4], local3
sll global4, 8, global4
or global4, local3, global4
ldub [in0+1+4], local3
sll global4, 8, global4
or global4, local3, global4
ldub [in0+0+4], local3
sll global4, 8, global4
or global4, local3, global4
.LLE2a:
! block
.ncbc.enc.next.block_1:
xor in5, out4, in5 ! iv xor
xor out5, global4, out5 ! iv xor
! parameter 8 1 for move in3 to in4, 2 for move in4 to in3
! ip_macro
! in5 out5 out5 in5 in3 0 0 2
ld [out2+256], local1
srl out5, 4, local4
xor local4, in5, local4
nop
ld [out2+260], local2
and local4, local1, local4
mov in4, in3
ld [out2+280], out4 ! loop counter
sll local4, 4, local1
xor in5, local4, in5
ld [out2+264], local3
srl in5, 16, local4
xor out5, local1, out5
xor local4, out5, local4
nop !sethi %hi(DES_SPtrans), global1 ! sbox addr
and local4, local2, local4
nop !or global1, %lo(DES_SPtrans), global1 ! sbox addr
sll local4, 16, local1
xor out5, local4, out5
srl out5, 2, local4
xor in5, local1, in5
sethi %hi(16711680), local5
xor local4, in5, local4
and local4, local3, local4
or local5, 255, local5
sll local4, 2, local2
xor in5, local4, in5
srl in5, 8, local4
xor out5, local2, out5
xor local4, out5, local4
add global1, 768, global4
and local4, local5, local4
add global1, 1024, global5
ld [out2+272], local7
sll local4, 8, local1
xor out5, local4, out5
srl out5, 1, local4
xor in5, local1, in5
ld [in3], out0 ! key 7531
xor local4, in5, local4
add global1, 256, global2
ld [in3+4], out1 ! key 8642
and local4, local7, local4
add global1, 512, global3
sll local4, 1, local1
xor in5, local4, in5
sll in5, 3, local3
xor out5, local1, out5
sll out5, 3, local2
add global1, 1280, local6 ! address sbox 8
srl in5, 29, local4
add global1, 1792, out3 ! address sbox 8
srl out5, 29, local1
or local4, local3, out5
or local2, local1, in5
.ncbc.enc.next.block_2:
!// call .des_enc ! compares in2 to 8
! rounds inlined for alignment purposes
add global1, 768, global4 ! address sbox 4 since register used below
! rounds_macro
! in5 out5 1 .ncbc.enc.1 in3 in4
xor out5, out0, local1
ld [out2+284], local5 ! 0x0000FC00
ba .ncbc.enc.1
and local1, 252, local1
.align 32
.ncbc.enc.1:
! local6 is address sbox 6
! out3 is address sbox 8
! out4 is loop counter
ld [global1+local1], local1
xor out5, out1, out1 ! 8642
xor out5, out0, out0 ! 7531
! fmovs %f0, %f0 ! fxor used for alignment
srl out1, 4, local0 ! rotate 4 right
and out0, local5, local3 ! 3
! fmovs %f0, %f0
ld [in3+1*8], local7 ! key 7531 next round
srl local3, 8, local3 ! 3
and local0, 252, local2 ! 2
! fmovs %f0, %f0
ld [global3+local3],local3 ! 3
sll out1, 28, out1 ! rotate
xor in5, local1, in5 ! 1 finished, local1 now sbox 7
ld [global2+local2], local2 ! 2
srl out0, 24, local1 ! 7
or out1, local0, out1 ! rotate
ldub [out2+local1], local1 ! 7 (and 0xFC)
srl out1, 24, local0 ! 8
and out1, local5, local4 ! 4
ldub [out2+local0], local0 ! 8 (and 0xFC)
srl local4, 8, local4 ! 4
xor in5, local2, in5 ! 2 finished local2 now sbox 6
ld [global4+local4],local4 ! 4
srl out1, 16, local2 ! 6
xor in5, local3, in5 ! 3 finished local3 now sbox 5
ld [out3+local0],local0 ! 8
and local2, 252, local2 ! 6
add global1, 1536, local5 ! address sbox 7
ld [local6+local2], local2 ! 6
srl out0, 16, local3 ! 5
xor in5, local4, in5 ! 4 finished
ld [local5+local1],local1 ! 7
and local3, 252, local3 ! 5
xor in5, local0, in5 ! 8 finished
ld [global5+local3],local3 ! 5
xor in5, local2, in5 ! 6 finished
subcc out4, 1, out4
ld [in3+1*8+4], out0 ! key 8642 next round
xor in5, local7, local2 ! sbox 5 next round
xor in5, local1, in5 ! 7 finished
srl local2, 16, local2 ! sbox 5 next round
xor in5, local3, in5 ! 5 finished
ld [in3+1*16+4], out1 ! key 8642 next round again
and local2, 252, local2 ! sbox5 next round
! next round
xor in5, local7, local7 ! 7531
ld [global5+local2], local2 ! 5
srl local7, 24, local3 ! 7
xor in5, out0, out0 ! 8642
ldub [out2+local3], local3 ! 7 (and 0xFC)
srl out0, 4, local0 ! rotate 4 right
and local7, 252, local1 ! 1
sll out0, 28, out0 ! rotate
xor out5, local2, out5 ! 5 finished local2 used
srl local0, 8, local4 ! 4
and local0, 252, local2 ! 2
ld [local5+local3], local3 ! 7
srl local0, 16, local5 ! 6
or out0, local0, out0 ! rotate
ld [global2+local2], local2 ! 2
srl out0, 24, local0
ld [in3+1*16], out0 ! key 7531 next round
and local4, 252, local4 ! 4
and local5, 252, local5 ! 6
ld [global4+local4], local4 ! 4
xor out5, local3, out5 ! 7 finished local3 used
and local0, 252, local0 ! 8
ld [local6+local5], local5 ! 6
xor out5, local2, out5 ! 2 finished local2 now sbox 3
srl local7, 8, local2 ! 3 start
ld [out3+local0], local0 ! 8
xor out5, local4, out5 ! 4 finished
and local2, 252, local2 ! 3
ld [global1+local1], local1 ! 1
xor out5, local5, out5 ! 6 finished local5 used
ld [global3+local2], local2 ! 3
xor out5, local0, out5 ! 8 finished
add in3, 1*16, in3 ! enc add 8, dec add -8 to key pointer
ld [out2+284], local5 ! 0x0000FC00
xor out5, out0, local4 ! sbox 1 next round
xor out5, local1, out5 ! 1 finished
xor out5, local2, out5 ! 3 finished
bne .ncbc.enc.1
and local4, 252, local1 ! sbox 1 next round
! two rounds more:
ld [global1+local1], local1
xor out5, out1, out1
xor out5, out0, out0
srl out1, 4, local0 ! rotate
and out0, local5, local3
ld [in3+1*8], local7 ! key 7531
srl local3, 8, local3
and local0, 252, local2
ld [global3+local3],local3
sll out1, 28, out1 ! rotate
xor in5, local1, in5 ! 1 finished, local1 now sbox 7
ld [global2+local2], local2
srl out0, 24, local1
or out1, local0, out1 ! rotate
ldub [out2+local1], local1
srl out1, 24, local0
and out1, local5, local4
ldub [out2+local0], local0
srl local4, 8, local4
xor in5, local2, in5 ! 2 finished local2 now sbox 6
ld [global4+local4],local4
srl out1, 16, local2
xor in5, local3, in5 ! 3 finished local3 now sbox 5
ld [out3+local0],local0
and local2, 252, local2
add global1, 1536, local5 ! address sbox 7
ld [local6+local2], local2
srl out0, 16, local3
xor in5, local4, in5 ! 4 finished
ld [local5+local1],local1
and local3, 252, local3
xor in5, local0, in5
ld [global5+local3],local3
xor in5, local2, in5 ! 6 finished
cmp in2, 8
ld [out2+280], out4 ! loop counter
xor in5, local7, local2 ! sbox 5 next round
xor in5, local1, in5 ! 7 finished
ld [in3+1*8+4], out0
srl local2, 16, local2 ! sbox 5 next round
xor in5, local3, in5 ! 5 finished
and local2, 252, local2
! next round (two rounds more)
xor in5, local7, local7 ! 7531
ld [global5+local2], local2
srl local7, 24, local3
xor in5, out0, out0 ! 8642
ldub [out2+local3], local3
srl out0, 4, local0 ! rotate
and local7, 252, local1
sll out0, 28, out0 ! rotate
xor out5, local2, out5 ! 5 finished local2 used
srl local0, 8, local4
and local0, 252, local2
ld [local5+local3], local3
srl local0, 16, local5
or out0, local0, out0 ! rotate
ld [global2+local2], local2
srl out0, 24, local0
ld [in4], out0 ! key next encryption/decryption
and local4, 252, local4
and local5, 252, local5
ld [global4+local4], local4
xor out5, local3, out5 ! 7 finished local3 used
and local0, 252, local0
ld [local6+local5], local5
xor out5, local2, out5 ! 2 finished local2 now sbox 3
srl local7, 8, local2 ! 3 start
ld [out3+local0], local0
xor out5, local4, out5
and local2, 252, local2
ld [global1+local1], local1
xor out5, local5, out5 ! 6 finished local5 used
ld [global3+local2], local2
srl in5, 3, local3
xor out5, local0, out5
ld [in4+4], out1 ! key next encryption/decryption
sll in5, 29, local4
xor out5, local1, out5
xor out5, local2, out5
! include encryption ks in3
bl .ncbc.enc.next.block_fp
add in0, 8, in0 ! input address
! If 8 or more bytes are to be encrypted after this block,
! we combine final permutation for this block with initial
! permutation for next block. Load next block:
! load_little_endian
! in0 global3 global4 local5 .LLE12
! first in memory to rightmost in register
.LLE12:
ldub [in0+3], global3
ldub [in0+2], local5
sll global3, 8, global3
or global3, local5, global3
ldub [in0+1], local5
sll global3, 8, global3
or global3, local5, global3
ldub [in0+0], local5
sll global3, 8, global3
or global3, local5, global3
ldub [in0+3+4], global4
ldub [in0+2+4], local5
sll global4, 8, global4
or global4, local5, global4
ldub [in0+1+4], local5
sll global4, 8, global4
or global4, local5, global4
ldub [in0+0+4], local5
sll global4, 8, global4
or global4, local5, global4
.LLE12a:
! parameter 1 original left
! parameter 2 original right
! parameter 3 left ip
! parameter 4 right ip
! parameter 5 1: load ks1/ks2 to in3/in4, add 120 to in4
! 2: mov in4 to in3
!
! also adds -8 to length in2 and loads loop counter to out4
! fp_ip_macro
! out0 out1 global3 global4 2
! out0 in local3, local4
ld [out2+256], local1
sll out5, 29, out4
or local3, local4, out0
srl out5, 3, out1
mov in4, in3
ld [out2+272], local5
srl global4, 4, local0
or out1, out4, out1
srl out1, 1, out4
xor out4, out0, out4
and out4, local5, out4
xor local0, global3, local0
sll out4, 1, local3
xor out0, out4, out0
and local0, local1, local0
add in2, -8, in2
sll local0, 4, local7
xor global3, local0, global3
ld [out2+268], local4
srl out0, 8, out4
xor out1, local3, out1
ld [out2+260], local2
srl global3, 16, local0
xor global4, local7, global4
xor out4, out1, out4
xor local0, global4, local0
and out4, local4, out4
and local0, local2, local0
sll out4, 8, local3
xor out1, out4, out1
sll local0, 16, local7
xor global4, local0, global4
srl out1, 2, out4
xor out0, local3, out0
ld [out2+264], local3 ! ip3
srl global4, 2, local0
xor global3, local7, global3
xor out4, out0, out4
xor local0, global3, local0
and out4, local3, out4
and local0, local3, local0
sll out4, 2, local3
xor out0, out4, out0
sll local0, 2, local7
xor global3, local0, global3
srl out0, 16, out4
xor out1, local3, out1
srl global3, 8, local0
xor global4, local7, global4
xor out4, out1, out4
xor local0, global4, local0
and out4, local2, out4
and local0, local4, local0
sll out4, 16, local3
xor out1, out4, local4
sll local0, 8, local7
xor global4, local0, global4
srl global4, 1, local0
xor global3, local7, global3
srl local4, 4, out4
xor local0, global3, local0
xor out0, local3, out0
and local0, local5, local0
sll local0, 1, local7
xor out4, out0, out4
xor global3, local0, global3
xor global4, local7, global4
sll global3, 3, local5
and out4, local1, out4
sll out4, 4, local3
xor out0, out4, out0
sll global4, 3, local2
xor local4, local3, out1
! reload since used as temporary:
ld [out2+280], out4 ! loop counter
srl global3, 29, local0
srl global4, 29, local7
or local0, local5, global4
or local2, local7, global3
! store_little_endian
! in1 out0 out1 local3 .SLE10
! rightmost in register to first in memory
.SLE10:
and out0, 255, local3
stub local3, [in1+0]
srl out0, 8, local3
and local3, 255, local3
stub local3, [in1+1]
srl out0, 16, local3
and local3, 255, local3
stub local3, [in1+2]
srl out0, 24, local3
stub local3, [in1+3]
and out1, 255, local3
stub local3, [in1+0+4]
srl out1, 8, local3
and local3, 255, local3
stub local3, [in1+1+4]
srl out1, 16, local3
and local3, 255, local3
stub local3, [in1+2+4]
srl out1, 24, local3
stub local3, [in1+3+4]
.SLE10a:
! block
ld [in3], out0 ! key 7531 first round next block
mov in5, local1
xor global3, out5, in5 ! iv xor next block
ld [in3+4], out1 ! key 8642
add global1, 512, global3 ! address sbox 3 since register used
xor global4, local1, out5 ! iv xor next block
ba .ncbc.enc.next.block_2
add in1, 8, in1 ! output address
.ncbc.enc.next.block_fp:
! fp_macro
! in5 out5
! initially undo the rotate 3 left done after initial permutation
! original left is received shifted 3 right and 29 left in local3/4
sll out5, 29, local1
or local3, local4, in5
srl out5, 3, out5
sethi %hi(0x55555555), local2
or out5, local1, out5
or local2, %lo(0x55555555), local2
srl out5, 1, local3
sethi %hi(0x00ff00ff), local1
xor local3, in5, local3
or local1, %lo(0x00ff00ff), local1
and local3, local2, local3
sethi %hi(0x33333333), local4
sll local3, 1, local2
xor in5, local3, in5
srl in5, 8, local3
xor out5, local2, out5
xor local3, out5, local3
or local4, %lo(0x33333333), local4
and local3, local1, local3
sethi %hi(0x0000ffff), local1
sll local3, 8, local2
xor out5, local3, out5
srl out5, 2, local3
xor in5, local2, in5
xor local3, in5, local3
or local1, %lo(0x0000ffff), local1
and local3, local4, local3
sethi %hi(0x0f0f0f0f), local4
sll local3, 2, local2
xor in5, local3, in5
srl in5, 16, local3
xor out5, local2, out5
xor local3, out5, local3
or local4, %lo(0x0f0f0f0f), local4
and local3, local1, local3
sll local3, 16, local2
xor out5, local3, local1
srl local1, 4, local3
xor in5, local2, in5
xor local3, in5, local3
and local3, local4, local3
sll local3, 4, local2
xor in5, local3, in5
! optional store:
xor local1, local2, out5
! store_little_endian
! in1 in5 out5 local3 .SLE1
! rightmost in register to first in memory
.SLE1:
and in5, 255, local3
stub local3, [in1+0]
srl in5, 8, local3
and local3, 255, local3
stub local3, [in1+1]
srl in5, 16, local3
and local3, 255, local3
stub local3, [in1+2]
srl in5, 24, local3
stub local3, [in1+3]
and out5, 255, local3
stub local3, [in1+0+4]
srl out5, 8, local3
and local3, 255, local3
stub local3, [in1+1+4]
srl out5, 16, local3
and local3, 255, local3
stub local3, [in1+2+4]
srl out5, 24, local3
stub local3, [in1+3+4]
.SLE1a:
! block
addcc in2, -8, in2 ! bytes missing when next block done
bpos .ncbc.enc.next.block
add in1, 8, in1
.ncbc.enc.seven.or.less:
cmp in2, -8
ble .ncbc.enc.finish
nop
add in2, 8, local1 ! bytes to load
! addr, length, dest left, dest right, temp, local3, label, ret label
! load_n_bytes
! in0 local1 local2 local3 .LNB1 .ncbc.enc.next.block_1 .LNB1 .ncbc.enc.next.block_1
.LNB1.0: call .+8
sll local1, 2, local3
add %o7,.LNB1.jmp.table-.LNB1.0,local2
add local2, local3, local2
mov 0, out4
ld [local2], local2
jmp %o7+local2
mov 0, global4
.LNB1.7:
ldub [in0+6], local2
sll local2, 16, local2
or global4, local2, global4
.LNB1.6:
ldub [in0+5], local2
sll local2, 8, local2
or global4, local2, global4
.LNB1.5:
ldub [in0+4], local2
or global4, local2, global4
.LNB1.4:
ldub [in0+3], local2
sll local2, 24, local2
or out4, local2, out4
.LNB1.3:
ldub [in0+2], local2
sll local2, 16, local2
or out4, local2, out4
.LNB1.2:
ldub [in0+1], local2
sll local2, 8, local2
or out4, local2, out4
.LNB1.1:
ldub [in0+0], local2
ba .ncbc.enc.next.block_1
or out4, local2, out4
.align 4
.LNB1.jmp.table:
.word 0
.word .LNB1.1-.LNB1.0
.word .LNB1.2-.LNB1.0
.word .LNB1.3-.LNB1.0
.word .LNB1.4-.LNB1.0
.word .LNB1.5-.LNB1.0
.word .LNB1.6-.LNB1.0
.word .LNB1.7-.LNB1.0
! Loads 1 to 7 bytes little endian to global4, out4
.ncbc.enc.finish:
LDPTR [%sp+BIAS+ARG0+4*ARGSZ] , local4
! store_little_endian
! local4 in5 out5 local5 .SLE2
! rightmost in register to first in memory
.SLE2:
and in5, 255, local5
stub local5, [local4+0]
srl in5, 8, local5
and local5, 255, local5
stub local5, [local4+1]
srl in5, 16, local5
and local5, 255, local5
stub local5, [local4+2]
srl in5, 24, local5
stub local5, [local4+3]
and out5, 255, local5
stub local5, [local4+0+4]
srl out5, 8, local5
and local5, 255, local5
stub local5, [local4+1+4]
srl out5, 16, local5
and local5, 255, local5
stub local5, [local4+2+4]
srl out5, 24, local5
stub local5, [local4+3+4]
.SLE2a:
! ivec
ret
restore
.ncbc.dec:
STPTR in0, [%sp+BIAS+ARG0+0*ARGSZ]
cmp in2, 0 ! length
add in3, 120, in3
LDPTR [%sp+BIAS+ARG0+4*ARGSZ] , local7 ! ivec
ble .ncbc.dec.finish
mov in3, in4 ! schedule
STPTR in1, [%sp+BIAS+ARG0+1*ARGSZ]
mov in0, local5 ! input
! load_little_endian
! local7 in0 in1 local3 .LLE3
! first in memory to rightmost in register
.LLE3:
ldub [local7+3], in0
ldub [local7+2], local3
sll in0, 8, in0
or in0, local3, in0
ldub [local7+1], local3
sll in0, 8, in0
or in0, local3, in0
ldub [local7+0], local3
sll in0, 8, in0
or in0, local3, in0
ldub [local7+3+4], in1
ldub [local7+2+4], local3
sll in1, 8, in1
or in1, local3, in1
ldub [local7+1+4], local3
sll in1, 8, in1
or in1, local3, in1
ldub [local7+0+4], local3
sll in1, 8, in1
or in1, local3, in1
.LLE3a:
! ivec
.ncbc.dec.next.block:
! load_little_endian
! local5 in5 out5 local3 .LLE4
! first in memory to rightmost in register
.LLE4:
ldub [local5+3], in5
ldub [local5+2], local3
sll in5, 8, in5
or in5, local3, in5
ldub [local5+1], local3
sll in5, 8, in5
or in5, local3, in5
ldub [local5+0], local3
sll in5, 8, in5
or in5, local3, in5
ldub [local5+3+4], out5
ldub [local5+2+4], local3
sll out5, 8, out5
or out5, local3, out5
ldub [local5+1+4], local3
sll out5, 8, out5
or out5, local3, out5
ldub [local5+0+4], local3
sll out5, 8, out5
or out5, local3, out5
.LLE4a:
! block
! parameter 6 1/2 for include encryption/decryption
! parameter 7 1 for mov in1 to in3
! parameter 8 1 for mov in3 to in4
! ip_macro
! in5 out5 in5 out5 in4 2 0 1
ld [out2+256], local1
srl out5, 4, local4
xor local4, in5, local4
nop
ld [out2+260], local2
and local4, local1, local4
mov in3, in4
ld [out2+280], out4 ! loop counter
sll local4, 4, local1
xor in5, local4, in5
ld [out2+264], local3
srl in5, 16, local4
xor out5, local1, out5
xor local4, out5, local4
nop !sethi %hi(DES_SPtrans), global1 ! sbox addr
and local4, local2, local4
nop !or global1, %lo(DES_SPtrans), global1 ! sbox addr
sll local4, 16, local1
xor out5, local4, out5
srl out5, 2, local4
xor in5, local1, in5
sethi %hi(16711680), local5
xor local4, in5, local4
and local4, local3, local4
or local5, 255, local5
sll local4, 2, local2
xor in5, local4, in5
srl in5, 8, local4
xor out5, local2, out5
xor local4, out5, local4
add global1, 768, global4
and local4, local5, local4
add global1, 1024, global5
ld [out2+272], local7
sll local4, 8, local1
xor out5, local4, out5
srl out5, 1, local4
xor in5, local1, in5
ld [in4], out0 ! key 7531
xor local4, in5, local4
add global1, 256, global2
ld [in4+4], out1 ! key 8642
and local4, local7, local4
add global1, 512, global3
sll local4, 1, local1
xor in5, local4, in5
sll in5, 3, local3
xor out5, local1, out5
sll out5, 3, local2
add global1, 1280, local6 ! address sbox 8
srl in5, 29, local4
add global1, 1792, out3 ! address sbox 8
srl out5, 29, local1
or local4, local3, in5
or local2, local1, out5
ld [out2+284], local5 ! 0x0000FC00 used in the rounds
or local2, local1, out5
xor in5, out0, local1
call .des_dec.1
and local1, 252, local1
! include decryption ks in4
! fp_macro
! out5 in5 0 1
! initially undo the rotate 3 left done after initial permutation
! original left is received shifted 3 right and 29 left in local3/4
sll in5, 29, local1
or local3, local4, out5
srl in5, 3, in5
sethi %hi(0x55555555), local2
or in5, local1, in5
or local2, %lo(0x55555555), local2
srl in5, 1, local3
sethi %hi(0x00ff00ff), local1
xor local3, out5, local3
or local1, %lo(0x00ff00ff), local1
and local3, local2, local3
sethi %hi(0x33333333), local4
sll local3, 1, local2
xor out5, local3, out5
srl out5, 8, local3
xor in5, local2, in5
xor local3, in5, local3
or local4, %lo(0x33333333), local4
and local3, local1, local3
sethi %hi(0x0000ffff), local1
sll local3, 8, local2
xor in5, local3, in5
srl in5, 2, local3
xor out5, local2, out5
xor local3, out5, local3
or local1, %lo(0x0000ffff), local1
and local3, local4, local3
sethi %hi(0x0f0f0f0f), local4
sll local3, 2, local2
LDPTR [%sp+BIAS+ARG0+0*ARGSZ] , local5
xor out5, local3, out5
LDPTR [%sp+BIAS+ARG0+1*ARGSZ] , local7
srl out5, 16, local3
xor in5, local2, in5
xor local3, in5, local3
or local4, %lo(0x0f0f0f0f), local4
and local3, local1, local3
sll local3, 16, local2
xor in5, local3, local1
srl local1, 4, local3
xor out5, local2, out5
xor local3, out5, local3
and local3, local4, local3
sll local3, 4, local2
xor out5, local3, out5
! optional store:
xor local1, local2, in5
! 1 for input and output address to local5/7
! in2 is bytes left to be stored
! in2 is compared to 8 in the rounds
xor out5, in0, out4 ! iv xor
bl .ncbc.dec.seven.or.less
xor in5, in1, global4 ! iv xor
! Load ivec next block now, since input and output address might be the same.
! load_little_endian_inc
! local5 in0 in1 local3 .LLE5
! first in memory to rightmost in register
.LLE5:
ldub [local5+3], in0
ldub [local5+2], local3
sll in0, 8, in0
or in0, local3, in0
ldub [local5+1], local3
sll in0, 8, in0
or in0, local3, in0
ldub [local5+0], local3
sll in0, 8, in0
or in0, local3, in0
ldub [local5+3+4], in1
add local5, 8, local5
ldub [local5+2+4-8], local3
sll in1, 8, in1
or in1, local3, in1
ldub [local5+1+4-8], local3
sll in1, 8, in1
or in1, local3, in1
ldub [local5+0+4-8], local3
sll in1, 8, in1
or in1, local3, in1
.LLE5a:
! iv
! store_little_endian
! local7 out4 global4 local3 .SLE3
! rightmost in register to first in memory
.SLE3:
and out4, 255, local3
stub local3, [local7+0]
srl out4, 8, local3
and local3, 255, local3
stub local3, [local7+1]
srl out4, 16, local3
and local3, 255, local3
stub local3, [local7+2]
srl out4, 24, local3
stub local3, [local7+3]
and global4, 255, local3
stub local3, [local7+0+4]
srl global4, 8, local3
and local3, 255, local3
stub local3, [local7+1+4]
srl global4, 16, local3
and local3, 255, local3
stub local3, [local7+2+4]
srl global4, 24, local3
stub local3, [local7+3+4]
.SLE3a:
STPTR local5, [%sp+BIAS+ARG0+0*ARGSZ]
add local7, 8, local7
addcc in2, -8, in2
bg .ncbc.dec.next.block
STPTR local7, [%sp+BIAS+ARG0+1*ARGSZ]
.ncbc.dec.store.iv:
LDPTR [%sp+BIAS+ARG0+4*ARGSZ] , local4 ! ivec
! store_little_endian
! local4 in0 in1 local5 .SLE4
! rightmost in register to first in memory
.SLE4:
and in0, 255, local5
stub local5, [local4+0]
srl in0, 8, local5
and local5, 255, local5
stub local5, [local4+1]
srl in0, 16, local5
and local5, 255, local5
stub local5, [local4+2]
srl in0, 24, local5
stub local5, [local4+3]
and in1, 255, local5
stub local5, [local4+0+4]
srl in1, 8, local5
and local5, 255, local5
stub local5, [local4+1+4]
srl in1, 16, local5
and local5, 255, local5
stub local5, [local4+2+4]
srl in1, 24, local5
stub local5, [local4+3+4]
.SLE4a:
.ncbc.dec.finish:
ret
restore
.ncbc.dec.seven.or.less:
! load_little_endian_inc
! local5 in0 in1 local3 .LLE13
! first in memory to rightmost in register
.LLE13:
ldub [local5+3], in0
ldub [local5+2], local3
sll in0, 8, in0
or in0, local3, in0
ldub [local5+1], local3
sll in0, 8, in0
or in0, local3, in0
ldub [local5+0], local3
sll in0, 8, in0
or in0, local3, in0
ldub [local5+3+4], in1
add local5, 8, local5
ldub [local5+2+4-8], local3
sll in1, 8, in1
or in1, local3, in1
ldub [local5+1+4-8], local3
sll in1, 8, in1
or in1, local3, in1
ldub [local5+0+4-8], local3
sll in1, 8, in1
or in1, local3, in1
.LLE13a:
! ivec
! store_n_bytes
! local7 in2 local3 local4 .SNB1 .ncbc.dec.store.iv .SNB1 .ncbc.dec.store.iv
.SNB1.0: call .+8
sll in2, 2, local4
add %o7,.SNB1.jmp.table-.SNB1.0,local3
add local3, local4, local3
ld [local3], local3
jmp %o7+local3
nop
.SNB1.7:
srl global4, 16, local3
and local3, 0xff, local3
stub local3, [local7+6]
.SNB1.6:
srl global4, 8, local3
and local3, 0xff, local3
stub local3, [local7+5]
.SNB1.5:
and global4, 0xff, local3
stub local3, [local7+4]
.SNB1.4:
srl out4, 24, local3
stub local3, [local7+3]
.SNB1.3:
srl out4, 16, local3
and local3, 0xff, local3
stub local3, [local7+2]
.SNB1.2:
srl out4, 8, local3
and local3, 0xff, local3
stub local3, [local7+1]
.SNB1.1:
and out4, 0xff, local3
ba .ncbc.dec.store.iv
stub local3, [local7]
.align 4
.SNB1.jmp.table:
.word 0
.word .SNB1.1-.SNB1.0
.word .SNB1.2-.SNB1.0
.word .SNB1.3-.SNB1.0
.word .SNB1.4-.SNB1.0
.word .SNB1.5-.SNB1.0
.word .SNB1.6-.SNB1.0
.word .SNB1.7-.SNB1.0
.DES_ncbc_encrypt.end:
.size DES_ncbc_encrypt, .DES_ncbc_encrypt.end-DES_ncbc_encrypt
! void DES_ede3_cbc_encrypt(input, output, length, ks1, ks2, ks3, ivec, enc)
! **************************************************************************
.align 32
.global DES_ede3_cbc_encrypt
.type DES_ede3_cbc_encrypt,#function
DES_ede3_cbc_encrypt:
save %sp, FRAME, %sp
sethi %hi(_PIC_DES_SPtrans-1f),global1
or global1,%lo(_PIC_DES_SPtrans-1f),global1
1: call .+8
add %o7,global1,global1
sub global1,_PIC_DES_SPtrans-.des_and,out2
LDPTR [%fp+BIAS+ARG0+7*ARGSZ], local3 ! enc
LDPTR [%fp+BIAS+ARG0+6*ARGSZ], local4 ! ivec
cmp local3, 0 ! enc
be .ede3.dec
STPTR in4, [%sp+BIAS+ARG0+4*ARGSZ]
STPTR in5, [%sp+BIAS+ARG0+5*ARGSZ]
! load_little_endian
! local4 in5 out5 local3 .LLE6
! first in memory to rightmost in register
.LLE6:
ldub [local4+3], in5
ldub [local4+2], local3
sll in5, 8, in5
or in5, local3, in5
ldub [local4+1], local3
sll in5, 8, in5
or in5, local3, in5
ldub [local4+0], local3
sll in5, 8, in5
or in5, local3, in5
ldub [local4+3+4], out5
ldub [local4+2+4], local3
sll out5, 8, out5
or out5, local3, out5
ldub [local4+1+4], local3
sll out5, 8, out5
or out5, local3, out5
ldub [local4+0+4], local3
sll out5, 8, out5
or out5, local3, out5
.LLE6a:
! ivec
addcc in2, -8, in2 ! bytes missing after next block
bl .ede3.enc.seven.or.less
STPTR in3, [%sp+BIAS+ARG0+3*ARGSZ]
.ede3.enc.next.block:
! load_little_endian
! in0 out4 global4 local3 .LLE7
! first in memory to rightmost in register
.LLE7:
ldub [in0+3], out4
ldub [in0+2], local3
sll out4, 8, out4
or out4, local3, out4
ldub [in0+1], local3
sll out4, 8, out4
or out4, local3, out4
ldub [in0+0], local3
sll out4, 8, out4
or out4, local3, out4
ldub [in0+3+4], global4
ldub [in0+2+4], local3
sll global4, 8, global4
or global4, local3, global4
ldub [in0+1+4], local3
sll global4, 8, global4
or global4, local3, global4
ldub [in0+0+4], local3
sll global4, 8, global4
or global4, local3, global4
.LLE7a:
.ede3.enc.next.block_1:
LDPTR [%sp+BIAS+ARG0+4*ARGSZ] , in4
xor in5, out4, in5 ! iv xor
xor out5, global4, out5 ! iv xor
LDPTR [%sp+BIAS+ARG0+3*ARGSZ] , in3
add in4, 120, in4 ! for decryption we use last subkey first
nop
! ip_macro
! in5 out5 out5 in5 in3
ld [out2+256], local1
srl out5, 4, local4
xor local4, in5, local4
nop
ld [out2+260], local2
and local4, local1, local4
ld [out2+280], out4 ! loop counter
sll local4, 4, local1
xor in5, local4, in5
ld [out2+264], local3
srl in5, 16, local4
xor out5, local1, out5
xor local4, out5, local4
nop !sethi %hi(DES_SPtrans), global1 ! sbox addr
and local4, local2, local4
nop !or global1, %lo(DES_SPtrans), global1 ! sbox addr
sll local4, 16, local1
xor out5, local4, out5
srl out5, 2, local4
xor in5, local1, in5
sethi %hi(16711680), local5
xor local4, in5, local4
and local4, local3, local4
or local5, 255, local5
sll local4, 2, local2
xor in5, local4, in5
srl in5, 8, local4
xor out5, local2, out5
xor local4, out5, local4
add global1, 768, global4
and local4, local5, local4
add global1, 1024, global5
ld [out2+272], local7
sll local4, 8, local1
xor out5, local4, out5
srl out5, 1, local4
xor in5, local1, in5
ld [in3], out0 ! key 7531
xor local4, in5, local4
add global1, 256, global2
ld [in3+4], out1 ! key 8642
and local4, local7, local4
add global1, 512, global3
sll local4, 1, local1
xor in5, local4, in5
sll in5, 3, local3
xor out5, local1, out5
sll out5, 3, local2
add global1, 1280, local6 ! address sbox 8
srl in5, 29, local4
add global1, 1792, out3 ! address sbox 8
srl out5, 29, local1
or local4, local3, out5
or local2, local1, in5
.ede3.enc.next.block_2:
call .des_enc ! ks1 in3
nop
call .des_dec ! ks2 in4
LDPTR [%sp+BIAS+ARG0+5*ARGSZ] , in3
call .des_enc ! ks3 in3 compares in2 to 8
nop
bl .ede3.enc.next.block_fp
add in0, 8, in0
! If 8 or more bytes are to be encrypted after this block,
! we combine final permutation for this block with initial
! permutation for next block. Load next block:
! load_little_endian
! in0 global3 global4 local5 .LLE11
! first in memory to rightmost in register
.LLE11:
ldub [in0+3], global3
ldub [in0+2], local5
sll global3, 8, global3
or global3, local5, global3
ldub [in0+1], local5
sll global3, 8, global3
or global3, local5, global3
ldub [in0+0], local5
sll global3, 8, global3
or global3, local5, global3
ldub [in0+3+4], global4
ldub [in0+2+4], local5
sll global4, 8, global4
or global4, local5, global4
ldub [in0+1+4], local5
sll global4, 8, global4
or global4, local5, global4
ldub [in0+0+4], local5
sll global4, 8, global4
or global4, local5, global4
.LLE11a:
! parameter 1 original left
! parameter 2 original right
! parameter 3 left ip
! parameter 4 right ip
! parameter 5 1: load ks1/ks2 to in3/in4, add 120 to in4
! 2: mov in4 to in3
!
! also adds -8 to length in2 and loads loop counter to out4
! fp_ip_macro
! out0 out1 global3 global4 1
! out0 in local3, local4
ld [out2+256], local1
sll out5, 29, out4
or local3, local4, out0
srl out5, 3, out1
ld [out2+272], local5
srl global4, 4, local0
or out1, out4, out1
srl out1, 1, out4
xor out4, out0, out4
and out4, local5, out4
xor local0, global3, local0
sll out4, 1, local3
xor out0, out4, out0
and local0, local1, local0
add in2, -8, in2
sll local0, 4, local7
xor global3, local0, global3
ld [out2+268], local4
srl out0, 8, out4
xor out1, local3, out1
ld [out2+260], local2
srl global3, 16, local0
xor global4, local7, global4
xor out4, out1, out4
xor local0, global4, local0
and out4, local4, out4
and local0, local2, local0
sll out4, 8, local3
xor out1, out4, out1
sll local0, 16, local7
xor global4, local0, global4
srl out1, 2, out4
xor out0, local3, out0
ld [out2+264], local3 ! ip3
srl global4, 2, local0
xor global3, local7, global3
xor out4, out0, out4
xor local0, global3, local0
and out4, local3, out4
and local0, local3, local0
sll out4, 2, local3
xor out0, out4, out0
sll local0, 2, local7
xor global3, local0, global3
srl out0, 16, out4
xor out1, local3, out1
srl global3, 8, local0
xor global4, local7, global4
xor out4, out1, out4
xor local0, global4, local0
and out4, local2, out4
and local0, local4, local0
sll out4, 16, local3
xor out1, out4, local4
sll local0, 8, local7
xor global4, local0, global4
srl global4, 1, local0
xor global3, local7, global3
srl local4, 4, out4
xor local0, global3, local0
xor out0, local3, out0
and local0, local5, local0
sll local0, 1, local7
xor out4, out0, out4
xor global3, local0, global3
xor global4, local7, global4
sll global3, 3, local5
and out4, local1, out4
sll out4, 4, local3
xor out0, out4, out0
LDPTR [%sp+BIAS+ARG0+4*ARGSZ] , in4
sll global4, 3, local2
xor local4, local3, out1
! reload since used as temporary:
ld [out2+280], out4 ! loop counter
srl global3, 29, local0
add in4, 120, in4
LDPTR [%sp+BIAS+ARG0+3*ARGSZ] , in3
srl global4, 29, local7
or local0, local5, global4
or local2, local7, global3
! store_little_endian
! in1 out0 out1 local3 .SLE9
! rightmost in register to first in memory
.SLE9:
and out0, 255, local3
stub local3, [in1+0]
srl out0, 8, local3
and local3, 255, local3
stub local3, [in1+1]
srl out0, 16, local3
and local3, 255, local3
stub local3, [in1+2]
srl out0, 24, local3
stub local3, [in1+3]
and out1, 255, local3
stub local3, [in1+0+4]
srl out1, 8, local3
and local3, 255, local3
stub local3, [in1+1+4]
srl out1, 16, local3
and local3, 255, local3
stub local3, [in1+2+4]
srl out1, 24, local3
stub local3, [in1+3+4]
.SLE9a:
! block
mov in5, local1
xor global3, out5, in5 ! iv xor next block
ld [in3], out0 ! key 7531
add global1, 512, global3 ! address sbox 3
xor global4, local1, out5 ! iv xor next block
ld [in3+4], out1 ! key 8642
add global1, 768, global4 ! address sbox 4
ba .ede3.enc.next.block_2
add in1, 8, in1
.ede3.enc.next.block_fp:
! fp_macro
! in5 out5
! initially undo the rotate 3 left done after initial permutation
! original left is received shifted 3 right and 29 left in local3/4
sll out5, 29, local1
or local3, local4, in5
srl out5, 3, out5
sethi %hi(0x55555555), local2
or out5, local1, out5
or local2, %lo(0x55555555), local2
srl out5, 1, local3
sethi %hi(0x00ff00ff), local1
xor local3, in5, local3
or local1, %lo(0x00ff00ff), local1
and local3, local2, local3
sethi %hi(0x33333333), local4
sll local3, 1, local2
xor in5, local3, in5
srl in5, 8, local3
xor out5, local2, out5
xor local3, out5, local3
or local4, %lo(0x33333333), local4
and local3, local1, local3
sethi %hi(0x0000ffff), local1
sll local3, 8, local2
xor out5, local3, out5
srl out5, 2, local3
xor in5, local2, in5
xor local3, in5, local3
or local1, %lo(0x0000ffff), local1
and local3, local4, local3
sethi %hi(0x0f0f0f0f), local4
sll local3, 2, local2
xor in5, local3, in5
srl in5, 16, local3
xor out5, local2, out5
xor local3, out5, local3
or local4, %lo(0x0f0f0f0f), local4
and local3, local1, local3
sll local3, 16, local2
xor out5, local3, local1
srl local1, 4, local3
xor in5, local2, in5
xor local3, in5, local3
and local3, local4, local3
sll local3, 4, local2
xor in5, local3, in5
! optional store:
xor local1, local2, out5
! store_little_endian
! in1 in5 out5 local3 .SLE5
! rightmost in register to first in memory
.SLE5:
and in5, 255, local3
stub local3, [in1+0]
srl in5, 8, local3
and local3, 255, local3
stub local3, [in1+1]
srl in5, 16, local3
and local3, 255, local3
stub local3, [in1+2]
srl in5, 24, local3
stub local3, [in1+3]
and out5, 255, local3
stub local3, [in1+0+4]
srl out5, 8, local3
and local3, 255, local3
stub local3, [in1+1+4]
srl out5, 16, local3
and local3, 255, local3
stub local3, [in1+2+4]
srl out5, 24, local3
stub local3, [in1+3+4]
.SLE5a:
! block
addcc in2, -8, in2 ! bytes missing when next block done
bpos .ede3.enc.next.block
add in1, 8, in1
.ede3.enc.seven.or.less:
cmp in2, -8
ble .ede3.enc.finish
nop
add in2, 8, local1 ! bytes to load
! addr, length, dest left, dest right, temp, local3, label, ret label
! load_n_bytes
! in0 local1 local2 local3 .LNB2 .ede3.enc.next.block_1 .LNB2 .ede3.enc.next.block_1
.LNB2.0: call .+8
sll local1, 2, local3
add %o7,.LNB2.jmp.table-.LNB2.0,local2
add local2, local3, local2
mov 0, out4
ld [local2], local2
jmp %o7+local2
mov 0, global4
.LNB2.7:
ldub [in0+6], local2
sll local2, 16, local2
or global4, local2, global4
.LNB2.6:
ldub [in0+5], local2
sll local2, 8, local2
or global4, local2, global4
.LNB2.5:
ldub [in0+4], local2
or global4, local2, global4
.LNB2.4:
ldub [in0+3], local2
sll local2, 24, local2
or out4, local2, out4
.LNB2.3:
ldub [in0+2], local2
sll local2, 16, local2
or out4, local2, out4
.LNB2.2:
ldub [in0+1], local2
sll local2, 8, local2
or out4, local2, out4
.LNB2.1:
ldub [in0+0], local2
ba .ede3.enc.next.block_1
or out4, local2, out4
.align 4
.LNB2.jmp.table:
.word 0
.word .LNB2.1-.LNB2.0
.word .LNB2.2-.LNB2.0
.word .LNB2.3-.LNB2.0
.word .LNB2.4-.LNB2.0
.word .LNB2.5-.LNB2.0
.word .LNB2.6-.LNB2.0
.word .LNB2.7-.LNB2.0
.ede3.enc.finish:
LDPTR [%fp+BIAS+ARG0+6*ARGSZ], local4 ! ivec
! store_little_endian
! local4 in5 out5 local5 .SLE6
! rightmost in register to first in memory
.SLE6:
and in5, 255, local5
stub local5, [local4+0]
srl in5, 8, local5
and local5, 255, local5
stub local5, [local4+1]
srl in5, 16, local5
and local5, 255, local5
stub local5, [local4+2]
srl in5, 24, local5
stub local5, [local4+3]
and out5, 255, local5
stub local5, [local4+0+4]
srl out5, 8, local5
and local5, 255, local5
stub local5, [local4+1+4]
srl out5, 16, local5
and local5, 255, local5
stub local5, [local4+2+4]
srl out5, 24, local5
stub local5, [local4+3+4]
.SLE6a:
! ivec
ret
restore
.ede3.dec:
STPTR in0, [%sp+BIAS+ARG0+0*ARGSZ]
add in5, 120, in5
STPTR in1, [%sp+BIAS+ARG0+1*ARGSZ]
mov in0, local5
add in3, 120, in3
STPTR in3, [%sp+BIAS+ARG0+3*ARGSZ]
cmp in2, 0
ble .ede3.dec.finish
STPTR in5, [%sp+BIAS+ARG0+5*ARGSZ]
LDPTR [%fp+BIAS+ARG0+6*ARGSZ], local7 ! iv
! load_little_endian
! local7 in0 in1 local3 .LLE8
! first in memory to rightmost in register
.LLE8:
ldub [local7+3], in0
ldub [local7+2], local3
sll in0, 8, in0
or in0, local3, in0
ldub [local7+1], local3
sll in0, 8, in0
or in0, local3, in0
ldub [local7+0], local3
sll in0, 8, in0
or in0, local3, in0
ldub [local7+3+4], in1
ldub [local7+2+4], local3
sll in1, 8, in1
or in1, local3, in1
ldub [local7+1+4], local3
sll in1, 8, in1
or in1, local3, in1
ldub [local7+0+4], local3
sll in1, 8, in1
or in1, local3, in1
.LLE8a:
.ede3.dec.next.block:
! load_little_endian
! local5 in5 out5 local3 .LLE9
! first in memory to rightmost in register
.LLE9:
ldub [local5+3], in5
ldub [local5+2], local3
sll in5, 8, in5
or in5, local3, in5
ldub [local5+1], local3
sll in5, 8, in5
or in5, local3, in5
ldub [local5+0], local3
sll in5, 8, in5
or in5, local3, in5
ldub [local5+3+4], out5
ldub [local5+2+4], local3
sll out5, 8, out5
or out5, local3, out5
ldub [local5+1+4], local3
sll out5, 8, out5
or out5, local3, out5
ldub [local5+0+4], local3
sll out5, 8, out5
or out5, local3, out5
.LLE9a:
! parameter 6 1/2 for include encryption/decryption
! parameter 7 1 for mov in1 to in3
! parameter 8 1 for mov in3 to in4
! parameter 9 1 for load ks3 and ks2 to in4 and in3
! ip_macro
! in5 out5 in5 out5 in4 2 0 0 1
ld [out2+256], local1
srl out5, 4, local4
xor local4, in5, local4
nop
ld [out2+260], local2
and local4, local1, local4
ld [out2+280], out4 ! loop counter
sll local4, 4, local1
xor in5, local4, in5
ld [out2+264], local3
srl in5, 16, local4
xor out5, local1, out5
LDPTR [%sp+BIAS+ARG0+5*ARGSZ] , in4
xor local4, out5, local4
nop !sethi %hi(DES_SPtrans), global1 ! sbox addr
LDPTR [%sp+BIAS+ARG0+4*ARGSZ] , in3
and local4, local2, local4
nop !or global1, %lo(DES_SPtrans), global1 ! sbox addr
sll local4, 16, local1
xor out5, local4, out5
srl out5, 2, local4
xor in5, local1, in5
sethi %hi(16711680), local5
xor local4, in5, local4
and local4, local3, local4
or local5, 255, local5
sll local4, 2, local2
xor in5, local4, in5
srl in5, 8, local4
xor out5, local2, out5
xor local4, out5, local4
add global1, 768, global4
and local4, local5, local4
add global1, 1024, global5
ld [out2+272], local7
sll local4, 8, local1
xor out5, local4, out5
srl out5, 1, local4
xor in5, local1, in5
ld [in4], out0 ! key 7531
xor local4, in5, local4
add global1, 256, global2
ld [in4+4], out1 ! key 8642
and local4, local7, local4
add global1, 512, global3
sll local4, 1, local1
xor in5, local4, in5
sll in5, 3, local3
xor out5, local1, out5
sll out5, 3, local2
add global1, 1280, local6 ! address sbox 8
srl in5, 29, local4
add global1, 1792, out3 ! address sbox 8
srl out5, 29, local1
or local4, local3, in5
or local2, local1, out5
ld [out2+284], local5 ! 0x0000FC00 used in the rounds
or local2, local1, out5
xor in5, out0, local1
call .des_dec.1
and local1, 252, local1
! inc .des_dec ks3 in4
call .des_enc ! ks2 in3
LDPTR [%sp+BIAS+ARG0+3*ARGSZ] , in4
call .des_dec ! ks1 in4
nop
! fp_macro
! out5 in5 0 1
! initially undo the rotate 3 left done after initial permutation
! original left is received shifted 3 right and 29 left in local3/4
sll in5, 29, local1
or local3, local4, out5
srl in5, 3, in5
sethi %hi(0x55555555), local2
or in5, local1, in5
or local2, %lo(0x55555555), local2
srl in5, 1, local3
sethi %hi(0x00ff00ff), local1
xor local3, out5, local3
or local1, %lo(0x00ff00ff), local1
and local3, local2, local3
sethi %hi(0x33333333), local4
sll local3, 1, local2
xor out5, local3, out5
srl out5, 8, local3
xor in5, local2, in5
xor local3, in5, local3
or local4, %lo(0x33333333), local4
and local3, local1, local3
sethi %hi(0x0000ffff), local1
sll local3, 8, local2
xor in5, local3, in5
srl in5, 2, local3
xor out5, local2, out5
xor local3, out5, local3
or local1, %lo(0x0000ffff), local1
and local3, local4, local3
sethi %hi(0x0f0f0f0f), local4
sll local3, 2, local2
LDPTR [%sp+BIAS+ARG0+0*ARGSZ] , local5
xor out5, local3, out5
LDPTR [%sp+BIAS+ARG0+1*ARGSZ] , local7
srl out5, 16, local3
xor in5, local2, in5
xor local3, in5, local3
or local4, %lo(0x0f0f0f0f), local4
and local3, local1, local3
sll local3, 16, local2
xor in5, local3, local1
srl local1, 4, local3
xor out5, local2, out5
xor local3, out5, local3
and local3, local4, local3
sll local3, 4, local2
xor out5, local3, out5
! optional store:
xor local1, local2, in5
! 1 for input and output address local5/7
! in2 is bytes left to be stored
! in2 is compared to 8 in the rounds
xor out5, in0, out4
bl .ede3.dec.seven.or.less
xor in5, in1, global4
! load_little_endian_inc
! local5 in0 in1 local3 .LLE10
! first in memory to rightmost in register
.LLE10:
ldub [local5+3], in0
ldub [local5+2], local3
sll in0, 8, in0
or in0, local3, in0
ldub [local5+1], local3
sll in0, 8, in0
or in0, local3, in0
ldub [local5+0], local3
sll in0, 8, in0
or in0, local3, in0
ldub [local5+3+4], in1
add local5, 8, local5
ldub [local5+2+4-8], local3
sll in1, 8, in1
or in1, local3, in1
ldub [local5+1+4-8], local3
sll in1, 8, in1
or in1, local3, in1
ldub [local5+0+4-8], local3
sll in1, 8, in1
or in1, local3, in1
.LLE10a:
! iv next block
! store_little_endian
! local7 out4 global4 local3 .SLE7
! rightmost in register to first in memory
.SLE7:
and out4, 255, local3
stub local3, [local7+0]
srl out4, 8, local3
and local3, 255, local3
stub local3, [local7+1]
srl out4, 16, local3
and local3, 255, local3
stub local3, [local7+2]
srl out4, 24, local3
stub local3, [local7+3]
and global4, 255, local3
stub local3, [local7+0+4]
srl global4, 8, local3
and local3, 255, local3
stub local3, [local7+1+4]
srl global4, 16, local3
and local3, 255, local3
stub local3, [local7+2+4]
srl global4, 24, local3
stub local3, [local7+3+4]
.SLE7a:
! block
STPTR local5, [%sp+BIAS+ARG0+0*ARGSZ]
addcc in2, -8, in2
add local7, 8, local7
bg .ede3.dec.next.block
STPTR local7, [%sp+BIAS+ARG0+1*ARGSZ]
.ede3.dec.store.iv:
LDPTR [%fp+BIAS+ARG0+6*ARGSZ], local4 ! ivec
! store_little_endian
! local4 in0 in1 local5 .SLE8
! rightmost in register to first in memory
.SLE8:
and in0, 255, local5
stub local5, [local4+0]
srl in0, 8, local5
and local5, 255, local5
stub local5, [local4+1]
srl in0, 16, local5
and local5, 255, local5
stub local5, [local4+2]
srl in0, 24, local5
stub local5, [local4+3]
and in1, 255, local5
stub local5, [local4+0+4]
srl in1, 8, local5
and local5, 255, local5
stub local5, [local4+1+4]
srl in1, 16, local5
and local5, 255, local5
stub local5, [local4+2+4]
srl in1, 24, local5
stub local5, [local4+3+4]
.SLE8a:
! ivec
.ede3.dec.finish:
ret
restore
.ede3.dec.seven.or.less:
! load_little_endian_inc
! local5 in0 in1 local3 .LLE14
! first in memory to rightmost in register
.LLE14:
ldub [local5+3], in0
ldub [local5+2], local3
sll in0, 8, in0
or in0, local3, in0
ldub [local5+1], local3
sll in0, 8, in0
or in0, local3, in0
ldub [local5+0], local3
sll in0, 8, in0
or in0, local3, in0
ldub [local5+3+4], in1
add local5, 8, local5
ldub [local5+2+4-8], local3
sll in1, 8, in1
or in1, local3, in1
ldub [local5+1+4-8], local3
sll in1, 8, in1
or in1, local3, in1
ldub [local5+0+4-8], local3
sll in1, 8, in1
or in1, local3, in1
.LLE14a:
! iv
! store_n_bytes
! local7 in2 local3 local4 .SNB2 .ede3.dec.store.iv .SNB2 .ede3.dec.store.iv
.SNB2.0: call .+8
sll in2, 2, local4
add %o7,.SNB2.jmp.table-.SNB2.0,local3
add local3, local4, local3
ld [local3], local3
jmp %o7+local3
nop
.SNB2.7:
srl global4, 16, local3
and local3, 0xff, local3
stub local3, [local7+6]
.SNB2.6:
srl global4, 8, local3
and local3, 0xff, local3
stub local3, [local7+5]
.SNB2.5:
and global4, 0xff, local3
stub local3, [local7+4]
.SNB2.4:
srl out4, 24, local3
stub local3, [local7+3]
.SNB2.3:
srl out4, 16, local3
and local3, 0xff, local3
stub local3, [local7+2]
.SNB2.2:
srl out4, 8, local3
and local3, 0xff, local3
stub local3, [local7+1]
.SNB2.1:
and out4, 0xff, local3
ba .ede3.dec.store.iv
stub local3, [local7]
.align 4
.SNB2.jmp.table:
.word 0
.word .SNB2.1-.SNB2.0
.word .SNB2.2-.SNB2.0
.word .SNB2.3-.SNB2.0
.word .SNB2.4-.SNB2.0
.word .SNB2.5-.SNB2.0
.word .SNB2.6-.SNB2.0
.word .SNB2.7-.SNB2.0
.DES_ede3_cbc_encrypt.end:
.size DES_ede3_cbc_encrypt,.DES_ede3_cbc_encrypt.end-DES_ede3_cbc_encrypt
.align 256
.type .des_and,#object
.size .des_and,284
.des_and:
! This table is used for AND 0xFC when it is known that register
! bits 8-31 are zero. Makes it possible to do three arithmetic
! operations in one cycle.
.byte 0, 0, 0, 0, 4, 4, 4, 4
.byte 8, 8, 8, 8, 12, 12, 12, 12
.byte 16, 16, 16, 16, 20, 20, 20, 20
.byte 24, 24, 24, 24, 28, 28, 28, 28
.byte 32, 32, 32, 32, 36, 36, 36, 36
.byte 40, 40, 40, 40, 44, 44, 44, 44
.byte 48, 48, 48, 48, 52, 52, 52, 52
.byte 56, 56, 56, 56, 60, 60, 60, 60
.byte 64, 64, 64, 64, 68, 68, 68, 68
.byte 72, 72, 72, 72, 76, 76, 76, 76
.byte 80, 80, 80, 80, 84, 84, 84, 84
.byte 88, 88, 88, 88, 92, 92, 92, 92
.byte 96, 96, 96, 96, 100, 100, 100, 100
.byte 104, 104, 104, 104, 108, 108, 108, 108
.byte 112, 112, 112, 112, 116, 116, 116, 116
.byte 120, 120, 120, 120, 124, 124, 124, 124
.byte 128, 128, 128, 128, 132, 132, 132, 132
.byte 136, 136, 136, 136, 140, 140, 140, 140
.byte 144, 144, 144, 144, 148, 148, 148, 148
.byte 152, 152, 152, 152, 156, 156, 156, 156
.byte 160, 160, 160, 160, 164, 164, 164, 164
.byte 168, 168, 168, 168, 172, 172, 172, 172
.byte 176, 176, 176, 176, 180, 180, 180, 180
.byte 184, 184, 184, 184, 188, 188, 188, 188
.byte 192, 192, 192, 192, 196, 196, 196, 196
.byte 200, 200, 200, 200, 204, 204, 204, 204
.byte 208, 208, 208, 208, 212, 212, 212, 212
.byte 216, 216, 216, 216, 220, 220, 220, 220
.byte 224, 224, 224, 224, 228, 228, 228, 228
.byte 232, 232, 232, 232, 236, 236, 236, 236
.byte 240, 240, 240, 240, 244, 244, 244, 244
.byte 248, 248, 248, 248, 252, 252, 252, 252
! 5 numbers for initial/final permutation
.word 0x0f0f0f0f ! offset 256
.word 0x0000ffff ! 260
.word 0x33333333 ! 264
.word 0x00ff00ff ! 268
.word 0x55555555 ! 272
.word 0 ! 276
.word LOOPS ! 280
.word 0x0000FC00 ! 284
.global DES_SPtrans
.type DES_SPtrans,#object
.size DES_SPtrans,2048
.align 64
DES_SPtrans:
_PIC_DES_SPtrans:
! nibble 0
.word 0x02080800, 0x00080000, 0x02000002, 0x02080802
.word 0x02000000, 0x00080802, 0x00080002, 0x02000002
.word 0x00080802, 0x02080800, 0x02080000, 0x00000802
.word 0x02000802, 0x02000000, 0x00000000, 0x00080002
.word 0x00080000, 0x00000002, 0x02000800, 0x00080800
.word 0x02080802, 0x02080000, 0x00000802, 0x02000800
.word 0x00000002, 0x00000800, 0x00080800, 0x02080002
.word 0x00000800, 0x02000802, 0x02080002, 0x00000000
.word 0x00000000, 0x02080802, 0x02000800, 0x00080002
.word 0x02080800, 0x00080000, 0x00000802, 0x02000800
.word 0x02080002, 0x00000800, 0x00080800, 0x02000002
.word 0x00080802, 0x00000002, 0x02000002, 0x02080000
.word 0x02080802, 0x00080800, 0x02080000, 0x02000802
.word 0x02000000, 0x00000802, 0x00080002, 0x00000000
.word 0x00080000, 0x02000000, 0x02000802, 0x02080800
.word 0x00000002, 0x02080002, 0x00000800, 0x00080802
! nibble 1
.word 0x40108010, 0x00000000, 0x00108000, 0x40100000
.word 0x40000010, 0x00008010, 0x40008000, 0x00108000
.word 0x00008000, 0x40100010, 0x00000010, 0x40008000
.word 0x00100010, 0x40108000, 0x40100000, 0x00000010
.word 0x00100000, 0x40008010, 0x40100010, 0x00008000
.word 0x00108010, 0x40000000, 0x00000000, 0x00100010
.word 0x40008010, 0x00108010, 0x40108000, 0x40000010
.word 0x40000000, 0x00100000, 0x00008010, 0x40108010
.word 0x00100010, 0x40108000, 0x40008000, 0x00108010
.word 0x40108010, 0x00100010, 0x40000010, 0x00000000
.word 0x40000000, 0x00008010, 0x00100000, 0x40100010
.word 0x00008000, 0x40000000, 0x00108010, 0x40008010
.word 0x40108000, 0x00008000, 0x00000000, 0x40000010
.word 0x00000010, 0x40108010, 0x00108000, 0x40100000
.word 0x40100010, 0x00100000, 0x00008010, 0x40008000
.word 0x40008010, 0x00000010, 0x40100000, 0x00108000
! nibble 2
.word 0x04000001, 0x04040100, 0x00000100, 0x04000101
.word 0x00040001, 0x04000000, 0x04000101, 0x00040100
.word 0x04000100, 0x00040000, 0x04040000, 0x00000001
.word 0x04040101, 0x00000101, 0x00000001, 0x04040001
.word 0x00000000, 0x00040001, 0x04040100, 0x00000100
.word 0x00000101, 0x04040101, 0x00040000, 0x04000001
.word 0x04040001, 0x04000100, 0x00040101, 0x04040000
.word 0x00040100, 0x00000000, 0x04000000, 0x00040101
.word 0x04040100, 0x00000100, 0x00000001, 0x00040000
.word 0x00000101, 0x00040001, 0x04040000, 0x04000101
.word 0x00000000, 0x04040100, 0x00040100, 0x04040001
.word 0x00040001, 0x04000000, 0x04040101, 0x00000001
.word 0x00040101, 0x04000001, 0x04000000, 0x04040101
.word 0x00040000, 0x04000100, 0x04000101, 0x00040100
.word 0x04000100, 0x00000000, 0x04040001, 0x00000101
.word 0x04000001, 0x00040101, 0x00000100, 0x04040000
! nibble 3
.word 0x00401008, 0x10001000, 0x00000008, 0x10401008
.word 0x00000000, 0x10400000, 0x10001008, 0x00400008
.word 0x10401000, 0x10000008, 0x10000000, 0x00001008
.word 0x10000008, 0x00401008, 0x00400000, 0x10000000
.word 0x10400008, 0x00401000, 0x00001000, 0x00000008
.word 0x00401000, 0x10001008, 0x10400000, 0x00001000
.word 0x00001008, 0x00000000, 0x00400008, 0x10401000
.word 0x10001000, 0x10400008, 0x10401008, 0x00400000
.word 0x10400008, 0x00001008, 0x00400000, 0x10000008
.word 0x00401000, 0x10001000, 0x00000008, 0x10400000
.word 0x10001008, 0x00000000, 0x00001000, 0x00400008
.word 0x00000000, 0x10400008, 0x10401000, 0x00001000
.word 0x10000000, 0x10401008, 0x00401008, 0x00400000
.word 0x10401008, 0x00000008, 0x10001000, 0x00401008
.word 0x00400008, 0x00401000, 0x10400000, 0x10001008
.word 0x00001008, 0x10000000, 0x10000008, 0x10401000
! nibble 4
.word 0x08000000, 0x00010000, 0x00000400, 0x08010420
.word 0x08010020, 0x08000400, 0x00010420, 0x08010000
.word 0x00010000, 0x00000020, 0x08000020, 0x00010400
.word 0x08000420, 0x08010020, 0x08010400, 0x00000000
.word 0x00010400, 0x08000000, 0x00010020, 0x00000420
.word 0x08000400, 0x00010420, 0x00000000, 0x08000020
.word 0x00000020, 0x08000420, 0x08010420, 0x00010020
.word 0x08010000, 0x00000400, 0x00000420, 0x08010400
.word 0x08010400, 0x08000420, 0x00010020, 0x08010000
.word 0x00010000, 0x00000020, 0x08000020, 0x08000400
.word 0x08000000, 0x00010400, 0x08010420, 0x00000000
.word 0x00010420, 0x08000000, 0x00000400, 0x00010020
.word 0x08000420, 0x00000400, 0x00000000, 0x08010420
.word 0x08010020, 0x08010400, 0x00000420, 0x00010000
.word 0x00010400, 0x08010020, 0x08000400, 0x00000420
.word 0x00000020, 0x00010420, 0x08010000, 0x08000020
! nibble 5
.word 0x80000040, 0x00200040, 0x00000000, 0x80202000
.word 0x00200040, 0x00002000, 0x80002040, 0x00200000
.word 0x00002040, 0x80202040, 0x00202000, 0x80000000
.word 0x80002000, 0x80000040, 0x80200000, 0x00202040
.word 0x00200000, 0x80002040, 0x80200040, 0x00000000
.word 0x00002000, 0x00000040, 0x80202000, 0x80200040
.word 0x80202040, 0x80200000, 0x80000000, 0x00002040
.word 0x00000040, 0x00202000, 0x00202040, 0x80002000
.word 0x00002040, 0x80000000, 0x80002000, 0x00202040
.word 0x80202000, 0x00200040, 0x00000000, 0x80002000
.word 0x80000000, 0x00002000, 0x80200040, 0x00200000
.word 0x00200040, 0x80202040, 0x00202000, 0x00000040
.word 0x80202040, 0x00202000, 0x00200000, 0x80002040
.word 0x80000040, 0x80200000, 0x00202040, 0x00000000
.word 0x00002000, 0x80000040, 0x80002040, 0x80202000
.word 0x80200000, 0x00002040, 0x00000040, 0x80200040
! nibble 6
.word 0x00004000, 0x00000200, 0x01000200, 0x01000004
.word 0x01004204, 0x00004004, 0x00004200, 0x00000000
.word 0x01000000, 0x01000204, 0x00000204, 0x01004000
.word 0x00000004, 0x01004200, 0x01004000, 0x00000204
.word 0x01000204, 0x00004000, 0x00004004, 0x01004204
.word 0x00000000, 0x01000200, 0x01000004, 0x00004200
.word 0x01004004, 0x00004204, 0x01004200, 0x00000004
.word 0x00004204, 0x01004004, 0x00000200, 0x01000000
.word 0x00004204, 0x01004000, 0x01004004, 0x00000204
.word 0x00004000, 0x00000200, 0x01000000, 0x01004004
.word 0x01000204, 0x00004204, 0x00004200, 0x00000000
.word 0x00000200, 0x01000004, 0x00000004, 0x01000200
.word 0x00000000, 0x01000204, 0x01000200, 0x00004200
.word 0x00000204, 0x00004000, 0x01004204, 0x01000000
.word 0x01004200, 0x00000004, 0x00004004, 0x01004204
.word 0x01000004, 0x01004200, 0x01004000, 0x00004004
! nibble 7
.word 0x20800080, 0x20820000, 0x00020080, 0x00000000
.word 0x20020000, 0x00800080, 0x20800000, 0x20820080
.word 0x00000080, 0x20000000, 0x00820000, 0x00020080
.word 0x00820080, 0x20020080, 0x20000080, 0x20800000
.word 0x00020000, 0x00820080, 0x00800080, 0x20020000
.word 0x20820080, 0x20000080, 0x00000000, 0x00820000
.word 0x20000000, 0x00800000, 0x20020080, 0x20800080
.word 0x00800000, 0x00020000, 0x20820000, 0x00000080
.word 0x00800000, 0x00020000, 0x20000080, 0x20820080
.word 0x00020080, 0x20000000, 0x00000000, 0x00820000
.word 0x20800080, 0x20020080, 0x20020000, 0x00800080
.word 0x20820000, 0x00000080, 0x00800080, 0x20020000
.word 0x20820080, 0x00800000, 0x20800000, 0x20000080
.word 0x00820000, 0x00020080, 0x20020080, 0x20800000
.word 0x00000080, 0x20820000, 0x00820080, 0x00000000
.word 0x20000000, 0x20800080, 0x00020000, 0x00820080