password.cgi
KHATRi NIRMAL| You are currently viewing a revision titled "password.cgi", saved on 2025年11月20日 8:46 PM by KHATRi NIRMAL | |
|---|---|
| タイトル | password.cgi |
| コンテンツ | !/usr/bin/perl
BEGIN{$|=1;print"Content-type:text/html\n\n";open(STDERR,">&STDOUT");}
use CGI;
$query = new CGI;
$password=$query->param('password');
#dataフォルダーのテキストデータ読み込み###################
open(IN,"<init.txt");
@data=<IN>;
close(IN);
##################################print<<END;
<html>
<head><title>password Bord</title></head>
<body bgcolor="#FFFFFF"text="#000000">
<div align="center">
<h1><b>password Bord</b></h1>
</div>
<hr>
END
#配列@dataの中身を#################
for($i=0;$i<@data;$i++){
@retudata=split(/\t/,$data[$i]);
if($data[$i]=~m/$password/){
print<<END; |
| 抜粋 | |
| 脚注 |
