06/09/01 00:25:06
>>880
#!/usr/bin/perl
my ( $id, $password ) = ( 'p', '' );
for( my $n = 0; $n < 8; $n++ ) { $id .= sprintf( "%x", int( rand( 16 ))); }
for( my $n = 0; $n < 16; $n++ ) { $password .= sprintf( "%x", int( rand( 16 ))); }
print "Content-type: text/html; charset=Shift_JIS\n\n";
print "<HTML><HEAD><TITLE></TITLE></HEAD><BODY>";
print "ID:$id<BR>PASSWORD:$password</BODY></HTML>";