暫定本家cgiソース for perl3.xx（確か）

sorce 20101031 tips

Σ|D＜参考資料として謎のハッカー作 changexxx.txt
いい時代だったような気がしないでもないがドーデも

#! /usr/local/bin/perl

# 特殊変換
# 今のところファミコン色変換とか ｻ1 とかの変換

#
# 単純変換データ
#
# q[ｱx] => q[■], とか書くと逆変換の時に「■」が「ｱx」に置換されるので注意。
# 不可逆な変換等は下方のchange_to_xxx/change_from_xxxの中に直接書くこと。
#
# ======ここから============================================================
my %xxx_data = (
# ファミコン $00 - $0f
	q[ｱ0] => q[<FONT color=#7F7F7F>■</FONT>],
	q[ｱ1] => q[<FONT color=#0000FF>■</FONT>],
	q[ｱ2] => q[<FONT color=#0000BF>■</FONT>],
	q[ｱ3] => q[<FONT color=#472BBF>■</FONT>],

	q[ｱ4] => q[<FONT color=#970087>■</FONT>],
	q[ｱ5] => q[<FONT color=#AB0023>■</FONT>],
	q[ｱ6] => q[<FONT color=#AB1300>■</FONT>],
	q[ｱ7] => q[<FONT color=#8B1700>■</FONT>],

	q[ｱ8] => q[<FONT color=#533000>■</FONT>],
	q[ｱ9] => q[<FONT color=#007800>■</FONT>],
	q[ｱa] => q[<FONT color=#006B00>■</FONT>],
	q[ｱb] => q[<FONT color=#005B00>■</FONT>],

	q[ｱc] => q[<FONT color=#004358>■</FONT>],
	q[ｱd] => q[<FONT color=#000000>■</FONT>],
	q[ｱe] => q[<FONT color=#000001>■</FONT>],
	q[ｱf] => q[<FONT color=#000002>■</FONT>],

# ファミコン $10 - $1f
	q[ｲ0] => q[<FONT color=#BFBFBF>■</FONT>],
	q[ｲ1] => q[<FONT color=#0078F8>■</FONT>],
	q[ｲ2] => q[<FONT color=#0058F8>■</FONT>],
	q[ｲ3] => q[<FONT color=#6B47FF>■</FONT>],

	q[ｲ4] => q[<FONT color=#DB00CD>■</FONT>],
	q[ｲ5] => q[<FONT color=#E7005B>■</FONT>],
	q[ｲ6] => q[<FONT color=#F83800>■</FONT>],
	q[ｲ7] => q[<FONT color=#E75F13>■</FONT>],

	q[ｲ8] => q[<FONT color=#AF7F00>■</FONT>],
	q[ｲ9] => q[<FONT color=#00B800>■</FONT>],
	q[ｲa] => q[<FONT color=#00AB00>■</FONT>],
	q[ｲb] => q[<FONT color=#00AB47>■</FONT>],

	q[ｲc] => q[<FONT color=#008B8B>■</FONT>],
	q[ｲd] => q[<FONT color=#000003>■</FONT>],
	q[ｲe] => q[<FONT color=#000004>■</FONT>],
	q[ｲf] => q[<FONT color=#000005>■</FONT>],

# ファミコン $20 - $2f
	q[ｳ0] => q[<FONT color=#F8F8F8>■</FONT>],
	q[ｳ1] => q[<FONT color=#3FBFFF>■</FONT>],
	q[ｳ2] => q[<FONT color=#6B88FF>■</FONT>],
	q[ｳ3] => q[<FONT color=#9878F8>■</FONT>],

	q[ｳ4] => q[<FONT color=#F878F8>■</FONT>],
	q[ｳ5] => q[<FONT color=#F85898>■</FONT>],
	q[ｳ6] => q[<FONT color=#F87858>■</FONT>],
	q[ｳ7] => q[<FONT color=#FFA347>■</FONT>],

	q[ｳ8] => q[<FONT color=#F8B800>■</FONT>],
	q[ｳ9] => q[<FONT color=#B8F818>■</FONT>],
	q[ｳa] => q[<FONT color=#5BDB57>■</FONT>],
	q[ｳb] => q[<FONT color=#58F898>■</FONT>],

	q[ｳc] => q[<FONT color=#00EBDB>■</FONT>],
	q[ｳd] => q[<FONT color=#787878>■</FONT>],
	q[ｳe] => q[<FONT color=#000006>■</FONT>],
	q[ｳf] => q[<FONT color=#000007>■</FONT>],

# ファミコン $30 - $3f
	q[ｴ0] => q[<FONT color=#FFFFFF>■</FONT>],
	q[ｴ1] => q[<FONT color=#A7E7FF>■</FONT>],
	q[ｴ2] => q[<FONT color=#B8B8F8>■</FONT>],
	q[ｴ3] => q[<FONT color=#D8B8F8>■</FONT>],

	q[ｴ4] => q[<FONT color=#F8B8F8>■</FONT>],
	q[ｴ5] => q[<FONT color=#FBA7C3>■</FONT>],
	q[ｴ6] => q[<FONT color=#F0D0B0>■</FONT>],
	q[ｴ7] => q[<FONT color=#FFE3AB>■</FONT>],

	q[ｴ8] => q[<FONT color=#FBDB7B>■</FONT>],
	q[ｴ9] => q[<FONT color=#D8F878>■</FONT>],
	q[ｴa] => q[<FONT color=#B8F8B8>■</FONT>],
	q[ｴb] => q[<FONT color=#B8F8D8>■</FONT>],

	q[ｴc] => q[<FONT color=#00FFFF>■</FONT>],
	q[ｴd] => q[<FONT color=#F8D8F8>■</FONT>],
	q[ｴe] => q[<FONT color=#000008>■</FONT>],
	q[ｴf] => q[<FONT color=#000009>■</FONT>],

# 旧・色変換 ■
	q[ｼ0] => q[<FONT color=#000000>■</FONT>],
	q[ｼ1] => q[<FONT color=#1E90FF>■</FONT>],
	q[ｼ2] => q[<FONT color=#DC143C>■</FONT>],
	q[ｼ3] => q[<FONT color=#FF1493>■</FONT>],
	q[ｼ4] => q[<FONT color=#228B22>■</FONT>],
	q[ｼ5] => q[<FONT color=#008080>■</FONT>],
	q[ｼ6] => q[<FONT color=#FFD700>■</FONT>],
	q[ｼ7] => q[<FONT color=#FFA500>■</FONT>],
	q[ｼ8] => q[<FONT color=#FFDAB9>■</FONT>],
	q[ｼ9] => q[<FONT color=#808080>■</FONT>],
	q[ｼw] => q[<FONT color=#C0C0C0>■</FONT>],

# 旧・色変換 ■
	q[ｼ0] => q[<FONT color=#000000>■</FONT>],
	q[ｼ1] => q[<FONT color=#1E90FF>■</FONT>],
	q[ｼ2] => q[<FONT color=#DC143C>■</FONT>],
	q[ｼ3] => q[<FONT color=#FF1493>■</FONT>],
	q[ｼ4] => q[<FONT color=#228B22>■</FONT>],
	q[ｼ5] => q[<FONT color=#008080>■</FONT>],
	q[ｼ6] => q[<FONT color=#FFD700>■</FONT>],
	q[ｼ7] => q[<FONT color=#FFA500>■</FONT>],
	q[ｼ8] => q[<FONT color=#FFDAB9>■</FONT>],
	q[ｼ9] => q[<FONT color=#808080>■</FONT>],
	q[ｼw] => q[<FONT color=#C0C0C0>■</FONT>],
# 旧・色変換 ■点滅
	q[ｼx] => q[<FONT color=#000000><BLINK>■</BLINK></FONT>],
	q[ｼa] => q[<FONT color=#1E90FF><BLINK>■</BLINK></FONT>],
	q[ｼb] => q[<FONT color=#FF0000><BLINK>■</BLINK></FONT>],
	q[ｼc] => q[<FONT color=#FF1493><BLINK>■</BLINK></FONT>],
	q[ｼd] => q[<FONT color=#228B22><BLINK>■</BLINK></FONT>],
	q[ｼe] => q[<FONT color=#008080><BLINK>■</BLINK></FONT>],
	q[ｼf] => q[<FONT color=#FFD700><BLINK>■</BLINK></FONT>],
	q[ｼg] => q[<FONT color=#FFA500><BLINK>■</BLINK></FONT>],
	q[ｼh] => q[<FONT color=#FFDAB9><BLINK>■</BLINK></FONT>],
	q[ｼi] => q[<FONT color=#808080><BLINK>■</BLINK></FONT>],
	q[ｼj] => q[<FONT color=#C0C0C0><BLINK>■</BLINK></FONT>],
	q[ｼk] => q[<BLINK>■</BLINK>],

# 旧・色変換 ●
	q[ﾏ0] => q[<FONT color=#000000>●</FONT>],
	q[ﾏ1] => q[<FONT color=#1E90FF>●</FONT>],
	q[ﾏ2] => q[<FONT color=#DC143C>●</FONT>],
	q[ﾏ3] => q[<FONT color=#FF1493>●</FONT>],
	q[ﾏ4] => q[<FONT color=#228B22>●</FONT>],
	q[ﾏ5] => q[<FONT color=#008080>●</FONT>],
	q[ﾏ6] => q[<FONT color=#FFD700>●</FONT>],
	q[ﾏ7] => q[<FONT color=#FFA500>●</FONT>],
	q[ﾏ8] => q[<FONT color=#FFDAB9>●</FONT>],
	q[ﾏ9] => q[<FONT color=#808080>●</FONT>],
	q[ﾏw] => q[<FONT color=#C0C0C0>●</FONT>],
# 旧・色変換 ●点滅
	q[ﾏx] => q[<FONT color=#000000><BLINK>●</BLINK></FONT>],
	q[ﾏa] => q[<FONT color=#1E90FF><BLINK>●</BLINK></FONT>],
	q[ﾏb] => q[<FONT color=#FF0000><BLINK>●</BLINK></FONT>],
	q[ﾏc] => q[<FONT color=#FF1493><BLINK>●</BLINK></FONT>],
	q[ﾏd] => q[<FONT color=#228B22><BLINK>●</BLINK></FONT>],
	q[ﾏe] => q[<FONT color=#008080><BLINK>●</BLINK></FONT>],
	q[ﾏf] => q[<FONT color=#FFD700><BLINK>●</BLINK></FONT>],
	q[ﾏg] => q[<FONT color=#FFA500><BLINK>●</BLINK></FONT>],
	q[ﾏh] => q[<FONT color=#FFDAB9><BLINK>●</BLINK></FONT>],
	q[ﾏi] => q[<FONT color=#808080><BLINK>●</BLINK></FONT>],
	q[ﾏj] => q[<FONT color=#C0C0C0><BLINK>●</BLINK></FONT>],
	q[ﾏk] => q[<BLINK>●</BLINK>],

# 旧・色変換 ▲
	q[ｻ0] => q[<FONT color=#000000>▲</FONT>],
	q[ｻ1] => q[<FONT color=#1E90FF>▲</FONT>],
	q[ｻ2] => q[<FONT color=#DC143C>▲</FONT>],
	q[ｻ3] => q[<FONT color=#FF1493>▲</FONT>],
	q[ｻ4] => q[<FONT color=#228B22>▲</FONT>],
	q[ｻ5] => q[<FONT color=#008080>▲</FONT>],
	q[ｻ6] => q[<FONT color=#FFD700>▲</FONT>],
	q[ｻ7] => q[<FONT color=#FFA500>▲</FONT>],
	q[ｻ8] => q[<FONT color=#FFDAB9>▲</FONT>],
	q[ｻ9] => q[<FONT color=#808080>▲</FONT>],
	q[ｻw] => q[<FONT color=#C0C0C0>▲</FONT>],
# 旧・色変換 ▲点滅
	q[ｻx] => q[<FONT color=#000000><BLINK>▲</BLINK></FONT>],
	q[ｻa] => q[<FONT color=#1E90FF><BLINK>▲</BLINK></FONT>],
	q[ｻb] => q[<FONT color=#FF0000><BLINK>▲</BLINK></FONT>],
	q[ｻc] => q[<FONT color=#FF1493><BLINK>▲</BLINK></FONT>],
	q[ｻd] => q[<FONT color=#228B22><BLINK>▲</BLINK></FONT>],
	q[ｻe] => q[<FONT color=#008080><BLINK>▲</BLINK></FONT>],
	q[ｻf] => q[<FONT color=#FFD700><BLINK>▲</BLINK></FONT>],
	q[ｻg] => q[<FONT color=#FFA500><BLINK>▲</BLINK></FONT>],
	q[ｻh] => q[<FONT color=#FFDAB9><BLINK>▲</BLINK></FONT>],
	q[ｻi] => q[<FONT color=#808080><BLINK>▲</BLINK></FONT>],
	q[ｻj] => q[<FONT color=#C0C0C0><BLINK>▲</BLINK></FONT>],
	q[ｻk] => q[<BLINK>▲</BLINK>],

# 旧・色変換 ▼
	q[ﾜ0] => q[<FONT color=#000000>▼</FONT>],
	q[ﾜ1] => q[<FONT color=#1E90FF>▼</FONT>],
	q[ﾜ2] => q[<FONT color=#DC143C>▼</FONT>],
	q[ﾜ3] => q[<FONT color=#FF1493>▼</FONT>],
	q[ﾜ4] => q[<FONT color=#228B22>▼</FONT>],
	q[ﾜ5] => q[<FONT color=#008080>▼</FONT>],
	q[ﾜ6] => q[<FONT color=#FFD700>▼</FONT>],
	q[ﾜ7] => q[<FONT color=#FFA500>▼</FONT>],
	q[ﾜ8] => q[<FONT color=#FFDAB9>▼</FONT>],
	q[ﾜ9] => q[<FONT color=#808080>▼</FONT>],
	q[ﾜw] => q[<FONT color=#C0C0C0>▼</FONT>],
# 旧・色変換 ▼点滅
	q[ﾜx] => q[<FONT color=#000000><BLINK>▼</BLINK></FONT>],
	q[ﾜa] => q[<FONT color=#1E90FF><BLINK>▼</BLINK></FONT>],
	q[ﾜb] => q[<FONT color=#FF0000><BLINK>▼</BLINK></FONT>],
	q[ﾜc] => q[<FONT color=#FF1493><BLINK>▼</BLINK></FONT>],
	q[ﾜd] => q[<FONT color=#228B22><BLINK>▼</BLINK></FONT>],
	q[ﾜe] => q[<FONT color=#008080><BLINK>▼</BLINK></FONT>],
	q[ﾜf] => q[<FONT color=#FFD700><BLINK>▼</BLINK></FONT>],
	q[ﾜg] => q[<FONT color=#FFA500><BLINK>▼</BLINK></FONT>],
	q[ﾜh] => q[<FONT color=#FFDAB9><BLINK>▼</BLINK></FONT>],
	q[ﾜi] => q[<FONT color=#808080><BLINK>▼</BLINK></FONT>],
	q[ﾜj] => q[<FONT color=#C0C0C0><BLINK>▼</BLINK></FONT>],
	q[ﾜk] => q[<BLINK>▼</BLINK>],


# 旧・色変換 ◆
	q[ﾋ0] => q[<FONT color=#000000>◆</FONT>],
	q[ﾋ1] => q[<FONT color=#1E90FF>◆</FONT>],
	q[ﾋ2] => q[<FONT color=#DC143C>◆</FONT>],
	q[ﾋ3] => q[<FONT color=#FF1493>◆</FONT>],
	q[ﾋ4] => q[<FONT color=#228B22>◆</FONT>],
	q[ﾋ5] => q[<FONT color=#008080>◆</FONT>],
	q[ﾋ6] => q[<FONT color=#FFD700>◆</FONT>],
	q[ﾋ7] => q[<FONT color=#FFA500>◆</FONT>],
	q[ﾋ8] => q[<FONT color=#FFDAB9>◆</FONT>],
	q[ﾋ9] => q[<FONT color=#808080>◆</FONT>],
	q[ﾋw] => q[<FONT color=#C0C0C0>◆</FONT>],
	q[ﾋb] => q[<FONT color=#FF0000><BLINK>◆</BLINK></FONT>],
# 旧・色変換 ◆点滅
	q[ﾋx] => q[<FONT color=#000000><BLINK>◆</BLINK></FONT>],
	q[ﾋa] => q[<FONT color=#1E90FF><BLINK>◆</BLINK></FONT>],
	q[ﾋb] => q[<FONT color=#FF0000><BLINK>◆</BLINK></FONT>],
	q[ﾋc] => q[<FONT color=#FF1493><BLINK>◆</BLINK></FONT>],
	q[ﾋd] => q[<FONT color=#228B22><BLINK>◆</BLINK></FONT>],
	q[ﾋe] => q[<FONT color=#008080><BLINK>◆</BLINK></FONT>],
	q[ﾋf] => q[<FONT color=#FFD700><BLINK>◆</BLINK></FONT>],
	q[ﾋg] => q[<FONT color=#FFA500><BLINK>◆</BLINK></FONT>],
	q[ﾋh] => q[<FONT color=#FFDAB9><BLINK>◆</BLINK></FONT>],
	q[ﾋi] => q[<FONT color=#808080><BLINK>◆</BLINK></FONT>],
	q[ﾋj] => q[<FONT color=#C0C0C0><BLINK>◆</BLINK></FONT>],
	q[ﾋk] => q[<BLINK>◆</BLINK>],

# 旧・色変換 ★
	q[ﾎ0] => q[<FONT color=#000000>★</FONT>],
	q[ﾎ1] => q[<FONT color=#1E90FF>★</FONT>],
	q[ﾎ2] => q[<FONT color=#DC143C>★</FONT>],
	q[ﾎ3] => q[<FONT color=#FF1493>★</FONT>],
	q[ﾎ4] => q[<FONT color=#228B22>★</FONT>],
	q[ﾎ5] => q[<FONT color=#008080>★</FONT>],
	q[ﾎ6] => q[<FONT color=#FFD700>★</FONT>],
	q[ﾎ7] => q[<FONT color=#FFA500>★</FONT>],
	q[ﾎ8] => q[<FONT color=#FFDAB9>★</FONT>],
	q[ﾎ9] => q[<FONT color=#808080>★</FONT>],
	q[ﾎw] => q[<FONT color=#C0C0C0>★</FONT>],
	q[ﾎb] => q[<FONT color=#FF0000><BLINK>★</BLINK></FONT>],
# 旧・色変換 ★点滅
	q[ﾎx] => q[<FONT color=#000000><BLINK>★</BLINK></FONT>],
	q[ﾎa] => q[<FONT color=#1E90FF><BLINK>★</BLINK></FONT>],
	q[ﾎb] => q[<FONT color=#FF0000><BLINK>★</BLINK></FONT>],
	q[ﾎc] => q[<FONT color=#FF1493><BLINK>★</BLINK></FONT>],
	q[ﾎd] => q[<FONT color=#228B22><BLINK>★</BLINK></FONT>],
	q[ﾎe] => q[<FONT color=#008080><BLINK>★</BLINK></FONT>],
	q[ﾎf] => q[<FONT color=#FFD700><BLINK>★</BLINK></FONT>],
	q[ﾎg] => q[<FONT color=#FFA500><BLINK>★</BLINK></FONT>],
	q[ﾎh] => q[<FONT color=#FFDAB9><BLINK>★</BLINK></FONT>],
	q[ﾎi] => q[<FONT color=#808080><BLINK>★</BLINK></FONT>],
	q[ﾎj] => q[<FONT color=#C0C0C0><BLINK>★</BLINK></FONT>],
	q[ﾎk] => q[<BLINK>★</BLINK>],

# 旧・色変換 ・
	q[･0] => q[<FONT color=#000000>・</FONT>],
	q[･1] => q[<FONT color=#1E90FF>・</FONT>],
	q[･2] => q[<FONT color=#DC143C>・</FONT>],
	q[･3] => q[<FONT color=#FF1493>・</FONT>],
	q[･4] => q[<FONT color=#228B22>・</FONT>],
	q[･5] => q[<FONT color=#008080>・</FONT>],
	q[･6] => q[<FONT color=#FFD700>・</FONT>],
	q[･7] => q[<FONT color=#FFA500>・</FONT>],
	q[･8] => q[<FONT color=#FFDAB9>・</FONT>],
	q[･9] => q[<FONT color=#808080>・</FONT>],
	q[･w] => q[<FONT color=#C0C0C0>・</FONT>],
# 旧・色変換 ・点滅
	q[･x] => q[<FONT color=#000000><BLINK>・</BLINK></FONT>],
	q[･a] => q[<FONT color=#1E90FF><BLINK>・</BLINK></FONT>],
	q[･b] => q[<FONT color=#FF0000><BLINK>・</BLINK></FONT>],
	q[･c] => q[<FONT color=#FF1493><BLINK>・</BLINK></FONT>],
	q[･d] => q[<FONT color=#228B22><BLINK>・</BLINK></FONT>],
	q[･e] => q[<FONT color=#008080><BLINK>・</BLINK></FONT>],
	q[･f] => q[<FONT color=#FFD700><BLINK>・</BLINK></FONT>],
	q[･g] => q[<FONT color=#FFA500><BLINK>・</BLINK></FONT>],
	q[･h] => q[<FONT color=#FFDAB9><BLINK>・</BLINK></FONT>],
	q[･i] => q[<FONT color=#808080><BLINK>・</BLINK></FONT>],
	q[･j] => q[<FONT color=#C0C0C0><BLINK>・</BLINK></FONT>],
	q[･k] => q[<BLINK>・</BLINK>],
	
# 旧・色変換 旦
	q[ﾁ0] => q[<FONT color=#000000>旦</FONT>],
	q[ﾁ1] => q[<FONT color=#1E90FF>旦</FONT>],
	q[ﾁ2] => q[<FONT color=#DC143C>旦</FONT>],
	q[ﾁ3] => q[<FONT color=#FF1493>旦</FONT>],
	q[ﾁ4] => q[<FONT color=#228B22>旦</FONT>],
	q[ﾁ5] => q[<FONT color=#008080>旦</FONT>],
	q[ﾁ6] => q[<FONT color=#FFD700>旦</FONT>],
	q[ﾁ7] => q[<FONT color=#FFA500>旦</FONT>],
	q[ﾁ8] => q[<FONT color=#FFDAB9>旦</FONT>],
	q[ﾁ9] => q[<FONT color=#808080>旦</FONT>],
	q[ﾁw] => q[<FONT color=#C0C0C0>旦</FONT>],
	q[ﾁb] => q[<FONT color=#FF0000><BLINK>旦</BLINK></FONT>],
# 旧・色変換 旦点滅
	q[ﾁx] => q[<FONT color=#000000><BLINK>旦</BLINK></FONT>],
	q[ﾁa] => q[<FONT color=#1E90FF><BLINK>旦</BLINK></FONT>],
	q[ﾁb] => q[<FONT color=#FF0000><BLINK>旦</BLINK></FONT>],
	q[ﾁc] => q[<FONT color=#FF1493><BLINK>旦</BLINK></FONT>],
	q[ﾁd] => q[<FONT color=#228B22><BLINK>旦</BLINK></FONT>],
	q[ﾁe] => q[<FONT color=#008080><BLINK>旦</BLINK></FONT>],
	q[ﾁf] => q[<FONT color=#FFD700><BLINK>旦</BLINK></FONT>],
	q[ﾁg] => q[<FONT color=#FFA500><BLINK>旦</BLINK></FONT>],
	q[ﾁh] => q[<FONT color=#FFDAB9><BLINK>旦</BLINK></FONT>],
	q[ﾁi] => q[<FONT color=#808080><BLINK>旦</BLINK></FONT>],
	q[ﾁj] => q[<FONT color=#C0C0C0><BLINK>旦</BLINK></FONT>],
	q[ﾁk] => q[<BLINK>旦</BLINK>],

# 初期・お茶変換
	q[ｫa!] => q[<FONT color=#DC143C>旦~</FONT>],
	q[ｫb!] => q[<FONT color=#1E90FF>旦~</FONT>],
	q[ｫc!] => q[<FONT color=#FFA500>旦~</FONT>],
	q[ｫd!] => q[<FONT color=#FF1493>旦~</FONT>],
	q[ｫe!] => q[<FONT color=#008080>旦~</FONT>],
	q[ｫf!] => q[<FONT color=#228B22>旦~</FONT>],
	q[ｫg!] => q[<FONT color=#FFD700>旦~</FONT>],

#まーきー
#	q[ｩ0] => q[</marquee >],
#	q[ｩ1] => q[<marquee>],
#	q[ｩ2] => q[<marquee behavior="alternate" direction="up" height="50">],
#	q[ｩ3] => q[<marquee behavior="alternate">],
#	q[ｩ4] => q[<marquee behavior="slide">],
#	q[ｩ5] => q[<marquee direction="right">],
#	q[ｩ6] => q[<marquee scrolldelay="100">],
#	q[ｩ7] => q[<marquee scrollamount="8">],
#	q[ｩ8] => q[<marquee direction="down">],
#	q[ｩ9] => q[<marquee direction="up">],

# 特定文字列
	q[おんぷたん] => 	q[<FONT color=#EE82EE>おんぷたん</FONT>],
	q[うさだ] =>	 	q[<FONT color=#FFC0CB>うさだ</FONT>],
	q[ぷちこ] =>	 	q[<FONT color=#FFFF00>ぷちこ</FONT>],
	q[でじこ] =>	 	q[<FONT color=#20B2AA>でじこ</FONT>],
	q[ぴよこ] =>	 	q[<FONT color=#9932CC>ぴよこ</FONT>],
	q[しまこ！] =>	 	q[<FONT color=#B04040>しまこ！</FONT>],
# team-A
	q[あやちゅう]	=> 	q[<FONT color=#FF0000><BLINK>あやちゅう</BLINK></FONT>],
	q[アリス]	=> 	q[<FONT color=#ADD8E6><BLINK>アリス</BLINK></FONT>],
	q[iRC]		=> 	q[<FONT color=#ADD8E6><BLINK>iRC</BLINK></FONT>],
	q[ﾕｱﾆｰﾄ]	=> 	q[<FONT color=#B0E0E6><BLINK>ﾕｱﾆｰﾄ</BLINK></FONT>],
	q[擁護派]	=> 	q[<FONT color=#87CEEB><BLINK>擁護派</BLINK></FONT>],
	q[おちょくり派]	=>	q[<FONT color=#FF00FF><BLINK>おちょくり派</BLINK></FONT>],
	q[ＳＨ七瀬]	=>	q[<FONT color=#FFFF00><BLINK>ＳＨ七瀬</BLINK></FONT>],
	q[SH七瀬]	=>	q[<FONT color=#FFFF00><BLINK>SH七瀬</BLINK></FONT>],
	q[マソ\ちゅう]	=>	q[<FONT color=#FF0000><BLINK>マソ\ちゅう</BLINK></FONT>],
	q[マソ\]	=>	q[<FONT color=#FF0000><BLINK>マソ\</BLINK></FONT>],
	q[ﾏｿ]		=>	q[<FONT color=#FF0000><BLINK>ﾏｿ</BLINK></FONT>],
	q[長文先生]	=>	q[<FONT color=#FF0000><BLINK>長文先生</BLINK></FONT>],
	q[funya]	=>	q[<FONT color=#FF0000><BLINK>funya</BLINK></FONT>],
	q[広報室長]	=>	q[<FONT color=#FF0000><BLINK>広報室長</BLINK></FONT>],
#	q[室長]		=>	q[<FONT color=#FF0000><BLINK>室長</BLINK></FONT>],
	q[ﾁｰﾑ]		=>	q[<FONT color=#FF0000><BLINK>ﾁｰﾑ</BLINK></FONT>],
	q[TEAM]		=>	q[<FONT color=#FF0000><BLINK>TEAM</BLINK></FONT>],
	q[team]		=>	q[<FONT color=#FF0000><BLINK>team</BLINK></FONT>],
	q[(#ﾟ皿ﾟ)]	=>	q[<FONT color=#FF0000><BLINK>(#ﾟ皿ﾟ)</BLINK></FONT>],
	q[ネコニ〜ト]	=>	q[<FONT color=#808080><BLINK>ネコニ〜ト</BLINK></FONT>],
	q[ユアニ〜ト]	=>	q[<FONT color=#ADD8E6><BLINK>ユアニ〜ト</BLINK></FONT>],

#管理人（50音順）
	q[AGStar]	=>	q[<FONT color=#FF0000><BLINK><B>AGStar</B></BLINK></FONT>],
	q[クワ]		=>	q[<FONT color=#EE82EE>クワ</FONT>],
	q[qwerty]	=>	q[<FONT color=#EE82EE>qwerty</FONT>],
	q[ｼ罕ｼ毎]	=>	q[<FONT color=#EE82EE>ｼ罕ｼ毎</FONT>],
	q[下衆ナッツ]	=>	q[<FONT color=#DA70D6>下衆ナッツ</FONT>],
	q[下衆ナッシ]	=>	q[<FONT color=#DA70D6>下衆ナッシ</FONT>],
	q[下衆ﾅｯｼ]	=>	q[<FONT color=#DA70D6>下衆ﾅｯｼ</FONT>],
	q[疑古猫]	=>	q[<FONT color=#808080>疑古猫</FONT>],
	q[ｷﾞｺ猫]	=>	q[<FONT color=#808080>ｷﾞｺ猫</FONT>],
	q[ギコ猫]	=>	q[<FONT color=#808080>ギコ猫</FONT>],
#	q[猫]		=>	q[<FONT color=#808080>猫</FONT>],
	q[ナッシ]	=>	q[<FONT color=#DA70D6>ナッシ</FONT>],
	q[ﾅｯｼ]		=>	q[<FONT color=#DA70D6>ﾅｯｼ</FONT>],
	q[下衆]		=>	q[<FONT color=#ADD8E6><BLINK>下衆</BLINK></FONT>],
	q[下衆ナッツ]	=>	q[<FONT color=#DA70D6>下衆ナッツ</FONT>],
	q[しば]		=>	q[<FONT color=#ADD8E6>しば</FONT>],
	q[酋長]		=>	q[<FONT color=#B04040>酋長</FONT>],
	q[ds]		=>	q[<FONT color=#6495ED>ds</FONT>],
	q[生入]		=>	q[<FONT color=#FFD700>生入</FONT>],
	q[生ち]		=>	q[<FONT color=#FFD700>生ち</FONT>],
	q[生デブ]	=>	q[<FONT color=#FFD700>生デブ</FONT>],
	q[生ﾃﾞﾌﾞ]	=>	q[<FONT color=#FFD700>生ﾃﾞﾌﾞ</FONT>],
	q[まな]		=>	q[<FONT color=#87CEEB>まな</FONT>],
	q[腹黒]		=>	q[<FONT color=#808080>腹黒</FONT>],
	q[ブラックポンポン] =>	q[<FONT color=#808080>ブラックポンポン</FONT>],
	q[ﾌﾞﾗｯｸﾎﾟﾝﾎﾟﾝ]	=>	q[<FONT color=#808080>ﾌﾞﾗｯｸﾎﾟﾝﾎﾟﾝ</FONT>],
	q[ひなた]	=>	q[<FONT color=#FFA500>ひなた</FONT>],
	q[妖精]		=>	q[<FONT color=#6495ED>妖精</FONT>],
#掲示板
	q[II]		=>	q[<FONT color=#FF0000><BLINK><B>II</B></BLINK></FONT>],
	q[みらい]	=>	q[<FONT color=#6495ED>みらい</FONT>],
	q[あやしい]	=>	q[<FONT color=#ADD8E6>あやしい</FONT>],
	q[ｸﾘ島]		=>	q[<FONT color=#B04040>ｸﾘ島</FONT>],
	q[クリスマス島]	=>	q[<FONT color=#B04040>クリスマス島</FONT>],
	q[ﾘﾐ]		=>	q[<FONT color=#008080>ﾘﾐ</FONT>],
	q[ﾘﾐｸｽ]		=>	q[<FONT color=#008080>ﾘﾐｸｽ</FONT>],
	q[ﾘﾊﾞｰｽ]	=>	q[<FONT color=#008080>ﾘﾊﾞｰｽ</FONT>],
	q[ﾘﾊﾞｽ]		=>	q[<FONT color=#008080>ﾘﾊﾞｽ</FONT>],
	q[本店]		=>	q[<FONT color=#6495ED>本店</FONT>],
	q[退避]		=>	q[<FONT color=#FFD700>退避</FONT>],
	q[暫定]		=>	q[<FONT color=#DA70D6>暫定</FONT>],
	q[暫退]		=>	q[<FONT color=#FFD700>暫退</FONT>],
	q[暫暫]		=>	q[<FONT color=#FFD700>暫暫</FONT>],
	q[暫定退避]	=>	q[<FONT color=#FFD700>暫定退避</FONT>],
#mixi
	q[mixi]		=>	q[<FONT color=#FF8C00>mixi</FONT>],
	q[ﾏｲﾐｸ]		=>	q[<FONT color=#FF8C00>ﾏｲﾐｸ</FONT>],
	q[マイミク]	=>	q[<FONT color=#FF8C00>マイミク</FONT>],

#other
	q[中島らも]	=>	q[<FONT color=#87CEEB>中島らも</FONT>],
	q[暫定君]	=>	q[<FONT color=#ADD8E6>暫定君</FONT>],

##N.G.WORD
#	q[URL=]		=>	q[<FONT color=#FF0000><BLINK>URL=</BLINK></FONT>],
#	q[\[url=]	=>	q[<FONT color=#FF0000><BLINK>\[url=</BLINK></FONT>],
#	q[viagra]	=>	q[<FONT color=#FF0000><BLINK>viagra</BLINK></FONT>],
#	q[phentermine]	=>	q[<FONT color=#FF0000><BLINK>phentermine</BLINK></FONT>],
#	q[nutzworld]	=>	q[<FONT color=#FF0000><BLINK>nutzworld</BLINK></FONT>],
#	q[ppfoi]	=>	q[<FONT color=#FF0000><BLINK>ppfoi</BLINK></FONT>],
#	q[sky-hart]	=>	q[<FONT color=#FF0000><BLINK>sky-hart</BLINK></FONT>],
#	q[blog\.x07\.jp] =>	q[<FONT color=#FF0000><BLINK>blog\.x07\.jp</BLINK></FONT>],
#	q[cute-lala]	=>	q[<FONT color=#FF0000><BLINK>cute-lala</BLINK></FONT>],
#	q[ocxgf]	=>	q[<FONT color=#FF0000><BLINK>ocxgf</BLINK></FONT>],
#	q[vip-blog]	=>	q[<FONT color=#FF0000><BLINK>vip-blog</BLINK></FONT>],
#	q[ocxgf]	=>	q[<FONT color=#FF0000><BLINK>ocxgf</BLINK></FONT>],
	q[casino\.ru]	=>	q[<FONT color=#FF0000><BLINK>casino\.ru</BLINK></FONT>],
#	q[web]		=>	q[<FONT color=#FF0000><BLINK>web</BLINK></FONT>],
#	q[\/url]		=>	q[<FONT color=#FF0000><BLINK>\/url</BLINK></FONT>],

	q[/URL=]		=>	q[<FONT color=#FF0000><BLINK>/URL=</BLINK></FONT>],
	q[viagra]		=>	q[<FONT color=#FF0000><BLINK>viagra</BLINK></FONT>],
	q[phentermine]		=>	q[<FONT color=#FF0000><BLINK>phentermine</BLINK></FONT>],
	q[road!]		=>	q[<FONT color=#FF0000><BLINK>road!</BLINK></FONT>],
	q[nutzworld]		=>	q[<FONT color=#FF0000><BLINK>nutzworld</BLINK></FONT>],
	q[ppfoi]		=>	q[<FONT color=#FF0000><BLINK>ppfoi</BLINK></FONT>],
	q[sky-hart]		=>	q[<FONT color=#FF0000><BLINK>sky-hart</BLINK></FONT>],
	q[blog\.x07\.jp]	=>	q[<FONT color=#FF0000><BLINK>blog\.x07\.jp</BLINK></FONT>],
	q[cute-lala]		=>	q[<FONT color=#FF0000><BLINK>cute-lala</BLINK></FONT>],
	q[ocxgf]		=>	q[<FONT color=#FF0000><BLINK>ocxgf</BLINK></FONT>],
	q[vip-blog]		=>	q[<FONT color=#FF0000><BLINK>vip-blog</BLINK></FONT>],
	q[ocxgf]		=>	q[<FONT color=#FF0000><BLINK>ocxgf</BLINK></FONT>],
	q[a href= ]	=>	q[<FONT color=#FF0000><BLINK>a href= </BLINK></FONT>],
	q[\.ru]			=>	q[<FONT color=#FF0000><BLINK>\.ru</BLINK></FONT>],

	q[Aloha!]		=>	q[<FONT color=#FF0000><BLINK>Aloha!</BLINK></FONT>],
	q[\[url=]		=>	q[<FONT color=#FF0000><BLINK>\[url=</BLINK></FONT>],
#	q[casino]		=>	q[<FONT color=#FF0000><BLINK>casino</BLINK></FONT>],
#	q[\.ru]			=>	q[<FONT color=#FF0000><BLINK>\.ru</BLINK></FONT>],

);

# ======ここまで============================================================

# 処理用のパターン
my %xxx_back = map { $xxx_data{$_}, $_ } keys(%xxx_data);
my $xxx_data_pattern = "(?:" . join("|", map { quotemeta($_) } keys(%xxx_data)) . ")";
my $xxx_back_pattern = "(?:" . join("|", map { quotemeta($_) } keys(%xxx_back)) . ")";

# 特殊な変換を行う(色付けとか)
sub change_to_xxx {
	my($message) = @_;

#フォント対策　キーワードリンク(20071209)

#if (($message =~ /\[\[([^']+?)\]\]/) || ($message =~ /\(\(([^']+?)\)\)/ )){
#$utf8mes = &utf8Enc($1);
#}

#if ($message =~ /\{([^']+?)\}\}/){
#$euc8mes = &eucEnc($1);
#}

#重くなるけど暫定でこんな感じ 20071211 Thanks 夕暮れ

#マーキー追加※タグ閉じ忘れはタグ不適とみなします(20080115)
$message =~ s#ｩ1([^']+?)ｩ0#<marquee>$1</marquee >#g;
$message =~ s#ｩ2([^']+?)ｩ0#<marquee behavior="alternate" direction="up" height="50">$1</marquee >#g;
$message =~ s#ｩ3([^']+?)ｩ0#<marquee behavior="alternate">$1</marquee >#g;
$message =~ s#ｩ4([^']+?)ｩ0#<marquee behavior="slide">$1</marquee >#g;
$message =~ s#ｩ5([^']+?)ｩ0#<marquee direction="right">$1</marquee >#g;
$message =~ s#ｩ6([^']+?)ｩ0#<marquee scrolldelay="100">$1</marquee >#g;
$message =~ s#ｩ7([^']+?)ｩ0#<marquee scrollamount="8">$1</marquee >#g;
$message =~ s#ｩ8([^']+?)ｩ0#<marquee direction="down">$1</marquee >#g;
$message =~ s#ｩ9([^']+?)ｩ0#<marquee direction="up">$1</marquee >#g;

#カラー文追加※タグ閉じ忘れはタグ不適とみなします(20080312)
$message =~ s#ｶ1([^']+?)ｶ0#<FONT color=\#1E91FF>$1</FONT>#g;
$message =~ s#ｶ2([^']+?)ｶ0#<FONT color=\#DC153C>$1</FONT>#g;
$message =~ s#ｶ3([^']+?)ｶ0#<FONT color=\#FF1593>$1</FONT>#g;
$message =~ s#ｶ4([^']+?)ｶ0#<FONT color=\#228C22>$1</FONT>#g;
$message =~ s#ｶ5([^']+?)ｶ0#<FONT color=\#008180>$1</FONT>#g;
$message =~ s#ｶ6([^']+?)ｶ0#<FONT color=\#FFD800>$1</FONT>#g;
$message =~ s#ｶ7([^']+?)ｶ0#<FONT color=\#FFA600>$1</FONT>#g;
$message =~ s#ｶ8([^']+?)ｶ0#<FONT color=\#FFDBB9>$1</FONT>#g;
$message =~ s#ｶ9([^']+?)ｶ0#<FONT color=\#808180>$1</FONT>#g;
$message =~ s#ｶw([^']+?)ｶ0#<FONT color=\#C0C1C0>$1</FONT>#g;

$message =~ s#ｶa([^']+?)ｶ0#<font color=\#1E91FF><BLINK>$1</BLINK></font>#g;
$message =~ s#ｶb([^']+?)ｶ0#<font color=\#DC153C><BLINK>$1</BLINK></font>#g;
$message =~ s#ｶc([^']+?)ｶ0#<font color=\#FF1593><BLINK>$1</BLINK></font>#g;
$message =~ s#ｶd([^']+?)ｶ0#<font color=\#228C22><BLINK>$1</BLINK></font>#g;
$message =~ s#ｶe([^']+?)ｶ0#<font color=\#008180><BLINK>$1</BLINK></font>#g;
$message =~ s#ｶf([^']+?)ｶ0#<font color=\#FFD800><BLINK>$1</BLINK></font>#g;
$message =~ s#ｶg([^']+?)ｶ0#<font color=\#FFA600><BLINK>$1</BLINK></font>#g;
$message =~ s#ｶh([^']+?)ｶ0#<font color=\#FFDBB9><BLINK>$1</BLINK></font>#g;
$message =~ s#ｶi([^']+?)ｶ0#<font color=\#808180><BLINK>$1</BLINK></font>#g;
$message =~ s#ｶj([^']+?)ｶ0#<font color=\#C0C1C0><BLINK>$1</BLINK></font>#g;
$message =~ s#ｶk([^']+?)ｶ0#<BLINK>$1</BLINK>#g;

#カラー拡張(20080606)
$message =~ s#\[([a-fA-F\d]+?):([^']+?)\]#<FONT color=\#$1>$2</FONT>#g;
#$message =~ s#\[([a-fA-F\d]+?)\|([^']+?)\]#<FONT color=\#$1><BLINK>$2</BLINK></FONT>#g;


#$message =~ s#\[\[([^']+?)\]\]#<A HREF=\"http:\/\/ja\.wikipedia\.org\/wiki\/$1\"><FONT COLOR=E0C080>$1<\/FONT><\/A>#g;
while ($message =~ /\[\[([^']+?)\]\]/g){ 
my $utm = &utf8Enc($1);
$message =~ s#\[\[([^']+?)\]\]#<A HREF=\"http:\/\/ja\.wikipedia\.org\/wiki\/$utm\"><FONT COLOR=\"\#E0C080\">$1<\/FONT><\/A>#;
 }
#$message =~ s#\[\[([^']+?)\]\]#<A HREF=\"http:\/\/ja\.wikipedia\.org\/wiki\/$1\"><FONT COLOR=E0C080>$1<\/FONT><\/A>#g;
while ($message =~ /\{\{([^']+?)\}\}/g){ 
my $eum = &eucEnc($1);
$message =~ s#\{\{([^']+?)\}\}#<A HREF=\"http:\/\/d\.hatena\.ne\.jp\/keyword\/$eum\"><FONT COLOR="\#80C0E0\">$1</FONT></A>#;
}
#$message =~ s#\(\(([^']+?)\)\)#<A HREF=\"http:\/\/www\.google\.co\.jp\/search\?q=$1&lr=lang_ja"><FONT COLOR=E04040>$1</FONT></A>#g;
while ($message =~ /\(\(([^']+?)\)\)/g){ 
my $utm = &utf8Enc($1);
$message =~ s#\(\(([^']+?)\)\)#<A HREF=\"http:\/\/www\.google\.co\.jp\/search\?q=$utm&lr=lang_ja"><FONT COLOR=\"\#E04040\">$1</FONT></A>#;
}
$message =~ s#&lt;marquee([^']*?)&gt;([^']+?)&lt;/marquee&gt;#<marquee$1>$2</marquee>#g;

	# %xxx_dataの分を変換 (SJIS,タグ対応済み)
	$message =~ s/\G((?:[^\x81-\x9f\xe0-\xfc<]|[\x81-\x9f\xe0-\xfc].|<[^>]*?>)*?)($xxx_data_pattern)/$1$xxx_data{$2}/xgo;

	# その他の変換を行う場合はこの辺に記述する
#$message =~ s#マ#<FONT color=#EE82EE><BLINK>マ</BLINK></FONT>#g;

$message =~s/ネコニ\Qー\Eト/<FONT color=#ADD8E6><BLINK>ネコニ〜ト<\/BLINK><\/FONT>/g;
$message =~s/ユアニ\Qー\Eト/<FONT color=#ADD8E6><BLINK>ユアニ〜ト<\/BLINK><\/FONT>/g;
$message =~s/\Q深海\E/<FONT color=#ADD8E6><BLINK>ｼ罕ｼ毎<\/BLINK><\/FONT>/g;
$message =~s/,/&quot;/g;
#$message =~s/\0/&quot;/g;

	return $message;
}

# 特殊な変換を戻す(色付けとか)
sub change_from_xxx {
	my($message) = @_;

	# %xxx_dataの分を戻す
	$message =~ s/($xxx_back_pattern)/$xxx_back{$1}/go;

	# その他の変換を戻す場合はこの辺に記述する

$message =~s/<FONT color=#ADD8E6><BLINK>\Q深海\E<\/BLINK><\/FONT>/\深海\E/g;

#フォント対策　キーワードリンク(20071209)
$message =~s#<A HREF=\"http:\/\/ja\.wikipedia\.org\/wiki\/([^']+?)\"><FONT COLOR=([^']+?)>([^']+?)</FONT></A>#\[\[$3\]\]#g;
$message =~s#<A HREF=\"http:\/\/d\.hatena\.ne\.jp\/keyword\/([^']+?)\"><FONT COLOR=([^']+?)>([^']+?)</FONT></A>#\{\{$3\}\}#g;
$message =~s#<A HREF=\"http:\/\/www\.google\.co\.jp\/search\?q=([^']+?)&lr=lang_ja\"><FONT COLOR=([^']+?)>([^']+?)</FONT></A>#\(\($3\)\)#g;
$message =~ s#<marquee([^']*?)>([^']+?)</marquee>#&lt;marquee$1&gt;$2&lt;/marquee&gt;#g;

#マーキー追加※タグ閉じ忘れはタグ不適とみなします(20080115)
$message =~ s#<marquee>([^']+?)</marquee >#ｩ1$1ｩ0#g;
$message =~ s#<marquee behavior="alternate" direction="up" height="50">([^']+?)</marquee >#ｩ2$1ｩ0#g;
$message =~ s#<marquee behavior="alternate">([^']+?)</marquee >#ｩ3$1ｩ0#g;
$message =~ s#<marquee behavior="slide">([^']+?)</marquee >#ｩ4$1ｩ0#g;
$message =~ s#<marquee direction="right">([^']+?)</marquee >#ｩ5$1ｩ0#g;
$message =~ s#<marquee scrolldelay="100">([^']+?)</marquee >#ｩ6$1ｩ0#g;
$message =~ s#<marquee scrollamount="8">([^']+?)</marquee >#ｩ7$1ｩ0#g;
$message =~ s#<marquee direction="down">([^']+?)</marquee >#ｩ8$1ｩ0#g;
$message =~ s#<marquee direction="up">([^']+?)</marquee >#ｩ9$1ｩ0#g;

#カラー文追加(20080312)
$message =~ s#<FONT color=\#1E91FF>([^']+?)</FONT>#ｶ1$1ｶ0#g;
$message =~ s#<FONT color=\#DC153C>([^']+?)</FONT>#ｶ2$1ｶ0#g;
$message =~ s#<FONT color=\#FF1593>([^']+?)</FONT>#ｶ3$1ｶ0#g;
$message =~ s#<FONT color=\#228C22>([^']+?)</FONT>#ｶ4$1ｶ0#g;
$message =~ s#<FONT color=\#008180>([^']+?)</FONT>#ｶ5$1ｶ0#g;
$message =~ s#<FONT color=\#FFD800>([^']+?)</FONT>#ｶ6$1ｶ0#g;
$message =~ s#<FONT color=\#FFA600>([^']+?)</FONT>#ｶ7$1ｶ0#g;
$message =~ s#<FONT color=\#FFDBB9>([^']+?)</FONT>#ｶ8$1ｶ0#g;
$message =~ s#<FONT color=\#808180>([^']+?)</FONT>#ｶ9$1ｶ0#g;
$message =~ s#<FONT color=\#C0C1C0>([^']+?)</FONT>#ｶw$1ｶ0#g;

$message =~ s#<font color=\#1E91FF><BLINK>([^']+?)</BLINK></font>#ｶa$1ｶ0#g;
$message =~ s#<font color=\#DC153C><BLINK>([^']+?)</BLINK></font>#ｶb$1ｶ0#g;
$message =~ s#<font color=\#FF1593><BLINK>([^']+?)</BLINK></font>#ｶc$1ｶ0#g;
$message =~ s#<font color=\#228C22><BLINK>([^']+?)</BLINK></font>#ｶd$1ｶ0#g;
$message =~ s#<font color=\#008180><BLINK>([^']+?)</BLINK></font>#ｶe$1ｶ0#g;
$message =~ s#<font color=\#FFD800><BLINK>([^']+?)</BLINK></font>#ｶf$1ｶ0#g;
$message =~ s#<font color=\#FFA600><BLINK>([^']+?)</BLINK></font>#ｶg$1ｶ0#g;
$message =~ s#<font color=\#FFDBB9><BLINK>([^']+?)</BLINK></font>#ｶh$1ｶ0#g;
$message =~ s#<font color=\#808180><BLINK>([^']+?)</BLINK></font>#ｶi$1ｶ0#g;
$message =~ s#<font color=\#C0C1C0><BLINK>([^']+?)</BLINK></font>#ｶj$1ｶ0#g;
$message =~ s#<BLINK>([^']+?)</BLINK>#ｶk$1ｶ0#g;

#カラー拡張(20080606)
$message =~ s#<FONT color=\#([a-fA-F\d]+?)>([^']+?)</FONT>#\[$1:$2\]#g;
#$message =~ s#<FONT color=\#([a-fA-F\d]+?)><BLINK>([^']+?)</BLINK></FONT>#\[\#$1\|$2\]#g;


#独自タグは不要だった
#while ($message =~ /<A HREF=\"http:\/\/ja\.wikipedia\.org\/wiki\/([^']+?)\">([^']+?)<\/A>/g){ 
#my $utm = &utf8Dec($1);
#$message =~s#<A HREF=\"http:\/\/ja\.wikipedia\.org\/wiki\/([^']+?)\">([^']+?)</A>#\[\[$utm\]\]#g;
# }

	return $message;
}

# html関連の正規表現
my $re_xtag_name = qr#[a-zA-Z0-9\.\_\:\-]+#;

# 画像の拡張子の正規表現
my $re_image_suffix = qr#jpg|jpeg|png|gif#i;

# タグの中にあると危なそうなものの正規表現
my $re_dangerous = qr#mailto:|script|file:|strange\.kurumi\.ne\.jp|env|xmp|hainuwele|bbss.cgi|click#i;

# タグ許可ルーチン
sub tag_change {
	my($message, $nazomode) = @_;

	if($nazomode) {
		# なぞモード

		# URL自動リンクの調整その1
		my $autolink = ($message =~ s#<A href="[^"]*" target="link">([^<]*)</A>#\0$1\0#go);

		# "と&を戻す
		$message =~ s#((?:\G|>)[^<]*?)&quot;#$1"#go;
		$message =~ s#((?:\G|>)[^<]*?)&amp;#$1&#go;

		# タグっぽいものをタグに戻す
		$message =~ s#&lt;(/?$re_xtag_name(?:\s+(?:$re_xtag_name\s*(?:=\s*(?:"[^"]*"|[^\s]*?)[\s\0]*)?)*)?/?)&gt;#&xtag_filter($1, 1)#ego;

		# URL自動リンクの調整その2と画像展開
		if($autolink) {
			my $inline_img = ($message =~ s#((?:\G|>)[^<]*?)\0([^\0]*?$re_image_suffix)\0#$1<IMG src="$2">#go);
			$message =~ s#((?:\G|>)[^<]*?)\0([^\0]*?)\0#$1<A href="$2" target="link">$2</A>#go;
			$message =~ tr/\0//d;
			if($inline_img) {
				$message =~ s#<IMG src="([^"]*$re_dangerous[^"]*)">#<A href="$1" target="link">$1</A>#go;
			}
		}
	} else {
		# 通常モード
		# (未実装)
	}

	return $message;
}
##ＵＲＬエンコード

#UTF-8にエンコード(夕暮れ管理人)
sub utf8Enc
	{
	my ( $Mes ) = @_ ;
	use Jcode;
	Jcode::convert(\$Mes, 'utf8' , 'sjis');
	$Mes =~ tr/ /+/;
	$Mes =~ s/(\W)/'%'.unpack("H2", $1)/ego;
	return $Mes;
	}

##はてな用

sub eucEnc
	{
	my ( $Mes ) = @_ ;
	use Jcode;
	Jcode::convert(\$Mes, 'euc' , 'sjis');
	$Mes =~ tr/ /+/;
	$Mes =~ s/(\W)/'%'.unpack("H2", $1)/ego;
	return $Mes;
	}
##ＵＲＬデコード

sub utf8Dec
	{
	my ( $Mes ) = @_ ;
	$Mes=~tr/+/ /;
	$Mes=~s/%([a-fA-F0-9]{2})/pack("C",hex($1))/eg;
	use Jcode;
	Jcode::convert(\$Mes, 'sjis' , 'utf8');
	}
sub eucDec
	{
	my ( $Mes ) = @_ ;
	$Mes=~tr/+/ /;
	$Mes=~s/%([a-fA-F0-9]{2})/pack("C",hex($1))/eg;
	use Jcode;
	Jcode::convert(\$Mes, 'sjis' , 'euc');
	}

sub URLe{my $URLencode=shift;
$URLencode=~s/([^0-9A-Za-z_ ])/'%'.unpack('H2',$1)/ge;
$URLencode=~s/\s/+/g;
return \$URLencode;}

sub URLd{
my $URLdecode=shift;

return \$URLdecode;}

# タグ用フィルタ
sub xtag_filter {
	my($data, $nazomode) = @_;
	return "&lt;" . $data . "&gt;" if $data =~ m#(?:$re_dangerous)#;
	return "<" . $data . ">";
}

1;

__END__

Σ:)＜現状提供のcgi-binフォルダソース
FTPソフトの不具合によって足りないファイルがあるかもね、つーことで
Σ|D＜しかもバージョン古いし！
ちまちま更新してましたからねぇ
zantei20091031.zip 直