登録認証時のセキュリティコード

登録するときに、画像の文字を入力してくださいっていうのがあります
あれは、自動登録などを防ぐためにあるそうです
「submission code」（サブミッション・コード）とも言うそうです
いまひとつ仕組みがわからないので、自分で考えてみることにしました

約束事として、
HTMLファイルのソースを直接見られても、セキュリティコードがわかってはならない
暗号化するにしても、方法がわかってはならない


[1] まず最初に、かなり回りくどい方法から
これは、HTML,JavaScript,Flash,CGIをつかいます
フローとしては

1. HTMLファイルを表示
2. その際JavaScriptで乱数を生成
3. 生成された乱数をFlashへの引数と次画面(登録CGI)へのhiddenパラメータとして渡す
4. Flashの方は、受け取った乱数を書き込み用のCGIへ渡し、戻り値として文字列を受け取り表示する
5. 書き込み用のCGIでは受け取った乱数と更に表示用に生成した６桁の乱数文字列、現在の日付をファイルに書き出し、ここで表示用に生成した６桁の文字列を返す
6. ユーザはFlashで書き出された文字列を読み入力フィールドに書き送信
7. 登録CGIでは、受け取った乱数とセキュリティコード、日付の差をファイルと比較、その他の入力項目も確認して真偽を決定
8. 真なら更に現在の時間フィールドを追加してファイルに保存 (日付超過データを削除)
9. 真ならユーザに登録内容を確認させて、アクティベーション用のURLを書いてメール送信
10. アクティベーションURL用のCGIで正規のコードを受け取った時点で先ほどのデータを削除して、ユーザ登録をする

この方法の利点は
　・HTMLでの表示
　・このHTMLで見られる乱数は、表示されるセキュリティーコードとはまったく無関係である

欠点として
　・JavaScriptとFlashが必須
　・作る側は、かなりめんどうなことになる


[2] 上記のものを改良
これは、Flashを使わずGIFアニメーションを生成する(gifcat.pl使用)
フローはほぼ同じ
Flashの部分をなくして、<img>タグでCGIに乱数を渡す

この方法の利点は
　・Flashがいらなくなる

欠点として
　・ばらばらのGIF画像を大量に作っておく必要がある
　・出かたが変 (gifcat.plの特徴)

考察の余地
Image::Mgickをつかって一つのGIF画像を作成するという手法がある


[3] 更に改良
HTML表示ではなくCGIによる表示 (普通はこっちかも)
これもJavaScript部分をCGIで書き出すだけで、Flashなら[1]とほぼ同じ、GIF画像なら[2]とほぼ同じ

この方法の利点は
JavaScriptがいらなくなる

では、[1]から検証
HTML,JavaScript,Flash,CGIを使ったサンプル
以下のファイル(4+1)をまとめたものをダウンロードできます
File: secur_code.zip

入力用のHTML[index.html]

Code: download

1. <h1>セキュリティコード認証のテスト</h1>
2.  
3. <form action="check.cgi" method="POST">
4. <fieldset><legend>Regist Form</legend><br />
5. <h2>登録するユーザ名を入力してください(半角英数字20文字以内)</h2>
6. Name : <input type="text" name="name" size="20"><br /><br />
7. <h2>右側の画像に表示されている、文字列を入力してください</h2>
8. Code : <input type="text" name="code" size="10">
9. <script>
10.  var rand = Math.floor(Math.random()*10000000000);
11.  document.write('<OBJECT classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" '+
12.  'codebase="http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,0,0" '+
13.  'width="90" height="25" id="code.swf" align="middle"><param name="allowScriptAccess" value="sameDomain">'+
14.  '<param name="quality" value="high"><param name="bgcolor" value="#000000">'+
15.  '<param name="movie" value="code.swf"><param name="FlashVars" value="code=' + rand +'">'+
16.  '<embed src="code.swf" quality="high" bgcolor="#000000" width="90" height="25"'+
17.  ' name="code.swf" align="middle" allowScriptAccess="sameDomain" FlashVars="code=' + rand + '" '+
18.  'type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer">'+
19.  '</object><input type="hidden" name="ccode" value="'+rand+'">');
20. </script>
21. <noscript><h2>JavaScriptを有効にしてください</h2></noscript><br /><p><input type="submit" value="送　信"></p>
22. </fieldset></form>
23.  
24. <h3>* 画像が見えにくい場合は、<a href="./">読み込みなおして</a>ください</h3>
25. <h3>* 送信後、確認画面を表示します</h3>

