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

Всего: 5

C++ / Говнокод #13727

+14

1
2

struct Ziga : std::exception {};
throw Ziga();

Теперь вы знаете как кинуть зигу в C++ !!

PSIAlt, 02 Сентября 2013

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

Perl / Говнокод #10272

−119

1

my $end_date = ($request =~ /<end_date>(\d\d\d\d-\d\d-\d\d \d\d:\d\d:\d\d)<\/end_date>/io) ? $1 : '';

PSIAlt, 15 Мая 2012

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

Perl / Говнокод #9748

−119

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22

sub create_sid {
    my $uid = shift @_;
    
    return undef if (!defined $uid);
    
    my $sid;
    my $rand = 1;
    my $is_ok = 0;
    my(@itoa) = ('0' .. '9','a' .. 'z','A' .. 'Z');
    my $itoa_len = $#itoa;
    
    while ($is_ok != 1){
		$sid = '';
		for(0..8) {						#создание нового сида
		    $rand = rand(25*240*17 + $rand + $uid);
		    $sid .= $itoa[$rand & $itoa_len];
		}
		my $exists = $RR::Init::memd->get('sid'.$sid);		#проверка что такого не существует
		$is_ok = 1 if (!defined $exists);
    }
    return $sid;
}

Смотрим на $itoa[$rand & $itoa_len] и офигеваем=)

PSIAlt, 23 Марта 2012

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

Perl / Говнокод #9736

−126

1

if (!defined $login || (defined $login && length($login)<3 && length($login>16))) {

PSIAlt, 22 Марта 2012

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

Perl / Говнокод #9735

−120

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18

my $uid = 0;
	my $parse_uid = $parse_sid->{uid} || 0;
	my $memd_uid  = $RR::Init::memd->get('sid'.$sid) || 0;
	# Авторизуем при помощи memd
	if ($parse_uid==$memd_uid){
		$uid = $memd_uid;
	}

	# Запоминаем в Куку
	$r->pnotes('USER_SID' => $sid);
	$param{sid} = $sid;
	
	# Захватываем sid
	unless (defined $uid){
		$RR::Init::memd->set('sid'.$sid, 0);
	}
	# Всяке артефакты лезут
	$uid||=undef;

Лезут всякие артефакты видите ли...