ACIL FM
Dark
Refresh
Current DIR:
/usr/share/doc/perl-Net-SSLeay/examples
/
usr
share
doc
perl-Net-SSLeay
examples
Upload
Zip Selected
Delete Selected
Pilih semua
Nama
Ukuran
Permission
Aksi
bio.pl
1.18 MB
chmod
View
DL
Edit
Rename
Delete
bulk.pl
1.91 MB
chmod
View
DL
Edit
Rename
Delete
callback.pl
3.12 MB
chmod
View
DL
Edit
Rename
Delete
cb-testi.pl
548 B
chmod
View
DL
Edit
Rename
Delete
cli-cert.pl
3.72 MB
chmod
View
DL
Edit
Rename
Delete
ephemeral.pl
553 B
chmod
View
DL
Edit
Rename
Delete
get_authenticated_page.pl
730 B
chmod
View
DL
Edit
Rename
Delete
get_page.pl
507 B
chmod
View
DL
Edit
Rename
Delete
get_page_cert.pl
966 B
chmod
View
DL
Edit
Rename
Delete
https-proxy-snif.pl
4.44 MB
chmod
View
DL
Edit
Rename
Delete
makecert.pl
1.5 MB
chmod
View
DL
Edit
Rename
Delete
minicli.pl
1.31 MB
chmod
View
DL
Edit
Rename
Delete
passwd-cb.pl
809 B
chmod
View
DL
Edit
Rename
Delete
req.conf
1.2 MB
chmod
View
DL
Edit
Rename
Delete
server_key.pem
963 B
chmod
View
DL
Edit
Rename
Delete
ssl-inetd-serv.pl
1.6 MB
chmod
View
DL
Edit
Rename
Delete
sslcat.pl
526 B
chmod
View
DL
Edit
Rename
Delete
sslecho.pl
3.07 MB
chmod
View
DL
Edit
Rename
Delete
ssl_diff.pl
631 B
chmod
View
DL
Edit
Rename
Delete
stdio_bulk.pl
2.53 MB
chmod
View
DL
Edit
Rename
Delete
tcpcat.pl
422 B
chmod
View
DL
Edit
Rename
Delete
tcpecho.pl
1.77 MB
chmod
View
DL
Edit
Rename
Delete
x509_cert_details.pl
10.31 MB
chmod
View
DL
Edit
Rename
Delete
Edit file: /usr/share/doc/perl-Net-SSLeay/examples/passwd-cb.pl
#!/usr/bin/perl # passwd-cb.pl # # Check using password callbacks to decrypt private keys # $Id: passwd-cb.pl,v 1.2 2002/06/05 18:25:47 sampo Exp $ use Socket; use Net::SSLeay qw(die_now die_if_ssl_error); Net::SSLeay::randomize(); Net::SSLeay::load_error_strings(); Net::SSLeay::SSLeay_add_ssl_algorithms(); my ($key_pem, $password) = @ARGV; print "Keyfile: `$key_pem', pw: `$password'\n"; $calls = 0; sub callback { $calls++; print "Callback `$password'\n"; return $password; } my $ctx = Net::SSLeay::CTX_new() or die_now("Failed to create SSL_CTX $!"); if (1) { Net::SSLeay::CTX_set_default_passwd_cb($ctx, \&callback); } Net::SSLeay::CTX_use_PrivateKey_file($ctx, $key_pem, &Net::SSLeay::FILETYPE_PEM()) or print "CTX_use_PrivateKey_file failed\n"; print "calls=$calls\n"; #EOF
Simpan
Batal
Isi Zip:
Unzip
Create
Buat Folder
Buat File
Terminal / Execute
Run
Chmod Bulk
All File
All Folder
All File dan Folder
Apply