HTTPS/Client-authenticated: Difference between revisions
Rename Perl 6 -> Raku, alphabetize, minor clean-up
Thundergnat (talk | contribs) (Rename Perl 6 -> Raku, alphabetize, minor clean-up) |
|||
Line 33:
}
</lang>
=={{header|Go}}==
Line 74 ⟶ 73:
}
</lang>
=={{header|Julia}}==
Line 146 ⟶ 145:
#x->set(CURLOPT_SSLCERT, #sslcert->readstring)
#sslcert->close
#x->result->asString</lang>
=={{header|Mathematica}} / {{header|Wolfram Language}}==
<lang Mathematica>a = RunThrough["curl -E myCert.pem https://www.example.com", 1]
For[ i=0, i < Length[a] , i++, SomeFunction[a]]</lang>
=={{header|Perl}}==
<lang python>#!/usr/bin/env perl -T
Line 174:
say $res->status_line;
}</lang>
=={{header|Perl 6}}==▼
<lang perl6>▼
# cert creation commands▼
# openssl req -newkey rsa:4096 -keyout my_key.pem -out my_csr.pem -nodes -subj "/CN=ME"▼
# openssl x509 -req -in my_csr.pem -signkey my_key.pem -out my_cert.pem▼
use v6;▼
use OpenSSL;▼
my $host = "github.com";▼
my $ssl = OpenSSL.new(:client);▼
$ssl.use-certificate-file("./my_cert.pem");▼
$ssl.use-privatekey-file("./my_key.pem");▼
$ssl.check-private-key;▼
my $s = IO::Socket::INET.new(:$host, :port(443));▼
$ssl.set-socket($s);▼
$ssl.set-connect-state;▼
$ssl.connect;▼
$ssl.write("GET / HTTP/1.1\r\n\r\n");▼
say $ssl.read(1024);▼
$ssl.close;▼
$s.close;▼
</lang>▼
=={{header|Phix}}==
Line 247 ⟶ 215:
(ssl-load-verify-root-certificates! ctx "my-cert.pem")
(define-values [I O] (ssl-connect "www.example.com" 443 ctx))
▲</lang>
(formerly Perl 6)
▲<lang perl6>
▲# cert creation commands
▲# openssl req -newkey rsa:4096 -keyout my_key.pem -out my_csr.pem -nodes -subj "/CN=ME"
▲# openssl x509 -req -in my_csr.pem -signkey my_key.pem -out my_cert.pem
▲use v6;
▲use OpenSSL;
▲my $host = "github.com";
▲my $ssl = OpenSSL.new(:client);
▲$ssl.use-certificate-file("./my_cert.pem");
▲$ssl.use-privatekey-file("./my_key.pem");
▲$ssl.check-private-key;
▲my $s = IO::Socket::INET.new(:$host, :port(443));
▲$ssl.set-socket($s);
▲$ssl.set-connect-state;
▲$ssl.connect;
▲$ssl.write("GET / HTTP/1.1\r\n\r\n");
▲say $ssl.read(1024);
▲$ssl.close;
▲$s.close;
</lang>
Line 293 ⟶ 294:
}</lang>
=={{header|Tcl}}==
Uses the [http://tls.sourceforge.net Tls] package.
|