1. Perl / Говнокод #7129

    −116

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    9. 9
    sub _check_sms_hash {
        my $self = shift;
        my $q = shift;
    
        my $qs = $q->param('id').$q->param('phone').$q->param('trigger').$q->param('text').$q->param('date').$q->param('check').$self->_sicretsms();
        my $hash = $self->{DB}->selectrow_array("SELECT MD5(?)", undef, $qs);
        return 1 if $hash eq $q->param('sign');
        return 0;
    }

    Православное вычисление контрольной суммы.

    Запостил: Alikus, 01 Июля 2011

    Комментарии (8) RSS

    • тут почему-то мало перла, хотя он уже не популярен
      Ответить
    • думаю это конверсия с пхп
      Ответить
    • лол. кто-то это говно минуснул. похоже не только автор не умеет на CPAN md5 найти.

      да и че на CPAN - я уже и не помню когда последний видел перл установленный по умолчанию без md5.
      Ответить
    • Та и последние две строки
      Ответить
    • Use Signature::MD5, Luke!
      Ответить
    • Не люблю приставать до правописания, но забавно
      $self->_sicretsms()
      в пятой строчке
      Ответить
    • Что же в нём православного-то? Или этот код работает только, если юзер предварительно помолится?
      Ответить
    • показать все, что скрытоvanished
      Ответить

    Добавить комментарий