#!/usr/bin/perl
# sslcat.pl - Send a message and receive a reply from SSL server.
#
# Copyright (c) 1996-2001 Sampo Kellomaki <sampo@iki.fi>, All Rights Reserved.
# $Id: sslcat.pl,v 1.3 2003/08/17 07:07:28 sampo Exp $
# Date: 7.6.1996
$host = 'localhost' unless $host = shift;
$port = 443 unless $port = shift;
$msg = "get \n\r\n" unless $msg = shift;
$ENV{RND_SEED} = '1234567890123456789012345678901234567890';
print "$host $port $msg\n";
use Net::SSLeay qw(sslcat);
print sslcat($host, $port, $msg);
__END__
| Name | Type | Size | Permission | Actions |
|---|---|---|---|---|
| bio.pl | File | 1.18 KB | 0644 |
|
| bulk.pl | File | 1.91 KB | 0644 |
|
| callback.pl | File | 3.12 KB | 0644 |
|
| cb-testi.pl | File | 548 B | 0644 |
|
| cli-cert.pl | File | 3.72 KB | 0644 |
|
| ephemeral.pl | File | 553 B | 0644 |
|
| get_authenticated_page.pl | File | 730 B | 0644 |
|
| get_page.pl | File | 507 B | 0644 |
|
| get_page_cert.pl | File | 966 B | 0644 |
|
| https-proxy-snif.pl | File | 4.44 KB | 0644 |
|
| makecert.pl | File | 1.5 KB | 0644 |
|
| minicli.pl | File | 1.31 KB | 0644 |
|
| passwd-cb.pl | File | 809 B | 0644 |
|
| req.conf | File | 1.2 KB | 0644 |
|
| server_key.pem | File | 963 B | 0644 |
|
| ssl-inetd-serv.pl | File | 1.6 KB | 0644 |
|
| ssl_diff.pl | File | 631 B | 0644 |
|
| sslcat.pl | File | 526 B | 0644 |
|
| sslecho.pl | File | 3.07 KB | 0644 |
|
| stdio_bulk.pl | File | 2.53 KB | 0644 |
|
| tcpcat.pl | File | 422 B | 0644 |
|
| tcpecho.pl | File | 1.77 KB | 0644 |
|
| x509_cert_details.pl | File | 9.88 KB | 0644 |
|