【堅牢】トリップの新方式を考えてみませんか【互換性】

[1 NAO ★ 2009/06/15(月) 00:38:24 ID:???0]

現段階でのトリップの問題点などを考えつつ、
現行方式よりも堅牢なトリップの方式を考えてみませんか。

マルチバイト文字問題や互換性などの問題も出てくると思いますが、
そこは皆で妙案を出し合いつつ、新たな方式を頑張って考えてみましょう。


関係スレ
　幸せサーバープロジェクト　「アイデア・技術のある人募集中」★3
　http://qb5.2ch.net/test/read.cgi/operate/1241361889/

[984 動け動けウゴウゴ２ちゃんねる 2009/06/23(火) 02:42:49 ID:LYG8qMHnP]

>>983
私はそっと閉じた…

[985 ◆mami/ZczII 2009/06/23(火) 02:47:33 ID:UmAjtoXNP]

CTRL+Cにした

[986 ◆NAO/2MXDEk 2009/06/23(火) 02:50:30 ID:LiDVRl/70]

とりあえず最小化して、放置してみた

[987 ◆Horo/.IBXjcg 2009/06/23(火) 04:26:24 ID:kUkRywrl0]

ttp://www1.axfc.net/uploader/Sc/so/11425

久々にPerlについて調べていたらこんな時間になっておった。

大文字小文字を無視する場合は、パターンの先頭に(?i)を付けてくりゃれ。

速度では勝負になりそうに無いからの、マニア向けの方が面白そうじゃろ。

[988 ,,・´∀｀・,,）っ-○○○ 2009/06/23(火) 04:52:28 ID:/jiXePBQ0]

ほんとのところ、Tripcode Explorer 2（仮）はGUI設計に専念しようと思ってたんだよね
ユーザーインターフェイス設計とアルゴリズムチューニングって同時には頭まわんねー。
誰かコラボする？

[989 動け動けウゴウゴ２ちゃんねる 2009/06/23(火) 05:50:16 ID:siXw01R40]

>>961
いただきました
明日4400+で12個検索して1.4M出てますよ

[990 ,,・´∀｀・,,）っ-○○○ 2009/06/23(火) 06:07:35 ID:/jiXePBQ0]

http://dango.chu.jp/tripper/20090623.html

[991 動け動けウゴウゴ２ちゃんねる 2009/06/23(火) 06:09:28 ID:NY6KjAX/0]

みなみけジェネレーターかよｗ

[992 動け動けウゴウゴ２ちゃんねる 2009/06/23(火) 06:12:13 ID:3ossVgKS0]

>>990
そのロゴをキレイなビットマップでください

[993 動け動けウゴウゴ２ちゃんねる 2009/06/23(火) 07:14:23 ID:zX7IgWxd0]

>>961
いただきました。
ソース勉強になります。

[994 ● ◆suamaAqevqWH 2009/06/23(火) 10:15:03 ID:h88PHPxWP]

このあたりを利用すればもっと速くなるかなぁ
ttp://www.iacr.org/cryptodb/archive/2005/CRYPTO/1826/1826.pdf

[995 ◆SsSSsSsSSs 2009/06/23(火) 10:52:46 ID:Fj3XnSKL0]

>>990
いま制作中だから待ってなさい
今日or明日には完成する

[996 ◆TWARamEjuA 2009/06/23(火) 11:16:44 ID:viaSJ7ww0]

>>987
若干速度が上がりました♪
#!/usr/bin/perl --

use strict;
use Digest::SHA1 qw(sha1_base64);
use Time::HiRes qw(time);

if (! $ARGV[0] || $ARGV[0] =~ m/^-/){
print "usage: $0 search_patternn";
exit -1;
}

my ($key, $trip, $count, $t1, $pattern) = (undef, undef, 0, time, shift);
$pattern =~ tr/"//;

$| = 1;
while (1){
$key .= ('A' .. 'Z', 'a' .. 'z')[int rand 52] for (1 .. 8);

foreach ('AAAA' .. 'ZZZZ', 'aaaa' .. 'zzzz'){
$trip = substr(sha1_base64("$key$_"), 0, 12) and $count++;
$trip =~ tr/+/./;
$trip =~ m/$pattern/o and print "$tript#$key$_n";
}

my $t3 = time - $t1;
printf STDERR "# %d Trips in %f sec - %f kTrips/secn", $count, $t3, $count/$t3/1000;
($key, $count, $t1) = (undef, 0, time);
}
exit 0;

[997 ◆SsSSsSsSSs 2009/06/23(火) 11:29:16 ID:Fj3XnSKL0]

>>990
っつっても今は外出厨だからね
帰ってから

[998 ◆R5VXF1R2K6 2009/06/23(火) 12:37:06 ID:jA9L+oojO]

てすー

[999 ？ 株価【670】 ◆??? 2009/06/23(火) 13:00:48 ID:HQWJ4gsQ0]

ストリッパー完成させろよ

[1000 ？ 株価【670】 ◆??? 2009/06/23(火) 13:01:30 ID:FQBMftEm0]

ずっと待ってんだよドアホ！