ほとんどがFlash(code.swf)を引数つきで呼び出すだけのタグです

１０行目でJavaScriptで10桁の乱数を生成して(rand)
それを、１５行目と１７行目でFlashへの引数として書き出しています
更に、１９行目ではhiddenフォームとして次画面のCGIへ渡すよう書き出しています
２１行目はJavaScriptが使えない場合の警告です



Flash[code.swf]内のAction Script

Code: download

1. cginame = "ccode.cgi?code=";
2. inval = _root.code;
3. lv = new LoadVars();
4. lv.onLoad = function() {
5. tfCount.text = this.secure_num;
6. };
7. lv.load(cginame + inval);

１行目で、書き込み用のCGIまでのパスを指定
２行目では、先ほどJavaScriptで書き出した引数を取得
５行目で、書き込み用CGIからの戻り値を表示 (secure_numは書き込み用CGIからの戻り値パラメータ)
７行目で、書き込み用のCGIへ引数を渡しています

Flashの作り方は、リンク集を参考にしてください
File: code.fla は、「Macromedia Flash MX 2004」で作成しています




書き込み用CGI [ccode.cgi]

Code: download

1. use CGI  qw(:standard);
2.  
3. $code_file = 'code.txt';
4. $limit = 7200;
5. $incode = (param('code') =~ /\d+/) ? param('code') : die;
6. $rand_code = sprintf("%d%d%d%d%d", int(rand(10)),int(rand(10)),int(rand(10)),int(rand(10)),int(rand(10)));
7. $time = time;
8.  
9. open(CODE, "+< $code_file") or open(CODE, ">$code_file");
10. flock(CODE,2);
11. while(<CODE>) {
12.  $date = (split("\t",$_))[2];
13.  chomp($date);
14.  next if (($time-$date)>$limit);
15.  push @out, $_;
16. }
17.  
18. push @out, "$incode\t$rand_code\t$time\n";
19. seek(CODE, 0, 0);
20. print CODE @out;
21. truncate(CODE, tell(CODE));
22. close CODE;
23.  
24. print "Content-type: text/plain\n\nsecure_num=$rand_code";

今回表示する文字列は、数字に限定しました(0〜9)

３行目で、データ保存ファイル名を指定
４行目で、有効期限を秒数で指定(ここでは２時間以内)
５行目では、JavaScript→Flashの順で経由してきた乱数を取得しています
６行目で、Flashで表示用の5桁の乱数を生成
７行目は、現在の日付(エポックタイム)
９〜１６行目までで、新規書き込みと 有効期限が過ぎたデータを削除
１８行目での、データの並び順は
    1. JavaScriptで生成された乱数
    2. 表示用に生成した乱数文字列(5桁)
    3. 現在の日付(エポックタイム)
２４行目で、Flashへの戻り値として、secure_num=表示用文字列 を返す



入力確認CGI [check.cgi]

Code: download

