Help for this page

Select Code to Download


  1. or download this
    sub server {
# my $plaintext = $cipher->decrypt($buf);
...
process_bytes($cipher->crypt($_)) while <$sock>;
process_bytes($cipher->finish());
}
  2. or download this
    if ($kid) {
    # parent reads from STDIN, prints to socket
...
process_bytes($cipher->crypt($_)) while <$sock>;
process_bytes($cipher->finish());
}
  3. or download this
    wmp@innocence:~/ISS/iss/daemon$ ./server.pl
Undefined subroutine &main::process_bytes called at ./server.pl line 6
+6.
wmp@innocence:~/ISS/iss/daemon$