- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
function rus (s:string):string; {русификатор}
var m:integer;
begin
for m := 1 to length (s) do
case s [m] of
'А'..'п':S[m]:=chr(ord (S[m])-64);
'р'..'я':S[m]:=chr(ord(S[m])-16);
end;
rus:=S; end;-
Pascal / Говнокод #13233
+75
Кусок лабы на делфи
Запостил:
_113,
26 Июня 2013
Follow us!
Знаковая переменная в качестве счётчика цикла — неоптимально, но это мелочь.
Так что вижу говно только в пропущенных Ё\ё. Ну и в общей непрозрачности и неуниверсальности кода, но это же лаба.
А смысла нет. Емнип, на тех же x86 полный регистр юзать выгоднее, чем его куски, и компилятор именно так и поступит. А если он будет не в регистре, а в переменной - то память один хрен читается полосками, не байтами. Поэтому объявление локальной переменной как byte может только ухудшить производительность, но не улучшить ее...
P.S. Хотя в досовские времена, возможно, от этого и был профит...
Вот правильный результат: http://ideone.com/oD5XUH
http://www.wildberries.ru/catalog/56/women.aspx?from=adwords&sort=popular&gcl id=COXq6Z6ngrgCFXF2cAodwncAuA
Да и не только идеон. Что вообще с этой ерундой делать и кто в этом виноват? С чего он взял вообще что я девушка или бельевой фетишист? А ещё мне все время подсовывают рекламу на сайты на японском языке. Я не слова там не понимаю. Зачем?
Гугл, реклама которого висит в этом блоке, знает даже твои скрытые желания...
Вот у меня идея зреет - а можно ли гугл научить показывать нужную рекламу?
Никогда я не посещал сайты нижнего белья
noscript рулит
Чищу куки и всякую питушню (LSO, localStorage) каждый час + логинюсь в Гугл/Яндекс/соцсети только по необходимости. Повторную рекламу не вижу.
Так приватные вкладки появились во всех браузерах.
Лучше. Даже прятаться не надо, он сам сообщит, куда надо.
особенно хорошо noscript вычищает мерзости типа "затвитить", "зафейспучить", "подрочить" каждом диве
говнокода это тоже касается
Кстати, когда открываю ГК с телефона, иногда, из-за сраной фейсбучьей кнопки, загрузка страницы надолго зависает сразу после шапки.
Адблок с нужной подпиской тоже их режет, но настраивать его не нужно.
не вычищает. Просто выключет скрипты. А запросы-то идут и ЗОГ в лице социалочек знает на каких сайтах ты обитаешь.
Request Policy позволяет полность запретить междоменные запросы. Ghostery выпиливает всякую хрень для остлеживание и мерзости типа "затвитить", "зафейспучить", "подрочить"
Какие - ты сам должен настраивать? В адблоке все искаропки.
Про гостери читал не очень хорошие вещи, что оно статистику себе домой отправляет.
И, таки да, никогда не видел рекламы на ютубе.
Офф: есть скрипт для ютубы, который показывает рейтинг видео справа?
почему бы и нет? Достаточно скормить браузеру сертификат от фаерволла. Другое дело, если фаерволл - проприетарное говнище, которое точно также шпионит за юзером
И все твое хозяйство только под линупс работает что-ли?
ну, покажи мне такое приложение. В любом случае никто не запрещает мне сделать форк, выпилить всю эту говноту и выложить код на какой-нибудь гитхаб
Фу, Рачок
Потенциально возможно, практически не использую.
> и отдельные url по маске
Именно для этого и использую, а не сотни "127.0.0.1 блаблабла" в файле хостс.
@govnomonad
> проприетарное говнище, которое точно также шпионит за юзером
Само собой, проприетарное, опенсорцовых нормальных я не видел. В шпионаже оно пока замечено не было. В глюковости - вполне.
iptables
А зачем зелёный цвет? Разве здесь была ирония?
>iptables
ещё есть apparmor и selinux'ы всякие. Тоже можно дать по роже наглому приложению
ну ещё squid можно использовать в качестве http(s) резалки
На нормальный со школьных обедов ты не накопишь, конечно.
> Адрес блокируется и программа повторно пытается связаться с темже адресом
На самом деле, зависит от числа повторов и политики соединения в программе. С хералиб фирефокс полезет на сайт, если он недоступен? Покажет отлуп и успокоится.
@bormand
Я же виндузятник. Хотел дописать, что "не iptables, не ipfw", но было влом. В реальности мне почти нет никакого интереса блокировать веб-контент без анализа. Кому-то заблокировать конкретный урл (например, на лурке режется именно так, со звёздочкой в адресе), кому-то разрешить флещ, кому-то кукисы.
@anonimb84a2f6fd141
> название?
Сорок.
Если приложение говно, загружающее бесконечными циклами, то нах оно нужно? Лучше поставить нормальное.
В линуксе аналогично
Чтобы потом не разбираться, почему половина сайтов не работает.
Ах да, для этого еще и админ нужен.
Намного надёжнее блокировать брандмауэром или прокси-сервером.
Чмо виндовое
Причем даже в семерке это не прокатит. Надо запускать редактор с правами одмина.
run as stung
где тут ПКМ ?
что делать, как жить
?
А ещё меня бесит, что винда не даёт менять расширение по дефолту. Чтобы выполнить такую тривиальную операцию, надо сначала залезть в настройки.
фар вообще очень помогает по f3/f4 глядеть файлы as is, если что
Так я и ни разу не против расширений. Мне не нравится беспомощность от их отсутствия и желание запрятать их поглубже.
Ведь каким дерзким и успешным себя чувствуешь, открывая в виме какой-нибудь левый конфиг-файл без расширения и наблюдая любезно подсвеченный синтаксис.
В запуске cmd, в которую вбивается данная команда.
nasru
"nasru" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.
Я про файл хостов.
Кстати, есть браузеры, в которых user.css + urlfilter.ini + запуск плагинов по требованию из коробки.
Можно, конечно, баннерную слепоту тренировать, но зачем если комп сам может справиться?
Ослик, суслик, паукан?
Запрос перенаправляется на локальную машину, где dest-port может кто-то слушать (тот же скайп).
Попячит имена, когда будет попытка обратить 127.0.0.1, будет показываться совсем не localhost. Я так один раз пересрал сильно, когда моя прога полезла в "гугел" по левому порту.
Как показывает фиребаг, огнелис не оставляет(л) надежд загрузить рекламу с недоступного адреса, отчего страница грузится вечность. Файервол сразу пресекает на корню такое безобразие, огнелис получает "но пасаран" и успокаивается (правда, не хочет сохранять такие страницы, но это совсем другая история).
Файервол (может) корректно обрабатывает мультизапись для домена, блокируя сразу все адреса, после чего реклама не пройдёт и по адресу (не настаиваю, что это преимущество).
Файервол (интеллектуальный) умеет резать рекламу сам, по ключевым словам или размеру.
Это только то, что пришло в голову навскидку. На деле с хостами у меня регулярно вылезали косяки. Основная идея в том, что хостс работает на транспортном уровне, а файервол может уметь работать с протоколом высокого уровня, более-менее эффективно выкидывая дрянь из страниц и ненужный контент.
Что касается этих "вот ты придёшь на другую машину, а там файервола нет", так у меня за эти годы база сайтов набралась на несколько тысяч записей индивидуальных настроек, я же не упал переносить всё это.
Ерунда. Пишем первой строкой «127.0.0.1 localhost» и проблема решена. А вот то, что софт полезет на локальную машину, действительно может создать угрозу безопасности.
> вот ты придёшь на другую машину, а там файервола нет
Браузер на флэшке с индивидуальными настройками. Всё равно на чужой машине редко чем приходится пользоваться, кроме браузеров. Тут, кстати, плюс Опере (помним, скорбим) за urlfilter.ini из коробки.
не нравится превращение его в клон хрома?
Ну что, холивар по браузерным движкам объявляется открытым?
Который с O(n) и начинал тормозить при паре тысяч записей? Но зачем? Есть нормальный noads, но у меня ни разу не работал.
А вдруг и его спиздят?
>from=adwords
Азаза мудлан адблок поставить руки кривые не позволили?
Что это значит? Из ключевых слов? Я никогда. Никогда не писал "МОКРЕНЬКИЕ ОБТЯГИВАЮЩИЕ ТРУСИКИ ОТ APPLE" в гугле.
а "подгузники"?
конечно
Или ты это типа так троллишь?
хочешь кодить - начинай проект и коммить туда.
Пропаганда гомосексуализма, садо-мазо и зоопедофилии
Лурик сидит под моим акком. При добавлении коммента, сервер смотрит в куки (не наступил ли таймаут?) и записывает в них интервал времени, по истечению которого отредактировать сообщение уже нельзя. Поскольку мы находимся в разных часовых поясах, длительность интервала вдвое дольше, и таймаут наступает не так быстро.
Сервер записывает таймштампы по UTC (или по своему местному времени, лень смотреть исходники). И срал он на то, в каком поясе кто находится.
Это абсолютно невозможно. Понимаешь? Абсолютно.
>> Решил заблокировать счетчик твитера на говнокоде. Не блокируется!
Дрочил опять небось, руки скользкие.
127.0.0.0 8.ce.b4.a1.top.mail.ru
127.0.0.0 www.google-analytics.com
. . .
Лезть в файл хостс, с целью блокировки рекламы - дикость. Для этого полно программных средств. Это все равно, что в анус картофелемялку запихать, хотя в секс-жопе можно купить любой резиновый фаллос.
Для тех, кто не осилил firewalld.
http://www.opennet.ru/man.shtml?topic=hosts.deny
А для анскильных питушков есть аддоны к 12-й Опере:
https://addons.opera.com/ru/search/?query=adblock
P.S. А, тьфу, прочитал комент ниже. Т.е. поулчается что байты и ворды все-таки чуть-чуть медленнее?
А обратное преобразование (UTF16->cp1251) в общем случае не определено. Куда отображать, например, символы с акцентами? Винда любит заменять незнакомые символы знаками вопроса, другой же софт может терять акценты либо разбивать акцентированные символы на комбинацию символ + акцент (если сохранять длину строки не нужно), либо вовсе терять незнакомые символы.
>Кроме ASCII и 64 букв кириллицы
>среди которых Ё
Ну ты понел.
case s [m] of
оказывается, в Делфай можно работать со строкой , как с массивом. Это приятно возбуждает. Спасибо за образец!
P.S. В ёкселе конкатенацию перевели как СЦЕПИТЬ.
>В ёкселе конкатенацию перевели как СЦЕПИТЬ.
Выкинули неудобоваримое иностранное слово. Батя одобряет.
Fight!
и ., и ||, и &
Остального не видел.
++ - haskell
& вроде как барсик
>недоязык
>недоязык
>не видел.
>недоязык
>недоязык
вовсе нет, они все тьюринг-полные (http://ru.wikipedia.org/wiki/%D0%9F%D0%BE%D0%BB%D0%BD%D0%BE%D1%82%D0%B0_%D0%BF%D0%BE_%D0%A2%D1%8C%D1%8E%D1%80%D0%B8%D0%BD%D0%B3%D1%83)
>не видел.
не читал, но осуждаю (ц) ?
Бейсик не видел?!! Да вы, батенька, сишкоблядь!
Вот так:
str.s="Some "
txt.s="string here! )"
str=str+txt
messagerequester("",str)
результат:
Some string here!)
разберись в сортах говна и подбери себе моднейший оконный фреймворк
тот же qt с целью дичайше поформошлёпить покруче дельфей будет нопремер
Фу, пративный)))
Одно дело, если ты работаешь в группе, и совсем другое, когда пишешь в одиночку.
Термин "формошлепство" меня убивает; мир все-таки эволюционирует, пора переходить на удобные среды. Если какому-то обросшему бородатому хакерюге, которого эволюция обошла стороной охота пялиться в голубой экран 800x600 и кодить в консольном компиляторе, это его проблемы, а не хочу полжизни потратить на один только интерфейс.
формошлёпство - это как раз и есть программирование мышкой
голубой экран и консольный компилятор - это как раз и есть удобная среда
Следить за честью нужно было с самого начала.
http://govnokod.ru/user/5798/codes
WinMain — это низкоуровневщина? Ну перечислите тогда все уровни от низкого к высокому, чтобы можно было сравнивать.
В высокоуровневом языке не обязательно объявлять точку входа - пиши какой угодно код, хоть вроде msgbox "", и он выполнится при старте. Должна быть готовая функция для создания окна и прикрепления к нему окон других классов, готовая функция для изменения содержимого этих окон (контролов), (в c++ это делается c помощью API SetWindowText), поддерживать автоперегрузку и и так далее. Можно с уверенностью сказать, что высокоуровневый язык максимально освобождает программиста от вызова напрямую системных API - на нем кодить удобнее.
всё нормально?
И да, PChar — это не string, это ^array[0..strlen-1] of char.
На самом деле ^array[0..strlen] of char, где последний байт равен нулю.