5ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

●トリップフィンダー

1 :やっす ◆yassu.WI :02/08/21 20:24 ID:FM0BisET
http://yas.s14.xrea.com/ecobbs/trip.cgi  地道に
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;



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;


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;

5 :nobodyさん:02/08/21 20:27 ID:FM0BisET
つづいて2.
#!/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.
4文字以上は多少遅くなるみたいだな

ってかスクリプトにわけのわからない行多すぎw

7 : ◆tPO8mEgA :02/08/21 20:37 ID:???
チネヨ

8 :nobodyさん:02/08/21 20:38 ID:???
        / ̄ ̄ ̄\       
       | 」」」」」」」」」)      
       |(6ーB-B|ノ   / ̄ ̄ ̄ ̄\
       |:::|ヽ   .> |  彡彡ノ((((^^)))))
       |ミ   (=)/  彡ミ ー○---○ |
     / ̄ \;;;;;;;;;/ ̄\ミ(6    ( 。。) |
     |  |       ||ミ (∴   (三)∴)
     |  |ファウスト[世/ ̄ ̄\,,,,,,,,,,,,,,,,,,,,,ノ ̄\
    / ̄ ̄ ̄ ̄\   |__|           |_|
   (  人____) ..|  |      竜    | |
    |ミ/  ー◎-◎-) .|  |            | |
   (6     (_ _) ) |  |            | |       
  _|/ ∴ ノ  3 ノ(___)三三三[口]三三]_)
 (__/\_____ノ/(_)\::::::::::::::V:::::::::::/
 / (__))     ))|      |::::::::::::::|:::::::::::|
[]______.| |   葉  ヽ|まん森 .|::::::::::::::|:::::::::::|
|]  | |______)_).___|;;;;;;;;;;;;;;|;;;;;;;;;;;|
 \_.(__)三三三国三) \  (___)、__)
  /(_)\::::::::::::::::::::| ̄ ̄|
 |Sofmap..|:::::::::/:::::/   .|
  |____|;;;;;;/;;;;;/.____|
     (___|)__|) 

9 :nobodyさん:02/08/21 20:46 ID:???
タイ━━━━||Φ|(|゚|∀|゚|)|Φ||━━━━ホ!!!!!

10 :nobodyさん:02/08/21 20:56 ID:???
もしかしてフィンダーってファインダーの間違いか・・・・?

11 :nobodyさん:02/08/21 21:00 ID:???
↑打ち間違えだと思おう。

12 :nobodyさん:02/08/21 21:37 ID:???
今日は何か、新スレたてるイベントか何かですか。


13 :nobodyさん:02/08/22 00:24 ID:???
>>1スクリプトエラーが出たぞ

14 :nobodyさん:02/08/22 21:29 ID:???
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:???
トリップテスト

18 :nobodyさん:02/11/18 18:51 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++;
}


19 :nobodyさん:02/11/18 18:53 ID:???
続き

#発見した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

24 : ◆.CzKQna1OU :02/11/20 19:56 ID:???
test

25 :山崎渉:03/01/15 13:45 ID:???
(^^)

10 KB
■ このスレッドは過去ログ倉庫に格納されています

★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.04.00 2017/10/04 Walang Kapalit ★
FOX ★ DSO(Dynamic Shared Object)