Name:
	TextRotate
FullName:
	Rotation (Juliuce encryption) of string
URI:
	IW:SuikaWiki:ROT13
Initialize:
	sub ten25 ($) {
	    my $s = shift;
	    my $tr_f = q{あいうえおかきくけこさしすせそたちつてとなにぬねの}
	              .q{はひふへほまみむめもやゝゆ〜よらりるれろわゐんゑを}
	              .q{アイウエオカキクケコサシスセソタチツテトナニヌネノ}
	              .q{ハヒフヘホマミムメモヤヽユーヨラリルレロワヰンヱヲ};
	    my $tr_t = q{はひふへほまみむめもやゝゆ〜よらりるれろわゐんゑを}
	              .q{あいうえおかきくけこさしすせそたちつてとなにぬねの}
	              .q{ハヒフヘホマミムメモヤヽユーヨラリルレロワヰンヱヲ}
	              .q{アイウエオカキクケコサシスセソタチツテトナニヌネノ};
	    Jcode->new (\$s, 'euc')->tr ($tr_f => $tr_t);
	    $s;
	}
	sub rot13 ($) {
	    my $s = shift;
	    $s =~ tr/A-Za-z/N-ZA-Mn-za-m/;
	    $s;
	}

{
Name:
	wikiform_template/rot
FullName:
	Rot 13 and ten 25
Format:
	$r = $p->{text} || $o->{argv}->{'wikiform__'.$p->{source}};
	$r = rot13 ($r) unless $p->{rot13} && !$p->{rot13};
	$r = ten25 ($r) unless $p->{ten25} && !$p->{ten25};
}