1. use CGI  qw(:standard);
2.  
3. $code_file = 'code.txt';
4. $limit = 7200;
5. $re_date = time;
6. $que = param('que');
7. $in{code} = param('code');
8. $in{ccode} = param('ccode');
9. $in{name} = param('name');
10. $secur = sprintf("%d%d%d%d%d", int(rand(10)),int(rand(10)),int(rand(10)),int(rand(10)),int(rand(10)));
11.  
12. open(FH, "+< $code_file") or die "Can't open $code_file: $!";
13. flock(FH,2);
14. while(<FH>) {
15.  chomp;
16.  my($ccode,$code,$date,$dmy) = split("\t");
17.  if(($ccode eq $in{ccode}) && ($code eq $in{code}) && (($re_date-$date)<$limit)) {
18.    push @out, qq($ccode\t$code\t$re_date\t$secur\n);
19.    $flag = 1;
20.    $ok_code = $code;
21.    $save_rand = $ccode;
22.    $save_time = $date;
23.    $now = $re_date;
24.  }
25.  elsif(($re_date-$date)>$limit) {
26.   next;
27.  }
28.  else {
29.   $flag = 2 if ($ccode eq $in{ccode});
30.   push @out, "$_\n";
31.  }
32. }
33. seek(FH,0,0);
34. print FH @out;
35. truncate(FH, tell(FH));
36. close(FH);
37.  
38. if($flag == 1) {
39.  $sec_code = qq(セキュリティーコードが一致しました) }
40. elsif($flag == 2) {
41.  $sec_code = qq(セキュリティーコードが一致しません) }
42. else {
43.  $sec_code = qq(セキュリティコードの有効期限が過ぎているか無効です) }
44.  
45.  print <<HTML;
46. Content-type: text/html\n\n
47. <html><head>
48. <title>test - check</title></head><body>
49. <h1>セキュリティコード認証のテスト - 確認</h1>
50. <br />
51. <h2>$sec_code</h2>
52. <table width="400" border="1" cellspacing="0" cellpadding="3">
53. <tr><td>ユーザ名</td><td>$in{name}</td></tr>
54. <tr><td class="col">保存されているセキュリティーコード</td><td class="col">$in{code}</td></tr>
55. <tr><td>表示されたセキュリティコード</td><td>$ok_code</td></tr>
56. <tr><td class="col">保存されている乱数</td><td class="col">$save_rand</td></tr>
57. <tr><td>JavaScriptで生成された乱数</td><td>$in{ccode}</td></tr>
58. <tr><td class="col">保存されていた日付</td><td class="col">$save_time</td></tr>
59. <tr><td>現在の日付(書き換えた日付)</td><td>$now</td></tr>
60. </table>
61. <br />
62. <h3>* 通常はここで確認ボタンを表示してメール送信画面に進みますが省略</h3>
63. <br />
64. <p><a href="javascript:window.close()">閉じる</a></p>
65. </body></html>
66. HTML

３行目は、データ保存ファイル名を指定
４行目で、有効期限を秒数で指定します(ここでは２時間以内)
５行目、有効期限の比較用に現在の日付を取得
６〜９行目では、HTMLからの引数を取得しています
１０行目で、アクティベーション用に新たに追加する乱数生成
１７行目で、セキュリティコードと乱数、有効期限を確認
１９行目の$flagは、表示用の確認フラグです (コード、乱数、有効期限ともに真)
２５，２６行目の処理は、有効期限切れを削除するためです
２９行目、表示用の確認フラグで入力ミスを検出(コードは偽だが、乱数は真)
３８〜４３行目までで、フラグによる可否表示情報を作成

今回は、これらの情報をHTMLファイルとして確認用に書き出しています

前回のサイト探索からの続きで
Google　Sitemaps用のXMLファイルを出力するスクリプトを作ってみた(コマンド編)
強調されている行番号は前回(サイト探索)からの変更点

Code: download

