⚝
One Hat Cyber Team
⚝
Your IP:
216.73.216.93
Server IP:
65.108.141.171
Server:
Linux server.heloix.com 5.4.0-214-generic #234-Ubuntu SMP Fri Mar 14 23:50:27 UTC 2025 x86_64
Server Software:
Apache
PHP Version:
7.4.33
Buat File
|
Buat Folder
Eksekusi
Dir :
~
/
usr
/
share
/
doc
/
libcrypt-ssleay-perl
/
examples
/
Edit File: lwp-ssl-test
#!/usr/bin/perl use lib qw(lib); use LWP::UserAgent; use Getopt::Long; use strict; use vars qw($opt_proxy $opt_debug $opt_cert $opt_key $opt_cafile $opt_cadir); use Data::Dumper qw(Dumper); GetOptions( 'd' => \$opt_debug, 'p:s' => \$opt_proxy, 'proxy:s' => \$opt_proxy, 'cert:s' => \$opt_cert, 'key:s' => \$opt_key, 'CAfile:s' => \$opt_cafile, 'CAdir:s' => \$opt_cadir, ); if($opt_debug) { eval "use LWP::Debug qw(+);"; } # PROXY SUPPORT $ENV{HTTPS_PROXY} = $opt_proxy; $ENV{HTTPS_DEBUG} = $opt_debug; $ENV{HTTPS_CERT_FILE} = $opt_cert; $ENV{HTTPS_KEY_FILE} = $opt_key; $opt_cafile && ( $ENV{HTTPS_CA_FILE} = $opt_cafile ); $opt_cadir && ( $ENV{HTTPS_CA_DIR} = $opt_cadir ); my $url = shift || 'https://www.nodeworks.com'; my $ua = new LWP::UserAgent; $ua->timeout(15); my $req = new HTTP::Request('HEAD', $url); my $res = $ua->request($req); print Dumper($res);
Simpan