--- p̒ ---

PD̓x́Ai-modeΉȈՃpX[h_E[hA
@ɂ肪Ƃ܂B

QD̃XNvg̓t[\tgłB̃XNvggp
@Ȃ鑹Qɑ΂Ă҂͈؂̐ӔC𕉂܂B

RDjcode.pl̒쌠Kazumasa UtashiroȂ̃XNvg
@̒쌠͗Ǌɂ܂B

SD̃\tg̓t[\tgłAJp͑劽}łB
@Jӗ~iɂ͂B(^^)
@EEEłAYJ܂ƁEEE
@QNOɁATOO~̐U݂P܂B(^^)
@ȏłB

@JpUݐF
@@@@@@@@@sǎxX
@@@@@@@@@ijWUXVQR
@@@@@@@@@c@iǊj





                                                    2003/10/25
                                ̗Ǌ
                                ryokan@po.minc.ne.jp
                                http://www.minc.ne.jp/~ryokan/


 XV
E2003/10/25  CGI̔閧y[WɑΉ
E2000/10/27@J


ipass.htmlɂ

{́A

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=x-sjis">
<title>pX[h</title>
</head>
<body bgcolor="#FFFFFF">
<hr>
<p align="center">pX[h</p>
<form action="http://www.minc.ne.jp/~ryokan/cgi-bin/ipasswd/ipasswd.cgi" method="POST">
<p align="center"><input type="password" size="10" name="myName"><br>
<input type="submit" value="Ɖ"> <input type="reset" value=""><br>
</p>
</form>
<hr>
</body>
</html>


<form action="http://www.minc.ne.jp/~ryokan/cgi-bin/ipasswd/ipasswd.cgi"
́ÃXNvĝĂURLłB

ipass.htmlCGĨtH_ɒuKv͂܂B



ipasswd.cgiɂ

Psڂ́u#!/usr/local/bin/perlv̓T[o[Perl̂ꏊ
łBvoC_ɂ菭قȂ܂̂ŁAvoC_ɕ
Ċm߂ĂB́A~NĩvoC_j
ꍇłB


require './jcode.pl';     
jcode.pl𓯂tH_ɒuꍇ͕ύXsvłB


$html="secret.cgi";

閧t@C(pX[hvꍇɃI[vt@C)łB
ipasswd.cgiƓtH_ɒuĂB

烊NĂt@ĆAʂ̃tH_ł\܂񂪁A
@΃pXi../../~~~.cgijɂĂB


$password="1234";
pX[h


$ipass="http://www.minc.ne.jp/~ryokan/ipass.html";
pX[h͂URLłB



 Kvȃt@C@[@]̓p[~bV

   ipasswd.cgi  [755] @AXL[[hœ]

   jcode.pl     [644] @AXL[[hœ]

   secret.cgi   [755]   AXL[[hœ]

   ipasswd      [777] @ȏ̃t@CtH_

   ipass.html   [sv]  oCi[hœ]

@@@@@@@@@@@@@@@@@@@@@@@@@@@@ȏ