#!/usr/local/bin/perl ;# 簡易ＢＢＳ version 10.14 ;# ;# This is Freeware. ;# Script written by Kazu.Y ;# Created on: 02/05/96 ;# I can be reached at: rescue@rescue.ne.jp ;# Scripts Found at: http://www.rescue.ne.jp/ # [基本仕様] # # ※ 旧バージョンとのデータ互換はありません. # ※ METHOD=POST専用です. # ※ S-JIS設置専用です. # ※ 西暦2000年対応. # [基本構成] ( )内はパーミッション値 # # /public_html/（ホームページディレクトリ） # | # |-- /cgi-bin/（任意のディレクトリ） # | # |-- jcode.pl (644) # |-- minibbs.cgi (755) # | # |-- /data/ (777) # | # |-- data.cgi (666) # [履歴] # # v1.0 02/MAY/96 初版 # v8.90 11/AUG/98 v8.8にロック機能を付加 # v9.00 12/AUG/98 タグ処理を制限してセキュリティアップ # v9.01 24/AUG/98 未入力処理(クッキー消去)時にリストされな不具合を修正 # v9.02 03/SEP/98 改行の扱いを３種類に変更 # v9.03 18/SEP/98 Ｅメール自動リンクの廃止 # v9.04 19/OCT/98 タブコードの取り扱い修正 # v9.05 26/OCT/98 記録データ制限の解除処理 # v9.06 22/NOV/98 エラー処理を改善 # v10.00 24/NOV/98 検索機能の追加および構造変更 # v10.01 02/DEC/98 クッキー機能の修正ほか # v10.02 08/DEC/98 Ｄ系トラブルの修正 # v10.10 08/DEC/98 ２重(連続)投稿防止処理 # v10.11 08/DEC/98 削除キー削除が出来なくなったバグの修正 # v10.12 15/DEC/98 パスワード強化 # v10.13 17/DEC/98 全角文字マッチの不具合の訂正 # v10.14 21/DEC/98 ファイルを閉じていない個所の修正、メールアドレス形式チェック方法の変更 # [データ形式] # # ※ 各記事は１件１行とし、各項目はタブ区切りとする. # ※ 各項目の並びは次の通り. # # 識別番号 暗号パスワード 投稿者 Ｅメール ホスト名 投稿時刻 題名 記録タイプ リンクの有無 内容 ２重投稿チェック用文字列 #----------------# # 初期設定 # #----------------# #--- 必ずあなたの環境に合わせて書き替える項目 --------------------------------------------# #◆掲示板の名前 #　''内に記述しますが、'を入れたい場合は '' を "" に替えてください. #　ただしその場合、文字によって化けが生じることがあります. #　詳しくは当サイトのＦＡＱを参照してください. $title = '掲示板'; #◆このスクリプトをＵＲＬで設定 $reload = 'http://contest.thinkquest.gr.jp/tqj1998/10064/cgi-bin/minibbs.cgi'; #◆画面の「終了」リンク先をＵＲＬで設定 $modoru = 'http://contest.thinkquest.gr.jp/tqj1998/10064/menu.htm'; #--- 必要に応じて設定する項目 ------------------------------------------------------------# #◆画面の色や背景の設定 (HTML書式) $body = ''; #◆見出の色 $midashi_color = '#C0C0FF'; #◆記事題名の色 $subject_color = '#0080FF'; #◆記事ヘッダ(名前や投稿日など)の色 $head_color = '#C0C0FF'; #◆記事内容の色 $body_color = '#FFFFFF'; #◆見出の文字サイズ(CSS設定) CSSのfont設定文法を参考のこと $midashi_size = 'small'; #◆記事(通常時)内容の文字サイズ(CSS設定) $span_size = 'medium'; #◆記事(図表モード時)内容の文字サイズ(CSS設定) $pre_size = 'medium'; #◆ホスト名の表示の可否 1:する 0:しない $view_host = 1; #◆２重(連続)投稿チェックの対象にする行数 $njmax = 5; #◆画面内に記述する文字列等 (HTML書式) #　''内に記述しますが、'を入れたい場合は '' を "" に替えてください. #　ただしその場合、文字によって化けが生じることがあります. #　詳しくは当サイトのＦＡＱを参照してください. #　必要ない場合は '' 内に何も書きません. #◆(見出)タイトルの下位置に表示する文字列 $msg_top = ' '; #◆(見出)投稿フォームの下位置に表示する文字列 $msg_mid = ' '; #◆(見出)最下部に表示する文字列 $msg_btm = ' ※ すべてのボタンは１回だけ押してしばらくお待ちください.
※ [削除]ボックスをチェックして、投稿時に設定した削除キーを入力してボタンを押せば削除できます.
※ 検索文字列はスペースで区切ることで複数指定できます.
※ 複数指定時にはそれぞれの文字列に対して、AND(かつ) OR(または)を適用します.
※ 削除キー欄にマスターキー(管理者のみ)を入力するとすべての記事の削除が可能です. '; #◆$reloadで設定した設置ＵＲＬ以外のフォームからの投稿を禁止する処置 する:1 しない:0 #　悪戯の防止用ですが、利用サーバやブラウザによっては正規投稿もできなくなる場合もあります. $ref_axs = 1; #◆１画面に表示する件数 $def = 15; #◆書き込み件数の最大登録数の設定です。この件数を超えると、古いものから削除されていきます. #　ページ処理機能が付きましたので、この件数を大きくしても一度に表示される記事数は限定されます. #　サーバの負担を考慮し、できるだけ500以下に設定しましょう。 $max = '300'; #◆日本語コード変換ライブラリ #　minibbs.cgiと同じ場所に設置する場合はこのままでよい. require './jcode.pl'; #◆内容が書き込まれる記録ファイルの名前（パスの設定ではない！） $file = 'data.cgi'; #◆データディレクトリのパスの設定（処理の都合上 / で閉じない） $tmp_dir = './data'; #◆海外サーバ等で時差が生じる場合は修正 #　＋９時間する場合　= localtime(time + 9*60*60); #　−９時間する場合　= localtime(time - 9*60*60); ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); #◆クッキーの消化設定 #　最終書き込みから 30日後 30*24*60*60 #　　　　　　　　　　　1日後 24*60*60 #　　　　　　　　　 10時間後 10*60*60 ($secg,$ming,$hourg,$mdayg,$mong,$yearg,$wdayg,$ydayg,$isdstg) = gmtime(time + 30*24*60*60); #------------------ @wday_array = ('日','月','火','水','木','金','土'); $date_now = sprintf("%04d年%01d月%01d日(%s)%02d時%02d分",$year +1900,$mon +1,$mday,$wday_array[$wday],$hour,$min); $date_num = sprintf("%04d%02d%02d%02d%02d%02d",$year + 1900,$mon +1,$mday,$hour,$min,$sec); $ps = $$; if ($ps eq '') { $ps = $date_num; } $tmp_file = "$ps\.tmp"; $ls = "$tmp_dir\/*.*"; $cmd = $ENV{'QUERY_STRING'}; if ($cmd eq 'copyright') { ©right; exit; } read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'}); @pairs = split(/&/,$buffer); foreach $pair (@pairs) { ($name,$value) = split(/=/,$pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; &jcode'convert(*value,'sjis'); $value =~ s/\&/&/g; $value =~ s/\"/"/g; $value =~ s//>/g; $value =~ s/\t//g; $value =~ s/\r\n/\r/g; $value =~ s/\n/\r/g; if ($name eq 'target') { push(@RM,$value); } else { $FORM{$name} = $value; } } $cookies = $ENV{'HTTP_COOKIE'}; @pairs = split(/;/,$cookies); foreach $pair (@pairs) { ($name,$value) = split(/=/,$pair); $name =~ s/ //g; $DUMMY{$name} = $value; } @pairs = split(/,/,$DUMMY{$reload}); foreach $pair (@pairs) { ($name,$value) = split(/:/,$pair); $COOKIE{$name} = $value; } if (-z "$tmp_dir\/$file") { $first = 1; } if ($FORM{'action'} eq 'setpwd') { &setpwd; &search; &html; exit; } elsif ($first) { &password; exit; } elsif ($FORM{'admin'} eq 'change') { &password; exit; } elsif (@RM && $FORM{'action'} eq 'remove') { &remove; } elsif ($FORM{'action'} eq 'regist') { ®ist; } &search; &html; exit; #------------------ sub search { if ($FORM{'search'} ne '') { $i = $FORM{'search'}; $i =~ s/　/ /g; $keys = $i; &jcode'convert(*i,'euc'); $i =~ s/(\W)/\\$1/g; $target = $i; @keys = split(/\\\s+/,$target); } if (!open(READ,"$tmp_dir\/$file")) { &error('エラー','データが読み出せません.'); } $master = ; unless ($master =~ /^MiniBBSv10:(.+)$/) { &error('エラー','データの形式が違います.'); } if ($FORM{'page'} eq '') { $page = 1; } else { $page = $FORM{'page'}; } $page_control = $hit = $allhits = $all = 0; if ($FORM{'action'} ne 'remove') { $start = (times)[0]; } while () { $string = $string_s = $_; $page_control++; if ($page > $page_control) { next; } if ($FORM{'search'} ne '') { if ($FORM{'page'} eq '') { $all++; } &jcode'convert(*string,'euc'); if ($FORM{'mode'} eq 'or') { $match = 1; foreach $term (@keys) { if ($string =~ /^([\x00-\x7F]|[\x8E\xA1-\xFE][\xA1-\xFE]|\x8F[\xA1-\xFE]{2})*$term/i) { $match = 0; } } } else { $match = 0; foreach $term (@keys) { if (!($string =~ /^([\x00-\x7F]|[\x8E\xA1-\xFE][\xA1-\xFE]|\x8F[\xA1-\xFE]{2})*$term/i)) { $match = 1; } } } if ($match) { next; } if ($FORM{'page'} ne '') { $allhits = $FORM{'allhits'}; if ($hit == $def) { $next_num = $page_control; last; } else { push(@PICKUP,$string_s); $hit++; } } else { if ($end != 1 && $hit == $def) { $end = 1; $next_num = $page_control; $allhits++; } elsif ($hit >= $def) { $allhits++; } else { push(@PICKUP,$string_s); $hit++; $allhits++; } } } else { $hit++; if ($hit > $def) { $next_num = $page_control; last; } else { push(@PICKUP,$string_s); } } } if ($FORM{'action'} ne 'remove') { $end = (times)[0]; } $cpu = sprintf("%.3f",$end - $start); close(READ); } sub html { if (!@PICKUP && $page != 0) { $FORM{'page'} = $page - 1; &search; } $nj = ''; @char = ('a'..'z','A'..'Z','0'..'9'); srand(time|$$); foreach (0..9) { { local(@temp); push(@temp,splice(@char,rand(@char),1)) while @char; @char = @temp; } $nj = $char[($_)] . $nj; } print "Content-type: text/html\n\n"; print "$title\n"; print "\n"; print "\n"; print "$body\n"; print "

$title

\n"; print "$msg_top

\n"; print "

\n"; print "\n"; print "\n"; print "投稿者
\n"; print "Ｅメール
"; print "題名
\n"; print "内容 "; print "改行有効 "; print "改行無効 "; print "図/表\モード
\n"; print "
\n"; print "URLをリンクする

\n"; print "削除キー "; print "投稿者とメールを保存

\n"; print "

"; print "$msg_mid

\n"; print "[更新] [終了]\n"; print "

\n"; if ($FORM{'mode'} eq 'or') { $OR = 'checked'; $MODE = '(または)'; } elsif ($FORM{'mode'} eq 'and' || $FORM{'mode'} eq '') { $AND = 'checked'; $MODE = '(かつ)'; } unless ($keys =~ / /) { $MODE = ''; } if ($next_num ne '') { $page_end = $page + $hit - 2; } else { $page_end = $page + $hit - 1; } if ($page_end <= 0) { if ($FORM{'search'} ne '') { print "指定の文字列を含む記事はありません. (検索時間 $cpu CPU秒) "; } else { print "記事はありません. "; } } elsif ($page >= $page_end && $FORM{'search'} eq '') { print "新着順 $page → 最後 "; print "最大記録保持数 $max "; } else { if ($FORM{'search'} ne '') { if ($all == 0) { $all = $FORM{'all'}; } print "《検索モード》 文字列 "$keys" $MODE "; if ($FORM{'action'} ne 'remove') { print "抽出数 $allhits "; print "抽出位置 $page/総数$all〜 "; print "検索時間 $cpu CPU秒 "; } else { print ""; } } else { print "新着順 $page → $page_end "; print "最大記録保持数 $max "; print ""; } } if ($page_end > 0) { print "
\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; foreach (@PICKUP) { ($number,$pwd,$name,$email,$host,$date,$subject,$how,$link,$value,$nj) = split(/\t/); $value =~ s/"/\"/g; $value =~ s/&/\&/g; if ($link == 1) { $value =~ s/(https?|ftp|gopher|telnet|whois|news)\:([\w|\:\!\#\$\%\=\&\-\^\`\\\|\@\~\[\{\]\}\;\+\*\,\.\?\/]+)/$1\:$2<\/a>/ig; } if ($view_host) { $host = "[$host]"; } else { $host = ""; } print "
$subject
\n"; print ""; print "　投稿日 $date "; if ($email ne '') { print "投稿者 $name $host"; } else { print "投稿者 $name $host"; } print " 削除

\n"; print "\n"; print "

\n"; if ($how == 1) { print "
$value

\n"; } elsif ($how == 2) { $value =~ s/\r/
\r/g; print "$value

\n"; } else { print "$value

\n"; } print "

\n"; } } print "
\n"; print "

\n"; if ($page_end > 0) { print "\n"; } if ($next_num ne '') { print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; } print "\n"; print "\n"; print "\n"; print "
削除キー "; print "
文字列 \n"; print "AND OR\n"; print "[更新] [終了]

\n"; print "$msg_btm

\n"; print "


\n"; print "

\n"; print ""; print "
\n"; # このスクリプトの著作権表示（かならず表示してください） print "
\"MiniBBS
\n"; print "\n"; } sub regist { if ($ref_axs) { $ref = $ENV{'HTTP_REFERER'}; $ref =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; if (!($ref =~ /$reload/)) { &error('利用不可',"次のページ以外からの投稿は受け付けられません.
→ $reload"); } } if (!open(READ,"$tmp_dir\/$file")) { &error('エラー','データが読み出せません.'); } $master = ; unless ($master =~ /^MiniBBSv10:(.+)$/) { &error('エラー','データの形式が違います.'); } if ($FORM{'name'} eq '') { &error('入力ミス','投稿者を記入してください.'); } if ($FORM{'name'} =~ /\:/) { &error('入力ミス','投稿者にコロンは使えません.'); } if ($FORM{'name'} =~ /\;/) { &error('入力ミス','投稿者にセミコロンは使えません.'); } if ($FORM{'name'} =~ /\,/) { &error('入力ミス','投稿者にカンマは使えません.'); } if ($FORM{'email'} ne '' && !($FORM{'email'} =~ /\b[-\w.]+@[-\w.]+\.[-\w]+\b/)) { &error('入力ミス','Ｅメールの形式が間違っています.'); } if ($FORM{'email'} =~ /\:/) { &error('入力ミス','Ｅメールにコロンは使えません.'); } if ($FORM{'email'} =~ /\;/) { &error('入力ミス','Ｅメールにセミコロンは使えません.'); } if ($FORM{'email'} =~ /\,/) { &error('入力ミス','Ｅメールにカンマは使えません.'); } if ($FORM{'subject'} eq '') { &error('入力ミス','題名を記入してください.'); } if ($FORM{'value'} eq '') { &error('入力ミス','内容を記入してください.'); } if ($FORM{'pwd'} eq '' || length($FORM{'pwd'}) < 6) { &error('入力ミス','削除キー欄に6文字以上の半角文字でパスワードを指定してください.
これは記事を削除する時に利用するものです.'); } &encode2($FORM{'pwd'}); $j = 0; while () { $j++; if ($j > $njmax) { last; } ($i,$i,$i,$i,$i,$i,$i,$i,$i,$i,$nj) = split(/\t/); if ($nj =~ /$FORM{'nj'}/) { &error('二重(連続)投稿の禁止',"ＯＫボタンを２回以上押した可能\性がありますので、投稿されているかどうかご確認ください.
再投稿は更新してからご利用ください."); } } close(READ); $y0="Sunday"; $y1="Monday"; $y2="Tuesday"; $y3="Wednesday"; $y4="Thursday"; $y5="Friday"; $y6="Saturday"; @youbi = ($y0,$y1,$y2,$y3,$y4,$y5,$y6); $m0="Jan"; $m1="Feb"; $m2="Mar"; $m3="Apr"; $m4="May"; $m5="Jun"; $m6="Jul"; $m7="Aug"; $m8="Sep"; $m9="Oct"; $m10="Nov"; $m11="Dec"; @monthg = ($m0,$m1,$m2,$m3,$m4,$m5,$m6,$m7,$m8,$m9,$m10,$m11); $date_gmt = sprintf("%s\, %02d\-%s\-%04d %02d:%02d:%02d GMT",$youbi[$wdayg],$mdayg,$monthg[$mong],$yearg +1900,$hourg,$ming,$secg); if ($FORM{'cookie'} eq 'on') { $cook="name\:$FORM{'name'}\,email\:$FORM{'email'}\,pwd\:$FORM{'pwd'}"; print "Set-Cookie: $reload=$cook; expires=$date_gmt\n"; $COOKIE{'name'} = $FORM{'name'}; $COOKIE{'email'} = $FORM{'email'}; $COOKIE{'pwd'} = $FORM{'pwd'}; } else { print "Set-Cookie: $reload=\n"; $COOKIE{'name'} = $COOKIE{'email'} = $COOKIE{'pwd'} = ''; } $host = $ENV{'REMOTE_HOST'}; $addr = $ENV{'REMOTE_ADDR'}; if ($host eq '') { $host = $addr; } if ($host eq $addr) { $host = gethostbyaddr(pack('C4',split(/\./,$host)),2) || $addr; } &lock1; if (!open(READ,"$tmp_dir\/$file")) { &error('エラー','データが読み出せません.'); } $master = ; if (!open(WRITE,"> $tmp_dir\/$tmp_file")) { &error('エラー','テンポラリーファイルが作成できません.'); } print WRITE $master; print WRITE "$date_num\t$pwd\t$FORM{'name'}\t$FORM{'email'}\t$host\t$date_now\t$FORM{'subject'}\t$FORM{'how'}\t$FORM{'link'}\t$FORM{'value'}\t$FORM{'nj'}\n"; $max_control = 0; while () { $max_control++; print WRITE; if ($max_control == $max - 1) { last; } } close(WRITE); close(READ); &lock2; } sub error { print "Content-type: text/html\n\n"; print "$title\n"; print "$body\n"; print "

$_[0]

\n"; print "

$_[1]

\n"; print "ブラウザの[戻る]ボタンを押して前の画面に移動してください.

\n"; print "\n"; exit; } sub remove { &lock1; if (!open(READ,"$tmp_dir\/$file")) { &error('エラー','データが読み出せません.'); } $master = ; chop($master); ($vers,$crypted_pwd) = split(/:/,$master); if ($crypted_pwd =~ /^\$1\$/) { $salt = 3; } else { $salt = 0; } if (crypt($FORM{'pwd'},substr($crypted_pwd,$salt,2)) eq $crypted_pwd) { $admin = 1; } else { $admin = 0; } $target = join('|',@RM); if (!open(WRITE,"> $tmp_dir\/$tmp_file")) { &error('設定ミス','テンポラリーファイルが作成できません.'); } print WRITE "$master\n"; $start = (times)[0]; while () { ($number,$pwd,$name,$email,$host,$date,$subject,$how,$link,$value,$nj) = split(/\t/); if ($number =~ /$target/) { if ($admin || crypt($FORM{'pwd'},substr($pwd,$salt,2)) eq $pwd) { next; } } print WRITE; } $end = (times)[0]; close(WRITE); close(READ); &lock2; } sub password { print "Content-type: text/html\n\n"; print "$title\n"; print "$body\n"; print "

マスターキーの設定/変更

\n"; if ($first && $message eq '') { print "掲示板新規開設にあたり、管理キーを登録してください。

\n"; } else { print "$message

\n"; } print "

\n"; print "\n"; if (!$first) { print "現在の管理キー
\n"; } print "新管理キー
\n"; print "新管理キー (確認のためもう一度)

\n"; print "

\n"; print "\n"; } sub setpwd { &lock1; if (!open(READ,"$tmp_dir\/$file")) { &error('エラー','データが読み出せません.'); } $master = ; chop($master); ($vers,$crypted_pwd) = split(/:/,$master); if ($crypted_pwd =~ /^\$1\$/) { $salt = 3; } else { $salt = 0; } if ($vers eq 'MiniBBSv10') { if (crypt($FORM{'password_old'},substr($crypted_pwd,$salt,2)) ne $crypted_pwd) { $message = '現在の管理キーが認証されません.'; &password; exit; } } if ($FORM{'pwd'} =~ /\W/ || $FORM{'pwd'} eq '') { $message = '新管理キーに英数字以外の文字が含まれているか空欄です.'; &password; exit; } if ($FORM{'pwd'} ne $FORM{'pwd2'}) { $message = '確認のために入力された新管理キーが一致しません.'; &password; exit; } if (length($FORM{'pwd'}) < 8) { $message = '8文字以上の半角文字でパスワードを指定してください.'; &password; exit; } &encode2($FORM{'pwd'}); if (!open(WRITE,"> $tmp_dir\/$tmp_file")) { &error('エラー','テンポラリーファイルが作成できません.'); } print WRITE "MiniBBSv10\:$pwd\n"; while () { print WRITE; } close(WRITE); close(READ); &lock2; } sub encode2 { $now = time; ($p1, $p2) = unpack("C2", $now); $wk = $now / (60*60*24*7) + $p1 + $p2 - 8; @saltset = ('a'..'z','A'..'Z','0'..'9','.','/'); $nsalt = $saltset[$wk % 64] . $saltset[$now % 64]; if (!eval '$pwd = crypt($_[0],$nsalt);') { &error('エラー','暗号処理ができません.'); } } sub lock1 { $list = `ls $ls`; if ($list eq '') { &error("システムエラー",''); } @lists = split(/\s+/,$list); @lists = grep(/\.tmp/,@lists); local($retry) = 3; while (@lists) { if (--$retry <= 0) { foreach (@lists) { if (-e $_) { unlink; }} &error("Busy(1)",'ただ今混雑しております.
時間をおいて再度実行してください.'); } sleep(1); $list = `ls $ls`; @lists = split(/\s+/,$list); @lists = grep(/\.tmp/,@lists); } } sub lock2 { $list = `ls $ls`; @lists = split(/\s+/,$list); @lists = grep(/\.tmp/,@lists); @lists = grep(!/$tmp_file/,@lists); if (@lists) { if (-e "$tmp_dir\/$tmp_file") { unlink("$tmp_dir\/$tmp_file"); } &error("Busy(2)",'書き込みに失敗しました.
再度実行してください.'); } if (!rename("$tmp_dir\/$tmp_file","$tmp_dir\/$file")) { &error("Busy(3)",'書き込みに失敗しました.
再度実行してください.'); } ; chmod 0666,"$tmp_dir\/$file"; } sub copyright { @array = ( "47","49","46","38","39","61","27","00","1a","00","b3","00","00","00","00","00","ff","ff","ff","00", "00","00","00","00","00","00","00","00","00","00","00","00","00","00","00","00","00","00","00","00", "00","00","00","00","00","00","00","00","00","00","00","00","00","00","00","92","92","92","00","00", "00","21","f9","04","01","00","00","00","00","2c","00","00","00","00","27","00","1a","00","40","04", "b6","10","c8","49","ab","bd","d8","86","e0","b6","fb","1b","d7","01","5e","08","92","60","19","5c", "62","e7","b9","9f","2b","be","e1","86","d5","38","89","87","d2","6e","67","93","d6","88","33","eb", "f1","76","41","5e","c5","c7","6c","fa","58","29","14","cc","25","f5","9d","80","ad","df","2b","75", "bd","75","7b","d3","52","2a","2b","8c","6d","57","46","22","6d","cd","e6","ca","be","94","b2","59", "7e","da","c2","e3","f2","5a","6c","2e","e5","b3","da","6f","81","6c","44","40","69","3f","86","48", "19","35","1a","59","3a","73","34","58","70","62","81","63","6a","2a","32","25","1a","61","61","8e", "6f","26","82","4b","94","67","55","55","2a","45","14","7b","97","a9","a9","00","66","7b","ac","7f", "4e","4c","88","87","7f","63","b7","82","a6","54","8a","b8","9f","be","67","b5","50","bd","64","45", "9f","77","71","75","33","c5","ca","23","28","c1","41","ad","af","c6","a9","d3","51","85","d7","d8", "19","11","00","00","3b"); print "Content-type: image/gif\n\n"; foreach (@array) { $data = pack('C*',hex($_)); print $data; } exit; }