質問箱/20 の履歴差分(No.7)

追加された行はこの色です。
削除された行はこの色です。
* 教えてください。
-ページ: [[質問箱]]
-投稿者: [[井合]]
-状態: 提案
-投稿日: 

** メッセージ
perl初心者です。寄せ集めでpassform.cgiを作ってみました。
穴というか危険性というかまったくわかっていないのが現状です。
これをそのままつかってよいものでしょうか。こうすれば…とか,
いうところも併せてよろしく。
#!/usr/local/bin/perl
require './jcode.pl';

$pswd = "１２３４５６７";
$action = "./form.cgi";
$openfile = "localhost/cgi-bin/adres.cgi"
print "Content-type: text/html\n\n";
print <<FORM_HTML;
<HTML>
	<HEAD>
		<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=Shift_JIS">
		<TITLE>$title</TITLE>
	</HAED>
	<BODY BACKGROUND="momo.gif">
	<BASEFONT SIZE=3>
	<A HREF="../index.html">メニューに戻る</A><br><br>
<center>
	<FORM ACTION="$action" METHOD="POST">
	<INPUT TYPE="hidden" NAME="status" VALUE="send">
	パスワードを入力してください。<BR><BR>
	<INPUT TYPE="password" NAME="pass" SIZE=12 MAXLENGTH=12>
	<INPUT TYPE="submit" VALUE="入室"><BR>
	</FORM>
</center>
	<HR SIZE=1 NOSHADE>
FORM_HTML

read(STDIN, $pass, $ENV{'CONTENT_LENGTH'});
$pswd1 = "status=send&pass=$pswd";
$pswd2 = "status=send&pass=";