1. use LWP::Simple qw(get head);
2. use HTML::LinkExtor;
3. use strict;
4.  
5. my(%seen,%mod_time,%out,$site,$top_url,$freq,$priority);
6. $freq = 'weekly';
7. $priority = '1.0';
8. $top_url = 'http://sieg.xeong.com/';
10. $top_url = "http://$top_url" unless $top_url =~ /^https?\b/;
11. ($site = $top_url) =~ s/^(http:\/\/.+\/).*$/$1/;
12. $site .= "/" unless ($site =~ /\/$/);
13.  
14. &print_xml_head;
15. linker($top_url);
16. &print_xml_foot;
17.  
18. sub linker {
19.  my $base_url = shift;
20.  my $parser = HTML::LinkExtor->new(undef, $base_url);
21.  $parser->parse(get($base_url))->eof;
22.  my @links = $parser->links;
23.  for my $linkarray (@links) {
24.   my @element = @$linkarray;
25.   my $elt_type = shift @element;
26.   while(@element) {
27.    my ($attr_name, $attr_value) = splice(@element, 0,2);
28.    if( $attr_name eq "href" && $attr_value->scheme =~ /\b(https?)\b/ && $attr_value =~ /^$site/
29.     && ($attr_value =~ /\.xml?$/i or $attr_value =~ /\.s?html?$/i or $attr_value =~ /\.php.*$/i or $attr_value =~ /\.cgi.*$/i)
30.    ){
31.     $attr_value =~ s/^(.+)#.*$/$1/;
32.     next if(defined $seen{$attr_value});
33.     my @heads = LWP::Simple::head($attr_value);
34.     if(@heads) {
35.      $seen{$attr_value}++;
36.      my @date = $heads[2] ? gmtime($heads[2]) : gmtime(time);
37.      $mod_time{$attr_value} = sprintf("%04d-%02d-%02dT%02d:%02d:%02dZ", $date[5]+1900, $date[4]+1, @date[3,2,1,0]);
38.     }
39.    }
40.   }
41.  }
42.  
43.  for (sort keys %seen) {
44.   my $mod = $mod_time{$_};
45.   s/^(.+\.cgi).*$/$1/i;
46.   s/^(.+\.php).*$/$1/i;
47.   if(defined $out{$_}) {
48.    next;
49.   } else {
50.    $out{$_} = 'true';
51.    print_xml($_,$mod);
52.    linker($_);
53.   }
54.  }
55. }
56.  
57. sub print_xml_head {
58.  my %in_url = @_;
59.  my @date = gmtime(time);
60.  my $mod_time = sprintf("%04d-%02d-%02dT%02d:%02d:%02dZ", $date[5]+1900, $date[4]+1, @date[3,2,1,0]);
61.  print <<XML;
62. <?xml version="1.0" encoding="UTF-8"?>
63. <urlset xmlns="http://www.google.com/schemas/sitemap/0.84"
64. xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
65. xsi:schemaLocation="http://www.google.com/schemas/sitemap/0.84
66. http://www.google.com/schemas/sitemap/0.84/sitemap.xsd">\n
67. <url>
68. <loc>$top_url</loc>
69. <lastmod>$mod_time</lastmod>
70. <changefreq>$freq</changefreq>
71. <priority>$priority</priority>
72. </url>\n
73. XML
74. }
75.  
76. sub print_xml {
77.  print qq(<url>\n<loc>$_[0]</loc>\n<lastmod>$_[1]</lastmod>\n</url>\n);
78. }
79.  
80. sub print_xml_foot {
81.  print qq(\n</urlset>\n);
82. }

使い方
６行目で、内容の更新頻度("always", "hourly", "daily", "weekly", "monthly", "yearly", "never")を指定
７行目で、同じサイト内の他のページと比較した優先度(0.0〜1.0)
８行目で探索するURLを指定
Windowsではコマンドラインから、これを実行するとGooglSitemaps用のXMLを表示する

WindowsコマンドプロンプトでのXMLファイル(sitemap.xml)への出力例
perl -w xmlgen.pl > sitemap.xml

環境
以下のperlモジュールが必要
LWP::Simple
HTML::LinkExtor

参照
UTCタイムについて、W3CのDate and Time Formatsを参考にした
Link::Extorについては Perldoc と、河馬屋二千年堂さんの日本語訳を
Google Sitemapsについては、Google Sitemaps (BETA) HelpのUsing the Sitemap Generatorを参考にした

Google　Sitemaps ジェネレーターを作るにあたり、ネットワークから
サイト内のリンクをたどり、同一サイト内のURLを抽出するスクリプトを作ってみた

Code: download

