<script type="text/javascript"> <!-- document.write("<img src='/access/refcount.cgi?"); document.write("dir=bigdrive","&"); document.write("ref=",document.referrer); document.write("' width='1' height='1' alt=''>"); // --> </script> |
#! /usr/bin/perl # CGIがエラーを出さないためのお約束 # print "Content-type:text/plain\n\n"; # CGIが呼び出されるときの ?以降の文字列 # が入っている環境変数を代入 # $qst = $ENV{'QUERY_STRING'}; # referer情報を分離 # @part = split(/&ref=/, $qst, 2); $httpref = @part[1]; # 書き込むファイル名情報を分離 # @file1 = split(/=/ , @part[0] , 3); $filename = "data/@file1[1]"; $ngstring ="\$"; $stringck = index $filename , $ngstring; if ($stringck != "-1") { exit; } $ngstring =".."; $stringck = index $filename , $ngstring; if ($stringck != "-1") { exit; } # ファイルへ書き込み # open wfile , ">>$filename"; print wfile $httpref; print wfile "\n"; close wfile; exit; |
http://www.google.com/search?as_q=bigdrive+%E6%B3%A8%E6%84%8F&num=100&hl=ja&c2coff=1&btnG=Google+%E6%A4%9C%E7%B4%A2&as_epq=&as_oq=&as_eq=&lr=lang_ja&as_ft=i&as_filetype=&as_qdr=all&as_occt=any&as_dt=i&as_sitesearch= http://www.google.com/search?hl=ja&lr=lang_ja&ie=UTF-8&oe=UTF-8&q=137%EF%BC%A7%EF%BC%A2%E3%81%AE%E5%A3%81&num=50 http://search.yahoo.co.jp/bin/query?p=%3D%28bigdrive*2ch%29&n=20&yuragi=0&va=bigdrive+2ch&va_vt=any&vo_vt=any&ve_vt=any&vp_vt=any http://www.google.com/search?as_q=bigdrive+%E6%B3%A8%E6%84%8F&num=100&hl=ja&c2coff=1&btnG=Google+%E6%A4%9C%E7%B4%A2&as_epq=&as_oq=&as_eq=&lr=lang_ja&as_ft=i&as_filetype=&as_qdr=all&as_occt=any&as_dt=i&as_sitesearch= http://www.google.com/search?as_q=bigdrive+%E6%B3%A8%E6%84%8F&num=100&hl=ja&c2coff=1&btnG=Google+%E6%A4%9C%E7%B4%A2&as_epq=&as_oq=&as_eq=&lr=lang_ja&as_ft=i&as_filetype=&as_qdr=all&as_occt=any&as_dt=i&as_sitesearch= http://www.google.com/search?as_q=bigdrive+%E6%B3%A8%E6%84%8F&num=100&hl=ja&c2coff=1&btnG=Google+%E6%A4%9C%E7%B4%A2&as_epq=&as_oq=&as_eq=&lr=lang_ja&as_ft=i&as_filetype=&as_qdr=all&as_occt=any&as_dt=i&as_sitesearch= http://www.google.com/search?as_q=bigdrive+%E6%B3%A8%E6%84%8F&num=100&hl=ja&c2coff=1&btnG=Google+%E6%A4%9C%E7%B4%A2&as_epq=&as_oq=&as_eq=&lr=lang_ja&as_ft=i&as_filetype=&as_qdr=all&as_occt=any&as_dt=i&as_sitesearch= http://search.yahoo.co.jp/bin/query?p=Bigdrive&fr=top http://www.google.co.jp/search?client=firefox-a&rls=org.mozilla%3Aja-JP%3Aofficial_s&hl=ja&q=BIGDRIVE+%E3%83%95%E3%82%A9%E3%83%BC%E3%83%9E%E3%83%83%E3%83%88&lr=&btnG=Google+%E6%A4%9C%E7%B4%A2 http://search.yahoo.co.jp/bin/query?p=137G%a4%ce%ca%c9&fr=top |
#!/bin/bash # filedir=/home/localhost/access/data/ filename=bigdrive outext=.txt sort $filedir$filename | \ uniq -c | \ sort -r | \ grep -v search.yahoo. | \ grep -v www.google.co | \ grep -v search.nifty.com | \ grep -v search.msn.co | \ grep -v miya0.dyndns.org | \ grep -v legacy-b4.dyndns.org > $filedir$filename$outext |
35 6 http://blog.impulsebuyer.net/archives/2004/10/bigdrive.php 3 http://win2k.pasokoma.jp/9_264363.html 2 http://www.riznet.org/~kaoru/pukiwiki/pukiwiki.php?BigDrive%CC%E4%C2%EA 2 http://www.kakaku.com/bbs/Main.asp?ItemCD=053840&MakerCD=52&Product=HD%2D250U2&CategoryCD=0538 2 http://search.fresheye.com/?ord=s&rt=&query=&kw=bigdrive+%8A%EB%8C%AF 1 http://www.infoseek.co.jp/OTitles?lk=noframes&qp=0&st=0&nh=10&col=OW&qt=windows2000+atapi.sys&svp=SEEK&svx=100600 1 http://www.infoseek.co.jp/OTitles?lk=noframes&qp=0&st=0&nh=10&col=OW&qt=Windows2000%A1%A1BigDrive&svp=SEEK&svx=100600 1 http://www.infoseek.co.jp/OTitles?col=OW&qt=bigdrive&svx=901908 1 http://search.goo.ne.jp/web.jsp?MT=137G+%CA%C9&type=stick&PT=stick 1 http://64.233.179.104/search?q=cache:rw7aa3vzeiUJ:b.hatena.ne.jp/keyword/Big%2520Drive%3Fsort%3Dhot+big+drive+xp&hl=ja&lr=lang_ja 1 http://64.233.179.104/search?q=cache:hE-BaSyyqg8J:pasokoma.jp/bbs8/lg224079.html+win2000+%E3%82%A4%E3%83%B3%E3%82%B9%E3%83%88%E3%83%BC%E3%83%AB%E5%BE%8C%E3%80%80%E8%AA%8D%E8%AD%98%E3%80%80250GB&hl=ja&start=5 |
#! /usr/bin/perl $qst = $ENV{'QUERY_STRING'}; $filename = "data/$qst"; $ngstring ="\$"; $stringck = index $filename , $ngstring; if ($stringck != "-1") { exit; } $ngstring =".."; $stringck = index $filename , $ngstring; if ($stringck != "-1") { exit; } print "Content-type:text/html\n\n"; open rfile , $filename; while($_ = <rfile>){ chop; print "document.write('$_');\n"; print "document.write('<br>');\n"; } close rfile; exit; |
<script language="JavaScript" type="text/javascript" src="/access/printfile.cgi?bigdrive.txt"></script> |