ROT13 (was Re: [req] Lips / Kiss)

[from alt.ascii-art "discussion" on what to do when your newsreader
doesn't support ROT13]

>3. Use this C program:
>
>#include <stdlib.h>
>#include <stdio.h>
>
>main()
>{
>  int ch;
>
>  while ((ch = getchar()) != EOF)
>    {
>      if ((ch >= 65) && (ch <= 90))
>        {
>          ch = 65 + ((ch - 65) + 13) % 26;
>        }
>      if ((ch >= 97) && (ch <= 122))
>        {
>          ch = 97 + ((ch - 97) + 13) % 26;
>        }
>      printf("%c", ch);
>    }
>}
>
>>[from a reply]
>>Or use this code:
>>
>>#include <stdio.h>
>>#define rot13(c)
>>(((c>64)&(c<91))?(65+(c-52)%26):((c>96)&(c<123))?(97+(c-84)%26):c)
>>void main() {int i; while ((i=getchar())!=-1) putchar(rot13(i));}
>
> 4. Write your own program, in your favourite programming language.

Hmm... well, lets see here... as I recall, ROT13 is a simple
transposition of A-M and N-Z...
Here's a little Pascal for ya all! :)
Reads in a line

program ROT13;

var
  s: string;
  x: byte;

begin
  write('Enter the string to do a ROT13 on: ');
  readln(s);
  for x := 1 to length(s) do
    case s[x] of
      'A'..'M', 'a'..'m': inc(s[x], 13);
      'N'..'Z', 'n'..'z': dec(s[x], 13);
    end;
  write('ROT13 string: '); writeln(s);
end.

Or, if your a tightcoder <G>

program ROT13;var s:string;x:byte;begin write('Enter the string to do a
ROT13 on: ');readln(s);for x:=1 to length(s) do case s[x] of
'A'..'M','a'..'m':inc(s[x],13);'N'..'Z','n'..'z':dec(s[x],13);end;write('ROT13
string: ');writeln(s);end.

Related ASCII art in the Gallery

Explore these categories from our collection of 11,000+ artworks:

    .. ..
  .'  `  `.
.'_.-...-._`.
 `.       .'
   `-...-' jgs

   .--.
  (  __)   \\\\//
 (  ) -\   /-   )
(  c    > <    ?
(   \___< >___/
 (__/ /_   _\_\__
 /  \/ /  (      \

Make your own ASCII art

Turn images, text or 3D into ASCII, or draw your own – right in your browser.