Что за алгоритм шифрования (двиг на perl)

[Gamer]

1 участок

# Если есть поля password - предвариательно шифруем их
   eval("use Digest::MD5 qw(md5_base64)");
   if ($@) {OutHeader(); LocalError("Ошибка");}


   for (my $i=1; $i<($FieldsNumber+1); $i++){
      if ($field_type{"field".$i} eq "password") {

        if ($input{"field".$i} ne "\"\""){
           $input{"field".$i} =~ s/^\"(.+)\"$/$1/g;
           $input{"field".$i} = "\"" . md5_base64($input{"field".$i}) . "\""; 

        }#End if
      }

2 участок

 # Проверяем если есть тип Password то шифруем данные этого поля
   for (my $i=1; $i<($FieldsNumber+1); $i++){


      # password
      if ($field_type{"field".$i} eq "password") {

        if ($input{"field".$i} ne "\"\""){
           $input{"field".$i} =~ s/^\"(.+)\"$/$1/g;
           $input{"field".$i} = "\"" . md5_base64($input{"field".$i}) . "\""; 
        }#End if
        else{

         my $query  = "SELECT field$i FROM $tablename WHERE id = $id";
         my $result = $db ->  query($query) || { LocalError("Неустранимая ошибка 24734535!") && return};
         my $old_pass = $result -> fetchrow();
         $input{"field".$i} = qq~"$old_pass"~;

        }#else
      } # password

И как самому сгенерировать такой пароль?