1. Список говнокодов пользователя Alikus

    Всего: 2

  2. Perl / Говнокод #8687

    −122

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    sub GenRandomHash()
{
	my $self=shift;
	my $number=shift||10;
	my $plain='';
	my @chars=('0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z','a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z');
	for (my $i=0;$i<$number;$i++)
	{   
		$plain.=$chars[rand(59)+2];
	}
return $plain;
}

    Мне бы было лень вбить столько символов :)

    Alikus, 30 Ноября 2011

    Комментарии (19)

  3. 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)