#freeze
* 教えてください。 [#jbc184dd]
-ページ: [[質問箱]]
-投稿者: [[井合]]
-状態: 提案
-投稿日:
** メッセージ [#xebe427a]
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"){
&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"){
&html("<center>パスワードを入力してください。<br>
<br>戻るボタンを押してください。</center>");
}
elsif($ENV{'CONTENT_LENGTH'} ne 0){
&html("<center>パスワードがちがいます。<br>
<br>戻るボタンを押してください。</center>");
}
sub html {
print "<HTML><HEAD></HEAD>\n";
print "<BODY BACKGROUND=\"momo.gif\">\n";
print "<H3>$_[0]</H3>\n";
}
----
- HTMLの部分をそのままにして貼り付けてしまっているので、レンダリングでおかしくなっています。エスケープしてから貼り付けるなどしてわかりやすくしてもらえませんか? -- [[Bruce.]] &new{2007-06-08 (金) 11:08:25};
- Spamで汚されていたので、直してしまいました。プログラムやスクリプトを貼る時は行頭に空白を入れて整形済みテキストに＞元発言の人 -- [[Zazel]] &new{2007-06-09 (土) 12:07:03};
- pJZgV5 <a href="http://puoixrkutujb.com/">puoixrkutujb</a>, [url=http://pnppuryaffiq.com/]pnppuryaffiq[/url], [link=http://dvzpssgzzhta.com/]dvzpssgzzhta[/link], http://izxknidkjxck.com/ -- [[inavqbhttm]] &new{2009-11-11 (水) 23:39:29};
- comment2, http://turkiya.cn/2008-07/victor-coffee victor coffee, 250560, http://evrokeramika.cn/2007-12/words-and-images words and images, =-]]], http://moldirbulak.cn/2008-04/conan-the-conquerer conan the conquerer, luw, http://kvartirant.cn/2008-07/jack-nicholson-soundboards jack nicholson soundboards, 42717, http://moldirbulak.cn/2008-07/german-food-receipes german food receipes, >:-PPP, http://turkiya.cn/2007-11/turkish-kilim-purse turkish kilim purse, 58598, http://kazinfotel.cn/2008-03/zerol-ice zerol ice, %-DD, http://kazinfotel.cn/2007-12/rosemary-benefits rosemary benefits, wrt, http://planetasushi.cn/2008-03/house-screw-jacks house screw jacks, 8-], http://planetasushi.cn/2009-01/motorcycles-babes motorcycles babes, >:-((, http://kazinfotel.cn/2009-02/porcelain-paints porcelain paints, 9447, http://pkollsemey.cn/2008-02/consented-landfill-void-cory-environmental consented landfill void cory environmental, 945346, http://pkollsemey.cn/2008-09/janey-place janey place, %]]], http://planetasushi.cn/2008-02/private-lenders-for-personal-loans private lenders for personal loans, %))), http://almaty-translation.cn/2008-03/2006-world-series-of-poker 2006 world series of poker, oni, http://planetasushi.cn/2009-02/dagger-animas dagger animas, :PPP, http://nurgasyr.cn/2009-03/nissan-xterra-california nissan xterra california, :-(, http://turkiya.cn/2008-01/nova-chuck nova chuck, %[[[, http://kvartirant.cn/2009-01/redway-knights-movies redway knights movies, :P, http://planetasushi.cn/2008-08/hose-barbs hose barbs, ype, -- [[facts about portugal]] &new{2009-11-13 (金) 01:17:14};
- comment2, http://moldirbulak.cn/2008-08/cnn-com-video-faq cnn com video faq, 428605, http://planetasushi.cn/2008-04/kitchenaid-ktt340 kitchenaid ktt340, xfomr, http://moldirbulak.cn/2007-12/bratze bratze, eulp, http://moldirbulak.cn/2009-02/lowering-your-pulse-rate lowering your pulse rate, pre, http://moldirbulak.cn/2007-11/catawba-nc catawba nc, owrgpf, http://nurgasyr.cn/2008-01/vdn vdn, qwkrb, http://pkollsemey.cn/2008-06/natural-maternity-clothes natural maternity clothes, 381, http://turkiya.cn/2008-05/boris-yeltsin-cartoons boris yeltsin cartoons, fckg, http://sschaktobe.cn/2007-12/cohabitation-laws cohabitation laws, hfs, http://planetasushi.cn/2008-11/nels-anton-jepson nels anton jepson, 617850, http://nurgasyr.cn/2008-07/rhode-island-s-colonies rhode island's colonies, 33909, http://pkollsemey.cn/2008-08/elephant-rifle elephant rifle, >:-], http://planetasushi.cn/2008-08/german-bread-recipes german bread recipes, 9179, http://turkiya.cn/2009-01/play-word-games-online-free play word games online free, 198, http://sschaktobe.cn/2009-02/custom-camper-shells custom camper shells, %((, http://nurgasyr.cn/2007-11/tricia-m-gustafson tricia m gustafson, 788178, http://moldirbulak.cn/2008-04/intoxalock intoxalock, mqvoa, http://sschaktobe.cn/2009-02/grill-marinade-recipes grill marinade recipes, mzbz, http://nurgasyr.cn/2007-11/remington-leather-dog-collar remington leather dog collar, mwiy, http://nurgasyr.cn/2008-03/toyota-camry-tires toyota camry tires, ajjkz, -- [[the painted door by sinclair ross]] &new{2009-11-13 (金) 01:45:00};
- comment6, http://kvartirant.cn/2009-02/marlene-pankonin marlene pankonin, 8432, http://turkiya.cn/2008-03/st-patricks-day-craft st patricks day craft, crarch, http://sschaktobe.cn/2008-02/duralast-metal-cleaner duralast metal cleaner, 8-]], http://almaty-translation.cn/2007-12/agay agay, wcupzs, http://kvartirant.cn/2008-02/printable-puzzle printable puzzle, 04586, http://evrokeramika.cn/2008-05/vacuum-pot vacuum pot, %((, http://moldirbulak.cn/2008-05/balkan-mountains balkan mountains, %-OOO, http://moldirbulak.cn/2008-04/dfw-terminal-map dfw terminal map, bjul, http://almaty-translation.cn/2008-10/angel-black-robe-spiritual-dream angel black robe spiritual dream, dgr, http://pkollsemey.cn/2008-12/history-of-allen-county-indiana history of allen county indiana, >:-OO, http://planetasushi.cn/2009-03/potato-pictures potato pictures, >:-]]], http://pkollsemey.cn/2008-08/kahi-lee kahi lee, 2966, http://evrokeramika.cn/2009-01/southern-ca-gas-company southern ca gas company, 528079, http://turkiya.cn/2008-06/news-channel-5-oklahoma-city news channel 5 oklahoma city, 8090, http://kvartirant.cn/2009-02/saluda-tigers-football saluda tigers football, xgp, http://planetasushi.cn/2008-02/coed-summer-candids coed summer candids, 125999, http://kazinfotel.cn/2008-12/marathon-race-results marathon race results, >:-D, http://evrokeramika.cn/2008-09/dfas-wide-area-workflow dfas wide area workflow, %)), http://evrokeramika.cn/2007-12/photos-on-canvas-mesa-arizona photos on canvas mesa arizona, %-(((, http://turkiya.cn/2008-06/obsessive-compulsive-disorder-in-dogs obsessive compulsive disorder in dogs, >:DDD, -- [[ozi]] &new{2009-11-13 (金) 01:45:04};
- comment3, http://kazinfotel.cn/2008-08/michael-bach michael bach, 68085, http://evrokeramika.cn/2008-11/prolotherapy-hauser prolotherapy hauser, 33820, http://turkiya.cn/2009-02/robert-allen-fabric-discounted robert allen fabric discounted, 8-O, http://pkollsemey.cn/2008-02/corporate-fundraising corporate fundraising, 8-DDD, http://nurgasyr.cn/2008-03/pobl-a-cymdeithas pobl a cymdeithas, 67520, http://kazinfotel.cn/2008-06/lyn-foulks-artist lyn foulks artist, =]], http://evrokeramika.cn/2008-09/emma-watson-s-boobs emma watson's boobs, :-(, http://almaty-translation.cn/2008-01/blandin-foundation blandin foundation, 491, http://almaty-translation.cn/2009-01/cons-of-censorship cons of censorship, %-DD, http://pkollsemey.cn/2009-03/listen-to-hey-there-delilah listen to hey there delilah, 19207, http://evrokeramika.cn/2009-01/scarborough-dental-implants scarborough dental implants, kun, http://evrokeramika.cn/2008-03/ybor-city-tampa-fl ybor city tampa fl, 82326, http://pkollsemey.cn/2008-02/no-tuition-bible-colleges no tuition bible colleges, %-(((, http://pkollsemey.cn/2008-10/bittorrent-source bittorrent source, 311, http://planetasushi.cn/2007-12/female-ejaculation-free-video female ejaculation free video, mbup, http://turkiya.cn/2008-04/simple-interest-finance-calculator simple interest finance calculator, :(, http://pkollsemey.cn/2008-11/discount-bridal-tiaras discount bridal tiaras, :(, http://kvartirant.cn/2009-03/minera-iud minera iud, 81732, http://almaty-translation.cn/2008-05/stow-clear-braces stow clear braces, kzsq, http://pkollsemey.cn/2008-10/make-my-dvd-player-region-free make my dvd player region free, jwzer, -- [[peach country tractor]] &new{2009-11-13 (金) 02:13:35};
- comment3, http://planetasushi.cn/2008-10/logitech-image-studio logitech image studio, ebdw, http://moldirbulak.cn/2007-11/currituck-club currituck club, tow, http://almaty-translation.cn/2008-01/auto-price-guide auto price guide, 8-]], http://pkollsemey.cn/2009-01/minor-laws minor laws, >:(((, http://planetasushi.cn/2008-02/don-singlehurst don singlehurst, %-[, http://evrokeramika.cn/2009-01/xp-pro-student-downloads xp pro student downloads, 770, http://kvartirant.cn/2008-03/sailor-moon-wallpapers sailor moon wallpapers, :(((, http://evrokeramika.cn/2009-03/private-maplestory-server-with-200x-exp private maplestory server with 200x exp, uilu, http://sschaktobe.cn/2008-08/deprecate deprecate, =], http://kazinfotel.cn/2008-09/motorized-canoe motorized canoe, %(, http://evrokeramika.cn/2009-02/boulder-co-zip-code boulder co zip code, gfj, http://turkiya.cn/2007-12/accurate-bac-calculator accurate bac calculator, 367758, http://turkiya.cn/2008-10/uranium-futures uranium futures, :[, http://planetasushi.cn/2009-02/doctor-vision-works doctor vision works, fli, http://moldirbulak.cn/2008-01/baptist-churches-college-station-tx baptist churches college station tx, rbgppx, http://planetasushi.cn/2008-10/jane-eyre-the-musical jane eyre the musical, pvm, http://planetasushi.cn/2009-02/faith-chords-and-lyrics faith chords and lyrics, 412, http://almaty-translation.cn/2007-11/blackmoon blackmoon, 499101, http://almaty-translation.cn/2008-01/sterling-silver-test sterling silver test, %((, http://sschaktobe.cn/2008-10/iowa-senate-votes iowa senate votes, sdcnj, -- [[windows xp media player]] &new{2009-11-13 (金) 02:44:04};
- comment4, http://kazinfotel.cn/2008-04/where-to-hunt-deer-oregon where to hunt deer oregon, oscjh, http://pkollsemey.cn/2008-08/circadian-rythms circadian rythms, knyay, http://almaty-translation.cn/2007-12/simi-valley-dog-park simi valley dog park, >:P, http://kazinfotel.cn/2008-07/milk-crates-for-sales milk crates for sales, ccnnz, http://almaty-translation.cn/2008-05/used-peterbilt-truck-value used peterbilt truck value, >:-[[[, http://nurgasyr.cn/2008-10/angry-video angry video, 8[[[, http://kvartirant.cn/2008-03/medcaid medcaid, 821906, http://nurgasyr.cn/2009-03/safariland-6004-holster safariland 6004 holster, blf, http://pkollsemey.cn/2008-09/my-name-is-maria-isabel my name is maria isabel, 810, http://planetasushi.cn/2008-07/foot-in-the-door foot in the door, 8)), http://evrokeramika.cn/2008-09/plaid-punk-skirts plaid punk skirts, rmkaa, http://evrokeramika.cn/2008-02/elco-dl-2000-camera elco dl 2000 camera, =[, http://turkiya.cn/2008-05/watch-lamhe-movie-online watch lamhe movie online, %-(((, http://sschaktobe.cn/2007-12/what-is-loli-doujin what is loli doujin, htvf, http://sschaktobe.cn/2007-12/custom-lasik-marketing-kit custom lasik marketing kit, 8713, http://moldirbulak.cn/2008-02/lounge-chairs-restrapping lounge chairs restrapping, 3978, http://almaty-translation.cn/2009-01/children-s-books-for-age-6 children's books for age 6, 265800, http://kazinfotel.cn/2008-07/pierre-lallement pierre lallement, wicveh, http://planetasushi.cn/2008-03/edf-meter-provider edf meter provider, jmkzk, http://turkiya.cn/2008-07/natural-hair-lightener natural hair lightener, hyk, -- [[lemon sauce for cheesecake]] &new{2009-11-13 (金) 03:38:30};
- comment5, http://kazinfotel.cn/2008-06/wlv wlv, 31896, http://kazinfotel.cn/2008-08/walk-behind-excavator walk behind excavator, fwzrqp, http://kazinfotel.cn/2008-07/24-inch-rides 24 inch rides, 85056, http://nurgasyr.cn/2008-02/natalie-appleton natalie appleton, :(((, http://pkollsemey.cn/2008-03/dragoon-ms dragoon ms, fmcvry, http://sschaktobe.cn/2007-11/toshba-satelite-hard-drive toshba satelite hard drive, atuec, http://sschaktobe.cn/2008-08/agriland agriland, 7258, http://pkollsemey.cn/2008-05/body-games body games, 161320, http://sschaktobe.cn/2008-01/champva-benefits champva benefits, 112, http://evrokeramika.cn/2008-02/daybed-mattress-covers daybed mattress covers, 3044, http://evrokeramika.cn/2009-02/products-made-or-grown-in-italy products made or grown in italy, zxtmlt, http://sschaktobe.cn/2008-04/guitar-furniture guitar furniture, 304099, http://kvartirant.cn/2007-12/grandpa-frames grandpa frames, kexf, http://moldirbulak.cn/2008-08/calpe-property-for-sale calpe property for sale, 8), http://sschaktobe.cn/2007-11/internship-programmes-in-kenya internship programmes in kenya, 8O, http://sschaktobe.cn/2009-01/jeans-skirts jeans skirts, :], http://nurgasyr.cn/2008-11/audio-transcribe-to-word-document audio transcribe to word document, :-[, http://kazinfotel.cn/2008-06/oklahoma-city-dentures oklahoma city dentures, pchq, http://sschaktobe.cn/2008-06/computer-monitor-free-shipping computer monitor free shipping, %[, http://moldirbulak.cn/2007-11/breast-menopause breast menopause, yskjyl, -- [[golf ball logo]] &new{2009-11-13 (金) 04:05:41};
- comment6, http://planetasushi.cn/2008-09/office-cleaning-letters office cleaning letters, voprgf, http://turkiya.cn/2007-12/prick-pic prick pic, ktugvj, http://almaty-translation.cn/2008-01/ernest-olde-detroit ernest olde detroit, 4281, http://planetasushi.cn/2008-02/marketing-for-sc-johnson marketing for sc johnson, =-D, http://turkiya.cn/2007-12/showroom-innovations showroom innovations, gwumcz, http://evrokeramika.cn/2007-11/x-men-pics x-men pics, mxwls, http://planetasushi.cn/2008-05/mirror-pictures mirror pictures, rzex, http://almaty-translation.cn/2009-01/conair-foot-spa conair foot spa, qudmek, http://planetasushi.cn/2008-02/homecoming-financial-mortgages homecoming financial mortgages, >:))), http://kazinfotel.cn/2008-06/red-river-gates-texas red river gates texas, 2483, http://nurgasyr.cn/2009-02/rubbermaid-truck rubbermaid truck, 554, http://sschaktobe.cn/2008-06/adria-gross adria gross, vpfitn, http://pkollsemey.cn/2008-03/hottest-naked-girl-ever hottest naked girl ever, rgps, http://turkiya.cn/2008-12/team-imperials team imperials, 64991, http://sschaktobe.cn/2008-12/bike-carrier-for-a-car bike carrier for a car, >:-), http://moldirbulak.cn/2009-03/i-go-to-the-rock-chords i go to the rock chords, 8P, http://turkiya.cn/2008-04/polaris-crankshaft polaris crankshaft, =], http://planetasushi.cn/2008-09/define-fetish define fetish, auoivf, http://sschaktobe.cn/2008-01/flocked-christmas-tree flocked christmas tree, %O, http://moldirbulak.cn/2009-01/man-dog man dog, 8DD, -- [[workshop manuals for mitsubishi shogun pinin]] &new{2009-11-13 (金) 04:34:10};
- comment2, http://turkiya.cn/2008-10/bill-urban-construction bill urban construction, wirrp, http://evrokeramika.cn/2009-02/canon-powershot-sd430 canon powershot sd430, 8D, http://nurgasyr.cn/2008-03/povertyneck-hillbillies-wives povertyneck hillbillies wives, :-)), http://sschaktobe.cn/2008-01/heritage-yachts heritage yachts, 140111, http://pkollsemey.cn/2009-03/matrix-animated-background matrix animated background, cozeq, http://kazinfotel.cn/2009-03/remote-control-spotlights remote control spotlights, %D, http://turkiya.cn/2008-03/4-periods-a-year 4 periods a year, eenu, http://sschaktobe.cn/2009-03/uniform-commercial-code-filings uniform commercial code filings, 536999, http://almaty-translation.cn/2009-03/cabins-to-rent-on-lake-winnepausakee cabins to rent on lake winnepausakee, %-PPP, http://sschaktobe.cn/2008-03/tv-show-the-closer tv show the closer, yrbmg, http://planetasushi.cn/2008-01/complex-ojos-de-dios complex ojos de dios, bnbjin, http://kvartirant.cn/2008-12/lindsy-olinn-snow-ski-personality lindsy olinn snow ski personality, npr, http://turkiya.cn/2009-01/wrinkled-skin wrinkled skin, kkm, http://turkiya.cn/2008-06/washington-bus-tours washington bus tours, 8-OO, http://sschaktobe.cn/2008-11/asterix-park asterix park, mjko, http://nurgasyr.cn/2008-10/writer-jaffe writer jaffe, uxty, http://planetasushi.cn/2009-02/in-nomine in nomine, >:D, http://planetasushi.cn/2007-12/noni-powder noni powder, :-[, http://nurgasyr.cn/2008-08/recipes-pork recipes pork, 1778, http://turkiya.cn/2009-03/warwick-finance-australia warwick finance australia, 42262, -- [[strapon fun]] &new{2009-11-13 (金) 05:31:28};
- comment5, http://pkollsemey.cn/2007-12/equine-search-and-rescue-traning equine search and rescue traning, %-PP, http://pkollsemey.cn/2008-09/konig-unknown konig unknown, 393, http://pkollsemey.cn/2009-03/la-weight-loss-bars la weight loss bars, =OOO, http://kazinfotel.cn/2008-10/vivek-raghuvanshi vivek raghuvanshi, rmtfj, http://nurgasyr.cn/2008-06/prayer-of-praise-and-adoration prayer of praise and adoration, 926, http://almaty-translation.cn/2009-02/denon-1500-limiter denon 1500 limiter, 8], http://evrokeramika.cn/2007-11/tv-box-set tv box set, 54560, http://evrokeramika.cn/2008-08/emtala-regulations emtala regulations, =[, http://kazinfotel.cn/2008-09/max-morath max morath, jwqdah, http://planetasushi.cn/2008-01/old-fashioned-candy-sticks old fashioned candy sticks, aays, http://moldirbulak.cn/2009-02/list-of-movie-sex-scenes list of movie sex scenes, zek, http://pkollsemey.cn/2007-11/calcium-vitamin-d calcium vitamin d, wjcv, http://pkollsemey.cn/2008-08/circadian-rythms circadian rythms, >:), http://moldirbulak.cn/2008-10/bitting-mites bitting mites, 484227, http://pkollsemey.cn/2008-09/bubs-rhineheart bubs rhineheart, %-OOO, http://evrokeramika.cn/2008-07/ast-florian ast florian, pcaxvu, http://kvartirant.cn/2008-05/sue-emanuelson sue emanuelson, ybh, http://turkiya.cn/2008-02/thomas-weisel thomas weisel, :DD, http://turkiya.cn/2008-09/wmv-to-psp-free wmv to psp free, 656, http://kvartirant.cn/2008-05/protegra-vitamins protegra vitamins, 977414, -- [[amc thearter]] &new{2009-11-13 (金) 06:51:08};
- comment5, http://planetasushi.cn/2008-09/fl-fishing-licence fl fishing licence, 28214, http://moldirbulak.cn/2008-06/insight-x2 insight x2, 8-], http://almaty-translation.cn/2007-11/albuquerque-new-mexico-jobs albuquerque new mexico jobs, bzahf, http://turkiya.cn/2008-08/advantages-of-advertising advantages of advertising, jlevn, http://turkiya.cn/2007-11/verbably-abusive verbably abusive, 524664, http://almaty-translation.cn/2009-03/takapuna-nz takapuna nz, 0534, http://almaty-translation.cn/2008-03/voyager-camera-adapter voyager camera adapter, 337, http://pkollsemey.cn/2008-10/corner-sink-cabinet corner sink cabinet, 38382, http://turkiya.cn/2008-05/south-east-idaho-real-estate south east idaho real estate, cht, http://turkiya.cn/2007-11/msn-messengers-emoticons-for-macs msn messengers emoticons for macs, 085231, http://kvartirant.cn/2008-06/panasonic-dlp-tv panasonic dlp tv, 102, http://kvartirant.cn/2008-01/spb-mobile-shell-purchase-pack spb mobile shell purchase pack, :DD, http://turkiya.cn/2008-11/4-3-liter-v-6-gm-crate-engine 4.3 liter v-6 gm crate engine, ibd, http://planetasushi.cn/2008-09/how-long-to-get-a-passport how long to get a passport, jrqapf, http://almaty-translation.cn/2008-01/walk-in-medical walk in medical, =-)), http://kvartirant.cn/2009-03/fancy-frog fancy frog, vasrj, http://almaty-translation.cn/2008-08/contact-abetta-saddle contact abetta saddle, 999010, http://pkollsemey.cn/2008-04/party-tray-arrangements party tray arrangements, 8DDD, http://evrokeramika.cn/2008-12/shane-backes shane backes, 5210, http://turkiya.cn/2008-06/practice-typing-games practice typing games, sdy, -- [[henrik krogh]] &new{2009-11-13 (金) 07:18:05};
#comment
![[PukiWiki]](skin/modernskin/logo.png "[PukiWiki]"){kind=logo}
