●トリップフィンダー

**やっす** ◆yassu.WI · 02/08/21 20:24

http://yas.s14.xrea.com/ecobbs/trip.cgi　　地道に
http://yas.s14.xrea.com/ecobbs/trip2.cgi　絶対に

適当に改造していきましょう。Scriptは>>2-3

**やっす** ◆yassu.WI · 02/08/21 20:25

地道版

#!/usr/bin/perl

require 'cgi-lib.pl';

@kamo = (
"2ch","MX","DQN","Web","A.A","Mona","Sex","NHK"

);
my %input;
&ReadParse(*key);
$key{$1} = $2 if $ENV{'QUERY_STRING'} =~ /(.+)=(.+)/;

if ($key{'exec'} eq "install") { &install; }
if ($key{'exec'} eq "ins2") { &ins2; }
if ($key{'exec'} eq "ins3") { &ins3; }
$find = $key{'find'};
$cap = $key{'random'};
$cap =~ s/"/"/g;
$cap =~ s/</</g;
$cap =~ s/>/>/g;
$no = $cap;
$dno = $no;
if ($no eq "") { $no = "(無記入)"; }
$check = $key{'check'};
$CAP;

**やっす** ◆yassu.WI · 02/08/21 20:25

つづき　

print "Content-type: text/html\n\n";
print "<HTML><HEAD><script language='javascript'>";
print <<"EOF";

</script><TITLE>トリップ探し</TITLE></HEAD><BODY>
EOF
print "<FORM action=trip.cgi method=POST name=f><input type=text name=random value=\"$dno\">";
print "<script>\n";
print "document.f.random.focus();\n";
print "</script>\n";
print "Find：<input type=text value=\"$find\" name='find'>\n<input type=submit value=では出力></form>";
print "<table>";
$cap = substr(crypt($cap, (substr($cap."H.", 1, 2))), -8);
print "<tr><td>$no</td><td>＝</td><td bgcolor=FFDDDD>$cap</td></tr>";
$xx=0;$cc=0;
$niwa =0;
while ($xx < 15) {
$no = $cap;