Re^2: md5_base64 encryption?

Thanks for the replies!!
Sorry for not including some code

our $user = $q->param('user');
$pass = $q->param('pass');
open my $fh, "<Passwrdschar.pwd" or die $!;

while(<$fh>){
 my ($one, $two, $three, $four, $five, $six) = split /\ñ/, $_;
    

 if(my_crypt($pass, $one) eq $two){
      &main_s;
      exit;
 }else{
      print "<center><img src='wow3.png'></center><hr color=red>";
      print "<body background='Solar4.jpg'>";
      print "<u><h2><font color=red>Access denied</font></h2>.</u><br>
+<br></h2>";
      print "<input type='button' value='Back to main' onClick='window
+.history.back();'>";
 }  
 close($fh);
}

sub my_crypt{
  my ($pass, $user) = @_;
  my $salt = md5_base64($user);
  return md5_base64($salt.$pass);
}
[download]

how can i use md5_hex in the above example
to compare my passwords and will this affect my
current passwords?
Well i am not getting an error but it just doesnt
validate(compare) this passwords with a '/' included?

Thanks again for the help.

Comment on Re^2: md5_base64 encryption? Download Code