cincald szet ezt az algoritmust
Egy olyan jelszot szeretnek eloallitani, amivel xy user csak bizonyos ideig johet be, azaz az IP-cim es usernev alapjan egy az adott oraban hasznalhato jelszot general.
Az alabbira gondoltam:
sub a {
my($ipaddr, $username) = @_;
my $secret = '2km hosszu kozos titok, amit csak a jelszot generalo / ellenorzo program ismer';
@c = (0..9, 'A'..'Z', 'a'..'z');
my $s = '';
$t = time();
$t -= $t % 3600;
$digest = sha256_hex(sha256_hex($ipaddr . "+" . $username . "+" . $t . "+" . $secret) . $secret);
$digest = hmac_hex($ipaddr . "+" . $username . "+" . $t, $secret, \&sha256);
for($i=0; $i<(length $digest)/4; $i++) {
$a = substr($digest, $i*4, 4);
$s .= $c[hex($a) % @c];
}
return $s;
}
A kerdes az, hol van a gyenge pont (ha van) az algoritmusban?
- Tovább (cincald szet ezt az algoritmust)
- 10179 megtekintés
