���� JFIF �� � ( %"1"%)+...383,7(-.-
![]() Server : Apache/2.4.6 (CentOS) OpenSSL/1.0.2k-fips PHP/7.4.20 System : Linux st2.domain.com 3.10.0-1127.10.1.el7.x86_64 #1 SMP Wed Jun 3 14:28:03 UTC 2020 x86_64 User : apache ( 48) PHP Version : 7.4.20 Disable Function : NONE Directory : /proc/self/root/home/real/node-v13.0.1/deps/openssl/openssl/crypto/bn/ |
#! /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";