forked from KolibriOS/kolibrios
185 lines
6.3 KiB
NASM
185 lines
6.3 KiB
NASM
; modexp.asm - Modular exponentiation test suite
|
|
;
|
|
; Copyright (C) 2015-2016 Jeffrey Amelynck
|
|
;
|
|
; This program is free software: you can redistribute it and/or modify
|
|
; it under the terms of the GNU General Public License as published by
|
|
; the Free Software Foundation, either version 3 of the License, or
|
|
; (at your option) any later version.
|
|
;
|
|
; This program is distributed in the hope that it will be useful,
|
|
; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
; GNU General Public License for more details.
|
|
;
|
|
; You should have received a copy of the GNU General Public License
|
|
; along with this program. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
format binary as ""
|
|
|
|
__DEBUG__ = 1
|
|
__DEBUG_LEVEL__ = 1
|
|
|
|
MAX_BITS = 256
|
|
|
|
use32
|
|
|
|
db 'MENUET01' ; signature
|
|
dd 1 ; header version
|
|
dd start ; entry point
|
|
dd i_end ; initialized size
|
|
dd mem+4096 ; required memory
|
|
dd mem+4096 ; stack pointer
|
|
dd 0 ; parameters
|
|
dd 0 ; path
|
|
|
|
include '../../../macros.inc'
|
|
purge mov,add,sub
|
|
include '../../../proc32.inc'
|
|
include '../../../debug-fdo.inc'
|
|
|
|
include '../mpint.inc'
|
|
|
|
start:
|
|
|
|
DEBUGF 1, "ModExp Test suite\n"
|
|
|
|
DEBUGF 1, "mpint_zero\n"
|
|
stdcall mpint_zero, mpint_A
|
|
stdcall mpint_print, mpint_A
|
|
|
|
mov dword[mpint_A+00], 32
|
|
mov dword[mpint_A+04], 0xCAFEBABE
|
|
mov dword[mpint_A+08], 0xDEADBEEF
|
|
mov dword[mpint_A+12], 0xCAFEBABE
|
|
mov dword[mpint_A+16], 0xDEADBEEF
|
|
mov dword[mpint_A+20], 0xCAFEBABE
|
|
mov dword[mpint_A+24], 0xDEADBEEF
|
|
mov dword[mpint_A+28], 0xCAFEBABE
|
|
mov dword[mpint_A+32], 0xDEADBEEF
|
|
stdcall mpint_print, mpint_A
|
|
|
|
DEBUGF 1, "mpint_shl, 3\n"
|
|
stdcall mpint_shl, mpint_A, 3
|
|
stdcall mpint_length, mpint_A
|
|
stdcall mpint_print, mpint_A
|
|
|
|
DEBUGF 1, "mpint_shl, 40\n"
|
|
stdcall mpint_shl, mpint_A, 40
|
|
stdcall mpint_length, mpint_A
|
|
stdcall mpint_print, mpint_A
|
|
|
|
DEBUGF 1, "8 times mpint_shl1\n"
|
|
stdcall mpint_shl1, mpint_A
|
|
stdcall mpint_shl1, mpint_A
|
|
stdcall mpint_shl1, mpint_A
|
|
stdcall mpint_shl1, mpint_A
|
|
stdcall mpint_shl1, mpint_A
|
|
stdcall mpint_shl1, mpint_A
|
|
stdcall mpint_shl1, mpint_A
|
|
stdcall mpint_shl1, mpint_A
|
|
stdcall mpint_length, mpint_A
|
|
stdcall mpint_print, mpint_A
|
|
|
|
mov dword[mpint_B+00], 32
|
|
mov dword[mpint_B+04], 0xCAFEBABE
|
|
mov dword[mpint_B+08], 0xDEADBEEF
|
|
mov dword[mpint_B+12], 0xCAFEBABE
|
|
mov dword[mpint_B+16], 0xDEADBEEF
|
|
mov dword[mpint_B+20], 0xCAFEBABE
|
|
mov dword[mpint_B+24], 0xDEADBEEF
|
|
mov dword[mpint_B+28], 0xCAFEBABE
|
|
mov dword[mpint_B+32], 0xDEADBEEF
|
|
stdcall mpint_print, mpint_A
|
|
stdcall mpint_print, mpint_B
|
|
DEBUGF 1, "mpint_add\n"
|
|
stdcall mpint_add, mpint_B, mpint_A
|
|
stdcall mpint_length, mpint_B
|
|
stdcall mpint_print, mpint_B
|
|
DEBUGF 1, "mpint_sub\n"
|
|
stdcall mpint_sub, mpint_B, mpint_A
|
|
stdcall mpint_length, mpint_B
|
|
stdcall mpint_print, mpint_B
|
|
|
|
mov dword[mpint_B+04], 0xCAFEBABE
|
|
mov dword[mpint_B+08], 0xDEADBEEF
|
|
mov dword[mpint_B+12], 0xCAFEBABE
|
|
mov dword[mpint_B+16], 0xDEADBEEF
|
|
mov dword[mpint_B+20], 0xCAFEBABE
|
|
mov dword[mpint_B+24], 0xDEADBEEF
|
|
mov dword[mpint_B+28], 0x0
|
|
mov dword[mpint_B+32], 0x0
|
|
stdcall mpint_print, mpint_A
|
|
stdcall mpint_print, mpint_B
|
|
DEBUGF 1, "mpint_mod\n"
|
|
stdcall mpint_mod, mpint_A, mpint_B
|
|
stdcall mpint_print, mpint_A
|
|
|
|
stdcall mpint_zero, mpint_A
|
|
mov dword[mpint_A+0], 2
|
|
mov dword[mpint_A+4], 1936
|
|
stdcall mpint_zero, mpint_B
|
|
mov dword[mpint_B+0], 2
|
|
mov dword[mpint_B+4], 497
|
|
stdcall mpint_cmp, mpint_A, mpint_B
|
|
stdcall mpint_mod, mpint_A, mpint_B
|
|
DEBUGF 1, "1936 mod 497\n"
|
|
stdcall mpint_print, mpint_A
|
|
|
|
stdcall mpint_zero, mpint_A
|
|
mov dword[mpint_A+00], 32
|
|
mov dword[mpint_A+04], 0xCAFEBABE
|
|
mov dword[mpint_A+08], 0xDEADBEEF
|
|
mov dword[mpint_A+12], 0xCAFEBABE
|
|
mov dword[mpint_A+16], 0xDEADBEEF
|
|
mov dword[mpint_A+20], 0xCAFEBABE
|
|
mov dword[mpint_A+24], 0xDEADBEEF
|
|
mov dword[mpint_A+28], 0xCAFEBABE
|
|
mov dword[mpint_A+32], 0xDEADBEEF
|
|
stdcall mpint_zero, mpint_B
|
|
mov dword[mpint_B+0], 2
|
|
mov dword[mpint_B+4], 0x0100
|
|
stdcall mpint_print, mpint_A
|
|
stdcall mpint_print, mpint_B
|
|
DEBUGF 1, "mpint_mul by A*B\n"
|
|
stdcall mpint_mul, mpint_C, mpint_A, mpint_B
|
|
stdcall mpint_length, mpint_C
|
|
stdcall mpint_print, mpint_C
|
|
stdcall mpint_print, mpint_A
|
|
stdcall mpint_print, mpint_B
|
|
DEBUGF 1, "mpint_mul by B*A\n"
|
|
stdcall mpint_mul, mpint_C, mpint_B, mpint_A
|
|
stdcall mpint_length, mpint_C
|
|
stdcall mpint_print, mpint_C
|
|
|
|
stdcall mpint_hob, mpint_C
|
|
DEBUGF 1, "mpint_hob: %u\n", eax
|
|
|
|
stdcall mpint_zero, mpint_A
|
|
stdcall mpint_zero, mpint_B
|
|
stdcall mpint_zero, mpint_C
|
|
mov dword[mpint_A+0], 1
|
|
mov dword[mpint_A+4], 4
|
|
mov dword[mpint_B+0], 1
|
|
mov dword[mpint_B+4], 13
|
|
mov dword[mpint_C+0], 2
|
|
mov dword[mpint_C+4], 497
|
|
stdcall mpint_modexp, mpint_D, mpint_A, mpint_B, mpint_C
|
|
DEBUGF 1, "4**13 mod 497\n"
|
|
stdcall mpint_length, mpint_D
|
|
stdcall mpint_print, mpint_D
|
|
|
|
mcall -1
|
|
|
|
i_end:
|
|
|
|
mpint_A rb MPINT_MAX_LEN+4
|
|
mpint_B rb MPINT_MAX_LEN+4
|
|
mpint_C rb MPINT_MAX_LEN+4
|
|
mpint_D rb MPINT_MAX_LEN+4
|
|
|
|
mpint_tmp rb MPINT_MAX_LEN+4
|
|
|
|
include_debug_strings
|
|
|
|
mem: |