File Manager

003 File Manager

Current Path: /usr/src/crypto/openssl/crypto/bn

usr / src / crypto / openssl / crypto / bn /

📁 ..
📄 README.pod(9.35 KB)
📁 asm
📄 bn_add.c(3.34 KB)
📄 bn_asm.c(26.9 KB)
📄 bn_blind.c(7.94 KB)
📄 bn_const.c(26.29 KB)
📄 bn_ctx.c(9.57 KB)
📄 bn_depr.c(1.89 KB)
📄 bn_dh.c(28.75 KB)
📄 bn_div.c(13.66 KB)
📄 bn_err.c(5.7 KB)
📄 bn_exp.c(44.31 KB)
📄 bn_exp2.c(5.8 KB)
📄 bn_gcd.c(18.56 KB)
📄 bn_gf2m.c(28.99 KB)
📄 bn_intern.c(5.47 KB)
📄 bn_kron.c(3.22 KB)
📄 bn_lib.c(22.66 KB)
📄 bn_local.h(24.59 KB)
📄 bn_mod.c(7.73 KB)
📄 bn_mont.c(12.13 KB)
📄 bn_mpi.c(1.89 KB)
📄 bn_mul.c(18.69 KB)
📄 bn_nist.c(37.28 KB)
📄 bn_prime.c(10.85 KB)
📄 bn_prime.h(15.49 KB)
📄 bn_prime.pl(1.38 KB)
📄 bn_print.c(7.77 KB)
📄 bn_rand.c(7.31 KB)
📄 bn_recp.c(4.51 KB)
📄 bn_shift.c(4.71 KB)
📄 bn_sqr.c(5.37 KB)
📄 bn_sqrt.c(9.28 KB)
📄 bn_srp.c(21.37 KB)
📄 bn_word.c(4.4 KB)
📄 bn_x931p.c(5.73 KB)
📄 build.info(2.6 KB)
📄 rsaz_exp.c(10.76 KB)
📄 rsaz_exp.h(1.38 KB)

Editing: bn_prime.pl

#! /usr/bin/env perl
# Copyright 1998-2019 The OpenSSL Project Authors. All Rights Reserved.
#
# Licensed under the OpenSSL license (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

# Output year depends on the year of the script.
my $YEAR = [localtime([stat($0)]->[9])]->[5] + 1900;
print <<"EOF";
/*
 * WARNING: do not edit!
 * Generated by crypto/bn/bn_prime.pl
 *
 * Copyright 1998-$YEAR The OpenSSL Project Authors. All Rights Reserved.
 *
 * Licensed under the OpenSSL license (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
 */

EOF

my $num = shift || 2048;
my @primes = ( 2 );
my $p = 1;
loop: while ($#primes < $num-1) {
    $p += 2;
    my $s = int(sqrt($p));

for (my $i = 0; defined($primes[$i]) && $primes[$i] <= $s; $i++) {
        next loop if ($p % $primes[$i]) == 0;
    }
    push(@primes, $p);
}

print "typedef unsigned short prime_t;\n";
printf "# define NUMPRIMES %d\n\n", $num;

printf "static const prime_t primes[%d] = {", $num;
for (my $i = 0; $i <= $#primes; $i++) {
    printf "\n   " if ($i % 8) == 0;
    printf " %5d,", $primes[$i];
}
print "\n};\n";

003 File Manager

Editing: bn_prime.pl

Upload File

Create Folder