Re: md5_base64 encryption?

Someone else may see things better than I do here, as I suspect that there really is enough information above to answer the question with, but I'm missing something. Some sample code, including the error condition, would help me see the issue better, I think.

Comment on Re: md5_base64 encryption?

Replies are listed 'Best First'.
Re^2: md5_base64 encryption? by dave_pl (Sexton) on May 23, 2005 at 18:08 UTC
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.	[reply] [d/l]

Replies are listed 'Best First'.

Re^2: md5_base64 encryption?
by dave_pl (Sexton) on May 23, 2005 at 18:08 UTC

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]

[reply]
[d/l]