2007-05-19ãã1æ¥éã®è¨äºä¸è¦§
package Assurer::Plugin::Test::SSH::SupportedAuth; use strict; use warnings; use base qw( Assurer::Plugin::Test ); use Net::Scan::SSH::Server::SupportedAuth qw(:flag); use Assurer::Test; sub register { my $self = shift; $self->register_tesâ¦
ããCPANã«ä¸ããã¾ããã Net::Scan::SSH::Server::SupportedAuth äºã Math::BigInt::GMP ãã¤ã³ã¹ãã¼ã«ãã¦ããã®ããå§ããã¾ãããããªãã¨ãNet::SSH::Perl (ã使ã£ã¦ãã Crypt::DH) ãé ãã¦ãã¾ã¨ãã«ä½¿ãã¾ããã®ã§ã ãã®ã¢ã¸ã¥ã¼ã«ã¯ãSSH protâ¦
èªã¿è¾¼ã¿ãè¡ãããã¨ã /dev/random ããã¤ã¹ã¯ã¨ã³ãããã¼ã»ãã¼ã«ã®ãã¤ãºãããã®æ°ã®è©ä¾¡å¤ãããã©ã³ãã ãã¤ãã®ã¿ãè¿ãã /dev/random ã¯ã¯ã³ã¿ã¤ã ããã (one-time pad) ãéµã®çæã®ãã㪠é常ã«é«ãå質ãæã£ãç¡ä½çºæ§ãå¿ è¦ã«ãªãå ´åã«â¦