1. use LWP::Simple qw(get head);
2. use HTML::LinkExtor;
3. use strict;
4.  
5. my(%seen,%mod_time,%out,$site,$top_url);
6. $top_url = 'http://sieg.xeong.com/';
7. $top_url = "http://$top_url" unless $top_url =~ /^https?\b/;
8. ($site = $top_url) =~ s/^(http:\/\/.+\/).*$/$1/;
9. $site .= "/" unless ($site =~ /\/$/);
10.  
11. linker($top_url);
12.  
13. sub linker {
14.  my $base_url = shift;
15.  my $parser = HTML::LinkExtor->new(undef, $base_url);
16.  $parser->parse(get($base_url))->eof;
17.  my @links = $parser->links;
18.  for my $linkarray (@links) {
19.    my @element = @$linkarray;
20.    my $elt_type = shift @element;
21.    while(@element) {
22.      my ($attr_name, $attr_value) = splice(@element, 0,2);
23.      if(  $attr_name eq "href" && $attr_value->scheme =~ /\b(https?)\b/ && $attr_value =~ /^$site/){
24.        #   && ($attr_value =~ /\.xml?$/i or $attr_value =~ /\.s?html?$/i or $attr_value =~ /\.php.*$/i or $attr_value =~ /\.cgi.*$/i)){
25.        $attr_value =~ s/^(.+)#.*$/$1/;
26.        next if(defined $seen{$attr_value});
27.        my @heads = LWP::Simple::head($attr_value);
28.        if(@heads) {
29.          $seen{$attr_value}++;
30.          my @date = $heads[2] ? gmtime($heads[2]) : gmtime(time);
31.          $mod_time{$attr_value} = sprintf("%04d-%02d-%02dT%02d:%02d:%02dZ", $date[5]+1900, $date[4]+1, @date[3,2,1,0]);
32.        }
33.      }
34.    }
35.  }
36.  
37.  for (sort keys %seen) {
38.    my $mod = $mod_time{$_};
39. #    s/^(.+\.cgi).*$/$1/i;
40. #    s/^(.+\.php).*$/$1/i;
41.    if(defined $out{$_}) {
42.      next;
43.    } else {
44.      $out{$_} = 'true';
45.      print qq($_ - $mod\n);
46.      linker($_);
47.    }
48.  }
49. }

使い方
６行目で探索するURLを指定
Windowsではコマンドラインから、これを実行するとリンクリストとUTC時間を表示する

Windowsコマンドプロンプトでのテキストファイル(link.txt)への出力例
perl -w linkgen.pl > link.txt

環境
以下のperlモジュールが必要
LWP::Simple
HTML::LinkExtor

解説
６行目: $top_urlに探索したいサイトのトップページを指定する
以下９行目までは、URLの補間処理
１１行目: サブルーチン linker 実行

linker:
１５，１６行でページ内のリンクリストを取得、このリストは１７行目 @links に格納
２３行目で href属性 内の http又はhttps で始まり、サイトの url を含むものだけに分類
２４行目はコメントアウトしてあるが、はずすと xml,htm,html,shtm,shtml,php,cgi だけに絞り込める (その際２３行目後ろの２文字は取り去ること)
２５行目でページ内リンク(アンカー)を取り去る
２６行目重複を確認(再帰しているのでこれを怠ると止まらなくなる)
２７行目でヘッダ情報を取得
２９行目も重複対策 (%seenに格納)
３０行目は対象ページの最終更新日からGMTタイムを取得
３１行目で整形して %mod_time に格納
３８行目は、以下２行をコメントアウトした場合の対策としての位置
３９，４０行目は、コメントアウトしているがCGIとPHPへの変数を削除
以下４行は、更に重複を確認 (心配性です)
４５行目で出力 形式は 完全URL - UTCタイム
４６行目で再帰

注意
しつこいようだが再帰処理しているので、改変時には注意を
サイトの構成、ネットワークの状態にもよるが　かなり時間がかかるはず
できるだけ、コメントアウトしているところを実行させるほうがいい
２７行目: LWP::Simple::headとしているのはCGI.pmのheadとの名前衝突回避のため

参照
UTCタイムについて、W3CのDate and Time Formatsを参考にした
Link::Extorについては Perldoc と、河馬屋二千年堂さんの日本語訳を
LWP::Simple については言うまでもないだろう

方向性
これから、Google Sitemaps ジェネレーターを作っていこうと思っているわけで
とりあえずは、URLの抽出と ISO 8601形式の時間換算をやってみた
次は簡単　Google Sitemaps (BETA) Helpと
グーグル・サイトマップ（ベータ版）FAQとプロトコル全訳
を参考にXMLタグを組むだけ 今度はCGIにしようと思う

JavaScriptでの例です(とてもめんどうなことになってますが)

リファイラーをとるページ[index.html]

Code: [download]

1. <html>
2. <body>
3. <script src="js.cgi"></script>
4. </body>
5. </html>

受け取るCGI[js.cgi]

Code: [download]

1. print <<HTML;
2. Content-Type: application/x-javascript\n
3. rf = parent.document.referrer; //フレーム内なら top.document.referrer
4. document.write(rf); //ページに表示するならば
5. logurl = "js2.cgi?ref="+rf;
6. document.write('<script src="' + logurl + '"></script>');
7. HTML

