our $user = $q->param('user'); $pass = $q->param('pass'); open my $fh, "){ my ($one, $two, $three, $four, $five, $six) = split /\ñ/, $_; if(my_crypt($pass, $one) eq $two){ &main_s; exit; }else{ print "

"; print ""; print "

Access denied

.

"; print ""; } close($fh); } sub my_crypt{ my ($pass, $user) = @_; my $salt = md5_base64($user); return md5_base64($salt.$pass); }