File Manager

003 File Manager

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

📁 ..
📄 LPdir_unix.c(4.88 KB)
📁 aes
📁 aria
📄 arm64cpuid.pl(2.81 KB)
📄 arm_arch.h(2.57 KB)
📄 armcap.c(5.87 KB)
📄 armv4cpuid.pl(5.33 KB)
📁 asn1
📁 async
📁 bf
📁 bio
📁 blake2
📁 bn
📁 buffer
📄 build.info(1.56 KB)
📄 c64xpluscpuid.pl(5.3 KB)
📁 camellia
📁 cast
📁 chacha
📁 cmac
📁 cms
📁 comp
📁 conf
📄 cpt_err.c(3.04 KB)
📄 cryptlib.c(12.86 KB)
📁 ct
📄 ctype.c(14.39 KB)
📄 cversion.c(1.03 KB)
📁 des
📁 dh
📄 dllmain.c(1.17 KB)
📁 dsa
📁 dso
📄 ebcdic.c(14.97 KB)
📁 ec
📁 engine
📁 err
📁 evp
📄 ex_data.c(11.14 KB)
📄 getenv.c(728 B)
📁 hmac
📄 ia64cpuid.S(6.34 KB)
📁 idea
📄 init.c(24.44 KB)
📁 kdf
📁 lhash
📁 md2
📁 md4
📁 md5
📁 mdc2
📄 mem.c(7.85 KB)
📄 mem_clr.c(770 B)
📄 mem_dbg.c(17.65 KB)
📄 mem_sec.c(17.01 KB)
📄 mips_arch.h(1.21 KB)
📁 modes
📄 o_dir.c(1.05 KB)
📄 o_fips.c(621 B)
📄 o_fopen.c(4.26 KB)
📄 o_init.c(513 B)
📄 o_str.c(6.36 KB)
📄 o_time.c(5.52 KB)
📁 objects
📁 ocsp
📄 pariscid.pl(4.57 KB)
📁 pem
📁 perlasm
📁 pkcs12
📁 pkcs7
📁 poly1305
📄 ppc_arch.h(827 B)
📄 ppccap.c(12.87 KB)
📄 ppccpuid.pl(7.01 KB)
📁 rand
📁 rc2
📁 rc4
📁 rc5
📁 ripemd
📁 rsa
📄 s390x_arch.h(3.07 KB)
📄 s390xcap.c(1.97 KB)
📄 s390xcpuid.pl(8.54 KB)
📁 seed
📁 sha
📁 siphash
📁 sm2
📁 sm3
📁 sm4
📄 sparc_arch.h(4.24 KB)
📄 sparccpuid.S(12 KB)
📄 sparcv9cap.c(10.49 KB)
📁 srp
📁 stack
📁 store
📄 threads_none.c(2.86 KB)
📄 threads_pthread.c(4.15 KB)
📁 ts
📁 txt_db
📁 ui
📄 uid.c(1.09 KB)
📄 vms_rms.h(2.1 KB)
📁 whrlpool
📁 x509
📁 x509v3
📄 x86_64cpuid.pl(10.14 KB)
📄 x86cpuid.pl(12.2 KB)

Editing: pariscid.pl

#! /usr/bin/env perl
# Copyright 2009-2020 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

$flavour = shift;
$output = shift;
open STDOUT,">$output";

if ($flavour =~ /64/) {
	$LEVEL		="2.0W";
	$SIZE_T		=8;
	$ST		="std";
} else {
	$LEVEL		="1.1";
	$SIZE_T		=4;
	$ST		="stw";
}

$rp="%r2";
$sp="%r30";
$rv="%r28";

$code=<<___;
	.LEVEL	$LEVEL
	.SPACE	\$TEXT\$
	.SUBSPA	\$CODE\$,QUAD=0,ALIGN=8,ACCESS=0x2C,CODE_ONLY

.EXPORT	OPENSSL_cpuid_setup,ENTRY
	.ALIGN	8