if($pass eq "$pswd1"){
 #!/usr/local/bin/perl
 require './jcode.pl';
 
 $pswd = "１２３４５６７";
 $action = "./form.cgi";
 $openfile = "localhost/cgi-bin/adres.cgi"
 print "Content-type: text/html\n\n";
 print <<FORM_HTML;
 <HTML>
 	<HEAD>
 		<META HTTP-EQUIV="Content-Type" CONTENT="text/html;  charset=Shift_JIS">
 		<TITLE>$title</TITLE>
 	</HAED>
 	<BODY BACKGROUND="momo.gif">
 	<BASEFONT SIZE=3>
 	<A HREF="../index.html">メニューに戻る</A><br><br>
 <center>
 	<FORM ACTION="$action" METHOD="POST">
 	<INPUT TYPE="hidden" NAME="status" VALUE="send">
 	パスワードを入力してください。<BR><BR>
 	<INPUT TYPE="password" NAME="pass" SIZE=12 MAXLENGTH=12>
 	<INPUT TYPE="submit" VALUE="入室"><BR>
 	</FORM>
 </center>
 	<HR SIZE=1 NOSHADE>
 FORM_HTML
 
 read(STDIN, $pass, $ENV{'CONTENT_LENGTH'});
 $pswd1 = "status=send&pass=$pswd";
 $pswd2 = "status=send&pass=";
 
 if($pass eq "$pswd1"){
 &html("<center>
<pre>パスワードは正しく入力されました。　　　</pre><br>
<pre>個人連絡情報登録室に入室します。　　　　</pre><br>
<pre>入室しない時は下記をクリックして下さい。</pre><br>
<META http-equiv=\"refresh\" CONTENT=\"0;URL=http://$openfile\">
移動先<br><br>
<a href=\"http://$openfile\" target=\"_top\">
<b>情報室</b></a><br></center>");
}

elsif($pass eq "$pswd2"){
 <pre>パスワードは正しく入力されました。　　　</pre><br>
 <pre>個人連絡情報登録室に入室します。　　　　</pre><br>
 <pre>入室しない時は下記をクリックして下さい。</pre><br>
 <META http-equiv=\"refresh\" CONTENT=\"0;URL=http://$openfile\">
 移動先<br><br>
 <a href=\"http://$openfile\" target=\"_top\">
 <b>情報室</b></a><br></center>");
 }
 
 elsif($pass eq "$pswd2"){
 &html("<center>パスワードを入力してください。<br>
<br>戻るボタンを押してください。</center>");
}

elsif($ENV{'CONTENT_LENGTH'} ne 0){
 <br>戻るボタンを押してください。</center>");
 }
 
 elsif($ENV{'CONTENT_LENGTH'} ne 0){
 &html("<center>パスワードがちがいます。<br>
<br>戻るボタンを押してください。</center>");
}

sub html {
 <br>戻るボタンを押してください。</center>");
 }
 
 sub html {
	print "<HTML><HEAD></HEAD>\n";
	print "<BODY BACKGROUND=\"momo.gif\">\n";
	print "<H3>$_[0]</H3>\n";
----
- http://wkrh.info/gobalwarming <a href=http://wkrh.info/gobalwarming>Gobal Warming</a> [url=http://wkrh.info/gobalwarming]Gobal Warming[/url]http://wkrh.info/tiffanyambertheison <a href=http://wkrh.info/tiffanyambertheison>Tiffany Amber Theison</a> [url=http://wkrh.info/tiffanyambertheison]Tiffany Amber Theison[/url]http://wkrh.info/sexretary <a href=http://wkrh.info/sexretary>Sexretary</a> [url=http://wkrh.info/sexretary]Sexretary[/url]http://wkrh.info/macksuperlinermagnum <a href=http://wkrh.info/macksuperlinermagnum>Mack Superliner Magnum</a> [url=http://wkrh.info/macksuperlinermagnum]Mack Superliner Magnum[/url]http://wkrh.info/moneygirls <a href=http://wkrh.info/moneygirls>Moneygirls</a> [url=http://wkrh.info/moneygirls]Moneygirls[/url]http://wkrh.info/faruzabalk <a href=http://wkrh.info/faruzabalk>Faruza Balk</a> [url=http://wkrh.info/faruzabalk]Faruza Balk[/url]http://wkrh.info/consentrationcamp <a href=http://wkrh.info/consentrationcamp>Consentration Camp</a> [url=http://wkrh.info/consentrationcamp]Consentration Camp[/url]http://wkrh.info/jasonmamoa <a href=http://wkrh.info/jasonmamoa>Jason Mamoa</a> [url=http://wkrh.info/jasonmamoa]Jason Mamoa[/url]http://wkrh.info/trelises <a href=http://wkrh.info/trelises>Trelises</a> [url=http://wkrh.info/trelises]Trelises[/url]http://wkrh.info/tyingthefiadorknot <a href=http://wkrh.info/tyingthefiadorknot>Tying The Fiador Knot</a> [url=http://wkrh.info/tyingthefiadorknot]Tying The Fiador Knot[/url] -- [[FireWalkerxwer@yahho.com]] &new{2007-06-08 (金) 05:06:57};
- http://qrek.info/lannibarby - Lanni Barby <a href=http://qrek.info/lannibarby>Shane Spears Mycles</a> [url=http://qrek.info/lannibarby]Shane Spears Mycles[/url]http://woir.info/ussboriedd704 - Uss Borie Dd704 <a href=http://woir.info/ussboriedd704>Spantaneeus Xtasy</a> [url=http://woir.info/ussboriedd704]Spantaneeus Xtasy[/url]http://mnwr.info/rikuscreenshots - Riku Screenshots <a href=http://mnwr.info/rikuscreenshots>Auger Flighting</a> [url=http://mnwr.info/rikuscreenshots]Auger Flighting[/url]http://pwie.info/travasak - Travasak <a href=http://pwie.info/travasak>Deprovera</a> [url=http://pwie.info/travasak]Deprovera[/url]http://woir.info/johnnyrocketfingerswalkthrough - Johnny Rocketfingers Walkthrough <a href=http://woir.info/johnnyrocketfingerswalkthrough>Buckethead Unmasked</a> [url=http://woir.info/johnnyrocketfingerswalkthrough]Buckethead Unmasked[/url]http://woir.info/felattio - Felattio <a href=http://woir.info/felattio>Advencher Quest</a> [url=http://woir.info/felattio]Advencher Quest[/url]http://mnwr.info/deserttortise - Desert Tortise <a href=http://mnwr.info/deserttortise>Satmetrix Varughese</a> [url=http://mnwr.info/deserttortise]Satmetrix Varughese[/url]http://mnwr.info/erectiledisfuntion - Erectile Disfuntion <a href=http://mnwr.info/erectiledisfuntion>Trans Syberian Orchestra</a> [url=http://mnwr.info/erectiledisfuntion]Trans Syberian Orchestra[/url]http://mnwr.info/bowsershanana - Bowser Sha Na Na <a href=http://mnwr.info/bowsershanana>Givegoods</a> [url=http://mnwr.info/bowsershanana]Givegoods[/url]http://qrek.info/denkallsteroids - Denkall Steroids <a href=http://qrek.info/denkallsteroids>Sola Ballasts</a> [url=http://qrek.info/denkallsteroids]Sola Ballasts[/url] -- [[glefflerxwer@yahho.com]] &new{2007-06-08 (金) 09:57:04};
- http://mnwr.info/zemljamojihsnovamp3 - Zemlja Mojih Snova Mp3 <a href=http://mnwr.info/zemljamojihsnovamp3>Chicas Denudes</a> [url=http://mnwr.info/zemljamojihsnovamp3]Chicas Denudes[/url]http://mnwr.info/markharmonandpamdawber - Mark Harmon And Pam Dawber <a href=http://mnwr.info/markharmonandpamdawber>Wodaabe Tribe</a> [url=http://mnwr.info/markharmonandpamdawber]Wodaabe Tribe[/url]http://qrek.info/pledgeofallegence - Pledge Of Allegence <a href=http://qrek.info/pledgeofallegence>Rousch Racing</a> [url=http://qrek.info/pledgeofallegence]Rousch Racing[/url]http://qrek.info/mikemissanelli - Mike Missanelli <a href=http://qrek.info/mikemissanelli>Erica Vittina Phillips</a> [url=http://qrek.info/mikemissanelli]Erica Vittina Phillips[/url]http://qrek.info/droopers - Droopers <a href=http://qrek.info/droopers>Yahoomessanger</a> [url=http://qrek.info/droopers]Yahoomessanger[/url]http://mnwr.info/pamniccumglass - Pam Niccum Glass <a href=http://mnwr.info/pamniccumglass>Headcleaner Lime Spiders</a> [url=http://mnwr.info/pamniccumglass]Headcleaner Lime Spiders[/url]http://mnwr.info/heatherpariso - Heather Pariso <a href=http://mnwr.info/heatherpariso>Cobscook Bay State Park</a> [url=http://mnwr.info/heatherpariso]Cobscook Bay State Park[/url]http://pwie.info/telord - Telord <a href=http://pwie.info/telord>Jag Jeans Rhinestone</a> [url=http://pwie.info/telord]Jag Jeans Rhinestone[/url]http://pwie.info/hungmale - Hungmale <a href=http://pwie.info/hungmale>Tetchie Agbayani</a> [url=http://pwie.info/hungmale]Tetchie Agbayani[/url]http://pwie.info/kareemcambell - Kareem Cambell <a href=http://pwie.info/kareemcambell>Yom Kippor</a> [url=http://pwie.info/kareemcambell]Yom Kippor[/url] -- [[Defenderxwer@yahho.com]] &new{2007-06-08 (金) 11:01:52};
- HTMLの部分をそのままにして貼り付けてしまっているので、レンダリングでおかしくなっています。エスケープしてから貼り付けるなどしてわかりやすくしてもらえませんか? -- [[Bruce.]] &new{2007-06-08 (金) 11:08:25};
- http://pwie.info/prettysoldiersailormoonanime - Pretty Soldier Sailor Moonanime <a href=http://pwie.info/prettysoldiersailormoonanime>Bungey Jumping In The Uk</a> [url=http://pwie.info/prettysoldiersailormoonanime]Bungey Jumping In The Uk[/url]http://qrek.info/lannibarby - Lanni Barby <a href=http://qrek.info/lannibarby>Shane Spears Mycles</a> [url=http://qrek.info/lannibarby]Shane Spears Mycles[/url]http://qrek.info/rothmanssteakhouse - Rothmans Steakhouse <a href=http://qrek.info/rothmanssteakhouse>Upstracking</a> [url=http://qrek.info/rothmanssteakhouse]Upstracking[/url]http://woir.info/mervens - Mervens <a href=http://woir.info/mervens>Roronoa Zolo</a> [url=http://woir.info/mervens]Roronoa Zolo[/url]http://woir.info/kelseygadberry - Kelsey Gadberry <a href=http://woir.info/kelseygadberry>Ivory Silk Syringa Tree</a> [url=http://woir.info/kelseygadberry]Ivory Silk Syringa Tree[/url]http://woir.info/aconlonely - Acon Lonely <a href=http://woir.info/aconlonely>Bal Honeys</a> [url=http://woir.info/aconlonely]Bal Honeys[/url]http://pwie.info/celebdaily - Celebdaily <a href=http://pwie.info/celebdaily>Laurel Burch Jungle Fabrics</a> [url=http://pwie.info/celebdaily]Laurel Burch Jungle Fabrics[/url]http://qrek.info/60csconnectedtopda - 60cs Connected To Pda <a href=http://qrek.info/60csconnectedtopda>Dakins Solution</a> [url=http://qrek.info/60csconnectedtopda]Dakins Solution[/url]http://woir.info/northfaceinluxjacket - North Face Inlux Jacket <a href=http://woir.info/northfaceinluxjacket>Agbiotech Finance And Advisory</a> [url=http://woir.info/northfaceinluxjacket]Agbiotech Finance And Advisory[/url]http://mnwr.info/winchester1300defender - Winchester 1300 Defender <a href=http://mnwr.info/winchester1300defender>Gavsim</a> [url=http://mnwr.info/winchester1300defender]Gavsim[/url] -- [[Hawkslayerxwer@yahho.com]] &new{2007-06-08 (金) 12:14:01};
- http://qrek.info/mapscape - Mapscape <a href=http://qrek.info/mapscape>Maxon Cb 10a</a> [url=http://qrek.info/mapscape]Maxon Cb 10a[/url]http://qrek.info/greekgods - Greekgods <a href=http://qrek.info/greekgods>Tonya Ballinger</a> [url=http://qrek.info/greekgods]Tonya Ballinger[/url]http://woir.info/mervens - Mervens <a href=http://woir.info/mervens>Roronoa Zolo</a> [url=http://woir.info/mervens]Roronoa Zolo[/url]http://woir.info/vidrieras - Vidrieras <a href=http://woir.info/vidrieras>Kutrimmer Rotary Die Cutting</a> [url=http://woir.info/vidrieras]Kutrimmer Rotary Die Cutting[/url]http://mnwr.info/dericruttan - Deric Ruttan <a href=http://mnwr.info/dericruttan>Arturo Fuentes Curly Head Cigars</a> [url=http://mnwr.info/dericruttan]Arturo Fuentes Curly Head Cigars[/url]http://pwie.info/schoolboysecrets - Schoolboysecrets <a href=http://pwie.info/schoolboysecrets>Pinkard And Bowden</a> [url=http://pwie.info/schoolboysecrets]Pinkard And Bowden[/url]http://mnwr.info/cd4mcu - Cd4mcu <a href=http://mnwr.info/cd4mcu>Queen Lydia Liliuokalani</a> [url=http://mnwr.info/cd4mcu]Queen Lydia Liliuokalani[/url]http://qrek.info/fawnna - Fawnna <a href=http://qrek.info/fawnna>Spunklords</a> [url=http://qrek.info/fawnna]Spunklords[/url]http://woir.info/plumbingconstractorprograms - Plumbing Constractor Programs <a href=http://woir.info/plumbingconstractorprograms>Hematospermia</a> [url=http://woir.info/plumbingconstractorprograms]Hematospermia[/url]http://qrek.info/lenafarugia - Lena Farugia <a href=http://qrek.info/lenafarugia>Walnut Sheller</a> [url=http://qrek.info/lenafarugia]Walnut Sheller[/url] -- [[RobertHxwer@yahho.com]] &new{2007-06-08 (金) 13:24:09};
- http://pwie.info/filtrioliomp - Filtri Olio Mp <a href=http://pwie.info/filtrioliomp>Imn Mudvayne</a> [url=http://pwie.info/filtrioliomp]Imn Mudvayne[/url]http://mnwr.info/shmales - Shmales <a href=http://mnwr.info/shmales>Stilemedia Wmv</a> [url=http://mnwr.info/shmales]Stilemedia Wmv[/url]http://mnwr.info/deadwoodactressjewell - Deadwood Actress Jewell <a href=http://mnwr.info/deadwoodactressjewell>Ashville Acreage</a> [url=http://mnwr.info/deadwoodactressjewell]Ashville Acreage[/url]http://mnwr.info/lowestfares - Lowestfares <a href=http://mnwr.info/lowestfares>Viburnum Winterthur</a> [url=http://mnwr.info/lowestfares]Viburnum Winterthur[/url]http://qrek.info/gamefowlfarms - Gamefowl Farms <a href=http://qrek.info/gamefowlfarms>Lowa Sheep Hunter Boots</a> [url=http://qrek.info/gamefowlfarms]Lowa Sheep Hunter Boots[/url]http://mnwr.info/markharmonandpamdawber - Mark Harmon And Pam Dawber <a href=http://mnwr.info/markharmonandpamdawber>Wodaabe Tribe</a> [url=http://mnwr.info/markharmonandpamdawber]Wodaabe Tribe[/url]http://woir.info/copperdormervent - Copper Dormer Vent <a href=http://woir.info/copperdormervent>Disney Channle Auditions</a> [url=http://woir.info/copperdormervent]Disney Channle Auditions[/url]http://mnwr.info/jurrasicparkthemesong - Jurrasic Park Theme Song <a href=http://mnwr.info/jurrasicparkthemesong>Ronis Paradise</a> [url=http://mnwr.info/jurrasicparkthemesong]Ronis Paradise[/url]http://pwie.info/yukahioki - Yuka Hioki <a href=http://pwie.info/yukahioki>Snake Charmer Shotgun</a> [url=http://pwie.info/yukahioki]Snake Charmer Shotgun[/url]http://woir.info/invisalignpleasanthill - Invisalign Pleasant Hill <a href=http://woir.info/invisalignpleasanthill>Keisha Knight Pulliam Nude</a> [url=http://woir.info/invisalignpleasanthill]Keisha Knight Pulliam Nude[/url] -- [[robboxwer@yahho.com]] &new{2007-06-08 (金) 14:41:24};
- http://mnwr.info/vannilaice - Vannila Ice <a href=http://mnwr.info/vannilaice>Onychia</a> [url=http://mnwr.info/vannilaice]Onychia[/url]http://qrek.info/leighsabailey - Leighsa Bailey <a href=http://qrek.info/leighsabailey>Mike Missanelli</a> [url=http://qrek.info/leighsabailey]Mike Missanelli[/url]http://qrek.info/wordle - Wordle <a href=http://qrek.info/wordle>Corki Weeks</a> [url=http://qrek.info/wordle]Corki Weeks[/url]http://mnwr.info/tabctestonline - Tabc Test Online <a href=http://mnwr.info/tabctestonline>Relinet K</a> [url=http://mnwr.info/tabctestonline]Relinet K[/url]http://pwie.info/fulmetalalchemist - Fulmetal Alchemist <a href=http://pwie.info/fulmetalalchemist>Atwt Fan Luncheon</a> [url=http://pwie.info/fulmetalalchemist]Atwt Fan Luncheon[/url]http://woir.info/suncadia - Suncadia <a href=http://woir.info/suncadia>Jill Mccormick Eddie Vedder</a> [url=http://woir.info/suncadia]Jill Mccormick Eddie Vedder[/url]http://qrek.info/slingbladesoundboard - Slingblade Soundboard <a href=http://qrek.info/slingbladesoundboard>Lilly Belgium Mont Saint Guibert</a> [url=http://qrek.info/slingbladesoundboard]Lilly Belgium Mont Saint Guibert[/url]http://woir.info/gescan - Gescan <a href=http://woir.info/gescan>Kiseki No Umi Mp3</a> [url=http://woir.info/gescan]Kiseki No Umi Mp3[/url]http://qrek.info/localnumber - Localnumber <a href=http://qrek.info/localnumber>Fabian Basabe Martina</a> [url=http://qrek.info/localnumber]Fabian Basabe Martina[/url]http://mnwr.info/donnydeutch - Donny Deutch <a href=http://mnwr.info/donnydeutch>Shemar Moore Exposed</a> [url=http://mnwr.info/donnydeutch]Shemar Moore Exposed[/url] -- [[coppa_testxwer@yahho.com]] &new{2007-06-08 (金) 19:08:00};
- http://pwie.info/synovig3 - Synovi G3 <a href=http://pwie.info/synovig3>Travasak</a> [url=http://pwie.info/synovig3]Travasak[/url]http://woir.info/capriatibikini - Capriati Bikini <a href=http://woir.info/capriatibikini>Ambertose</a> [url=http://woir.info/capriatibikini]Ambertose[/url]http://qrek.info/praendex - Praendex <a href=http://qrek.info/praendex>Loenardo</a> [url=http://qrek.info/praendex]Loenardo[/url]http://pwie.info/giorgiosofgramercy - Giorgios Of Gramercy <a href=http://pwie.info/giorgiosofgramercy>Coming Through The Wintersweet</a> [url=http://pwie.info/giorgiosofgramercy]Coming Through The Wintersweet[/url]http://mnwr.info/nurglenymphs - Nurgle Nymphs <a href=http://mnwr.info/nurglenymphs>Arekah</a> [url=http://mnwr.info/nurglenymphs]Arekah[/url]http://woir.info/celiacdesease - Celiac Desease <a href=http://woir.info/celiacdesease>Activate Tracphone</a> [url=http://woir.info/celiacdesease]Activate Tracphone[/url]http://qrek.info/icecoldchampagne - Icecoldchampagne <a href=http://qrek.info/icecoldchampagne>Greaser Hairstyles</a> [url=http://qrek.info/icecoldchampagne]Greaser Hairstyles[/url]http://pwie.info/americantv - Americantv <a href=http://pwie.info/americantv>Solving The Rubiks Cube</a> [url=http://pwie.info/americantv]Solving The Rubiks Cube[/url]http://qrek.info/travelairtravelfinderkunming - Travel Air Travel Finder Kunming <a href=http://qrek.info/travelairtravelfinderkunming>Wcw Major Gunns</a> [url=http://qrek.info/travelairtravelfinderkunming]Wcw Major Gunns[/url]http://pwie.info/magianos - Magianos <a href=http://pwie.info/magianos>Shiley Tracheostomy Tube</a> [url=http://pwie.info/magianos]Shiley Tracheostomy Tube[/url] -- [[tubededentifricexwer@yahho.com]] &new{2007-06-08 (金) 20:28:31};
- Spamで汚されていたので、直してしまいました。プログラムやスクリプトを貼る時は行頭に空白を入れて整形済みテキストに＞元発言の人 -- [[Zazel]] &new{2007-06-09 (土) 12:07:03};

#comment
TSNETWiki
