mirror of https://github.com/lukechilds/node.git
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
968 lines
17 KiB
968 lines
17 KiB
12 years ago
|
.file "cast-586.s"
|
||
|
.text
|
||
|
.globl _CAST_encrypt
|
||
|
.align 4
|
||
|
_CAST_encrypt:
|
||
|
L_CAST_encrypt_begin:
|
||
|
|
||
|
pushl %ebp
|
||
|
pushl %ebx
|
||
|
movl 12(%esp),%ebx
|
||
|
movl 16(%esp),%ebp
|
||
|
pushl %esi
|
||
|
pushl %edi
|
||
|
# Load the 2 words
|
||
|
|
||
|
movl (%ebx),%edi
|
||
|
movl 4(%ebx),%esi
|
||
|
# Get short key flag
|
||
|
|
||
|
movl 128(%ebp),%eax
|
||
|
pushl %eax
|
||
|
xorl %eax,%eax
|
||
|
# round 0
|
||
|
|
||
|
movl (%ebp),%edx
|
||
|
movl 4(%ebp),%ecx
|
||
|
addl %esi,%edx
|
||
|
roll %cl,%edx
|
||
|
movl %edx,%ebx
|
||
|
xorl %ecx,%ecx
|
||
|
movb %dh,%cl
|
||
|
andl $255,%ebx
|
||
|
shrl $16,%edx
|
||
|
xorl %eax,%eax
|
||
|
movb %dh,%al
|
||
|
andl $255,%edx
|
||
|
movl _CAST_S_table0(,%ecx,4),%ecx
|
||
|
movl _CAST_S_table1(,%ebx,4),%ebx
|
||
|
xorl %ebx,%ecx
|
||
|
movl _CAST_S_table2(,%eax,4),%ebx
|
||
|
subl %ebx,%ecx
|
||
|
movl _CAST_S_table3(,%edx,4),%ebx
|
||
|
addl %ebx,%ecx
|
||
|
xorl %ecx,%edi
|
||
|
# round 1
|
||
|
|
||
|
movl 8(%ebp),%edx
|
||
|
movl 12(%ebp),%ecx
|
||
|
xorl %edi,%edx
|
||
|
roll %cl,%edx
|
||
|
movl %edx,%ebx
|
||
|
xorl %ecx,%ecx
|
||
|
movb %dh,%cl
|
||
|
andl $255,%ebx
|
||
|
shrl $16,%edx
|
||
|
xorl %eax,%eax
|
||
|
movb %dh,%al
|
||
|
andl $255,%edx
|
||
|
movl _CAST_S_table0(,%ecx,4),%ecx
|
||
|
movl _CAST_S_table1(,%ebx,4),%ebx
|
||
|
subl %ebx,%ecx
|
||
|
movl _CAST_S_table2(,%eax,4),%ebx
|
||
|
addl %ebx,%ecx
|
||
|
movl _CAST_S_table3(,%edx,4),%ebx
|
||
|
xorl %ebx,%ecx
|
||
|
xorl %ecx,%esi
|
||
|
# round 2
|
||
|
|
||
|
movl 16(%ebp),%edx
|
||
|
movl 20(%ebp),%ecx
|
||
|
subl %esi,%edx
|
||
|
roll %cl,%edx
|
||
|
movl %edx,%ebx
|
||
|
xorl %ecx,%ecx
|
||
|
movb %dh,%cl
|
||
|
andl $255,%ebx
|
||
|
shrl $16,%edx
|
||
|
xorl %eax,%eax
|
||
|
movb %dh,%al
|
||
|
andl $255,%edx
|
||
|
movl _CAST_S_table0(,%ecx,4),%ecx
|
||
|
movl _CAST_S_table1(,%ebx,4),%ebx
|
||
|
addl %ebx,%ecx
|
||
|
movl _CAST_S_table2(,%eax,4),%ebx
|
||
|
xorl %ebx,%ecx
|
||
|
movl _CAST_S_table3(,%edx,4),%ebx
|
||
|
subl %ebx,%ecx
|
||
|
xorl %ecx,%edi
|
||
|
# round 3
|
||
|
|
||
|
movl 24(%ebp),%edx
|
||
|
movl 28(%ebp),%ecx
|
||
|
addl %edi,%edx
|
||
|
roll %cl,%edx
|
||
|
movl %edx,%ebx
|
||
|
xorl %ecx,%ecx
|
||
|
movb %dh,%cl
|
||
|
andl $255,%ebx
|
||
|
shrl $16,%edx
|
||
|
xorl %eax,%eax
|
||
|
movb %dh,%al
|
||
|
andl $255,%edx
|
||
|
movl _CAST_S_table0(,%ecx,4),%ecx
|
||
|
movl _CAST_S_table1(,%ebx,4),%ebx
|
||
|
xorl %ebx,%ecx
|
||
|
movl _CAST_S_table2(,%eax,4),%ebx
|
||
|
subl %ebx,%ecx
|
||
|
movl _CAST_S_table3(,%edx,4),%ebx
|
||
|
addl %ebx,%ecx
|
||
|
xorl %ecx,%esi
|
||
|
# round 4
|
||
|
|
||
|
movl 32(%ebp),%edx
|
||
|
movl 36(%ebp),%ecx
|
||
|
xorl %esi,%edx
|
||
|
roll %cl,%edx
|
||
|
movl %edx,%ebx
|
||
|
xorl %ecx,%ecx
|
||
|
movb %dh,%cl
|
||
|
andl $255,%ebx
|
||
|
shrl $16,%edx
|
||
|
xorl %eax,%eax
|
||
|
movb %dh,%al
|
||
|
andl $255,%edx
|
||
|
movl _CAST_S_table0(,%ecx,4),%ecx
|
||
|
movl _CAST_S_table1(,%ebx,4),%ebx
|
||
|
subl %ebx,%ecx
|
||
|
movl _CAST_S_table2(,%eax,4),%ebx
|
||
|
addl %ebx,%ecx
|
||
|
movl _CAST_S_table3(,%edx,4),%ebx
|
||
|
xorl %ebx,%ecx
|
||
|
xorl %ecx,%edi
|
||
|
# round 5
|
||
|
|
||
|
movl 40(%ebp),%edx
|
||
|
movl 44(%ebp),%ecx
|
||
|
subl %edi,%edx
|
||
|
roll %cl,%edx
|
||
|
movl %edx,%ebx
|
||
|
xorl %ecx,%ecx
|
||
|
movb %dh,%cl
|
||
|
andl $255,%ebx
|
||
|
shrl $16,%edx
|
||
|
xorl %eax,%eax
|
||
|
movb %dh,%al
|
||
|
andl $255,%edx
|
||
|
movl _CAST_S_table0(,%ecx,4),%ecx
|
||
|
movl _CAST_S_table1(,%ebx,4),%ebx
|
||
|
addl %ebx,%ecx
|
||
|
movl _CAST_S_table2(,%eax,4),%ebx
|
||
|
xorl %ebx,%ecx
|
||
|
movl _CAST_S_table3(,%edx,4),%ebx
|
||
|
subl %ebx,%ecx
|
||
|
xorl %ecx,%esi
|
||
|
# round 6
|
||
|
|
||
|
movl 48(%ebp),%edx
|
||
|
movl 52(%ebp),%ecx
|
||
|
addl %esi,%edx
|
||
|
roll %cl,%edx
|
||
|
movl %edx,%ebx
|
||
|
xorl %ecx,%ecx
|
||
|
movb %dh,%cl
|
||
|
andl $255,%ebx
|
||
|
shrl $16,%edx
|
||
|
xorl %eax,%eax
|
||
|
movb %dh,%al
|
||
|
andl $255,%edx
|
||
|
movl _CAST_S_table0(,%ecx,4),%ecx
|
||
|
movl _CAST_S_table1(,%ebx,4),%ebx
|
||
|
xorl %ebx,%ecx
|
||
|
movl _CAST_S_table2(,%eax,4),%ebx
|
||
|
subl %ebx,%ecx
|
||
|
movl _CAST_S_table3(,%edx,4),%ebx
|
||
|
addl %ebx,%ecx
|
||
|
xorl %ecx,%edi
|
||
|
# round 7
|
||
|
|
||
|
movl 56(%ebp),%edx
|
||
|
movl 60(%ebp),%ecx
|
||
|
xorl %edi,%edx
|
||
|
roll %cl,%edx
|
||
|
movl %edx,%ebx
|
||
|
xorl %ecx,%ecx
|
||
|
movb %dh,%cl
|
||
|
andl $255,%ebx
|
||
|
shrl $16,%edx
|
||
|
xorl %eax,%eax
|
||
|
movb %dh,%al
|
||
|
andl $255,%edx
|
||
|
movl _CAST_S_table0(,%ecx,4),%ecx
|
||
|
movl _CAST_S_table1(,%ebx,4),%ebx
|
||
|
subl %ebx,%ecx
|
||
|
movl _CAST_S_table2(,%eax,4),%ebx
|
||
|
addl %ebx,%ecx
|
||
|
movl _CAST_S_table3(,%edx,4),%ebx
|
||
|
xorl %ebx,%ecx
|
||
|
xorl %ecx,%esi
|
||
|
# round 8
|
||
|
|
||
|
movl 64(%ebp),%edx
|
||
|
movl 68(%ebp),%ecx
|
||
|
subl %esi,%edx
|
||
|
roll %cl,%edx
|
||
|
movl %edx,%ebx
|
||
|
xorl %ecx,%ecx
|
||
|
movb %dh,%cl
|
||
|
andl $255,%ebx
|
||
|
shrl $16,%edx
|
||
|
xorl %eax,%eax
|
||
|
movb %dh,%al
|
||
|
andl $255,%edx
|
||
|
movl _CAST_S_table0(,%ecx,4),%ecx
|
||
|
movl _CAST_S_table1(,%ebx,4),%ebx
|
||
|
addl %ebx,%ecx
|
||
|
movl _CAST_S_table2(,%eax,4),%ebx
|
||
|
xorl %ebx,%ecx
|
||
|
movl _CAST_S_table3(,%edx,4),%ebx
|
||
|
subl %ebx,%ecx
|
||
|
xorl %ecx,%edi
|
||
|
# round 9
|
||
|
|
||
|
movl 72(%ebp),%edx
|
||
|
movl 76(%ebp),%ecx
|
||
|
addl %edi,%edx
|
||
|
roll %cl,%edx
|
||
|
movl %edx,%ebx
|
||
|
xorl %ecx,%ecx
|
||
|
movb %dh,%cl
|
||
|
andl $255,%ebx
|
||
|
shrl $16,%edx
|
||
|
xorl %eax,%eax
|
||
|
movb %dh,%al
|
||
|
andl $255,%edx
|
||
|
movl _CAST_S_table0(,%ecx,4),%ecx
|
||
|
movl _CAST_S_table1(,%ebx,4),%ebx
|
||
|
xorl %ebx,%ecx
|
||
|
movl _CAST_S_table2(,%eax,4),%ebx
|
||
|
subl %ebx,%ecx
|
||
|
movl _CAST_S_table3(,%edx,4),%ebx
|
||
|
addl %ebx,%ecx
|
||
|
xorl %ecx,%esi
|
||
|
# round 10
|
||
|
|
||
|
movl 80(%ebp),%edx
|
||
|
movl 84(%ebp),%ecx
|
||
|
xorl %esi,%edx
|
||
|
roll %cl,%edx
|
||
|
movl %edx,%ebx
|
||
|
xorl %ecx,%ecx
|
||
|
movb %dh,%cl
|
||
|
andl $255,%ebx
|
||
|
shrl $16,%edx
|
||
|
xorl %eax,%eax
|
||
|
movb %dh,%al
|
||
|
andl $255,%edx
|
||
|
movl _CAST_S_table0(,%ecx,4),%ecx
|
||
|
movl _CAST_S_table1(,%ebx,4),%ebx
|
||
|
subl %ebx,%ecx
|
||
|
movl _CAST_S_table2(,%eax,4),%ebx
|
||
|
addl %ebx,%ecx
|
||
|
movl _CAST_S_table3(,%edx,4),%ebx
|
||
|
xorl %ebx,%ecx
|
||
|
xorl %ecx,%edi
|
||
|
# round 11
|
||
|
|
||
|
movl 88(%ebp),%edx
|
||
|
movl 92(%ebp),%ecx
|
||
|
subl %edi,%edx
|
||
|
roll %cl,%edx
|
||
|
movl %edx,%ebx
|
||
|
xorl %ecx,%ecx
|
||
|
movb %dh,%cl
|
||
|
andl $255,%ebx
|
||
|
shrl $16,%edx
|
||
|
xorl %eax,%eax
|
||
|
movb %dh,%al
|
||
|
andl $255,%edx
|
||
|
movl _CAST_S_table0(,%ecx,4),%ecx
|
||
|
movl _CAST_S_table1(,%ebx,4),%ebx
|
||
|
addl %ebx,%ecx
|
||
|
movl _CAST_S_table2(,%eax,4),%ebx
|
||
|
xorl %ebx,%ecx
|
||
|
movl _CAST_S_table3(,%edx,4),%ebx
|
||
|
subl %ebx,%ecx
|
||
|
xorl %ecx,%esi
|
||
|
# test short key flag
|
||
|
|
||
|
popl %edx
|
||
|
orl %edx,%edx
|
||
|
jnz L000cast_enc_done
|
||
|
# round 12
|
||
|
|
||
|
movl 96(%ebp),%edx
|
||
|
movl 100(%ebp),%ecx
|
||
|
addl %esi,%edx
|
||
|
roll %cl,%edx
|
||
|
movl %edx,%ebx
|
||
|
xorl %ecx,%ecx
|
||
|
movb %dh,%cl
|
||
|
andl $255,%ebx
|
||
|
shrl $16,%edx
|
||
|
xorl %eax,%eax
|
||
|
movb %dh,%al
|
||
|
andl $255,%edx
|
||
|
movl _CAST_S_table0(,%ecx,4),%ecx
|
||
|
movl _CAST_S_table1(,%ebx,4),%ebx
|
||
|
xorl %ebx,%ecx
|
||
|
movl _CAST_S_table2(,%eax,4),%ebx
|
||
|
subl %ebx,%ecx
|
||
|
movl _CAST_S_table3(,%edx,4),%ebx
|
||
|
addl %ebx,%ecx
|
||
|
xorl %ecx,%edi
|
||
|
# round 13
|
||
|
|
||
|
movl 104(%ebp),%edx
|
||
|
movl 108(%ebp),%ecx
|
||
|
xorl %edi,%edx
|
||
|
roll %cl,%edx
|
||
|
movl %edx,%ebx
|
||
|
xorl %ecx,%ecx
|
||
|
movb %dh,%cl
|
||
|
andl $255,%ebx
|
||
|
shrl $16,%edx
|
||
|
xorl %eax,%eax
|
||
|
movb %dh,%al
|
||
|
andl $255,%edx
|
||
|
movl _CAST_S_table0(,%ecx,4),%ecx
|
||
|
movl _CAST_S_table1(,%ebx,4),%ebx
|
||
|
subl %ebx,%ecx
|
||
|
movl _CAST_S_table2(,%eax,4),%ebx
|
||
|
addl %ebx,%ecx
|
||
|
movl _CAST_S_table3(,%edx,4),%ebx
|
||
|
xorl %ebx,%ecx
|
||
|
xorl %ecx,%esi
|
||
|
# round 14
|
||
|
|
||
|
movl 112(%ebp),%edx
|
||
|
movl 116(%ebp),%ecx
|
||
|
subl %esi,%edx
|
||
|
roll %cl,%edx
|
||
|
movl %edx,%ebx
|
||
|
xorl %ecx,%ecx
|
||
|
movb %dh,%cl
|
||
|
andl $255,%ebx
|
||
|
shrl $16,%edx
|
||
|
xorl %eax,%eax
|
||
|
movb %dh,%al
|
||
|
andl $255,%edx
|
||
|
movl _CAST_S_table0(,%ecx,4),%ecx
|
||
|
movl _CAST_S_table1(,%ebx,4),%ebx
|
||
|
addl %ebx,%ecx
|
||
|
movl _CAST_S_table2(,%eax,4),%ebx
|
||
|
xorl %ebx,%ecx
|
||
|
movl _CAST_S_table3(,%edx,4),%ebx
|
||
|
subl %ebx,%ecx
|
||
|
xorl %ecx,%edi
|
||
|
# round 15
|
||
|
|
||
|
movl 120(%ebp),%edx
|
||
|
movl 124(%ebp),%ecx
|
||
|
addl %edi,%edx
|
||
|
roll %cl,%edx
|
||
|
movl %edx,%ebx
|
||
|
xorl %ecx,%ecx
|
||
|
movb %dh,%cl
|
||
|
andl $255,%ebx
|
||
|
shrl $16,%edx
|
||
|
xorl %eax,%eax
|
||
|
movb %dh,%al
|
||
|
andl $255,%edx
|
||
|
movl _CAST_S_table0(,%ecx,4),%ecx
|
||
|
movl _CAST_S_table1(,%ebx,4),%ebx
|
||
|
xorl %ebx,%ecx
|
||
|
movl _CAST_S_table2(,%eax,4),%ebx
|
||
|
subl %ebx,%ecx
|
||
|
movl _CAST_S_table3(,%edx,4),%ebx
|
||
|
addl %ebx,%ecx
|
||
|
xorl %ecx,%esi
|
||
|
L000cast_enc_done:
|
||
|
nop
|
||
|
movl 20(%esp),%eax
|
||
|
movl %edi,4(%eax)
|
||
|
movl %esi,(%eax)
|
||
|
popl %edi
|
||
|
popl %esi
|
||
|
popl %ebx
|
||
|
popl %ebp
|
||
|
ret
|
||
|
.globl _CAST_decrypt
|
||
|
.align 4
|
||
|
_CAST_decrypt:
|
||
|
L_CAST_decrypt_begin:
|
||
|
|
||
|
pushl %ebp
|
||
|
pushl %ebx
|
||
|
movl 12(%esp),%ebx
|
||
|
movl 16(%esp),%ebp
|
||
|
pushl %esi
|
||
|
pushl %edi
|
||
|
# Load the 2 words
|
||
|
|
||
|
movl (%ebx),%edi
|
||
|
movl 4(%ebx),%esi
|
||
|
# Get short key flag
|
||
|
|
||
|
movl 128(%ebp),%eax
|
||
|
orl %eax,%eax
|
||
|
jnz L001cast_dec_skip
|
||
|
xorl %eax,%eax
|
||
|
# round 15
|
||
|
|
||
|
movl 120(%ebp),%edx
|
||
|
movl 124(%ebp),%ecx
|
||
|
addl %esi,%edx
|
||
|
roll %cl,%edx
|
||
|
movl %edx,%ebx
|
||
|
xorl %ecx,%ecx
|
||
|
movb %dh,%cl
|
||
|
andl $255,%ebx
|
||
|
shrl $16,%edx
|
||
|
xorl %eax,%eax
|
||
|
movb %dh,%al
|
||
|
andl $255,%edx
|
||
|
movl _CAST_S_table0(,%ecx,4),%ecx
|
||
|
movl _CAST_S_table1(,%ebx,4),%ebx
|
||
|
xorl %ebx,%ecx
|
||
|
movl _CAST_S_table2(,%eax,4),%ebx
|
||
|
subl %ebx,%ecx
|
||
|
movl _CAST_S_table3(,%edx,4),%ebx
|
||
|
addl %ebx,%ecx
|
||
|
xorl %ecx,%edi
|
||
|
# round 14
|
||
|
|
||
|
movl 112(%ebp),%edx
|
||
|
movl 116(%ebp),%ecx
|
||
|
subl %edi,%edx
|
||
|
roll %cl,%edx
|
||
|
movl %edx,%ebx
|
||
|
xorl %ecx,%ecx
|
||
|
movb %dh,%cl
|
||
|
andl $255,%ebx
|
||
|
shrl $16,%edx
|
||
|
xorl %eax,%eax
|
||
|
movb %dh,%al
|
||
|
andl $255,%edx
|
||
|
movl _CAST_S_table0(,%ecx,4),%ecx
|
||
|
movl _CAST_S_table1(,%ebx,4),%ebx
|
||
|
addl %ebx,%ecx
|
||
|
movl _CAST_S_table2(,%eax,4),%ebx
|
||
|
xorl %ebx,%ecx
|
||
|
movl _CAST_S_table3(,%edx,4),%ebx
|
||
|
subl %ebx,%ecx
|
||
|
xorl %ecx,%esi
|
||
|
# round 13
|
||
|
|
||
|
movl 104(%ebp),%edx
|
||
|
movl 108(%ebp),%ecx
|
||
|
xorl %esi,%edx
|
||
|
roll %cl,%edx
|
||
|
movl %edx,%ebx
|
||
|
xorl %ecx,%ecx
|
||
|
movb %dh,%cl
|
||
|
andl $255,%ebx
|
||
|
shrl $16,%edx
|
||
|
xorl %eax,%eax
|
||
|
movb %dh,%al
|
||
|
andl $255,%edx
|
||
|
movl _CAST_S_table0(,%ecx,4),%ecx
|
||
|
movl _CAST_S_table1(,%ebx,4),%ebx
|
||
|
subl %ebx,%ecx
|
||
|
movl _CAST_S_table2(,%eax,4),%ebx
|
||
|
addl %ebx,%ecx
|
||
|
movl _CAST_S_table3(,%edx,4),%ebx
|
||
|
xorl %ebx,%ecx
|
||
|
xorl %ecx,%edi
|
||
|
# round 12
|
||
|
|
||
|
movl 96(%ebp),%edx
|
||
|
movl 100(%ebp),%ecx
|
||
|
addl %edi,%edx
|
||
|
roll %cl,%edx
|
||
|
movl %edx,%ebx
|
||
|
xorl %ecx,%ecx
|
||
|
movb %dh,%cl
|
||
|
andl $255,%ebx
|
||
|
shrl $16,%edx
|
||
|
xorl %eax,%eax
|
||
|
movb %dh,%al
|
||
|
andl $255,%edx
|
||
|
movl _CAST_S_table0(,%ecx,4),%ecx
|
||
|
movl _CAST_S_table1(,%ebx,4),%ebx
|
||
|
xorl %ebx,%ecx
|
||
|
movl _CAST_S_table2(,%eax,4),%ebx
|
||
|
subl %ebx,%ecx
|
||
|
movl _CAST_S_table3(,%edx,4),%ebx
|
||
|
addl %ebx,%ecx
|
||
|
xorl %ecx,%esi
|
||
|
L001cast_dec_skip:
|
||
|
# round 11
|
||
|
|
||
|
movl 88(%ebp),%edx
|
||
|
movl 92(%ebp),%ecx
|
||
|
subl %esi,%edx
|
||
|
roll %cl,%edx
|
||
|
movl %edx,%ebx
|
||
|
xorl %ecx,%ecx
|
||
|
movb %dh,%cl
|
||
|
andl $255,%ebx
|
||
|
shrl $16,%edx
|
||
|
xorl %eax,%eax
|
||
|
movb %dh,%al
|
||
|
andl $255,%edx
|
||
|
movl _CAST_S_table0(,%ecx,4),%ecx
|
||
|
movl _CAST_S_table1(,%ebx,4),%ebx
|
||
|
addl %ebx,%ecx
|
||
|
movl _CAST_S_table2(,%eax,4),%ebx
|
||
|
xorl %ebx,%ecx
|
||
|
movl _CAST_S_table3(,%edx,4),%ebx
|
||
|
subl %ebx,%ecx
|
||
|
xorl %ecx,%edi
|
||
|
# round 10
|
||
|
|
||
|
movl 80(%ebp),%edx
|
||
|
movl 84(%ebp),%ecx
|
||
|
xorl %edi,%edx
|
||
|
roll %cl,%edx
|
||
|
movl %edx,%ebx
|
||
|
xorl %ecx,%ecx
|
||
|
movb %dh,%cl
|
||
|
andl $255,%ebx
|
||
|
shrl $16,%edx
|
||
|
xorl %eax,%eax
|
||
|
movb %dh,%al
|
||
|
andl $255,%edx
|
||
|
movl _CAST_S_table0(,%ecx,4),%ecx
|
||
|
movl _CAST_S_table1(,%ebx,4),%ebx
|
||
|
subl %ebx,%ecx
|
||
|
movl _CAST_S_table2(,%eax,4),%ebx
|
||
|
addl %ebx,%ecx
|
||
|
movl _CAST_S_table3(,%edx,4),%ebx
|
||
|
xorl %ebx,%ecx
|
||
|
xorl %ecx,%esi
|
||
|
# round 9
|
||
|
|
||
|
movl 72(%ebp),%edx
|
||
|
movl 76(%ebp),%ecx
|
||
|
addl %esi,%edx
|
||
|
roll %cl,%edx
|
||
|
movl %edx,%ebx
|
||
|
xorl %ecx,%ecx
|
||
|
movb %dh,%cl
|
||
|
andl $255,%ebx
|
||
|
shrl $16,%edx
|
||
|
xorl %eax,%eax
|
||
|
movb %dh,%al
|
||
|
andl $255,%edx
|
||
|
movl _CAST_S_table0(,%ecx,4),%ecx
|
||
|
movl _CAST_S_table1(,%ebx,4),%ebx
|
||
|
xorl %ebx,%ecx
|
||
|
movl _CAST_S_table2(,%eax,4),%ebx
|
||
|
subl %ebx,%ecx
|
||
|
movl _CAST_S_table3(,%edx,4),%ebx
|
||
|
addl %ebx,%ecx
|
||
|
xorl %ecx,%edi
|
||
|
# round 8
|
||
|
|
||
|
movl 64(%ebp),%edx
|
||
|
movl 68(%ebp),%ecx
|
||
|
subl %edi,%edx
|
||
|
roll %cl,%edx
|
||
|
movl %edx,%ebx
|
||
|
xorl %ecx,%ecx
|
||
|
movb %dh,%cl
|
||
|
andl $255,%ebx
|
||
|
shrl $16,%edx
|
||
|
xorl %eax,%eax
|
||
|
movb %dh,%al
|
||
|
andl $255,%edx
|
||
|
movl _CAST_S_table0(,%ecx,4),%ecx
|
||
|
movl _CAST_S_table1(,%ebx,4),%ebx
|
||
|
addl %ebx,%ecx
|
||
|
movl _CAST_S_table2(,%eax,4),%ebx
|
||
|
xorl %ebx,%ecx
|
||
|
movl _CAST_S_table3(,%edx,4),%ebx
|
||
|
subl %ebx,%ecx
|
||
|
xorl %ecx,%esi
|
||
|
# round 7
|
||
|
|
||
|
movl 56(%ebp),%edx
|
||
|
movl 60(%ebp),%ecx
|
||
|
xorl %esi,%edx
|
||
|
roll %cl,%edx
|
||
|
movl %edx,%ebx
|
||
|
xorl %ecx,%ecx
|
||
|
movb %dh,%cl
|
||
|
andl $255,%ebx
|
||
|
shrl $16,%edx
|
||
|
xorl %eax,%eax
|
||
|
movb %dh,%al
|
||
|
andl $255,%edx
|
||
|
movl _CAST_S_table0(,%ecx,4),%ecx
|
||
|
movl _CAST_S_table1(,%ebx,4),%ebx
|
||
|
subl %ebx,%ecx
|
||
|
movl _CAST_S_table2(,%eax,4),%ebx
|
||
|
addl %ebx,%ecx
|
||
|
movl _CAST_S_table3(,%edx,4),%ebx
|
||
|
xorl %ebx,%ecx
|
||
|
xorl %ecx,%edi
|
||
|
# round 6
|
||
|
|
||
|
movl 48(%ebp),%edx
|
||
|
movl 52(%ebp),%ecx
|
||
|
addl %edi,%edx
|
||
|
roll %cl,%edx
|
||
|
movl %edx,%ebx
|
||
|
xorl %ecx,%ecx
|
||
|
movb %dh,%cl
|
||
|
andl $255,%ebx
|
||
|
shrl $16,%edx
|
||
|
xorl %eax,%eax
|
||
|
movb %dh,%al
|
||
|
andl $255,%edx
|
||
|
movl _CAST_S_table0(,%ecx,4),%ecx
|
||
|
movl _CAST_S_table1(,%ebx,4),%ebx
|
||
|
xorl %ebx,%ecx
|
||
|
movl _CAST_S_table2(,%eax,4),%ebx
|
||
|
subl %ebx,%ecx
|
||
|
movl _CAST_S_table3(,%edx,4),%ebx
|
||
|
addl %ebx,%ecx
|
||
|
xorl %ecx,%esi
|
||
|
# round 5
|
||
|
|
||
|
movl 40(%ebp),%edx
|
||
|
movl 44(%ebp),%ecx
|
||
|
subl %esi,%edx
|
||
|
roll %cl,%edx
|
||
|
movl %edx,%ebx
|
||
|
xorl %ecx,%ecx
|
||
|
movb %dh,%cl
|
||
|
andl $255,%ebx
|
||
|
shrl $16,%edx
|
||
|
xorl %eax,%eax
|
||
|
movb %dh,%al
|
||
|
andl $255,%edx
|
||
|
movl _CAST_S_table0(,%ecx,4),%ecx
|
||
|
movl _CAST_S_table1(,%ebx,4),%ebx
|
||
|
addl %ebx,%ecx
|
||
|
movl _CAST_S_table2(,%eax,4),%ebx
|
||
|
xorl %ebx,%ecx
|
||
|
movl _CAST_S_table3(,%edx,4),%ebx
|
||
|
subl %ebx,%ecx
|
||
|
xorl %ecx,%edi
|
||
|
# round 4
|
||
|
|
||
|
movl 32(%ebp),%edx
|
||
|
movl 36(%ebp),%ecx
|
||
|
xorl %edi,%edx
|
||
|
roll %cl,%edx
|
||
|
movl %edx,%ebx
|
||
|
xorl %ecx,%ecx
|
||
|
movb %dh,%cl
|
||
|
andl $255,%ebx
|
||
|
shrl $16,%edx
|
||
|
xorl %eax,%eax
|
||
|
movb %dh,%al
|
||
|
andl $255,%edx
|
||
|
movl _CAST_S_table0(,%ecx,4),%ecx
|
||
|
movl _CAST_S_table1(,%ebx,4),%ebx
|
||
|
subl %ebx,%ecx
|
||
|
movl _CAST_S_table2(,%eax,4),%ebx
|
||
|
addl %ebx,%ecx
|
||
|
movl _CAST_S_table3(,%edx,4),%ebx
|
||
|
xorl %ebx,%ecx
|
||
|
xorl %ecx,%esi
|
||
|
# round 3
|
||
|
|
||
|
movl 24(%ebp),%edx
|
||
|
movl 28(%ebp),%ecx
|
||
|
addl %esi,%edx
|
||
|
roll %cl,%edx
|
||
|
movl %edx,%ebx
|
||
|
xorl %ecx,%ecx
|
||
|
movb %dh,%cl
|
||
|
andl $255,%ebx
|
||
|
shrl $16,%edx
|
||
|
xorl %eax,%eax
|
||
|
movb %dh,%al
|
||
|
andl $255,%edx
|
||
|
movl _CAST_S_table0(,%ecx,4),%ecx
|
||
|
movl _CAST_S_table1(,%ebx,4),%ebx
|
||
|
xorl %ebx,%ecx
|
||
|
movl _CAST_S_table2(,%eax,4),%ebx
|
||
|
subl %ebx,%ecx
|
||
|
movl _CAST_S_table3(,%edx,4),%ebx
|
||
|
addl %ebx,%ecx
|
||
|
xorl %ecx,%edi
|
||
|
# round 2
|
||
|
|
||
|
movl 16(%ebp),%edx
|
||
|
movl 20(%ebp),%ecx
|
||
|
subl %edi,%edx
|
||
|
roll %cl,%edx
|
||
|
movl %edx,%ebx
|
||
|
xorl %ecx,%ecx
|
||
|
movb %dh,%cl
|
||
|
andl $255,%ebx
|
||
|
shrl $16,%edx
|
||
|
xorl %eax,%eax
|
||
|
movb %dh,%al
|
||
|
andl $255,%edx
|
||
|
movl _CAST_S_table0(,%ecx,4),%ecx
|
||
|
movl _CAST_S_table1(,%ebx,4),%ebx
|
||
|
addl %ebx,%ecx
|
||
|
movl _CAST_S_table2(,%eax,4),%ebx
|
||
|
xorl %ebx,%ecx
|
||
|
movl _CAST_S_table3(,%edx,4),%ebx
|
||
|
subl %ebx,%ecx
|
||
|
xorl %ecx,%esi
|
||
|
# round 1
|
||
|
|
||
|
movl 8(%ebp),%edx
|
||
|
movl 12(%ebp),%ecx
|
||
|
xorl %esi,%edx
|
||
|
roll %cl,%edx
|
||
|
movl %edx,%ebx
|
||
|
xorl %ecx,%ecx
|
||
|
movb %dh,%cl
|
||
|
andl $255,%ebx
|
||
|
shrl $16,%edx
|
||
|
xorl %eax,%eax
|
||
|
movb %dh,%al
|
||
|
andl $255,%edx
|
||
|
movl _CAST_S_table0(,%ecx,4),%ecx
|
||
|
movl _CAST_S_table1(,%ebx,4),%ebx
|
||
|
subl %ebx,%ecx
|
||
|
movl _CAST_S_table2(,%eax,4),%ebx
|
||
|
addl %ebx,%ecx
|
||
|
movl _CAST_S_table3(,%edx,4),%ebx
|
||
|
xorl %ebx,%ecx
|
||
|
xorl %ecx,%edi
|
||
|
# round 0
|
||
|
|
||
|
movl (%ebp),%edx
|
||
|
movl 4(%ebp),%ecx
|
||
|
addl %edi,%edx
|
||
|
roll %cl,%edx
|
||
|
movl %edx,%ebx
|
||
|
xorl %ecx,%ecx
|
||
|
movb %dh,%cl
|
||
|
andl $255,%ebx
|
||
|
shrl $16,%edx
|
||
|
xorl %eax,%eax
|
||
|
movb %dh,%al
|
||
|
andl $255,%edx
|
||
|
movl _CAST_S_table0(,%ecx,4),%ecx
|
||
|
movl _CAST_S_table1(,%ebx,4),%ebx
|
||
|
xorl %ebx,%ecx
|
||
|
movl _CAST_S_table2(,%eax,4),%ebx
|
||
|
subl %ebx,%ecx
|
||
|
movl _CAST_S_table3(,%edx,4),%ebx
|
||
|
addl %ebx,%ecx
|
||
|
xorl %ecx,%esi
|
||
|
nop
|
||
|
movl 20(%esp),%eax
|
||
|
movl %edi,4(%eax)
|
||
|
movl %esi,(%eax)
|
||
|
popl %edi
|
||
|
popl %esi
|
||
|
popl %ebx
|
||
|
popl %ebp
|
||
|
ret
|
||
|
.globl _CAST_cbc_encrypt
|
||
|
.align 4
|
||
|
_CAST_cbc_encrypt:
|
||
|
L_CAST_cbc_encrypt_begin:
|
||
|
|
||
|
pushl %ebp
|
||
|
pushl %ebx
|
||
|
pushl %esi
|
||
|
pushl %edi
|
||
|
movl 28(%esp),%ebp
|
||
|
# getting iv ptr from parameter 4
|
||
|
|
||
|
movl 36(%esp),%ebx
|
||
|
movl (%ebx),%esi
|
||
|
movl 4(%ebx),%edi
|
||
|
pushl %edi
|
||
|
pushl %esi
|
||
|
pushl %edi
|
||
|
pushl %esi
|
||
|
movl %esp,%ebx
|
||
|
movl 36(%esp),%esi
|
||
|
movl 40(%esp),%edi
|
||
|
# getting encrypt flag from parameter 5
|
||
|
|
||
|
movl 56(%esp),%ecx
|
||
|
# get and push parameter 3
|
||
|
|
||
|
movl 48(%esp),%eax
|
||
|
pushl %eax
|
||
|
pushl %ebx
|
||
|
cmpl $0,%ecx
|
||
|
jz L002decrypt
|
||
|
andl $4294967288,%ebp
|
||
|
movl 8(%esp),%eax
|
||
|
movl 12(%esp),%ebx
|
||
|
jz L003encrypt_finish
|
||
|
L004encrypt_loop:
|
||
|
movl (%esi),%ecx
|
||
|
movl 4(%esi),%edx
|
||
|
xorl %ecx,%eax
|
||
|
xorl %edx,%ebx
|
||
|
bswap %eax
|
||
|
bswap %ebx
|
||
|
movl %eax,8(%esp)
|
||
|
movl %ebx,12(%esp)
|
||
|
call L_CAST_encrypt_begin
|
||
|
movl 8(%esp),%eax
|
||
|
movl 12(%esp),%ebx
|
||
|
bswap %eax
|
||
|
bswap %ebx
|
||
|
movl %eax,(%edi)
|
||
|
movl %ebx,4(%edi)
|
||
|
addl $8,%esi
|
||
|
addl $8,%edi
|
||
|
subl $8,%ebp
|
||
|
jnz L004encrypt_loop
|
||
|
L003encrypt_finish:
|
||
|
movl 52(%esp),%ebp
|
||
|
andl $7,%ebp
|
||
|
jz L005finish
|
||
|
call L006PIC_point
|
||
|
L006PIC_point:
|
||
|
popl %edx
|
||
|
leal L007cbc_enc_jmp_table-L006PIC_point(%edx),%ecx
|
||
|
movl (%ecx,%ebp,4),%ebp
|
||
|
addl %edx,%ebp
|
||
|
xorl %ecx,%ecx
|
||
|
xorl %edx,%edx
|
||
|
jmp *%ebp
|
||
|
L008ej7:
|
||
|
movb 6(%esi),%dh
|
||
|
shll $8,%edx
|
||
|
L009ej6:
|
||
|
movb 5(%esi),%dh
|
||
|
L010ej5:
|
||
|
movb 4(%esi),%dl
|
||
|
L011ej4:
|
||
|
movl (%esi),%ecx
|
||
|
jmp L012ejend
|
||
|
L013ej3:
|
||
|
movb 2(%esi),%ch
|
||
|
shll $8,%ecx
|
||
|
L014ej2:
|
||
|
movb 1(%esi),%ch
|
||
|
L015ej1:
|
||
|
movb (%esi),%cl
|
||
|
L012ejend:
|
||
|
xorl %ecx,%eax
|
||
|
xorl %edx,%ebx
|
||
|
bswap %eax
|
||
|
bswap %ebx
|
||
|
movl %eax,8(%esp)
|
||
|
movl %ebx,12(%esp)
|
||
|
call L_CAST_encrypt_begin
|
||
|
movl 8(%esp),%eax
|
||
|
movl 12(%esp),%ebx
|
||
|
bswap %eax
|
||
|
bswap %ebx
|
||
|
movl %eax,(%edi)
|
||
|
movl %ebx,4(%edi)
|
||
|
jmp L005finish
|
||
|
L002decrypt:
|
||
|
andl $4294967288,%ebp
|
||
|
movl 16(%esp),%eax
|
||
|
movl 20(%esp),%ebx
|
||
|
jz L016decrypt_finish
|
||
|
L017decrypt_loop:
|
||
|
movl (%esi),%eax
|
||
|
movl 4(%esi),%ebx
|
||
|
bswap %eax
|
||
|
bswap %ebx
|
||
|
movl %eax,8(%esp)
|
||
|
movl %ebx,12(%esp)
|
||
|
call L_CAST_decrypt_begin
|
||
|
movl 8(%esp),%eax
|
||
|
movl 12(%esp),%ebx
|
||
|
bswap %eax
|
||
|
bswap %ebx
|
||
|
movl 16(%esp),%ecx
|
||
|
movl 20(%esp),%edx
|
||
|
xorl %eax,%ecx
|
||
|
xorl %ebx,%edx
|
||
|
movl (%esi),%eax
|
||
|
movl 4(%esi),%ebx
|
||
|
movl %ecx,(%edi)
|
||
|
movl %edx,4(%edi)
|
||
|
movl %eax,16(%esp)
|
||
|
movl %ebx,20(%esp)
|
||
|
addl $8,%esi
|
||
|
addl $8,%edi
|
||
|
subl $8,%ebp
|
||
|
jnz L017decrypt_loop
|
||
|
L016decrypt_finish:
|
||
|
movl 52(%esp),%ebp
|
||
|
andl $7,%ebp
|
||
|
jz L005finish
|
||
|
movl (%esi),%eax
|
||
|
movl 4(%esi),%ebx
|
||
|
bswap %eax
|
||
|
bswap %ebx
|
||
|
movl %eax,8(%esp)
|
||
|
movl %ebx,12(%esp)
|
||
|
call L_CAST_decrypt_begin
|
||
|
movl 8(%esp),%eax
|
||
|
movl 12(%esp),%ebx
|
||
|
bswap %eax
|
||
|
bswap %ebx
|
||
|
movl 16(%esp),%ecx
|
||
|
movl 20(%esp),%edx
|
||
|
xorl %eax,%ecx
|
||
|
xorl %ebx,%edx
|
||
|
movl (%esi),%eax
|
||
|
movl 4(%esi),%ebx
|
||
|
L018dj7:
|
||
|
rorl $16,%edx
|
||
|
movb %dl,6(%edi)
|
||
|
shrl $16,%edx
|
||
|
L019dj6:
|
||
|
movb %dh,5(%edi)
|
||
|
L020dj5:
|
||
|
movb %dl,4(%edi)
|
||
|
L021dj4:
|
||
|
movl %ecx,(%edi)
|
||
|
jmp L022djend
|
||
|
L023dj3:
|
||
|
rorl $16,%ecx
|
||
|
movb %cl,2(%edi)
|
||
|
shll $16,%ecx
|
||
|
L024dj2:
|
||
|
movb %ch,1(%esi)
|
||
|
L025dj1:
|
||
|
movb %cl,(%esi)
|
||
|
L022djend:
|
||
|
jmp L005finish
|
||
|
L005finish:
|
||
|
movl 60(%esp),%ecx
|
||
|
addl $24,%esp
|
||
|
movl %eax,(%ecx)
|
||
|
movl %ebx,4(%ecx)
|
||
|
popl %edi
|
||
|
popl %esi
|
||
|
popl %ebx
|
||
|
popl %ebp
|
||
|
ret
|
||
|
.align 6,0x90
|
||
|
L007cbc_enc_jmp_table:
|
||
|
.long 0
|
||
|
.long L015ej1-L006PIC_point
|
||
|
.long L014ej2-L006PIC_point
|
||
|
.long L013ej3-L006PIC_point
|
||
|
.long L011ej4-L006PIC_point
|
||
|
.long L010ej5-L006PIC_point
|
||
|
.long L009ej6-L006PIC_point
|
||
|
.long L008ej7-L006PIC_point
|
||
|
.align 6,0x90
|