OPENSSL_cpuid_setup
	.PROC
	.CALLINFO	NO_CALLS
	.ENTRY
	bv	($rp)
	.EXIT
	nop
	.PROCEND

.EXPORT	OPENSSL_rdtsc,ENTRY
	.ALIGN	8
OPENSSL_rdtsc
	.PROC
	.CALLINFO	NO_CALLS
	.ENTRY
	mfctl	%cr16,$rv
	bv	($rp)
	.EXIT
	nop
	.PROCEND

.EXPORT	OPENSSL_wipe_cpu,ENTRY
	.ALIGN	8
OPENSSL_wipe_cpu
	.PROC
	.CALLINFO	NO_CALLS
	.ENTRY
	xor		%r0,%r0,%r1
	fcpy,dbl	%fr0,%fr4
	xor		%r0,%r0,%r19
	fcpy,dbl	%fr0,%fr5
	xor		%r0,%r0,%r20
	fcpy,dbl	%fr0,%fr6
	xor		%r0,%r0,%r21
	fcpy,dbl	%fr0,%fr7
	xor		%r0,%r0,%r22
	fcpy,dbl	%fr0,%fr8
	xor		%r0,%r0,%r23
	fcpy,dbl	%fr0,%fr9
	xor		%r0,%r0,%r24
	fcpy,dbl	%fr0,%fr10
	xor		%r0,%r0,%r25
	fcpy,dbl	%fr0,%fr11
	xor		%r0,%r0,%r26
	fcpy,dbl	%fr0,%fr22
	xor		%r0,%r0,%r29
	fcpy,dbl	%fr0,%fr23
	xor		%r0,%r0,%r31
	fcpy,dbl	%fr0,%fr24
	fcpy,dbl	%fr0,%fr25
	fcpy,dbl	%fr0,%fr26
	fcpy,dbl	%fr0,%fr27
	fcpy,dbl	%fr0,%fr28
	fcpy,dbl	%fr0,%fr29
	fcpy,dbl	%fr0,%fr30
	fcpy,dbl	%fr0,%fr31
	bv		($rp)
	.EXIT
	ldo		0($sp),$rv
	.PROCEND
