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

    • ava LegionDead 01.07.2011 16:30 # −1

      тут почему-то мало перла, хотя он уже не популярен
      Ответить

    • ava Lure Of Chaos 01.07.2011 16:44 # −2

      думаю это конверсия с пхп
      Ответить

    • ava Dummy00001 01.07.2011 21:03 # 0

      лол. кто-то это говно минуснул. похоже не только автор не умеет на CPAN md5 найти.

      да и че на CPAN - я уже и не помню когда последний видел перл установленный по умолчанию без md5.
      Ответить

    • ava bildja 04.07.2011 16:46 # +2

      Та и последние две строки
      Ответить

    • ava odmin 09.07.2011 15:35 # −1

      Use Signature::MD5, Luke!
      Ответить

    • ava Byte 10.10.2011 19:06 # +1

      Не люблю приставать до правописания, но забавно
      $self->_sicretsms()
      в пятой строчке
      Ответить

    • ava Govnocoder#0xFF 02.02.2012 19:20 # 0

      Что же в нём православного-то? Или этот код работает только, если юзер предварительно помолится?
      Ответить

    • ava guest8 09.04.2019 11:06 # −999

      показать все, что скрытоvanished
      Ответить

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