#!/usr/local/bin/perl # 憤坌憤褥及白央奶伙抩毛潸丿 $script_name = $ENV{SCRIPT_NAME}; $script_name =~ s|.*/([^/]+)$|$1|; print <

�剩市瓜’窗潘匙繡妐儂庍晶白巧□丞

--[�剩市瓜]----------------------------------------------------
繧䔝𦹄絝𦻖璍綉綫焵綳緒𤁗𦀩緤㴓𡟹緥𨍭縝𦄡𦅚繮纒䌫鑬縧罀罁罇礶𦋐駡羗𦍑羣𡙡𠁨䕜𣝦䔃𨌺翺𦒉罇耈耝耨耯𪂇𦳃耻耼聡𢜔䦉𦘦𣷣𦛨朥肧𨩈脇
--[13嗉]--------------------------------------------------------
迭迫迤迨郊郎郁郃酋酊重閂限陋陌降面革韋韭音頁風飛食首香乘亳倌倍倣
俯倦倥俸倩倖倆值借倚倒們俺倀倔倨俱倡個候倘俳修倭倪俾倫倉兼冤冥冢
凍凌准凋剖剜剔剛剝匪卿原厝叟哨唐唁唷哼哥哲唆哺唔哩哭員唉哮哪    
--[92嗉]--------------------------------------------------------

𢡟懓𨮝𩥝懐㤲𢦀𢣁怣慜攞掋𠄘担𡝰拕𢸍捬𤧟㨗搸揸𡎎𡟼撐澊𢸶頔𤂌𥜝擡擥
鑻㩦携㩗敍漖𤨨𤨣斅敭敟𣁾斵𤥀䬷旑䃘𡠩无旣忟𣐀昘𣇷𣇸晄𣆤𣆥晋𠹵晧𥇦
晳晴𡸽𣈱𨗴𣇈𥌓矅𢣷馤朂𤎜𤨡㬫槺𣟂杞杧杢𤇍𩃭柗䓩栢湐鈼栁𣏦𦶠桝

╱仇及彶及妐儂毛票及氾平旦玄巨伉失卞戊疋□仄化票今中﹝
Windows 動陸及棕雁匹反歹井日卅中匹仄斤丹互﹜[13嗉] 動嫦卞窗潘匙繡妐儂互刓憎今木化中引允﹝

END #----------- 妐儂昫毛潸丿 ------------------ require 'jcode.pl'; foreach ( split(/&/,$ENV{QUERY_STRING}) ){ ($name,$value) = split(/=/, $_); $value =~ tr/+/ /; $value =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("C", hex($1))/eg; &jcode::convert(\$value,'euc'); $value =~ s/&/&/g; $value =~ s//>/g; $value =~ s/\n/
\n/g; $FORM{$name} = $value; } #----- %conv_table 毛賡渝祭 ---- &init_table; #----- 失旦平□戊□玉’EUC 及2田奶玄’EUC 及3田奶玄及懇筋刓蜇 ----- $ascii = '[\x00-\x7F]'; $twoBytes = '[\xA1-\xFE][\xA1-\xFE]'; $threeBytes = '\x8F[\xA1-\xFE][\xA1-\xFE]'; #----- 庍晶覆擂反 ----- # �剩市瓜 8EA0-8EDF # 13嗉 ADA1-ADFE # 89嗉 F9A1-F9FE # 90嗉 FAA1-FAFE # 91嗉 FBA1-FBFE # 92嗉 FCA1-FCFE $pattern='\x8E[\xA0-\xDF]|[\xAD\xAE\xF9\xFA\xFB\xFC][\xA1-\xFE]'; #------- 庍晶蟆及妐儂昫毛刓憎 --------- print "

\n庍晶蟆

$FORM{CONTENT}

\n"; #-------- 庍晶 ------- $found_count = $FORM{CONTENT} =~ s!\G(($ascii|$twoBytes|$threeBytes)*?)($pattern)! $1$conv_table{$3}!g; #-------- 拑蟯卅正弘毛壅允 ------------ $FORM{CONTENT} =~ s|||g; #------- 庍晶詨及妐儂昫毛刓憎 --------- print "\n

庍晶詨 (庍晶仄凶窗潘匙繡妐儂反\n"; print "氈縉匹刓憎今木引允)\n"; print "
$FORM{CONTENT}
\n

"; if ( $found_count == 0 ){ print "�剩市瓜’窗潘匙繡妐儂反葦尥井曰引六氏匹仄凶﹝"; } else { print "�剩市瓜’窗潘匙繡妐儂互 $found_count 蜊葦尥井曰引仄凶﹝"; } print "

\n"; exit; #------------- %conv_table 毛賡渝祭 ------------------- sub init_table { %conv_data =( # �剩市瓜 (0x8EA0 手域殺爛聒仄化中月仇午卞鏜啦) 0x8EA0=> qq( ﹝ ＞＝ ﹜ ’ 仲央奴孕尼巧乓亙亦永 □ 失奶它巨左市平弁弗戊扔扑旦本末正民汁氾玄瓜瓦甘生用甩甲白目石穴立丞丟乒乩交亥仿伉伙伊伕伐件 ‵ ′), # 13嗉 0xADA1=> '(1) (2) (3) (4) (5) (6) (7) (8) (9) (10) (11) (12) (13) (14) (15) (16) (17) (18) (19) (20) I II III IV V VI VII VIII IX X . 立伉平伕本件民丟□玄伙弘仿丞玄件失□伙目弁正□伙伉永玄伙伐永玄市伕伉□ 玉伙本件玄由□本件玄立伉田□伙矢□斥 mm cm km mg kg cc m^2 . . . . . . . . 尪嶽 " ,, No. K.K. Tel (曉) (醱) (票) (爾) (惘) (堪) (肣) (醫) 抸慫釐懇噯狟ＴＳａａ曳ＷＯＮ ␌ ═ Ｚ Ⅸ Ⅷ', # 89嗉 0xF9A1=> '. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .', # 90嗉 0xFAA1=> '. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .', # 91嗉 0xFBA1=> '. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .', # 92嗉 0xFCA1=> q{. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . i ii iii iv v vi vii viii ix x 十 | ' ''}, ); #----- 庍晶迕氾□皮伙綜嶽 ------ foreach ( keys %conv_data ){ my $code = $_; foreach ( split(/[\n\s]+/,$conv_data{$_}) ){ my $char_code = pack('C*',$code/256,$code%256); if ( $_ eq '.' ){ $_ = "╳"; # 怳爛聒恄啗井期儂恄啗﹝必正卞庍晶﹝ } $conv_table{$char_code} = $_; $code++; } } }