現段階でのトリップの問題点などを考えつつ、
現行方式よりも堅牢なトリップの方式を考えてみませんか。
マルチバイト文字問題や互換性などの問題も出てくると思いますが、
そこは皆で妙案を出し合いつつ、新たな方式を頑張って考えてみましょう。
関係スレ
幸せサーバープロジェクト 「アイデア・技術のある人募集中」★3
http://qb5.2ch.net/test/read.cgi/operate/1241361889/
【堅牢】トリップの新方式を考えてみませんか【互換性】
レス数が1000を超えています。これ以上書き込みはできません。
1NAO ★
2009/06/15(月) 00:38:24ID:???0 >>890 の奴が使えないかと見ていたのだが、余計な処理が入ってて使えなさそうなことが分かった。残念。
2009/06/23(火) 02:41:03ID:KyGrItsD0
>>961
これどうやったらとまるんですかorz
これどうやったらとまるんですかorz
>>983
私はそっと閉じた…
私はそっと閉じた…
CTRL+Cにした
ttp://www1.axfc.net/uploader/Sc/so/11425
久々にPerlについて調べていたらこんな時間になっておった。
大文字小文字を無視する場合は、パターンの先頭に(?i)を付けてくりゃれ。
速度では勝負になりそうに無いからの、マニア向けの方が面白そうじゃろ。
久々にPerlについて調べていたらこんな時間になっておった。
大文字小文字を無視する場合は、パターンの先頭に(?i)を付けてくりゃれ。
速度では勝負になりそうに無いからの、マニア向けの方が面白そうじゃろ。
2009/06/23(火) 04:52:28ID:/jiXePBQ0
ほんとのところ、Tripcode Explorer 2(仮)はGUI設計に専念しようと思ってたんだよね
ユーザーインターフェイス設計とアルゴリズムチューニングって同時には頭まわんねー。
誰かコラボする?
ユーザーインターフェイス設計とアルゴリズムチューニングって同時には頭まわんねー。
誰かコラボする?
2009/06/23(火) 05:50:16ID:siXw01R40
2009/06/23(火) 06:07:35ID:/jiXePBQ0
2009/06/23(火) 06:09:28ID:NY6KjAX/0
みなみけジェネレーターかよw
2009/06/23(火) 06:12:13ID:3ossVgKS0
>>990
そのロゴをキレイなビットマップでください
そのロゴをキレイなビットマップでください
2009/06/23(火) 07:14:23ID:zX7IgWxd0
このあたりを利用すればもっと速くなるかなぁ
ttp://www.iacr.org/cryptodb/archive/2005/CRYPTO/1826/1826.pdf
ttp://www.iacr.org/cryptodb/archive/2005/CRYPTO/1826/1826.pdf
995 ◆SsSSsSsSSs
2009/06/23(火) 10:52:46ID:Fj3XnSKL0 >>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;
若干速度が上がりました♪
#!/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:16ID:Fj3XnSKL0999? 株価【670】 ◆???
2009/06/23(火) 13:00:48ID:HQWJ4gsQ0 ストリッパー完成させろよ
1000? 株価【670】 ◆???
2009/06/23(火) 13:01:30ID:FQBMftEm0ずっと待ってんだよドアホ!
10011001
Over 1000Thread このスレッドは1000を超えました。
もう書けないので、新しいスレッドを立ててくださいです。。。
もう書けないので、新しいスレッドを立ててくださいです。。。
レス数が1000を超えています。これ以上書き込みはできません。