●トリップフィンダー
1 ：やっす ◆yassu.WI ：
http://yas.s14.xrea.com/ecobbs/trip.cgi 地道に
http://yas.s14.xrea.com/ecobbs/trip2.cgi 絶対に
適当に改造していきましょう。Scriptは>>2-3
http://yas.s14.xrea.com/ecobbs/trip2.cgi 絶対に
適当に改造していきましょう。Scriptは>>2-3
|
|
|
2 ：やっす ◆yassu.WI ：02/08/21 20:25 ID:FM0BisET
地道版
#!/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;
#!/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;
3 ：やっす ◆yassu.WI ：02/08/21 20:25 ID:FM0BisET
つづき
print "Content-type: text/html\n\n";
print "<HTML><HEAD><script language='javascript'>";
print <<"EOF";
<!--
function sf(){document.f.random.focus();}
// -->
</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;
print "Content-type: text/html\n\n";
print "<HTML><HEAD><script language='javascript'>";
print <<"EOF";
<!--
function sf(){document.f.random.focus();}
// -->
</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;
4 ：nobodyさん：02/08/21 20:26 ID:FM0BisET
$cap = substr(crypt($cap, (substr($cap."H.", 1, 2))), -8);
$CAP = substr(crypt($cap, (substr($cap."H.", 1, 2))), -8);
$dora = $cap;
$dora =~s/$find/<b><font color=red>$find<\/font><\/b>/ig;
foreach (0 .. $#kamo) {
$dora =~s/$kamo[$_]/<b>$kamo[$_]<\/b>/ig;
}
print "<tr><td>$no</td><td>＝</td>";
if ($cc == 0){ print "<td bgcolor=AAFFCC>$dora</td></tr>"; $cc++;} else
{ print "<td bgcolor=FFDDDD>$dora</td></tr>"; $cc=0;}
$xx++;
}
print "</table>";
print "</TD></TR></TABLE>";
print " ∧＿∧<br>（ ´∀｀） 読んどけ！<br>（ つ つ<br><small>";
print "標準で設定されている（AutoFind）キーワードが発見された場合は<b>黒い太字</b>で、<br>自分がFindで設定したキーワード";
print "が発見された場合は<font color=red><b>赤い太字</b></font>で表\示されます。</small><br>AutoFindキーワード：<i>";
foreach (0..$#kamo)
{ print "$kamo[$_]、"; }
print "</i><br><B>HIT</B><small>";
print "</small></body></html>";exit;
$CAP = substr(crypt($cap, (substr($cap."H.", 1, 2))), -8);
$dora = $cap;
$dora =~s/$find/<b><font color=red>$find<\/font><\/b>/ig;
foreach (0 .. $#kamo) {
$dora =~s/$kamo[$_]/<b>$kamo[$_]<\/b>/ig;
}
print "<tr><td>$no</td><td>＝</td>";
if ($cc == 0){ print "<td bgcolor=AAFFCC>$dora</td></tr>"; $cc++;} else
{ print "<td bgcolor=FFDDDD>$dora</td></tr>"; $cc=0;}
$xx++;
}
print "</table>";
print "</TD></TR></TABLE>";
print " ∧＿∧<br>（ ´∀｀） 読んどけ！<br>（ つ つ<br><small>";
print "標準で設定されている（AutoFind）キーワードが発見された場合は<b>黒い太字</b>で、<br>自分がFindで設定したキーワード";
print "が発見された場合は<font color=red><b>赤い太字</b></font>で表\示されます。</small><br>AutoFindキーワード：<i>";
foreach (0..$#kamo)
{ print "$kamo[$_]、"; }
print "</i><br><B>HIT</B><small>";
print "</small></body></html>";exit;
5 ：nobodyさん：02/08/21 20:27 ID:FM0BisET
つづいて２．
#!/usr/bin/perl
require 'cgi-lib.pl';
my %input;
&ReadParse(*key);
$key{$1} = $2 if $ENV{'QUERY_STRING'} =~ /(.+)=(.+)/;
$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;
print "Content-type: text/html\n\n";
print "<HTML><HEAD><script language='javascript'>";
print <<"EOF";
<!--
function sf(){document.f.random.focus();}
// -->
</script><TITLE>トリップ探し</TITLE></HEAD><BODY>
EOF
print "<FORM action=trip2.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 "<input type=submit value=一か八か></FORM>";
$kaz = int(rand(10));
if ($cap ne ""){$find = $kaz;while($cap eq $cap){$in=$kaz;$kaz=substr(crypt($kaz,(substr($kaz."H.",1,2))),-8);if($kaz=~/$cap/i){print"$in＝$kaz＝$cap";exit;}}
}
#!/usr/bin/perl
require 'cgi-lib.pl';
my %input;
&ReadParse(*key);
$key{$1} = $2 if $ENV{'QUERY_STRING'} =~ /(.+)=(.+)/;
$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;
print "Content-type: text/html\n\n";
print "<HTML><HEAD><script language='javascript'>";
print <<"EOF";
<!--
function sf(){document.f.random.focus();}
// -->
</script><TITLE>トリップ探し</TITLE></HEAD><BODY>
EOF
print "<FORM action=trip2.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 "<input type=submit value=一か八か></FORM>";
$kaz = int(rand(10));
if ($cap ne ""){$find = $kaz;while($cap eq $cap){$in=$kaz;$kaz=substr(crypt($kaz,(substr($kaz."H.",1,2))),-8);if($kaz=~/$cap/i){print"$in＝$kaz＝$cap";exit;}}
}
6 ：スマップ ◆1NSsmAp6 ：02/08/21 20:34 ID:FM0BisET
5げと
早速SMAPでTry.
４文字以上は多少遅くなるみたいだな
ってかスクリプトにわけのわからない行多すぎｗ
早速SMAPでTry.
４文字以上は多少遅くなるみたいだな
ってかスクリプトにわけのわからない行多すぎｗ
ﾁﾈﾖ
／￣￣￣＼
| 」」」」」」」」」）
｜(6ー③-③|ﾉ ／￣￣￣￣＼
|:::|ヽ .> | 彡彡ノ（（((^^))）））
|ミ (＝)/ 彡ミ ー○---○ |
／￣ ＼;;;;;;;;;/￣＼ミ（６ （ ｡｡） |
| | ｜|ﾐ （∴ (三)∴）
| |ﾌｧｳｽﾄⅧ世／￣￣＼,,,,,,,,,,,,,,,,,,,,,ノ￣＼
／￣￣￣￣＼ |＿_| |＿|
（ 人＿＿＿＿） ..| | 竜 | |
|ミ/ ー◎-◎-） .| | | |
（６ (_ _) ） | | | |
＿|/ ∴ ノ ３ ﾉ（＿__）三三三[口]三三]＿）
（＿_/＼＿＿＿＿_ノ／（＿）＼::::::::::::::Ｖ:::::::::::/
/ （＿_）） ）)| |::::::::::::::|:::::::::::|
[]______.| | 葉 ヽ|まん森 .|::::::::::::::|:::::::::::|
｜] | |＿＿＿＿＿_）_）.＿＿_|;;;;;;;;;;;;;;|;;;;;;;;;;;|
＼_.（＿_）三三三国三） ＼ （＿＿＿）、_＿）
／（＿）＼::::::::::::::::::::|￣￣|
｜Sofmap..|:::::::::/:::::/ .|
|＿＿＿＿|;;;;;;/;;;;;/.＿＿__|
（＿＿_|）＿_|）
| 」」」」」」」」」）
｜(6ー③-③|ﾉ ／￣￣￣￣＼
|:::|ヽ .> | 彡彡ノ（（((^^))）））
|ミ (＝)/ 彡ミ ー○---○ |
／￣ ＼;;;;;;;;;/￣＼ミ（６ （ ｡｡） |
| | ｜|ﾐ （∴ (三)∴）
| |ﾌｧｳｽﾄⅧ世／￣￣＼,,,,,,,,,,,,,,,,,,,,,ノ￣＼
／￣￣￣￣＼ |＿_| |＿|
（ 人＿＿＿＿） ..| | 竜 | |
|ミ/ ー◎-◎-） .| | | |
（６ (_ _) ） | | | |
＿|/ ∴ ノ ３ ﾉ（＿__）三三三[口]三三]＿）
（＿_/＼＿＿＿＿_ノ／（＿）＼::::::::::::::Ｖ:::::::::::/
/ （＿_）） ）)| |::::::::::::::|:::::::::::|
[]______.| | 葉 ヽ|まん森 .|::::::::::::::|:::::::::::|
｜] | |＿＿＿＿＿_）_）.＿＿_|;;;;;;;;;;;;;;|;;;;;;;;;;;|
＼_.（＿_）三三三国三） ＼ （＿＿＿）、_＿）
／（＿）＼::::::::::::::::::::|￣￣|
｜Sofmap..|:::::::::/:::::/ .|
|＿＿＿＿|;;;;;;/;;;;;/.＿＿__|
（＿＿_|）＿_|）
ﾀｲ━━━━||Φ|(|ﾟ|∀|ﾟ|)|Φ||━━━━ﾎ!!!!!
もしかしてフィンダーってファインダーの間違いか・・・・？
↑打ち間違えだと思おう。
今日は何か、新スレたてるイベントか何かですか。
>>1スクリプトエラーが出たぞ
perlでやることじゃないと思うが
15 ： λ............：02/08/23 19:31 ID:aSuee8jV
共用鯖でやることか？
16 ： ：02/08/24 05:36 ID:???
404
17 ： ◆0207965972 ：02/11/14 15:50 ID:???
ﾄﾘｯﾌﾟﾃｽﾄ
今更だが、こんなのどうよ。
siteiに入れたものが出るまで回り続けるぞ。
所謂、根性？
@sitei = ('DQN','2ch','GOD','good','COOL','cool','NHK','huck','fuck','shine','die','CBC','TBS','Perl','perl');
@rand = ('0','1','2','3','4','5','6','7','8','9','a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u',
'v','w','x','y','z','A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z');
while(!$flg){
$id = '';
for($i=0;$i < 8;$i++){
$id .= @rand[rand(@rand)];
}
#push @id2,$id;
$s_id = $id;
$id=(&trip($id));
foreach(@sitei){
if($id =~ /^$_/){
$s_trip = $id;
$id =~ s/($_)/<font color\=darkblue><b>$1<\/b><\/font>/ig;
#push @hit,$_;
$flg=1;
}
}
#push @trip,$id;
$count++;
}
siteiに入れたものが出るまで回り続けるぞ。
所謂、根性？
@sitei = ('DQN','2ch','GOD','good','COOL','cool','NHK','huck','fuck','shine','die','CBC','TBS','Perl','perl');
@rand = ('0','1','2','3','4','5','6','7','8','9','a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u',
'v','w','x','y','z','A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z');
while(!$flg){
$id = '';
for($i=0;$i < 8;$i++){
$id .= @rand[rand(@rand)];
}
#push @id2,$id;
$s_id = $id;
$id=(&trip($id));
foreach(@sitei){
if($id =~ /^$_/){
$s_trip = $id;
$id =~ s/($_)/<font color\=darkblue><b>$1<\/b><\/font>/ig;
#push @hit,$_;
$flg=1;
}
}
#push @trip,$id;
$count++;
}
続き
#発見したTRIPパスの自動記録
open(save,">>id_trip.dat");
print save "$s_id $s_trip\n";
close(save);
print "Content-type: text/html; charset=Shift_JIS\n\n";
print "<html>\n<head>\n";
print "<META HTTP-EQUIV=\"Content-type\" CONTENT=\"text/html; charset=x-sjis\">\n";
print "<title>2ch trip検索 超強引</title>\n";
print "</head>\n";
print "<b>TRIP FINDER！</b><br>";
print "<hr>\n";
$s_trip =~ s/($_)/<font color\=darkblue><b>$1<\/b><\/font>/ig;
print "$s_id $s_trip<br>\n";
#$i=0;
#foreach(@id2){print "@id2[$i] @trip[$i]<br>\n";$i++;}
print "<hr>\n";
#$count = @id2+0;
print "<b>$count件\ </b>";
foreach(@hit){print "<b>$_</b> ";}
print "</body></html>\n";
exit;
sub trip {
my $str = shift;
my $salt = substr($str, 1, 2);
$salt =~ tr/\x00-\x20\x7B-\xFF/./;
$salt =~ tr/\x3A-\x40\x5B-\x60/A-Ga-f/;
return substr(crypt($str, $salt), -8) ;
}
#発見したTRIPパスの自動記録
open(save,">>id_trip.dat");
print save "$s_id $s_trip\n";
close(save);
print "Content-type: text/html; charset=Shift_JIS\n\n";
print "<html>\n<head>\n";
print "<META HTTP-EQUIV=\"Content-type\" CONTENT=\"text/html; charset=x-sjis\">\n";
print "<title>2ch trip検索 超強引</title>\n";
print "</head>\n";
print "<b>TRIP FINDER！</b><br>";
print "<hr>\n";
$s_trip =~ s/($_)/<font color\=darkblue><b>$1<\/b><\/font>/ig;
print "$s_id $s_trip<br>\n";
#$i=0;
#foreach(@id2){print "@id2[$i] @trip[$i]<br>\n";$i++;}
print "<hr>\n";
#$count = @id2+0;
print "<b>$count件\ </b>";
foreach(@hit){print "<b>$_</b> ";}
print "</body></html>\n";
exit;
sub trip {
my $str = shift;
my $salt = substr($str, 1, 2);
$salt =~ tr/\x00-\x20\x7B-\xFF/./;
$salt =~ tr/\x3A-\x40\x5B-\x60/A-Ga-f/;
return substr(crypt($str, $salt), -8) ;
}
20 ： ◆NqDQNjESYU ：02/11/18 18:56 ID:???
ほんまに出来るかテスト
21 ： ◆DQNyb83xC2 ：02/11/18 19:00 ID:???
テスト
22 ： ◆COOLBjhyGg ：02/11/18 20:07 ID:???
xsGI3DPE
テスト
テスト
23 ： ◆0120v3FInY ：02/11/19 10:10 ID:???
0120
Jucu0Lxw
test
Jucu0Lxw
test
24 ： ◆.CzKQna1OU ：02/11/20 19:56 ID:???
test
（＾＾）