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

Тема в разделе "Другие языки", создана пользователем Gamer, 24 янв 2009.

Статус темы:
Закрыта.
Модераторы: Цукер
  1. Gamer

    Gamer

    Регистр.:
    26 авг 2006
    Сообщения:
    584
    Симпатии:
    270
    1 участок

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


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

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

            }
    #End if
          
    }

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


          
    # password
          
    if ($field_type{"field".$ieq "password") {

            if (
    $input{"field".$ine "\"\""){
               
    $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

    И как самому сгенерировать такой пароль?
     
Статус темы:
Закрыта.