Article 133027 of comp.os.vms:
Path: nntpd.lkg.dec.com!lead.zk3.dec.com!crl.dec.com!crl.dec.com!bloom-beacon.mit.edu!newsserver.pixel.kodak.com!news.sprintlink.net!fastnet!news.pgh.net!toads.pgh.pa.us!godot.cc.duq.edu!news.duke.edu!news.mathworks.com!news.kei.com!world!mv!chqsplay!DCantor
From: DCantor@chqsplay.mv.com (David A. Cantor)
Newsgroups: comp.os.vms
Subject: Re: Rot13 for VMS?
Message-ID: <815207777.112snx@chqsplay.mv.com>
References: <475h44$j6h@news.iastate.edu>
Date: Wed, 01 Nov 95 06:36:17 UT 
Organization: My Own Disorganization
Lines: 25

In article <1995Oct30.225219.1648@grove.iup.edu>,
 pyld@grove.iup.edu (Matthew Schnierle) wrote:
>Is there an application/utility for VMS that will Rot13 encode a text file?
>NEWSRDR (Madgoat) will decode Rot13, but I've been unable to find a way to
>encode files.  Thanks.

I can't resist.  Here's ROT13.TEC.  You can invoke it with

$ EDIT/TECO/COMMAND=ROT13.TEC  filename.txt

! ROT13.TEC -- 26-Oct-1994 0:48 !
bj ::@fs/^es//^[ :@fs/^es// hxf hk @eb/^eqf/
<:@n/^ea/; r0a"w
 0a-^^N"L +13uc | -13uc ' | 0a-^^n"L +13uc | -13uc''
0a+qc@i//d> ex
<ESC><ESC>

The two <ESC>'s at the end represent actual ESC characters (hex 1B).
If you transcribe, rather than cut and paste, this text to a file,
notice that the only two characters for which case matters are the capital
N and the lowercase n on the line beginning with " 0a-".
--
David A. Cantor            +1 860.444.7268 (444-RANT)
453 Bayonet St., #16       Connecticut has a new area code.
New London, CT  06320