| |
I'm not sure Windows 98 understands rot13, perl, or whatever it is you wrote
that in ... ;-)
But thanks anyway!! If anyone knows of shareware or preferably freeware
that decodes rot13 gibberish, let me know!
--
Cheers ...
Geoffrey Hyde
--
www.fastinternet.net.au/~ghyde
--
Matthew Miller <mattdm@mattdm.org> wrote in message
news:slrn8i1doi.gc.mattdm@jadzia.bu.edu...
> guito <guito@guito.dhs.org> wrote:
> > Geoffrey Hyde <ghyde@fastinternet.net.au> wrote:
> > > Which reminds me, I must find out if some program HAS a ROT13 decoder!!
> > slrn does. :)
>
> Netscape's newsreader used to be able to, but I just looked, and they seem
> to have taken it out, or at least moved it.
>
> Of course, there's always:
>
> #!/usr/bin/perl
> foreach ('a'..'m', 'A'..'M') {
> $q = chr(ord($_)+13);
> $p{$_} = $q; $p{$q} = $_;
> }
> while (<>) { s#(.)#$p{$1}#g; print; }
>
> or
>
> #!/usr/bin/python
>
> import sys
>
> def main():
> text = sys.stdin.read()
> for x in range(len(text)):
> byte = ord(text[x])
> cap = (byte & 32)
> byte = (byte & (~cap))
> if (byte >= ord('A')) and (byte <= ord('Z')):
> byte = ((byte - ord('A') + 13) % 26 + ord('A'))
> byte = (byte | cap)
> sys.stdout.write(chr(byte))
>
> main()
>
>
> or even
>
> DECLARE FUNCTION Rot13$ (S AS STRING)
> DIM S AS STRING
>
> INPUT "", S
> WHILE S <> ""
> PRINT Rot13$(S)
> INPUT "", S
> WEND
>
> FUNCTION Rot13$ (S AS STRING)
> DIM I, J AS INTEGER
> DIM T AS STRING
>
> FOR I = 1 TO LEN(S)
> J = ASC(MID$(S, I, 1))
> IF J >= 65 AND J <= 90 THEN
> J = ((J - 52) MOD 26) + 65
> ELSEIF J >= 97 AND J <= 122 THEN
> J = ((J - 84) MOD 26) + 97
> END IF
> T = T + CHR$(J)
> NEXT I
> Rot13$ = T
> END FUNCTION
>
>
> (all from http://ucsub.colorado.edu/~kominek/rot13/)
> --
> Matthew Miller ---> • mattdm@mattdm.org
> Quotes 'R' Us ---> • http://quotes-r-us.org/
> Boston University Linux --->
http://linux.bu.edu/
|
|
Message has 3 Replies:
Message is in Reply To:
30 Messages in This Thread:
 
 
 
- Entire Thread on One Page:
- Nested:
All | Brief | Compact | Dots
Linear:
All | Brief | Compact
This Message and its Replies on One Page:
- Nested:
All | Brief | Compact | Dots
Linear:
All | Brief | Compact
|
|
|
|