___
{
my $inp="%r26";
my $len="%r25";

$code.=<<___;
	.EXPORT	OPENSSL_cleanse,ENTRY,ARGW0=GR,ARGW1=GR
	.ALIGN	8
OPENSSL_cleanse
	.PROC
	.CALLINFO	NO_CALLS
	.ENTRY
	cmpib,*=	0,$len,L\$done
	nop
	cmpib,*>>=	15,$len,L\$ittle
	ldi		$SIZE_T-1,%r1

L\$align
	and,*<>		$inp,%r1,%r28
	b,n		L\$aligned
	stb		%r0,0($inp)
	ldo		-1($len),$len
	b		L\$align
	ldo		1($inp),$inp

L\$aligned
	andcm		$len,%r1,%r28
L\$ot
	$ST		%r0,0($inp)
	addib,*<>	-$SIZE_T,%r28,L\$ot
	ldo		$SIZE_T($inp),$inp

and,*<>		$len,%r1,$len
	b,n		L\$done
L\$ittle
	stb		%r0,0($inp)
	addib,*<>	-1,$len,L\$ittle
	ldo		1($inp),$inp
L\$done
	bv		($rp)
	.EXIT
	nop
	.PROCEND
___
}
{
my ($in1,$in2,$len)=("%r26","%r25","%r24");

$code.=<<___;
	.EXPORT	CRYPTO_memcmp,ENTRY,ARGW0=GR,ARGW1=GR,ARGW1=GR
	.ALIGN	8
CRYPTO_memcmp
	.PROC
	.CALLINFO	NO_CALLS
	.ENTRY
	cmpib,*=	0,$len,L\$no_data
	xor		$rv,$rv,$rv

L\$oop_cmp
	ldb		0($in1),%r19
	ldb		0($in2),%r20
	ldo		1($in1),$in1
	ldo		1($in2),$in2
	xor		%r19,%r20,%r29
	addib,*<>	-1,$len,L\$oop_cmp
	or		%r29,$rv,$rv

sub		%r0,$rv,%r29
	extru		%r29,0,1,$rv
L\$no_data
	bv		($rp)
	.EXIT
	nop
	.PROCEND
___
}
{
my ($out,$cnt,$max)=("%r26","%r25","%r24");
my ($tick,$lasttick)=("%r23","%r22");
my ($diff,$lastdiff)=("%r21","%r20");

$code.=<<___;
	.EXPORT	OPENSSL_instrument_bus,ENTRY,ARGW0=GR,ARGW1=GR
	.ALIGN	8
OPENSSL_instrument_bus
	.PROC
	.CALLINFO	NO_CALLS
	.ENTRY
	copy		$cnt,$rv
	mfctl		%cr16,$tick
	copy		$tick,$lasttick
	ldi		0,$diff

fdc		0($out)
	ldw		0($out),$tick
	add		$diff,$tick,$tick
	stw		$tick,0($out)
L\$oop
	mfctl		%cr16,$tick
	sub		$tick,$lasttick,$diff
	copy		$tick,$lasttick

fdc		0($out)
	ldw		0($out),$tick
	add		$diff,$tick,$tick
	stw		$tick,0($out)

addib,<>	-1,$cnt,L\$oop
	addi		4,$out,$out

bv		($rp)
	.EXIT
	sub		$rv,$cnt,$rv
	.PROCEND

.EXPORT	OPENSSL_instrument_bus2,ENTRY,ARGW0=GR,ARGW1=GR
	.ALIGN	8
OPENSSL_instrument_bus2
	.PROC
	.CALLINFO	NO_CALLS
	.ENTRY
	copy		$cnt,$rv
	sub		%r0,$cnt,$cnt

mfctl		%cr16,$tick
	copy		$tick,$lasttick
	ldi		0,$diff

fdc		0($out)
	ldw		0($out),$tick
	add		$diff,$tick,$tick
	stw		$tick,0($out)

mfctl		%cr16,$tick
	sub		$tick,$lasttick,$diff
	copy		$tick,$lasttick
L\$oop2
	copy		$diff,$lastdiff
	fdc		0($out)
	ldw		0($out),$tick
	add		$diff,$tick,$tick
	stw		$tick,0($out)

addib,=		-1,$max,L\$done2
	nop

mfctl		%cr16,$tick
	sub		$tick,$lasttick,$diff
	copy		$tick,$lasttick
	cmpclr,<>	$lastdiff,$diff,$tick
	ldi		1,$tick

ldi		1,%r1
	xor		%r1,$tick,$tick
	addb,<>		$tick,$cnt,L\$oop2
	shladd,l	$tick,2,$out,$out
L\$done2
	bv		($rp)
	.EXIT
	add		$rv,$cnt,$rv
	.PROCEND
___
}

if (`$ENV{CC} -Wa,-v -c -o /dev/null -x assembler /dev/null 2>&1`
	=~ /GNU assembler/) {
    $gnuas = 1;
}

foreach(split("\n",$code)) {

s/(\.LEVEL\s+2\.0)W/$1w/	if ($gnuas && $SIZE_T==8);
	s/\.SPACE\s+\$TEXT\$/.text/	if ($gnuas && $SIZE_T==8);
	s/\.SUBSPA.*//			if ($gnuas && $SIZE_T==8);
	s/cmpib,\*/comib,/		if ($SIZE_T==4);
	s/,\*/,/			if ($SIZE_T==4);
	s/\bbv\b/bve/			if ($SIZE_T==8);

print $_,"\n";
}
close STDOUT or die "error closing STDOUT: $!";

003 File Manager

Editing: pariscid.pl

Upload File

Create Folder