記録するCGI[js2.cgi]

Code: [download]

1. use CGI qw (:standard);
2. $ref = param('ref');
3. open FH, ">>js.txt";
4. print FH "$ref\n";
5. close FH;

欠点 : JavaScriptを使えないまたはOFFにしているユーザの情報は得られない

# 半角スペース
$str = '\x20';

# 全角スペース
$str = '(?:\xA1\xA1)'; # EUC-JP
$str_sjis = '(?:\x81\x40)'; # SJIS

# 全角数字 [０-９]
$str = '(?:\xA3[\xB0-\xB9])'; # EUC-JP
$str_sjis = '(?:\x82[\x4F-\x58])'; # SJIS

# 全角大文字 [Ａ-Ｚ]
$str = '(?:\xA3[\xC1-\xDA])'; # EUC-JP
$str_sjis = '(?:\x82[\x60-\x79])'; # SJIS

# 全角小文字 [ａ-ｚ]
$str = '(?:\xA3[\xE1-\xFA])'; # EUC-JP
$str_sjis = '(?:\x82[\x81-\x9A])'; # SJIS

# 全角アルファベット [Ａ-Ｚａ-ｚ]
$str = '(?:\xA3[\xC1-\xDA\xE1-\xFA])'; # EUC-JP
$str_sjis = '(?:\x82[\x60-\x79\x81-\x9A])'; # SJIS

# 全角ひらがな [ぁ-ん]
$str = '(?:\xA4[\xA1-\xF3])'; # EUC-JP
$str_sjis = '(?:\x82[\x9F-\xF1])'; # SJIS

# 全角ひらがな(拡張) [ぁ-ん゛゜ゝゞ]
$str = '(?:\xA4[\xA1-\xF3]|\xA1[\xAB\xAC\xB5\xB6])'; # EUC-JP
$str_sjis = '(?:\x82[\x9F-\xF1]|\x81[\x4A\x4B\x54\x55])'; # SJIS

# 全角カタカナ [ァ-ヶ]
$str = '(?:\xA5[\xA1-\xF6])'; # EUC-JP
$str_sjis = '(?:\x83[\x40-\x96])'; # SJIS

# 全角カタカナ(拡張) [ァ-ヶ・ーヽヾ]
$str = '(?:\xA5[\xA1-\xF6]|\xA1[\xA6\xBC\xB3\xB4])'; # EUC-JP
$str_sjis = '(?:\x83[\x40-\x96]|\x81[\x45\x5B\x52\x53])'; # SJIS

# 半角カタカナ [ヲ-゜]
$str = '(?:\x8E[\xA6-\xDF])'; # EUC-JP
$str_sjis = '[\xA6-\xDF]'; # SJIS

# EUC-JP文字
$ascii = '[\x00-\x7F]'; # 1バイト EUC-JP文字
$twoBytes = '(?:[\x8E\xA1-\xFE][\xA1-\xFE])'; # 2バイト EUC-JP文字
$threeBytes = '(?:\x8F[\xA1-\xFE][\xA1-\xFE])'; # 3バイト EUC-JP文字
$character = "(?:$ascii|$twoBytes|$threeBytes)"; # EUC-JP文字

# EUC-JP文字(機種依存文字・未定義領域・3バイト文字を含まない)
$character_strict = '(?:[\x00-\x7F]|' # ASCII
'\x8E[\xA1-\xDF]|' # 半角カタカナ
'[\xA1\xB0-\xCE\xD0-\xF3][\xA1-\xFE]|' # 1,16-46,48-83区
'\xA2[\xA1-\xAE\xBA-\xC1\xCA-\xD0\xDC-\xEA\xF2-\xF9\xFE]|' # 2区
'\xA3[\xB0-\xB9\xC1-\xDA\xE1-\xFA]|' # 3区
'\xA4[\xA1-\xF3]|' # 4区
'\xA5[\xA1-\xF6]|' # 5区
'\xA6[\xA1-\xB8\xC1-\xD8]|' # 6区
'\xA7[\xA1-\xC1\xD1-\xF1]|' # 7区
'\xA8[\xA1-\xC0]|' # 8区
'\xCF[\xA1-\xD3]|' # 47区
'\xF4[\xA1-\xA6])'; # 84区

