x3x3x3x_5h3ll

— 53cur3 — 5h3ll_1d —

Linux vps-10654784.cedaps.org.br 3.10.0-1160.119.1.el7.x86_64 #1 SMP Tue Jun 4 14:43:51 UTC 2024 x86_64
INFO SERVER : Apache PHP : 7.4.33
/opt/alt/openssl11/bin/

162.240.100.168

[ NAME ]	[ SIZE ]	[ PERM ]	[ DATE ]	[ ACTN ]
+FILE +DIR
c_rehash	6.581 KB	-rwxr-xr-x	2023-10-03 13:22	R E G D
openssl	741.844 KB	-rwxr-xr-x	2023-10-03 13:23	R E G D
REQUEST EXIT

#!/usr/bin/env perl # WARNING: do not edit! # Generated by Makefile from tools/c_rehash.in # Copyright 1999-2022 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 # Perl c_rehash script, scan all files in a directory # and add symbolic links to their hash values. my $dir = "/opt/alt/openssl11/etc/pki/tls"; my $prefix = "/opt/alt/openssl11"; my $errorcount = 0; my $openssl = $ENV{OPENSSL} || "openssl"; my $pwd; my $x509hash = "-subject_hash"; my $crlhash = "-hash"; my $verbose = 0; my $symlink_exists=eval {symlink("",""); 1}; my $removelinks = 1; ## Parse flags. while ( $ARGV[0] =~ /^-/ ) { my $flag = shift @ARGV; last if ( $flag eq '--'); if ( $flag eq '-old') { $x509hash = "-subject_hash_old"; $crlhash = "-hash_old"; } elsif ( $flag eq '-h' || $flag eq '-help' ) { help(); } elsif ( $flag eq '-n' ) { $removelinks = 0; } elsif ( $flag eq '-v' ) { $verbose++; } else { print STDERR "Usage error; try -h.\n"; exit 1; } } sub help { print "Usage: c_rehash [-old] [-h] [-help] [-v] [dirs...]\n"; print " -old use old-style digest\n"; print " -h or -help print this help text\n"; print " -v print files removed and linked\n"; exit 0; } eval "require Cwd"; if (defined(&Cwd::getcwd)) { $pwd=Cwd::getcwd(); } else { $pwd=`pwd`; chomp($pwd); } # DOS/Win32 or Unix delimiter? Prefix our installdir, then search. my $path_delim = ($pwd =~ /^[a-z]\:/i) ? ';' : '