rot13 macro

[bidulpik]

a macro to crypt your text with rot13
if you wanna test it...
seems to work fine...

Code: Select all

InsertMode
ColumnModeOff
HexOff
UnixReOn
Find "#"
Replace All "(_-^#^-_)"
Find "="
Replace All "(_-^=^-_)"
Find RegExp "([a-zA-Z0-9])"
Replace All "#\1#"
Find "#a#"
Replace All "=n="
Find "#b#"
Replace All "=o="
Find "#c#"
Replace All "=p="
Find "#d#"
Replace All "=q="
Find "#e#"
Replace All "=r="
Find "#f#"
Replace All "=s="
Find "#g#"
Replace All "=t="
Find "#h#"
Replace All "=u="
Find "#i#"
Replace All "=v="
Find "#j#"
Replace All "=w="
Find "#k#"
Replace All "=x="
Find "#l#"
Replace All "=y="
Find "#m#"
Replace All "=z="
Find "#n#"
Replace All "=a="
Find "#o#"
Replace All "=b="
Find "#p#"
Replace All "=c="
Find "#q#"
Replace All "=d="
Find "#r#"
Replace All "=e="
Find "#s#"
Replace All "=f="
Find "#t#"
Replace All "=g="
Find "#u#"
Replace All "=h="
Find "#v#"
Replace All "=i="
Find "#w#"
Replace All "=j="
Find "#x#"
Replace All "=k="
Find "#y#"
Replace All "=l="
Find "#z#"
Replace All "=m="
Find "#0#"
Replace All "=5="
Find "#1#"
Replace All "=6="
Find "#2#"
Replace All "=7="
Find "#3#"
Replace All "=8="
Find "#4#"
Replace All "=9="
Find "#5#"
Replace All "=0="
Find "#6#"
Replace All "=1="
Find "#7#"
Replace All "=2="
Find "#8#"
Replace All "=3="
Find "#9#"
Replace All "=4="
Find RegExp "=([a-zA-Z0-9])="
Replace All "\1"
Find "(_-^#^-_)"
Replace All "#"
Find "(_-^=^-_)"
Replace All "="


[gutzy]

Just thought you might be interested in some feedback. The macro works great for version 14 but gets a write error in version 8. The error messages didn't say what line the error was in so I couldn't tell which command wasn't supported on the older version.

Thanks for the Macro!