#!/usr/bin/perl

############################################################################
# This utility can modify a "string file" as defined below to obfuscate
# those strings using a modified rot-13 type algorithm.  String information
# is to be supplied via filenames, or piped from a file/process into this
# script.  All output is to stdout, suitable for piping into a resultant
# file.
#
# The string file is to contain passwords or snmp community strings
#
###
# 
# Credits: Ideas taken from 
#   http://www.perlmonks.org/index.pl?node_id=385552
#     Thanks to TZapper and Tachyon's posts
#   http://search.cpan.org/author/JUERD/Crypt-Caesar-0.01/Caesar.pm
#   http://search.cpan.org/author/AYRNIEU/Crypt-Rot13-0.6/Rot13.pm
#   http://www.perlmonks.org/index.pl?node_id=421114
#     Thanks to Tanktalus
#