#!/usr/bin/perl # tcpcat.pl - Send a message and receive a reply from TCP server. # # Copyright (c) 2003 Sampo Kellomaki <sampo@iki.fi>, All Rights Reserved. # $Id$ # 17.8.2003, created --Sampo $host = 'localhost' unless $host = shift; $port = 443 unless $port = shift; $msg = "get \n\r\n" unless $msg = shift; print "$host $port $msg\n"; use Net::SSLeay qw(tcpcat); print tcpcat($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 |
|