home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2006 March / PCWELT_3_2006.ISO / base / 05_common.mo / usr / share / elvis-2.2_0 / scripts / rot13.ex < prev    next >
Encoding:
Text File  |  2004-02-22  |  452 b   |  16 lines
  1. "Defines rot13 alias to perform rot-13 encryption/decryption
  2.  
  3. alias rot13 {
  4.  "Perform rot-13 encryption/decryption
  5.  local i report=0 magic magicchar=^$.[* noignorecase
  6.  for i (0..12)
  7.  do {
  8.   try eval !%s/(char(i + 'a'))/<TEMP>/g
  9.   try eval !%s/(char(i + 'n'))/(char(i + 'a'))/g
  10.   try eval !%s/<TEMP>/(char(i + 'n'))/g
  11.   try eval !%s/(char(i + 'A'))/<temp>/g
  12.   try eval !%s/(char(i + 'N'))/(char(i + 'A'))/g
  13.   try eval !%s/<temp>/(char(i + 'N'))/g
  14.  }
  15. }
  16.