mirror of
https://github.com/guanzhi/GmSSL.git
synced 2026-08-09 07:23:56 +08:00
first step of v2 final release
This commit is contained in:
Zhi Guan
236
engines/asm/e_gmi-x86.pl
Executable file
236
engines/asm/e_gmi-x86.pl
Executable file
@@ -0,0 +1,236 @@
|
||||
#!/usr/bin/env perl
|
||||
|
||||
# ====================================================================
|
||||
# Written by Yun Shen <yunshen@via-alliance.com> and
|
||||
# Kai Li <kelvinkli@via-alliance.com>, and refer to the code
|
||||
# written by Andy Polyakov <appro@openssl.org> for the OpenSSL
|
||||
# project. The module is, however, dual licensed under OpenSSL and
|
||||
# CRYPTOGAMS licenses depending on where you obtain it. For further
|
||||
# details see http://www.openssl.org/~appro/cryptogams/.
|
||||
# ====================================================================
|
||||
|
||||
# ====================================================================
|
||||
# Copyright 2016 Shanghai Zhaoxin Semiconductor Co., Ltd. ALL RIGHTS RESERVED.
|
||||
# ====================================================================
|
||||
|
||||
|
||||
$0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1;
|
||||
push(@INC,"${dir}","${dir}../../crypto/perlasm");
|
||||
require "x86asm.pl";
|
||||
|
||||
&asm_init($ARGV[0],$0);
|
||||
|
||||
%PADLOCK_PREFETCH=(ecb=>128, cbc=>64); # prefetch errata
|
||||
$PADLOCK_CHUNK=512; # Must be a power of 2 larger than 16
|
||||
|
||||
$ctx="edx";
|
||||
$out="edi";
|
||||
$inp="esi";
|
||||
$len="ecx";
|
||||
$chunk="ebx";
|
||||
|
||||
|
||||
&function_begin_B("zx_gmi_capability");
|
||||
&push ("ebx");
|
||||
&pushf ();
|
||||
&pop ("eax");
|
||||
&mov ("ecx","eax");
|
||||
&xor ("eax",1<<21);
|
||||
&push ("eax");
|
||||
&popf ();
|
||||
&pushf ();
|
||||
&pop ("eax");
|
||||
&xor ("ecx","eax");
|
||||
&xor ("eax","eax");
|
||||
&bt ("ecx",21);
|
||||
&jnc (&label("zx_noluck"));
|
||||
&cpuid ();
|
||||
&xor ("eax","eax");
|
||||
&cmp ("ebx","0x".unpack("H*",'hS '));
|
||||
&jne (&label("zx_noluck"));
|
||||
&cmp ("edx","0x".unpack("H*",'hgna'));
|
||||
&jne (&label("zx_noluck"));
|
||||
&cmp ("ecx","0x".unpack("H*",' ia'));
|
||||
&jne (&label("zx_noluck"));
|
||||
&mov ("eax",0xC0000000);
|
||||
&cpuid ();
|
||||
&mov ("edx","eax");
|
||||
&xor ("eax","eax");
|
||||
&cmp ("edx",0xC0000001);
|
||||
&jb (&label("zx_noluck"));
|
||||
&mov ("eax",1);
|
||||
&cpuid ();
|
||||
&or ("eax",0x0f);
|
||||
&xor ("ebx","ebx");
|
||||
&and ("eax",0x0fff);
|
||||
&cmp ("eax",0x06ff); # check for Nano
|
||||
&sete ("bl");
|
||||
&mov ("eax",0xC0000001);
|
||||
&push ("ebx");
|
||||
&cpuid ();
|
||||
&pop ("ebx");
|
||||
&mov ("eax","edx");
|
||||
&shl ("ebx",4); # bit#4 denotes Nano
|
||||
&and ("eax",0xffffffef);
|
||||
&or ("eax","ebx")
|
||||
&set_label("zx_noluck");
|
||||
&pop ("ebx");
|
||||
&ret ();
|
||||
&function_end_B("zx_gmi_capability")
|
||||
|
||||
&function_begin_B("gmi_reload_key");
|
||||
&pushf ();
|
||||
&popf ();
|
||||
&ret ();
|
||||
&function_end_B("gmi_reload_key");
|
||||
|
||||
&function_begin_B("gmi_xstore");
|
||||
&push ("edi");
|
||||
&mov ("edi",&wparam(0));
|
||||
&mov ("edx",&wparam(1));
|
||||
&data_byte(0x0f,0xa7,0xc0); # xstore
|
||||
&pop ("edi");
|
||||
&ret ();
|
||||
&function_end_B("gmi_xstore");
|
||||
|
||||
&function_begin_B("_win32_segv_handler");
|
||||
&mov ("eax",1); # ExceptionContinueSearch
|
||||
&mov ("edx",&wparam(0)); # *ExceptionRecord
|
||||
&mov ("ecx",&wparam(2)); # *ContextRecord
|
||||
&cmp (&DWP(0,"edx"),0xC0000005) # ExceptionRecord->ExceptionCode == STATUS_ACCESS_VIOLATION
|
||||
&jne (&label("ret"));
|
||||
&add (&DWP(184,"ecx"),4); # skip over rep sha*
|
||||
&mov ("eax",0); # ExceptionContinueExecution
|
||||
&set_label("ret");
|
||||
&ret ();
|
||||
&function_end_B("_win32_segv_handler");
|
||||
&safeseh("_win32_segv_handler") if ($::win32);
|
||||
|
||||
|
||||
&function_begin_B("gmi_sm3_oneshot");
|
||||
&push ("ebx");
|
||||
&push ("edi");
|
||||
&push ("esi");
|
||||
&xor ("eax","eax");
|
||||
&mov ("edi",&wparam(0));
|
||||
&mov ("esi",&wparam(1));
|
||||
&mov ("ecx",&wparam(2));
|
||||
if ($::win32 or $::coff) {
|
||||
&push (&::islabel("_win32_segv_handler"));
|
||||
&data_byte(0x64,0xff,0x30); # push %fs:(%eax)
|
||||
&data_byte(0x64,0x89,0x20); # mov %esp,%fs:(%eax)
|
||||
}
|
||||
&mov ("edx","esp"); # put aside %esp
|
||||
&add ("esp",-128);
|
||||
&movups ("xmm0",&QWP(0,"edi")); # copy-in context
|
||||
&and ("esp",-16);
|
||||
&movups ("xmm1",&QWP(16,"edi"));
|
||||
&movaps (&QWP(0,"esp"),"xmm0");
|
||||
&mov ("edi","esp");
|
||||
&movaps (&QWP(16,"esp"),"xmm1");
|
||||
&mov ("ebx", 0x20);
|
||||
&xor ("eax","eax");
|
||||
&data_byte(0xf3,0x0f,0xa6,0xe8); # gm5 ccs_hash
|
||||
&movaps ("xmm0",&QWP(0,"esp"));
|
||||
&movaps ("xmm1",&QWP(16,"esp"));
|
||||
&mov ("esp","edx"); # restore %esp
|
||||
if ($::win32 or $::coff) {
|
||||
&data_byte(0x64,0x8f,0x05,0,0,0,0); # pop %fs:0
|
||||
&lea ("esp",&DWP(4,"esp"));
|
||||
}
|
||||
&mov ("edi",&wparam(0));
|
||||
&movups (&QWP(0,"edi"),"xmm0"); # copy-out context
|
||||
&movups (&QWP(16,"edi"),"xmm1");
|
||||
&pop ("esi");
|
||||
&pop ("edi");
|
||||
&pop ("ebx");
|
||||
&ret ();
|
||||
&function_end_B("gmi_sm3_oneshot");
|
||||
|
||||
&function_begin_B("gmi_sm3_blocks");
|
||||
&push ("ebx");
|
||||
&push ("edi");
|
||||
&push ("esi");
|
||||
&mov ("edi",&wparam(0));
|
||||
&mov ("esi",&wparam(1));
|
||||
&mov ("ecx",&wparam(2));
|
||||
&mov ("edx","esp"); # put aside %esp
|
||||
&add ("esp",-128);
|
||||
&movups ("xmm0",&QWP(0,"edi")); # copy-in context
|
||||
&and ("esp",-16);
|
||||
&movups ("xmm1",&QWP(16,"edi"));
|
||||
&movaps (&QWP(0,"esp"),"xmm0");
|
||||
&mov ("edi","esp");
|
||||
&movaps (&QWP(16,"esp"),"xmm1");
|
||||
&mov ("ebx", 0x20);
|
||||
&mov ("eax",-1);
|
||||
&data_byte(0xf3,0x0f,0xa6,0xe8); # gm5 ccs_hash
|
||||
&movaps ("xmm0",&QWP(0,"esp"));
|
||||
&movaps ("xmm1",&QWP(16,"esp"));
|
||||
&mov ("esp","edx"); # restore %esp
|
||||
&mov ("edi",&wparam(0));
|
||||
&movups (&QWP(0,"edi"),"xmm0"); # copy-out context
|
||||
&movups (&QWP(16,"edi"),"xmm1");
|
||||
&pop ("esi");
|
||||
&pop ("edi");
|
||||
&pop ("ebx");
|
||||
&ret ();
|
||||
&function_end_B("gmi_sm3_blocks");
|
||||
|
||||
|
||||
&function_begin_B("gmi_sm4_encrypt");
|
||||
|
||||
&push ("ebx");
|
||||
&push ("edi");
|
||||
&push ("esi");
|
||||
&mov ("edi",&wparam(0));
|
||||
&mov ("esi",&wparam(1));
|
||||
&mov ("edx",&wparam(2));
|
||||
&mov ("ecx",&wparam(3));
|
||||
|
||||
|
||||
&lea ("ebx",&DWP(32,"edx"));
|
||||
&shr ("ecx", 4);
|
||||
&mov ("eax",&DWP(16,"edx"));
|
||||
|
||||
&data_byte(0xf3,0x0f,0xa7,0xf0); # gx6 ccs_encrypt
|
||||
|
||||
&pop ("esi");
|
||||
&pop ("edi");
|
||||
&pop ("ebx");
|
||||
&ret ();
|
||||
&function_end_B("gmi_sm4_encrypt");
|
||||
|
||||
&function_begin_B("gmi_sm4_ecb_enc");
|
||||
|
||||
&push ("ebx");
|
||||
&push ("edi");
|
||||
&push ("esi");
|
||||
&mov ("esi",&wparam(0));
|
||||
&mov ("edi",&wparam(1));
|
||||
&mov ("ebx",&wparam(2));
|
||||
|
||||
&mov ("ecx", 1);
|
||||
&mov ("eax", 0x60);
|
||||
|
||||
&data_byte(0xf3,0x0f,0xa7,0xf0); # gx6 ccs_encrypt
|
||||
|
||||
&pop ("esi");
|
||||
&pop ("edi");
|
||||
&pop ("ebx");
|
||||
&ret ();
|
||||
&function_end_B("gmi_sm4_ecb_enc");
|
||||
|
||||
|
||||
&asciz ("ZX GMI x86 module");
|
||||
&align (16);
|
||||
|
||||
&dataseg();
|
||||
# Essentially this variable belongs in thread local storage.
|
||||
# Having this variable global on the other hand can only cause
|
||||
# few bogus key reloads [if any at all on signle-CPU system],
|
||||
# so we accept the penalty...
|
||||
&set_label("gmi_saved_context",4);
|
||||
&data_word(0);
|
||||
|
||||
&asm_finish();
|
||||
208
engines/asm/e_gmi-x86_64.pl
Executable file
208
engines/asm/e_gmi-x86_64.pl
Executable file
@@ -0,0 +1,208 @@
|
||||
#!/usr/bin/env perl
|
||||
|
||||
# ====================================================================
|
||||
# Written by Yun Shen <yunshe@via-alliance.com> and
|
||||
# Kai Li <kelvinkli@via-alliance.com>, and refer to the code
|
||||
# written by Andy Polyakov <appro@openssl.org> for the OpenSSL
|
||||
# project. The module is, however, dual licensed under OpenSSL and
|
||||
# CRYPTOGAMS licenses depending on where you obtain it. For further
|
||||
# details see http://www.openssl.org/~appro/cryptogams/.
|
||||
# ====================================================================
|
||||
|
||||
# ====================================================================
|
||||
# Copyright 2016 Shanghai Zhaoxin Semiconductor Co., Ltd. ALL RIGHTS RESERVED.
|
||||
# ====================================================================
|
||||
|
||||
# May 2016
|
||||
#
|
||||
# Assembler helpers for Padlock engine. See even e_gmi-x86.pl for
|
||||
# details.
|
||||
|
||||
$flavour = shift;
|
||||
$output = shift;
|
||||
if ($flavour =~ /\./) { $output = $flavour; undef $flavour; }
|
||||
|
||||
$win64=0; $win64=1 if ($flavour =~ /[nm]asm|mingw64/ || $output =~ /\.asm$/);
|
||||
|
||||
$0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1;
|
||||
( $xlate="${dir}x86_64-xlate.pl" and -f $xlate ) or
|
||||
( $xlate="${dir}../../crypto/perlasm/x86_64-xlate.pl" and -f $xlate) or
|
||||
die "can't locate x86_64-xlate.pl";
|
||||
|
||||
open OUT,"| \"$^X\" $xlate $flavour $output";
|
||||
*STDOUT=*OUT;
|
||||
|
||||
$code=".text\n";
|
||||
|
||||
%PADLOCK_PREFETCH=(ecb=>128, cbc=>64, ctr32=>32); # prefetch errata
|
||||
$PADLOCK_CHUNK=512; # Must be a power of 2 between 32 and 2^20
|
||||
|
||||
$ctx="%rdx";
|
||||
$out="%rdi";
|
||||
$inp="%rsi";
|
||||
$len="%rcx";
|
||||
$chunk="%rbx";
|
||||
|
||||
($arg1,$arg2,$arg3,$arg4)=$win64?("%rcx","%rdx","%r8", "%r9") : # Win64 order
|
||||
("%rdi","%rsi","%rdx","%rcx"); # Unix order
|
||||
|
||||
$code.=<<___;
|
||||
|
||||
.globl zx_gmi_capability
|
||||
.type zx_gmi_capability,\@abi-omnipotent
|
||||
.align 16
|
||||
zx_gmi_capability:
|
||||
mov %rbx,%r8
|
||||
xor %eax,%eax
|
||||
cpuid
|
||||
xor %eax,%eax
|
||||
cmp \$`"0x".unpack("H*",'hS ')`,%ebx
|
||||
jne .zx_Lnoluck
|
||||
cmp \$`"0x".unpack("H*",'hgna')`,%edx
|
||||
jne .zx_Lnoluck
|
||||
cmp \$`"0x".unpack("H*",' ia')`,%ecx
|
||||
jne .zx_Lnoluck
|
||||
mov \$0xC0000000,%eax
|
||||
cpuid
|
||||
mov %eax,%edx
|
||||
xor %eax,%eax
|
||||
cmp \$0xC0000001,%edx
|
||||
jb .zx_Lnoluck
|
||||
mov \$0xC0000001,%eax
|
||||
cpuid
|
||||
mov %edx,%eax
|
||||
and \$0xffffffef,%eax
|
||||
or \$0x10,%eax # set Nano bit#4
|
||||
.zx_Lnoluck:
|
||||
mov %r8,%rbx
|
||||
ret
|
||||
.size zx_gmi_capability,.-zx_gmi_capability
|
||||
|
||||
.globl gmi_reload_key
|
||||
.type gmi_reload_key,\@abi-omnipotent
|
||||
.align 16
|
||||
gmi_reload_key:
|
||||
pushf
|
||||
popf
|
||||
ret
|
||||
.size gmi_reload_key,.-gmi_reload_key
|
||||
|
||||
.globl gmi_sm3_oneshot
|
||||
.type gmi_sm3_oneshot,\@function,3
|
||||
.align 16
|
||||
gmi_sm3_oneshot:
|
||||
mov %rbx, %r11 # save rbx
|
||||
mov %rdx,%rcx
|
||||
mov %rdi,%rdx # put aside %rdi
|
||||
movups (%rdi),%xmm0 # copy-in context
|
||||
sub \$128+8,%rsp
|
||||
movups 16(%rdi),%xmm1
|
||||
movaps %xmm0,(%rsp)
|
||||
mov %rsp,%rdi
|
||||
movaps %xmm1,16(%rsp)
|
||||
mov \$0x20, %rbx
|
||||
xor %rax,%rax
|
||||
.byte 0xf3,0x0f,0xa6,0xe8 # gm5 ccs_hash
|
||||
movaps (%rsp),%xmm0
|
||||
movaps 16(%rsp),%xmm1
|
||||
add \$128+8,%rsp
|
||||
movups %xmm0,(%rdx) # copy-out context
|
||||
movups %xmm1,16(%rdx)
|
||||
mov %r11, %rbx #restore rbx
|
||||
ret
|
||||
.size gmi_sm3_oneshot,.-gmi_sm3_oneshot
|
||||
|
||||
.globl gmi_sm3_blocks
|
||||
.type gmi_sm3_blocks,\@function,3
|
||||
.align 16
|
||||
gmi_sm3_blocks:
|
||||
mov %rbx, %r11 # save rbx
|
||||
mov %rdx,%rcx
|
||||
mov %rdi,%rdx # put aside %rdi
|
||||
movups (%rdi),%xmm0 # copy-in context
|
||||
sub \$128+8,%rsp
|
||||
movups 16(%rdi),%xmm1
|
||||
movaps %xmm0,(%rsp)
|
||||
mov %rsp,%rdi
|
||||
movaps %xmm1,16(%rsp)
|
||||
mov \$0x20, %rbx
|
||||
mov \$-1,%rax
|
||||
.byte 0xf3,0x0f,0xa6,0xe8 # gm5 ccs_hash
|
||||
movaps (%rsp),%xmm0
|
||||
movaps 16(%rsp),%xmm1
|
||||
add \$128+8,%rsp
|
||||
movups %xmm0,(%rdx) # copy-out context
|
||||
movups %xmm1,16(%rdx)
|
||||
mov %r11, %rbx #restore rbx
|
||||
ret
|
||||
.size gmi_sm3_blocks,.-gmi_sm3_blocks
|
||||
|
||||
|
||||
|
||||
.globl gmi_sm4_encrypt
|
||||
.type gmi_sm4_encrypt,\@function,4
|
||||
.align 16
|
||||
gmi_sm4_encrypt:
|
||||
|
||||
push %rbp
|
||||
push %rbx # save rbx
|
||||
push %rdi
|
||||
push %rsi
|
||||
|
||||
|
||||
lea 32(%rdx), %rbx
|
||||
shr \$0x04, %rcx
|
||||
mov 16(%rdx), %rax
|
||||
|
||||
.byte 0xf3,0x0f,0xa7,0xf0 # gx6 ccs_encrypt
|
||||
|
||||
pop %rsi
|
||||
pop %rdi
|
||||
pop %rbx #restore rbx
|
||||
pop %rbp
|
||||
ret
|
||||
.size gmi_sm4_encrypt,.-gmi_sm4_encrypt
|
||||
|
||||
.globl gmi_sm4_ecb_enc
|
||||
.type gmi_sm4_ecb_enc,\@function,3
|
||||
.align 16
|
||||
gmi_sm4_ecb_enc:
|
||||
|
||||
push %rbp
|
||||
push %rbx # save rbx
|
||||
push %rdi
|
||||
push %rsi
|
||||
|
||||
mov %rsi, %rax
|
||||
mov %rdi, %rsi
|
||||
mov %rax, %rdi
|
||||
|
||||
mov %rdx, %rbx
|
||||
mov \$1, %rcx
|
||||
mov \$0x60, %rax
|
||||
|
||||
.byte 0xf3,0x0f,0xa7,0xf0 # gx6 ccs_encrypt
|
||||
|
||||
pop %rsi
|
||||
pop %rdi
|
||||
pop %rbx #restore rbx
|
||||
pop %rbp
|
||||
ret
|
||||
.size gmi_sm4_ecb_enc,.-gmi_sm4_ecb_enc
|
||||
|
||||
|
||||
___
|
||||
|
||||
$code.=<<___;
|
||||
.asciz "ZX GMI x86_64 module"
|
||||
.align 16
|
||||
.data
|
||||
.align 8
|
||||
.Lgmi_saved_context:
|
||||
.quad 0
|
||||
___
|
||||
$code =~ s/\`([^\`]*)\`/eval($1)/gem;
|
||||
|
||||
print $code;
|
||||
|
||||
close STDOUT;
|
||||
Reference in New Issue
Block a user