藤原 誠/ Makoto Fujiwara
makot****@ki*****
2006年 6月 20日 (火) 12:43:15 JST
> 千葉市中央区長洲 > 藤原 誠 こんにちは。一か月くらい前に書いた | To: hns-users <h14m-****@lists*****> | From: 藤原 誠/ Makoto Fujiwara <makot****@ki*****> | Date: Fri, 26 May 2006 11:13:55 +0900 (に反応がないのは) ... とっくに hns-dev に入っている ... hns/board.cgi を使っている人はいない ... まだ誰も被害に会っていない かなと思ったりするのですが、そんなことないですよね ? それで、また最近やって来たので、二行増しました。 ここに生で書くと良くない気がしましたので、Perl でお送りします。 # 実は rot13 の 13 が 26 の半分だというのは今日気が付きました。 --- (藤原) -------------- next part -------------- #!/usr/pkg/bin/perl ## rot13(+) でお送り致します。 ## perl ./this-file ## として見て下さい。あるいは暗号化するには ## perl ./this-file ~/diary/spam_list ## などとします。 use strict; if ( $#ARGV > -1 ) { open (DATA, $ARGV[0]) || die " problem opening $ARGV[0]: $!"; } my @string = <DATA>; my $string = join '', @string; $string =~ tr/A-Za-z !"#$%&'()*+,-.\/0123456789:;<=>?/N-ZA-Mn-za-m0123456789:;<=>? !"#$%&'()*+,-.\//; print $string; ### !"#$%&'()*+,-./0123456789:;<=>? ### 0123456789:;<=>? !"#$%&'()*+,-./ __DATA__ uggc*??zbivr>oof&)>arg? uggc*??webyyre>pbz?cntr?gnqnynsvy uggc*??vvv>zcntr>wc ZlEbyrkErcyvpn uggc*??jjj>jroybt>eb?
