| #! /usr/bin/env perl |
| # Copyright 2014-2022 The OpenSSL Project Authors. All Rights Reserved. |
| # Copyright 2021- IBM Inc. 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 |
| # |
| #=================================================================================== |
| # Written by Danny Tsen <dtsen@us.ibm.com> for OpenSSL Project, |
| # |
| # GHASH is based on the Karatsuba multiplication method. |
| # |
| # Xi xor X1 |
| # |
| # X1 * H^4 + X2 * H^3 + x3 * H^2 + X4 * H = |
| # (X1.h * H4.h + xX.l * H4.l + X1 * H4) + |
| # (X2.h * H3.h + X2.l * H3.l + X2 * H3) + |
| # (X3.h * H2.h + X3.l * H2.l + X3 * H2) + |
| # (X4.h * H.h + X4.l * H.l + X4 * H) |
| # |
| # Xi = v0 |
| # H Poly = v2 |
| # Hash keys = v3 - v14 |
| # ( H.l, H, H.h) |
| # ( H^2.l, H^2, H^2.h) |
| # ( H^3.l, H^3, H^3.h) |
| # ( H^4.l, H^4, H^4.h) |
| # |
| # v30 is IV |
| # v31 - counter 1 |
| # |
| # AES used, |
| # vs0 - vs14 for round keys |
| # v15, v16, v17, v18, v19, v20, v21, v22 for 8 blocks (encrypted) |
| # |
| # This implementation uses stitched AES-GCM approach to improve overall performance. |
| # AES is implemented with 8x blocks and GHASH is using 2 4x blocks. |
| # |
| # Current large block (16384 bytes) performance per second with 128 bit key -- |
| # |
| # Encrypt Decrypt |
| # Power10[le] (3.5GHz) 5.32G 5.26G |
| # |
| # =================================================================================== |
| # |
| # $output is the last argument if it looks like a file (it has an extension) |
| # $flavour is the first argument if it doesn't look like a file |
| $output = $#ARGV >= 0 && $ARGV[$#ARGV] =~ m|\.\w+$| ? pop : undef; |
| $flavour = $#ARGV >= 0 && $ARGV[0] !~ m|\.| ? shift : undef; |
| |
| if ($flavour =~ /64/) { |
| $SIZE_T=8; |
| $LRSAVE=2*$SIZE_T; |
| $STU="stdu"; |
| $POP="ld"; |
| $PUSH="std"; |
| $UCMP="cmpld"; |
| $SHRI="srdi"; |
| } elsif ($flavour =~ /32/) { |
| $SIZE_T=4; |
| $LRSAVE=$SIZE_T; |
| $STU="stwu"; |
| $POP="lwz"; |
| $PUSH="stw"; |
| $UCMP="cmplw"; |
| $SHRI="srwi"; |
| } else { die "nonsense $flavour"; } |
| |
| $sp="r1"; |
| $FRAME=6*$SIZE_T+13*16; # 13*16 is for v20-v31 offload |
| |
| $0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1; |
| ( $xlate="${dir}ppc-xlate.pl" and -f $xlate ) or |
| ( $xlate="${dir}../../perlasm/ppc-xlate.pl" and -f $xlate) or |
| die "can't locate ppc-xlate.pl"; |
| |
| open STDOUT,"| $^X $xlate $flavour \"$output\"" |
| or die "can't call $xlate: $!"; |
| |
| $code=<<___; |
| .machine "any" |
| .text |
| |
| # 4x loops |
| # v15 - v18 - input states |
| # vs1 - vs9 - round keys |
| # |
| .macro Loop_aes_middle4x |
| xxlor 19+32, 1, 1 |
| xxlor 20+32, 2, 2 |
| xxlor 21+32, 3, 3 |
| xxlor 22+32, 4, 4 |
| |
| vcipher 15, 15, 19 |
| vcipher 16, 16, 19 |
| vcipher 17, 17, 19 |
| vcipher 18, 18, 19 |
| |
| vcipher 15, 15, 20 |
| vcipher 16, 16, 20 |
| vcipher 17, 17, 20 |
| vcipher 18, 18, 20 |
| |
| vcipher 15, 15, 21 |
| vcipher 16, 16, 21 |
| vcipher 17, 17, 21 |
| vcipher 18, 18, 21 |
| |
| vcipher 15, 15, 22 |
| vcipher 16, 16, 22 |
| vcipher 17, 17, 22 |
| vcipher 18, 18, 22 |
| |
| xxlor 19+32, 5, 5 |
| xxlor 20+32, 6, 6 |
| xxlor 21+32, 7, 7 |
| xxlor 22+32, 8, 8 |
| |
| vcipher 15, 15, 19 |
| vcipher 16, 16, 19 |
| vcipher 17, 17, 19 |
| vcipher 18, 18, 19 |
| |
| vcipher 15, 15, 20 |
| vcipher 16, 16, 20 |
| vcipher 17, 17, 20 |
| vcipher 18, 18, 20 |
| |
| vcipher 15, 15, 21 |
| vcipher 16, 16, 21 |
| vcipher 17, 17, 21 |
| vcipher 18, 18, 21 |
| |
| vcipher 15, 15, 22 |
| vcipher 16, 16, 22 |
| vcipher 17, 17, 22 |
| vcipher 18, 18, 22 |
| |
| xxlor 23+32, 9, 9 |
| vcipher 15, 15, 23 |
| vcipher 16, 16, 23 |
| vcipher 17, 17, 23 |
| vcipher 18, 18, 23 |
| .endm |
| |
| # 8x loops |
| # v15 - v22 - input states |
| # vs1 - vs9 - round keys |
| # |
| .macro Loop_aes_middle8x |
| xxlor 23+32, 1, 1 |
| xxlor 24+32, 2, 2 |
| xxlor 25+32, 3, 3 |
| xxlor 26+32, 4, 4 |
| |
| vcipher 15, 15, 23 |
| vcipher 16, 16, 23 |
| vcipher 17, 17, 23 |
| vcipher 18, 18, 23 |
| vcipher 19, 19, 23 |
| vcipher 20, 20, 23 |
| vcipher 21, 21, 23 |
| vcipher 22, 22, 23 |
| |
| vcipher 15, 15, 24 |
| vcipher 16, 16, 24 |
| vcipher 17, 17, 24 |
| vcipher 18, 18, 24 |
| vcipher 19, 19, 24 |
| vcipher 20, 20, 24 |
| vcipher 21, 21, 24 |
| vcipher 22, 22, 24 |
| |
| vcipher 15, 15, 25 |
| vcipher 16, 16, 25 |
| vcipher 17, 17, 25 |
| vcipher 18, 18, 25 |
| vcipher 19, 19, 25 |
| vcipher 20, 20, 25 |
| vcipher 21, 21, 25 |
| vcipher 22, 22, 25 |
| |
| vcipher 15, 15, 26 |
| vcipher 16, 16, 26 |
| vcipher 17, 17, 26 |
| vcipher 18, 18, 26 |
| vcipher 19, 19, 26 |
| vcipher 20, 20, 26 |
| vcipher 21, 21, 26 |
| vcipher 22, 22, 26 |
| |
| xxlor 23+32, 5, 5 |
| xxlor 24+32, 6, 6 |
| xxlor 25+32, 7, 7 |
| xxlor 26+32, 8, 8 |
| |
| vcipher 15, 15, 23 |
| vcipher 16, 16, 23 |
| vcipher 17, 17, 23 |
| vcipher 18, 18, 23 |
| vcipher 19, 19, 23 |
| vcipher 20, 20, 23 |
| vcipher 21, 21, 23 |
| vcipher 22, 22, 23 |
| |
| vcipher 15, 15, 24 |
| vcipher 16, 16, 24 |
| vcipher 17, 17, 24 |
| vcipher 18, 18, 24 |
| vcipher 19, 19, 24 |
| vcipher 20, 20, 24 |
| vcipher 21, 21, 24 |
| vcipher 22, 22, 24 |
| |
| vcipher 15, 15, 25 |
| vcipher 16, 16, 25 |
| vcipher 17, 17, 25 |
| vcipher 18, 18, 25 |
| vcipher 19, 19, 25 |
| vcipher 20, 20, 25 |
| vcipher 21, 21, 25 |
| vcipher 22, 22, 25 |
| |
| vcipher 15, 15, 26 |
| vcipher 16, 16, 26 |
| vcipher 17, 17, 26 |
| vcipher 18, 18, 26 |
| vcipher 19, 19, 26 |
| vcipher 20, 20, 26 |
| vcipher 21, 21, 26 |
| vcipher 22, 22, 26 |
| |
| xxlor 23+32, 9, 9 |
| vcipher 15, 15, 23 |
| vcipher 16, 16, 23 |
| vcipher 17, 17, 23 |
| vcipher 18, 18, 23 |
| vcipher 19, 19, 23 |
| vcipher 20, 20, 23 |
| vcipher 21, 21, 23 |
| vcipher 22, 22, 23 |
| .endm |
| |
| # |
| # Compute 4x hash values based on Karatsuba method. |
| # |
| ppc_aes_gcm_ghash: |
| vxor 15, 15, 0 |
| |
| xxlxor 29, 29, 29 |
| |
| vpmsumd 23, 12, 15 # H4.L * X.L |
| vpmsumd 24, 9, 16 |
| vpmsumd 25, 6, 17 |
| vpmsumd 26, 3, 18 |
| |
| vxor 23, 23, 24 |
| vxor 23, 23, 25 |
| vxor 23, 23, 26 # L |
| |
| vpmsumd 24, 13, 15 # H4.L * X.H + H4.H * X.L |
| vpmsumd 25, 10, 16 # H3.L * X1.H + H3.H * X1.L |
| vpmsumd 26, 7, 17 |
| vpmsumd 27, 4, 18 |
| |
| vxor 24, 24, 25 |
| vxor 24, 24, 26 |
| vxor 24, 24, 27 # M |
| |
| # sum hash and reduction with H Poly |
| vpmsumd 28, 23, 2 # reduction |
| |
| xxlor 29+32, 29, 29 |
| vsldoi 26, 24, 29, 8 # mL |
| vsldoi 29, 29, 24, 8 # mH |
| vxor 23, 23, 26 # mL + L |
| |
| vsldoi 23, 23, 23, 8 # swap |
| vxor 23, 23, 28 |
| |
| vpmsumd 24, 14, 15 # H4.H * X.H |
| vpmsumd 25, 11, 16 |
| vpmsumd 26, 8, 17 |
| vpmsumd 27, 5, 18 |
| |
| vxor 24, 24, 25 |
| vxor 24, 24, 26 |
| vxor 24, 24, 27 |
| |
| vxor 24, 24, 29 |
| |
| # sum hash and reduction with H Poly |
| vsldoi 27, 23, 23, 8 # swap |
| vpmsumd 23, 23, 2 |
| vxor 27, 27, 24 |
| vxor 23, 23, 27 |
| |
| xxlor 32, 23+32, 23+32 # update hash |
| |
| blr |
| |
| # |
| # Combine two 4x ghash |
| # v15 - v22 - input blocks |
| # |
| .macro ppc_aes_gcm_ghash2_4x |
| # first 4x hash |
| vxor 15, 15, 0 # Xi + X |
| |
| xxlxor 29, 29, 29 |
| |
| vpmsumd 23, 12, 15 # H4.L * X.L |
| vpmsumd 24, 9, 16 |
| vpmsumd 25, 6, 17 |
| vpmsumd 26, 3, 18 |
| |
| vxor 23, 23, 24 |
| vxor 23, 23, 25 |
| vxor 23, 23, 26 # L |
| |
| vpmsumd 24, 13, 15 # H4.L * X.H + H4.H * X.L |
| vpmsumd 25, 10, 16 # H3.L * X1.H + H3.H * X1.L |
| vpmsumd 26, 7, 17 |
| vpmsumd 27, 4, 18 |
| |
| vxor 24, 24, 25 |
| vxor 24, 24, 26 |
| |
| # sum hash and reduction with H Poly |
| vpmsumd 28, 23, 2 # reduction |
| |
| xxlor 29+32, 29, 29 |
| |
| vxor 24, 24, 27 # M |
| vsldoi 26, 24, 29, 8 # mL |
| vsldoi 29, 29, 24, 8 # mH |
| vxor 23, 23, 26 # mL + L |
| |
| vsldoi 23, 23, 23, 8 # swap |
| vxor 23, 23, 28 |
| |
| vpmsumd 24, 14, 15 # H4.H * X.H |
| vpmsumd 25, 11, 16 |
| vpmsumd 26, 8, 17 |
| vpmsumd 27, 5, 18 |
| |
| vxor 24, 24, 25 |
| vxor 24, 24, 26 |
| vxor 24, 24, 27 # H |
| |
| vxor 24, 24, 29 # H + mH |
| |
| # sum hash and reduction with H Poly |
| vsldoi 27, 23, 23, 8 # swap |
| vpmsumd 23, 23, 2 |
| vxor 27, 27, 24 |
| vxor 27, 23, 27 # 1st Xi |
| |
| # 2nd 4x hash |
| vpmsumd 24, 9, 20 |
| vpmsumd 25, 6, 21 |
| vpmsumd 26, 3, 22 |
| vxor 19, 19, 27 # Xi + X |
| vpmsumd 23, 12, 19 # H4.L * X.L |
| |
| vxor 23, 23, 24 |
| vxor 23, 23, 25 |
| vxor 23, 23, 26 # L |
| |
| vpmsumd 24, 13, 19 # H4.L * X.H + H4.H * X.L |
| vpmsumd 25, 10, 20 # H3.L * X1.H + H3.H * X1.L |
| vpmsumd 26, 7, 21 |
| vpmsumd 27, 4, 22 |
| |
| vxor 24, 24, 25 |
| vxor 24, 24, 26 |
| |
| # sum hash and reduction with H Poly |
| vpmsumd 28, 23, 2 # reduction |
| |
| xxlor 29+32, 29, 29 |
| |
| vxor 24, 24, 27 # M |
| vsldoi 26, 24, 29, 8 # mL |
| vsldoi 29, 29, 24, 8 # mH |
| vxor 23, 23, 26 # mL + L |
| |
| vsldoi 23, 23, 23, 8 # swap |
| vxor 23, 23, 28 |
| |
| vpmsumd 24, 14, 19 # H4.H * X.H |
| vpmsumd 25, 11, 20 |
| vpmsumd 26, 8, 21 |
| vpmsumd 27, 5, 22 |
| |
| vxor 24, 24, 25 |
| vxor 24, 24, 26 |
| vxor 24, 24, 27 # H |
| |
| vxor 24, 24, 29 # H + mH |
| |
| # sum hash and reduction with H Poly |
| vsldoi 27, 23, 23, 8 # swap |
| vpmsumd 23, 23, 2 |
| vxor 27, 27, 24 |
| vxor 23, 23, 27 |
| |
| xxlor 32, 23+32, 23+32 # update hash |
| |
| .endm |
| |
| # |
| # Compute update single hash |
| # |
| .macro ppc_update_hash_1x |
| vxor 28, 28, 0 |
| |
| vxor 19, 19, 19 |
| |
| vpmsumd 22, 3, 28 # L |
| vpmsumd 23, 4, 28 # M |
| vpmsumd 24, 5, 28 # H |
| |
| vpmsumd 27, 22, 2 # reduction |
| |
| vsldoi 25, 23, 19, 8 # mL |
| vsldoi 26, 19, 23, 8 # mH |
| vxor 22, 22, 25 # LL + LL |
| vxor 24, 24, 26 # HH + HH |
| |
| vsldoi 22, 22, 22, 8 # swap |
| vxor 22, 22, 27 |
| |
| vsldoi 20, 22, 22, 8 # swap |
| vpmsumd 22, 22, 2 # reduction |
| vxor 20, 20, 24 |
| vxor 22, 22, 20 |
| |
| vmr 0, 22 # update hash |
| |
| .endm |
| |
| # |
| # ppc_aes_gcm_encrypt (const void *inp, void *out, size_t len, |
| # const AES_KEY *key, unsigned char iv[16], |
| # void *Xip); |
| # |
| # r3 - inp |
| # r4 - out |
| # r5 - len |
| # r6 - AES round keys |
| # r7 - iv |
| # r8 - Xi, HPoli, hash keys |
| # |
| .global ppc_aes_gcm_encrypt |
| .align 5 |
| ppc_aes_gcm_encrypt: |
| _ppc_aes_gcm_encrypt: |
| |
| stdu 1,-512(1) |
| mflr 0 |
| |
| std 14,112(1) |
| std 15,120(1) |
| std 16,128(1) |
| std 17,136(1) |
| std 18,144(1) |
| std 19,152(1) |
| std 20,160(1) |
| std 21,168(1) |
| li 9, 256 |
| stvx 20, 9, 1 |
| addi 9, 9, 16 |
| stvx 21, 9, 1 |
| addi 9, 9, 16 |
| stvx 22, 9, 1 |
| addi 9, 9, 16 |
| stvx 23, 9, 1 |
| addi 9, 9, 16 |
| stvx 24, 9, 1 |
| addi 9, 9, 16 |
| stvx 25, 9, 1 |
| addi 9, 9, 16 |
| stvx 26, 9, 1 |
| addi 9, 9, 16 |
| stvx 27, 9, 1 |
| addi 9, 9, 16 |
| stvx 28, 9, 1 |
| addi 9, 9, 16 |
| stvx 29, 9, 1 |
| addi 9, 9, 16 |
| stvx 30, 9, 1 |
| addi 9, 9, 16 |
| stvx 31, 9, 1 |
| std 0, 528(1) |
| |
| # Load Xi |
| lxvb16x 32, 0, 8 # load Xi |
| |
| # load Hash - h^4, h^3, h^2, h |
| li 10, 32 |
| lxvd2x 2+32, 10, 8 # H Poli |
| li 10, 48 |
| lxvd2x 3+32, 10, 8 # Hl |
| li 10, 64 |
| lxvd2x 4+32, 10, 8 # H |
| li 10, 80 |
| lxvd2x 5+32, 10, 8 # Hh |
| |
| li 10, 96 |
| lxvd2x 6+32, 10, 8 # H^2l |
| li 10, 112 |
| lxvd2x 7+32, 10, 8 # H^2 |
| li 10, 128 |
| lxvd2x 8+32, 10, 8 # H^2h |
| |
| li 10, 144 |
| lxvd2x 9+32, 10, 8 # H^3l |
| li 10, 160 |
| lxvd2x 10+32, 10, 8 # H^3 |
| li 10, 176 |
| lxvd2x 11+32, 10, 8 # H^3h |
| |
| li 10, 192 |
| lxvd2x 12+32, 10, 8 # H^4l |
| li 10, 208 |
| lxvd2x 13+32, 10, 8 # H^4 |
| li 10, 224 |
| lxvd2x 14+32, 10, 8 # H^4h |
| |
| # initialize ICB: GHASH( IV ), IV - r7 |
| lxvb16x 30+32, 0, 7 # load IV - v30 |
| |
| mr 12, 5 # length |
| li 11, 0 # block index |
| |
| # counter 1 |
| vxor 31, 31, 31 |
| vspltisb 22, 1 |
| vsldoi 31, 31, 22,1 # counter 1 |
| |
| # load round key to VSR |
| lxv 0, 0(6) |
| lxv 1, 0x10(6) |
| lxv 2, 0x20(6) |
| lxv 3, 0x30(6) |
| lxv 4, 0x40(6) |
| lxv 5, 0x50(6) |
| lxv 6, 0x60(6) |
| lxv 7, 0x70(6) |
| lxv 8, 0x80(6) |
| lxv 9, 0x90(6) |
| lxv 10, 0xa0(6) |
| |
| # load rounds - 10 (128), 12 (192), 14 (256) |
| lwz 9,240(6) |
| |
| # |
| # vxor state, state, w # addroundkey |
| xxlor 32+29, 0, 0 |
| vxor 15, 30, 29 # IV + round key - add round key 0 |
| |
| cmpdi 9, 10 |
| beq Loop_aes_gcm_8x |
| |
| # load 2 more round keys (v11, v12) |
| lxv 11, 0xb0(6) |
| lxv 12, 0xc0(6) |
| |
| cmpdi 9, 12 |
| beq Loop_aes_gcm_8x |
| |
| # load 2 more round keys (v11, v12, v13, v14) |
| lxv 13, 0xd0(6) |
| lxv 14, 0xe0(6) |
| cmpdi 9, 14 |
| beq Loop_aes_gcm_8x |
| |
| b aes_gcm_out |
| |
| .align 5 |
| Loop_aes_gcm_8x: |
| mr 14, 3 |
| mr 9, 4 |
| |
| # n blocks |
| li 10, 128 |
| divdu 10, 5, 10 # n 128 bytes-blocks |
| cmpdi 10, 0 |
| beq Loop_last_block |
| |
| vaddudm 30, 30, 31 # IV + counter |
| vxor 16, 30, 29 |
| vaddudm 30, 30, 31 |
| vxor 17, 30, 29 |
| vaddudm 30, 30, 31 |
| vxor 18, 30, 29 |
| vaddudm 30, 30, 31 |
| vxor 19, 30, 29 |
| vaddudm 30, 30, 31 |
| vxor 20, 30, 29 |
| vaddudm 30, 30, 31 |
| vxor 21, 30, 29 |
| vaddudm 30, 30, 31 |
| vxor 22, 30, 29 |
| |
| mtctr 10 |
| |
| li 15, 16 |
| li 16, 32 |
| li 17, 48 |
| li 18, 64 |
| li 19, 80 |
| li 20, 96 |
| li 21, 112 |
| |
| lwz 10, 240(6) |
| |
| Loop_8x_block: |
| |
| lxvb16x 15, 0, 14 # load block |
| lxvb16x 16, 15, 14 # load block |
| lxvb16x 17, 16, 14 # load block |
| lxvb16x 18, 17, 14 # load block |
| lxvb16x 19, 18, 14 # load block |
| lxvb16x 20, 19, 14 # load block |
| lxvb16x 21, 20, 14 # load block |
| lxvb16x 22, 21, 14 # load block |
| addi 14, 14, 128 |
| |
| Loop_aes_middle8x |
| |
| xxlor 23+32, 10, 10 |
| |
| cmpdi 10, 10 |
| beq Do_next_ghash |
| |
| # 192 bits |
| xxlor 24+32, 11, 11 |
| |
| vcipher 15, 15, 23 |
| vcipher 16, 16, 23 |
| vcipher 17, 17, 23 |
| vcipher 18, 18, 23 |
| vcipher 19, 19, 23 |
| vcipher 20, 20, 23 |
| vcipher 21, 21, 23 |
| vcipher 22, 22, 23 |
| |
| vcipher 15, 15, 24 |
| vcipher 16, 16, 24 |
| vcipher 17, 17, 24 |
| vcipher 18, 18, 24 |
| vcipher 19, 19, 24 |
| vcipher 20, 20, 24 |
| vcipher 21, 21, 24 |
| vcipher 22, 22, 24 |
| |
| xxlor 23+32, 12, 12 |
| |
| cmpdi 10, 12 |
| beq Do_next_ghash |
| |
| # 256 bits |
| xxlor 24+32, 13, 13 |
| |
| vcipher 15, 15, 23 |
| vcipher 16, 16, 23 |
| vcipher 17, 17, 23 |
| vcipher 18, 18, 23 |
| vcipher 19, 19, 23 |
| vcipher 20, 20, 23 |
| vcipher 21, 21, 23 |
| vcipher 22, 22, 23 |
| |
| vcipher 15, 15, 24 |
| vcipher 16, 16, 24 |
| vcipher 17, 17, 24 |
| vcipher 18, 18, 24 |
| vcipher 19, 19, 24 |
| vcipher 20, 20, 24 |
| vcipher 21, 21, 24 |
| vcipher 22, 22, 24 |
| |
| xxlor 23+32, 14, 14 |
| |
| cmpdi 10, 14 |
| beq Do_next_ghash |
| b aes_gcm_out |
| |
| Do_next_ghash: |
| |
| # |
| # last round |
| vcipherlast 15, 15, 23 |
| vcipherlast 16, 16, 23 |
| |
| xxlxor 47, 47, 15 |
| stxvb16x 47, 0, 9 # store output |
| xxlxor 48, 48, 16 |
| stxvb16x 48, 15, 9 # store output |
| |
| vcipherlast 17, 17, 23 |
| vcipherlast 18, 18, 23 |
| |
| xxlxor 49, 49, 17 |
| stxvb16x 49, 16, 9 # store output |
| xxlxor 50, 50, 18 |
| stxvb16x 50, 17, 9 # store output |
| |
| vcipherlast 19, 19, 23 |
| vcipherlast 20, 20, 23 |
| |
| xxlxor 51, 51, 19 |
| stxvb16x 51, 18, 9 # store output |
| xxlxor 52, 52, 20 |
| stxvb16x 52, 19, 9 # store output |
| |
| vcipherlast 21, 21, 23 |
| vcipherlast 22, 22, 23 |
| |
| xxlxor 53, 53, 21 |
| stxvb16x 53, 20, 9 # store output |
| xxlxor 54, 54, 22 |
| stxvb16x 54, 21, 9 # store output |
| |
| addi 9, 9, 128 |
| |
| # ghash here |
| ppc_aes_gcm_ghash2_4x |
| |
| xxlor 27+32, 0, 0 |
| vaddudm 30, 30, 31 # IV + counter |
| vmr 29, 30 |
| vxor 15, 30, 27 # add round key |
| vaddudm 30, 30, 31 |
| vxor 16, 30, 27 |
| vaddudm 30, 30, 31 |
| vxor 17, 30, 27 |
| vaddudm 30, 30, 31 |
| vxor 18, 30, 27 |
| vaddudm 30, 30, 31 |
| vxor 19, 30, 27 |
| vaddudm 30, 30, 31 |
| vxor 20, 30, 27 |
| vaddudm 30, 30, 31 |
| vxor 21, 30, 27 |
| vaddudm 30, 30, 31 |
| vxor 22, 30, 27 |
| |
| addi 12, 12, -128 |
| addi 11, 11, 128 |
| |
| bdnz Loop_8x_block |
| |
| vmr 30, 29 |
| |
| Loop_last_block: |
| cmpdi 12, 0 |
| beq aes_gcm_out |
| |
| # loop last few blocks |
| li 10, 16 |
| divdu 10, 12, 10 |
| |
| mtctr 10 |
| |
| lwz 10, 240(6) |
| |
| cmpdi 12, 16 |
| blt Final_block |
| |
| .macro Loop_aes_middle_1x |
| xxlor 19+32, 1, 1 |
| xxlor 20+32, 2, 2 |
| xxlor 21+32, 3, 3 |
| xxlor 22+32, 4, 4 |
| |
| vcipher 15, 15, 19 |
| vcipher 15, 15, 20 |
| vcipher 15, 15, 21 |
| vcipher 15, 15, 22 |
| |
| xxlor 19+32, 5, 5 |
| xxlor 20+32, 6, 6 |
| xxlor 21+32, 7, 7 |
| xxlor 22+32, 8, 8 |
| |
| vcipher 15, 15, 19 |
| vcipher 15, 15, 20 |
| vcipher 15, 15, 21 |
| vcipher 15, 15, 22 |
| |
| xxlor 19+32, 9, 9 |
| vcipher 15, 15, 19 |
| .endm |
| |
| Next_rem_block: |
| lxvb16x 15, 0, 14 # load block |
| |
| Loop_aes_middle_1x |
| |
| xxlor 23+32, 10, 10 |
| |
| cmpdi 10, 10 |
| beq Do_next_1x |
| |
| # 192 bits |
| xxlor 24+32, 11, 11 |
| |
| vcipher 15, 15, 23 |
| vcipher 15, 15, 24 |
| |
| xxlor 23+32, 12, 12 |
| |
| cmpdi 10, 12 |
| beq Do_next_1x |
| |
| # 256 bits |
| xxlor 24+32, 13, 13 |
| |
| vcipher 15, 15, 23 |
| vcipher 15, 15, 24 |
| |
| xxlor 23+32, 14, 14 |
| |
| cmpdi 10, 14 |
| beq Do_next_1x |
| |
| Do_next_1x: |
| vcipherlast 15, 15, 23 |
| |
| xxlxor 47, 47, 15 |
| stxvb16x 47, 0, 9 # store output |
| addi 14, 14, 16 |
| addi 9, 9, 16 |
| |
| vmr 28, 15 |
| ppc_update_hash_1x |
| |
| addi 12, 12, -16 |
| addi 11, 11, 16 |
| xxlor 19+32, 0, 0 |
| vaddudm 30, 30, 31 # IV + counter |
| vxor 15, 30, 19 # add round key |
| |
| bdnz Next_rem_block |
| |
| cmpdi 12, 0 |
| beq aes_gcm_out |
| |
| Final_block: |
| Loop_aes_middle_1x |
| |
| xxlor 23+32, 10, 10 |
| |
| cmpdi 10, 10 |
| beq Do_final_1x |
| |
| # 192 bits |
| xxlor 24+32, 11, 11 |
| |
| vcipher 15, 15, 23 |
| vcipher 15, 15, 24 |
| |
| xxlor 23+32, 12, 12 |
| |
| cmpdi 10, 12 |
| beq Do_final_1x |
| |
| # 256 bits |
| xxlor 24+32, 13, 13 |
| |
| vcipher 15, 15, 23 |
| vcipher 15, 15, 24 |
| |
| xxlor 23+32, 14, 14 |
| |
| cmpdi 10, 14 |
| beq Do_final_1x |
| |
| Do_final_1x: |
| vcipherlast 15, 15, 23 |
| |
| lxvb16x 15, 0, 14 # load last block |
| xxlxor 47, 47, 15 |
| |
| # create partial block mask |
| li 15, 16 |
| sub 15, 15, 12 # index to the mask |
| |
| vspltisb 16, -1 # first 16 bytes - 0xffff...ff |
| vspltisb 17, 0 # second 16 bytes - 0x0000...00 |
| li 10, 192 |
| stvx 16, 10, 1 |
| addi 10, 10, 16 |
| stvx 17, 10, 1 |
| |
| addi 10, 1, 192 |
| lxvb16x 16, 15, 10 # load partial block mask |
| xxland 47, 47, 16 |
| |
| vmr 28, 15 |
| ppc_update_hash_1x |
| |
| # * should store only the remaining bytes. |
| bl Write_partial_block |
| |
| b aes_gcm_out |
| |
| # |
| # Write partial block |
| # r9 - output |
| # r12 - remaining bytes |
| # v15 - partial input data |
| # |
| Write_partial_block: |
| li 10, 192 |
| stxvb16x 15+32, 10, 1 # last block |
| |
| #add 10, 9, 11 # Output |
| addi 10, 9, -1 |
| addi 16, 1, 191 |
| |
| mtctr 12 # remaining bytes |
| li 15, 0 |
| |
| Write_last_byte: |
| lbzu 14, 1(16) |
| stbu 14, 1(10) |
| bdnz Write_last_byte |
| blr |
| |
| aes_gcm_out: |
| # out = state |
| stxvb16x 32, 0, 8 # write out Xi |
| add 3, 11, 12 # return count |
| |
| li 9, 256 |
| lvx 20, 9, 1 |
| addi 9, 9, 16 |
| lvx 21, 9, 1 |
| addi 9, 9, 16 |
| lvx 22, 9, 1 |
| addi 9, 9, 16 |
| lvx 23, 9, 1 |
| addi 9, 9, 16 |
| lvx 24, 9, 1 |
| addi 9, 9, 16 |
| lvx 25, 9, 1 |
| addi 9, 9, 16 |
| lvx 26, 9, 1 |
| addi 9, 9, 16 |
| lvx 27, 9, 1 |
| addi 9, 9, 16 |
| lvx 28, 9, 1 |
| addi 9, 9, 16 |
| lvx 29, 9, 1 |
| addi 9, 9, 16 |
| lvx 30, 9, 1 |
| addi 9, 9, 16 |
| lvx 31, 9, 1 |
| |
| ld 0, 528(1) |
| ld 14,112(1) |
| ld 15,120(1) |
| ld 16,128(1) |
| ld 17,136(1) |
| ld 18,144(1) |
| ld 19,152(1) |
| ld 20,160(1) |
| ld 21,168(1) |
| |
| mtlr 0 |
| addi 1, 1, 512 |
| blr |
| |
| # |
| # 8x Decrypt |
| # |
| .global ppc_aes_gcm_decrypt |
| .align 5 |
| ppc_aes_gcm_decrypt: |
| _ppc_aes_gcm_decrypt: |
| |
| stdu 1,-512(1) |
| mflr 0 |
| |
| std 14,112(1) |
| std 15,120(1) |
| std 16,128(1) |
| std 17,136(1) |
| std 18,144(1) |
| std 19,152(1) |
| std 20,160(1) |
| std 21,168(1) |
| li 9, 256 |
| stvx 20, 9, 1 |
| addi 9, 9, 16 |
| stvx 21, 9, 1 |
| addi 9, 9, 16 |
| stvx 22, 9, 1 |
| addi 9, 9, 16 |
| stvx 23, 9, 1 |
| addi 9, 9, 16 |
| stvx 24, 9, 1 |
| addi 9, 9, 16 |
| stvx 25, 9, 1 |
| addi 9, 9, 16 |
| stvx 26, 9, 1 |
| addi 9, 9, 16 |
| stvx 27, 9, 1 |
| addi 9, 9, 16 |
| stvx 28, 9, 1 |
| addi 9, 9, 16 |
| stvx 29, 9, 1 |
| addi 9, 9, 16 |
| stvx 30, 9, 1 |
| addi 9, 9, 16 |
| stvx 31, 9, 1 |
| std 0, 528(1) |
| |
| # Load Xi |
| lxvb16x 32, 0, 8 # load Xi |
| |
| # load Hash - h^4, h^3, h^2, h |
| li 10, 32 |
| lxvd2x 2+32, 10, 8 # H Poli |
| li 10, 48 |
| lxvd2x 3+32, 10, 8 # Hl |
| li 10, 64 |
| lxvd2x 4+32, 10, 8 # H |
| li 10, 80 |
| lxvd2x 5+32, 10, 8 # Hh |
| |
| li 10, 96 |
| lxvd2x 6+32, 10, 8 # H^2l |
| li 10, 112 |
| lxvd2x 7+32, 10, 8 # H^2 |
| li 10, 128 |
| lxvd2x 8+32, 10, 8 # H^2h |
| |
| li 10, 144 |
| lxvd2x 9+32, 10, 8 # H^3l |
| li 10, 160 |
| lxvd2x 10+32, 10, 8 # H^3 |
| li 10, 176 |
| lxvd2x 11+32, 10, 8 # H^3h |
| |
| li 10, 192 |
| lxvd2x 12+32, 10, 8 # H^4l |
| li 10, 208 |
| lxvd2x 13+32, 10, 8 # H^4 |
| li 10, 224 |
| lxvd2x 14+32, 10, 8 # H^4h |
| |
| # initialize ICB: GHASH( IV ), IV - r7 |
| lxvb16x 30+32, 0, 7 # load IV - v30 |
| |
| mr 12, 5 # length |
| li 11, 0 # block index |
| |
| # counter 1 |
| vxor 31, 31, 31 |
| vspltisb 22, 1 |
| vsldoi 31, 31, 22,1 # counter 1 |
| |
| # load round key to VSR |
| lxv 0, 0(6) |
| lxv 1, 0x10(6) |
| lxv 2, 0x20(6) |
| lxv 3, 0x30(6) |
| lxv 4, 0x40(6) |
| lxv 5, 0x50(6) |
| lxv 6, 0x60(6) |
| lxv 7, 0x70(6) |
| lxv 8, 0x80(6) |
| lxv 9, 0x90(6) |
| lxv 10, 0xa0(6) |
| |
| # load rounds - 10 (128), 12 (192), 14 (256) |
| lwz 9,240(6) |
| |
| # |
| # vxor state, state, w # addroundkey |
| xxlor 32+29, 0, 0 |
| vxor 15, 30, 29 # IV + round key - add round key 0 |
| |
| cmpdi 9, 10 |
| beq Loop_aes_gcm_8x_dec |
| |
| # load 2 more round keys (v11, v12) |
| lxv 11, 0xb0(6) |
| lxv 12, 0xc0(6) |
| |
| cmpdi 9, 12 |
| beq Loop_aes_gcm_8x_dec |
| |
| # load 2 more round keys (v11, v12, v13, v14) |
| lxv 13, 0xd0(6) |
| lxv 14, 0xe0(6) |
| cmpdi 9, 14 |
| beq Loop_aes_gcm_8x_dec |
| |
| b aes_gcm_out |
| |
| .align 5 |
| Loop_aes_gcm_8x_dec: |
| mr 14, 3 |
| mr 9, 4 |
| |
| # n blocks |
| li 10, 128 |
| divdu 10, 5, 10 # n 128 bytes-blocks |
| cmpdi 10, 0 |
| beq Loop_last_block_dec |
| |
| vaddudm 30, 30, 31 # IV + counter |
| vxor 16, 30, 29 |
| vaddudm 30, 30, 31 |
| vxor 17, 30, 29 |
| vaddudm 30, 30, 31 |
| vxor 18, 30, 29 |
| vaddudm 30, 30, 31 |
| vxor 19, 30, 29 |
| vaddudm 30, 30, 31 |
| vxor 20, 30, 29 |
| vaddudm 30, 30, 31 |
| vxor 21, 30, 29 |
| vaddudm 30, 30, 31 |
| vxor 22, 30, 29 |
| |
| mtctr 10 |
| |
| li 15, 16 |
| li 16, 32 |
| li 17, 48 |
| li 18, 64 |
| li 19, 80 |
| li 20, 96 |
| li 21, 112 |
| |
| lwz 10, 240(6) |
| |
| Loop_8x_block_dec: |
| |
| lxvb16x 15, 0, 14 # load block |
| lxvb16x 16, 15, 14 # load block |
| lxvb16x 17, 16, 14 # load block |
| lxvb16x 18, 17, 14 # load block |
| lxvb16x 19, 18, 14 # load block |
| lxvb16x 20, 19, 14 # load block |
| lxvb16x 21, 20, 14 # load block |
| lxvb16x 22, 21, 14 # load block |
| addi 14, 14, 128 |
| |
| Loop_aes_middle8x |
| |
| xxlor 23+32, 10, 10 |
| |
| cmpdi 10, 10 |
| beq Do_last_aes_dec |
| |
| # 192 bits |
| xxlor 24+32, 11, 11 |
| |
| vcipher 15, 15, 23 |
| vcipher 16, 16, 23 |
| vcipher 17, 17, 23 |
| vcipher 18, 18, 23 |
| vcipher 19, 19, 23 |
| vcipher 20, 20, 23 |
| vcipher 21, 21, 23 |
| vcipher 22, 22, 23 |
| |
| vcipher 15, 15, 24 |
| vcipher 16, 16, 24 |
| vcipher 17, 17, 24 |
| vcipher 18, 18, 24 |
| vcipher 19, 19, 24 |
| vcipher 20, 20, 24 |
| vcipher 21, 21, 24 |
| vcipher 22, 22, 24 |
| |
| xxlor 23+32, 12, 12 |
| |
| cmpdi 10, 12 |
| beq Do_last_aes_dec |
| |
| # 256 bits |
| xxlor 24+32, 13, 13 |
| |
| vcipher 15, 15, 23 |
| vcipher 16, 16, 23 |
| vcipher 17, 17, 23 |
| vcipher 18, 18, 23 |
| vcipher 19, 19, 23 |
| vcipher 20, 20, 23 |
| vcipher 21, 21, 23 |
| vcipher 22, 22, 23 |
| |
| vcipher 15, 15, 24 |
| vcipher 16, 16, 24 |
| vcipher 17, 17, 24 |
| vcipher 18, 18, 24 |
| vcipher 19, 19, 24 |
| vcipher 20, 20, 24 |
| vcipher 21, 21, 24 |
| vcipher 22, 22, 24 |
| |
| xxlor 23+32, 14, 14 |
| |
| cmpdi 10, 14 |
| beq Do_last_aes_dec |
| b aes_gcm_out |
| |
| Do_last_aes_dec: |
| |
| # |
| # last round |
| vcipherlast 15, 15, 23 |
| vcipherlast 16, 16, 23 |
| |
| xxlxor 47, 47, 15 |
| stxvb16x 47, 0, 9 # store output |
| xxlxor 48, 48, 16 |
| stxvb16x 48, 15, 9 # store output |
| |
| vcipherlast 17, 17, 23 |
| vcipherlast 18, 18, 23 |
| |
| xxlxor 49, 49, 17 |
| stxvb16x 49, 16, 9 # store output |
| xxlxor 50, 50, 18 |
| stxvb16x 50, 17, 9 # store output |
| |
| vcipherlast 19, 19, 23 |
| vcipherlast 20, 20, 23 |
| |
| xxlxor 51, 51, 19 |
| stxvb16x 51, 18, 9 # store output |
| xxlxor 52, 52, 20 |
| stxvb16x 52, 19, 9 # store output |
| |
| vcipherlast 21, 21, 23 |
| vcipherlast 22, 22, 23 |
| |
| xxlxor 53, 53, 21 |
| stxvb16x 53, 20, 9 # store output |
| xxlxor 54, 54, 22 |
| stxvb16x 54, 21, 9 # store output |
| |
| addi 9, 9, 128 |
| |
| xxlor 15+32, 15, 15 |
| xxlor 16+32, 16, 16 |
| xxlor 17+32, 17, 17 |
| xxlor 18+32, 18, 18 |
| xxlor 19+32, 19, 19 |
| xxlor 20+32, 20, 20 |
| xxlor 21+32, 21, 21 |
| xxlor 22+32, 22, 22 |
| |
| # ghash here |
| ppc_aes_gcm_ghash2_4x |
| |
| xxlor 27+32, 0, 0 |
| vaddudm 30, 30, 31 # IV + counter |
| vmr 29, 30 |
| vxor 15, 30, 27 # add round key |
| vaddudm 30, 30, 31 |
| vxor 16, 30, 27 |
| vaddudm 30, 30, 31 |
| vxor 17, 30, 27 |
| vaddudm 30, 30, 31 |
| vxor 18, 30, 27 |
| vaddudm 30, 30, 31 |
| vxor 19, 30, 27 |
| vaddudm 30, 30, 31 |
| vxor 20, 30, 27 |
| vaddudm 30, 30, 31 |
| vxor 21, 30, 27 |
| vaddudm 30, 30, 31 |
| vxor 22, 30, 27 |
| addi 12, 12, -128 |
| addi 11, 11, 128 |
| |
| bdnz Loop_8x_block_dec |
| |
| vmr 30, 29 |
| |
| Loop_last_block_dec: |
| cmpdi 12, 0 |
| beq aes_gcm_out |
| |
| # loop last few blocks |
| li 10, 16 |
| divdu 10, 12, 10 |
| |
| mtctr 10 |
| |
| lwz 10,240(6) |
| |
| cmpdi 12, 16 |
| blt Final_block_dec |
| |
| Next_rem_block_dec: |
| lxvb16x 15, 0, 14 # load block |
| |
| Loop_aes_middle_1x |
| |
| xxlor 23+32, 10, 10 |
| |
| cmpdi 10, 10 |
| beq Do_next_1x_dec |
| |
| # 192 bits |
| xxlor 24+32, 11, 11 |
| |
| vcipher 15, 15, 23 |
| vcipher 15, 15, 24 |
| |
| xxlor 23+32, 12, 12 |
| |
| cmpdi 10, 12 |
| beq Do_next_1x_dec |
| |
| # 256 bits |
| xxlor 24+32, 13, 13 |
| |
| vcipher 15, 15, 23 |
| vcipher 15, 15, 24 |
| |
| xxlor 23+32, 14, 14 |
| |
| cmpdi 10, 14 |
| beq Do_next_1x_dec |
| |
| Do_next_1x_dec: |
| vcipherlast 15, 15, 23 |
| |
| xxlxor 47, 47, 15 |
| stxvb16x 47, 0, 9 # store output |
| addi 14, 14, 16 |
| addi 9, 9, 16 |
| |
| xxlor 28+32, 15, 15 |
| ppc_update_hash_1x |
| |
| addi 12, 12, -16 |
| addi 11, 11, 16 |
| xxlor 19+32, 0, 0 |
| vaddudm 30, 30, 31 # IV + counter |
| vxor 15, 30, 19 # add round key |
| |
| bdnz Next_rem_block_dec |
| |
| cmpdi 12, 0 |
| beq aes_gcm_out |
| |
| Final_block_dec: |
| Loop_aes_middle_1x |
| |
| xxlor 23+32, 10, 10 |
| |
| cmpdi 10, 10 |
| beq Do_final_1x_dec |
| |
| # 192 bits |
| xxlor 24+32, 11, 11 |
| |
| vcipher 15, 15, 23 |
| vcipher 15, 15, 24 |
| |
| xxlor 23+32, 12, 12 |
| |
| cmpdi 10, 12 |
| beq Do_final_1x_dec |
| |
| # 256 bits |
| xxlor 24+32, 13, 13 |
| |
| vcipher 15, 15, 23 |
| vcipher 15, 15, 24 |
| |
| xxlor 23+32, 14, 14 |
| |
| cmpdi 10, 14 |
| beq Do_final_1x_dec |
| |
| Do_final_1x_dec: |
| vcipherlast 15, 15, 23 |
| |
| lxvb16x 15, 0, 14 # load block |
| xxlxor 47, 47, 15 |
| |
| # create partial block mask |
| li 15, 16 |
| sub 15, 15, 12 # index to the mask |
| |
| vspltisb 16, -1 # first 16 bytes - 0xffff...ff |
| vspltisb 17, 0 # second 16 bytes - 0x0000...00 |
| li 10, 192 |
| stvx 16, 10, 1 |
| addi 10, 10, 16 |
| stvx 17, 10, 1 |
| |
| addi 10, 1, 192 |
| lxvb16x 16, 15, 10 # load block mask |
| xxland 47, 47, 16 |
| |
| xxlor 28+32, 15, 15 |
| ppc_update_hash_1x |
| |
| # * should store only the remaining bytes. |
| bl Write_partial_block |
| |
| b aes_gcm_out |
| |
| |
| ___ |
| |
| foreach (split("\n",$code)) { |
| s/\`([^\`]*)\`/eval $1/geo; |
| |
| if ($flavour =~ /le$/o) { # little-endian |
| s/le\?//o or |
| s/be\?/#be#/o; |
| } else { |
| s/le\?/#le#/o or |
| s/be\?//o; |
| } |
| print $_,"\n"; |
| } |
| |
| close STDOUT or die "error closing STDOUT: $!"; # enforce flush |