VPF::Оцените - Форум программистов

biophreak

Дата 15.5.2008, 15:29 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 72
Регистрация: 13.5.2007

Репутация: нет
Всего: нет

Хотелось бы услышать мнения по коду...задача была - как можно меньший размер, и скорость работы...
Знаю что код нечитаем...так что этот критерий не обязательно включать в оценку smile

)

http://phreak.nkoort.ru/source

ЗЫЖ Знаю, есть жесть типа

Код


    my $u = sprintf("%08x",$uin);
    $u =~ /^(\w\w)(\w\w)(\w\w)(\w\w)$/io;

Но на большее мозгов не хватило smile

)
Буду оч. благодарен, если еще и посоветуете что поправить smile

arto

Дата 15.5.2008, 15:42 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

Репутация: 38
Всего: 40

убрать io

biophreak

Дата 15.5.2008, 15:44 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 72
Регистрация: 13.5.2007

Репутация: нет
Всего: нет

Мелкие исправления сделал smile

Это сообщение отредактировал(а) biophreak - 15.5.2008, 16:42

FooBar

Дата 15.5.2008, 20:02 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 58
Регистрация: 25.2.2008

Репутация: 1
Всего: 3

substr($password^"\xF3\x26\x81\xC4\x39\x86\xDB\x92\x71\xA3\xB9\xE6\x53\x7A\x95\x7C",0,length $password);
константы для ксора пароля можно сократить до 8, так как максимальная длинна пароля всё равно 8 символов

Код


sub get_cookies
{
    my $cookie = shift;
    for (my $i = 0;;$i++) {return substr($cookie,$i+4,256) if substr($cookie,$i,4) eq "\x00\x06\x01\x00"}
}

получение куки можно заменить регулярным выражением

/(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}):(\d{1,5})\x00\x06\x01\x00(.{256})/so;

GoDleSS

Дата 15.5.2008, 20:03 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 105
Регистрация: 11.2.2007
Где: Пироговский

Репутация: 2
Всего: 2

Код вполне себе читаельный в таких малых объемах, но общее впечатление "жесткости", "сухости" от него, какой-то он паскале-подобный :(

Похожие операции, которые идут на пол сорса заменить бы циклом с предварительной структурой по сему делу ;)

--------------------

It's a nice day to die my friend!

tolkien

Дата 16.5.2008, 09:40 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 277
Регистрация: 5.4.2008

Репутация: 4
Всего: 4

напиши все в одну строку будет короче ^_^

biophreak

Дата 16.5.2008, 16:22 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 72
Регистрация: 13.5.2007

Репутация: нет
Всего: нет

Хм, ну хз - мне читать так код немного удобнее...с таким форматированием

Это сообщение отредактировал(а) biophreak - 16.5.2008, 16:29

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »