password.cgi

2025年11月20日 2025年11月20日

KHATRi NIRMAL

!/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;