# EUC-JP未定義文字(機種依存文字・3バイト文字を含む)
$character_undef = '(?:[\xA9-\xAF\xF5-\xFE][\xA1-\xFE]|' # 9-15,85-94区
'\x8E[\xE0-\xFE]|' # 半角カタカナ
'\xA2[\xAF-\xB9\xC2-\xC9\xD1-\xDB\xEB-\xF1\xFA-\xFD]|' # 2区
'\xA3[\XA1-\xAF\xBA-\xC0\xDB-\xE0\xFB-\xFE]|' # 3区
'\xA4[\xF4-\xFE]|' # 4区
'\xA5[\xF7-\xFE]|' # 5区
'\xA6[\x89-\xC0\xD9-\xFE]|' # 6区
'\xA7[\xC2-\xD0\xF2-\xFE]|' # 7区
'\xA8[\xC1-\xFE]|' # 8区
'\xCF[\xD4-\xFE]|' # 47区
'\xF4[\xA7-\xFE]|' # 84区
'\x8F[\xA1-\xFE][\xA1-\xFE])'; # 3バイト文字

# SJIS文字
$oneByte_sjis = '[\x00-\x7F\xA1-\xDF]'; # 1バイト SJIS文字
$twoBytes_sjis =
'(?:[\x81-\x9F\xE0-\xFC][\x40-\x7E\x80-\xFC])'; # 2バイト SJIS文字
$character_sjis = "(?:$oneByte_sjis|$twoBytes_sjis)"; # SJIS文字

# SJIS文字(機種依存文字・未定義領域を含まない)
$character_sjis_strict = '(?:[\x00-\x7F\xA1-\xDF]|' # ASCII，半角カタカナ
'[\x89-\x97\x99-\x9F\xE0-\xE9][\x40-\x7E\x80-\xFC]|' # 17-46,49-82区
'\x81[\x40-\x7E\x80-\xAC\xB8-\xBF\xC8-\xCE\xDA-\xE8\xF0-\xF7\xFC]|' # 1,2区
'\x82[\x4F-\x58\x60-\x79\x81-\x9A\x9F-\xF1]|' # 3,4区
'\x83[\x40-\x7E\x80-\x96\x9F-\xB6\xBF-\xD6]|' # 5,6区
'\x84[\x40-\x60\x70-\x7E\x80-\x91\x9F-\xBE]|' # 7,8区
'\x88[\x9F-\xFC]|' # 15,16区
'\x98[\x40-\x72\x9F-\xFC]|' # 47,48区
'\xEA[\x40-\x7E\x80-\xA4])'; # 83,84区

# SJIS未定義文字(機種依存文字を含む)
$character_sjis_undef =
'(?:[\x85-\x87\xEB-\xFC][\x40-\x7E\x80-\xFC]|' # 9-14,85-120区
'\x81[\xAD-\xB7\xC0-\xC7\xCF-\xD9\xE9-\xEF\xF8-\xFB]|' # 1,2区
'\x82[\x40-\x4E\x59-\x5F\x7A-\x7E\x80\x9B-\x9E\xF2-\xFC]|' # 3,4区
'\x83[\x97-\x9E\xB7-\xBE\xD7-\xFC]|' # 5,6区
'\x84[\x61-\x6F\x92-\x9E\xBF-\xFC]|' # 7,8区
'\x88[\x40-\x7E\x80-\x9E]|' # 15,16区
'\x98[\x73-\x7E\x80-\x9E]|' # 47,48区
'\xEA[\xA5-\xFC])'; # 83,84区

# iモード対応 絵文字
$iPictograph_base = '(?:\xF8[\x9F-\xFC]|' # 基本絵文字(SJIS)
. 'F9[\x40-\x49\x50-\x52\x55-\x57\x5B-\x5E\x72-\x7E\x80-\xB0])';
$iPictograph_ext = '(?:F9[\xB1-\xFC])'; # 拡張絵文字(SJIS)
$iPictograph =
'(?:$iPictograph_base|$iPictograph_ext)'; # iモード対応 絵文字(SJIS)