Select Code to Download

#!/usr/bin/perl

...
#   http://www.perlmonks.org/index.pl?node_id=421114
#     Thanks to Tanktalus
#

#---------------------------------------------------------------------
+--
# Copyright (C) 2005 Scott L. Miller  (scott.l.miller@gmail.com)
...
    }

    exit;

#!/usr/bin/perl
######################################################################
+######
...
    }

    exit;

######################################################################
+###
# SNMP community string list
...
#      whitespace
#      the (to-be?) obfuscated SNMP string
######################################################################
+###

> cat test.dat <p>
public        public
...
their-write   theirwrong
blah-blah     blah-bl@h
foo-bar       barfoobar

> obf.pl 13 test.dat > t.1

...
their-write   #urv!&!|{t
blah-blah     oynu:oyMu
foo-bar       on!s||on!

> obf.pl 31 test.dat > t.2 <p>

...
their-write   5)&*3830/(
blah-blah     #-")L#-_)
foo-bar       #"3'00#"3

> obf.pl 42 test.dat > t.3 <p>

...
their-write   @415>C>;:3
blah-blah     .8-4W.8j4
foo-bar       .->2;;.->