|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Timur Sabirzyanov 2:5080/197.197 19 May 2001 21:59:34
To : Pavel V. Ammosov
Subject : Re: session_id
--------------------------------------------------------------------------------
>> Как мне в mod_perl реализовать сабж, который в обычном перле я реализовывал
>> так:
>>
>> $session_id = time . $$;
PA> Читай пару килобайт всякого мусора из /dev/urandom и
PA> считай по нему MD5 (Digest::MD5 с CPAN).
можно проще. вот эта штука на 1'000'000 циклов у меня сделала 998'019
уникальных, а ведь в $data ещё можно добавить $ENV{'HTTP_REFERER'} .
$ENV{'HTTP_VIA'} . $ENV{'HTTP_X_FORWARDED_FOR'} . $ENV{'HTTP_USER_AGENT'} .
$ENV{'REQUEST_URI'}
и тада вообще фик чё повторится.
#!/usr/bin/perl
use Digest::MD5 qw(md5_hex);
use Time::HiRes qw(gettimeofday);
for($i=0;$i<1000000;$i++) {
($sec,$msec) = gettimeofday;
$data = $sec . $msec . time() . int(rand(9999999999999999));
$digest = md5_hex($data);
chomp $digest;
$mass{$digest}='nifiga';
}
$count=0;
foreach $_ ( keys %mass ) {
$count++;
}
print $count;
p.s. 1'000'000 циклов крутились аж 5 минут и отожрали 190мб оперативки Ж:O
WBR, Tim.
... Дисковода щель - для заpазы цель!
--- [ HardMusik | Malicious Lamer | C/C++ | Perl | Java | 3DMAX | TSL ]
* Origin: Deny Everything (2:5080/197.197)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
