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

    Всего: 15

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

    0

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    55. 55
    56. 56
    57. 57
    58. 58
    59. 59
    60. 60
    61. 61
    62. 62
    63. 63
    64. 64
    65. 65
    66. 66
    67. 67
    68. 68
    69. 69
    70. 70
    71. 71
    72. 72
    73. 73
    74. 74
    75. 75
    76. 76
    77. 77
    78. 78
    #!/usr/bin/perl -w

# apt install  libdatetime-format-dateparse-perl libemail-sender-perl libemail-mime-perl
use warnings FATAL => 'all';
use strict;
use v5.28;
use utf8;

use Date::Parse;
use Date::Language;
use Date::Language::English;
use Socket;
use Email::Sender::Simple qw(sendmail);
use Email::Sender::Transport::SMTP qw();
use Email::MIME;
use Encode;

use constant FROM_MAIL => '[email protected]';
use constant TO_MAIL => 'postmaster';

# user->ip->error
my %errors;

my $dateLang = Date::Language->new('English');
my $yesterday = time() - 86400;
my %patterns = (
    "Ошибка аутентификаици"            => qr/.+Authentication failed for user (.+?)\. Attempt from IP address ([0-9.]+)\. (.+)$/,
    "Попытка отправки с чужого адреса" => qr/.+Message from authenticated user: <([a-z.@]+)> was rejected, because sender identity was detected as spoofed. \(Source IP address: ([0-9.]+), (From header: <[.a-z@]+?>).*/,
);

while (<>) {
    next unless m/^\[(.+)\](.+)/;
    my $time = $dateLang->str2time($1);
    next unless $time > $yesterday .. 0;
    my $message = $2;
    while ((my $error, my $regex) = each %patterns) {
        next unless $message =~ m/$regex/;
        $errors{$error}{$1}{$2}{$3} += 1;
    }
}

exit 0 if !%errors;

my @message;
while ((my $error, my $userIpLogTimes) = each %errors) {
    push @message, $error;
    while ((my $user, my $ipLogTimes) = each %$userIpLogTimes) {
        push @message, "\tПользователь $user";
        while ((my $ip, my $logTimes) = each %$ipLogTimes) {
            my $hostName = gethostbyaddr(inet_aton($ip), AF_INET) || $ip;
            push @message, "\t\tс IP $ip ($hostName)";
            while ((my $log, my $times) = each %$logTimes) {
                push @message, "\t\t\t$times раз: $log";
            }
        }
    }
}

my $email = Email::MIME->create(
    attributes => {
        content_type => "text/plain",
        charset      => "UTF-8",
    },
    header_str => [
        From    => FROM_MAIL,
        To      => [ TO_MAIL ],
        Subject =>  'Неудачи на почтовике за последние сутки',
    ],
    body       => encode('utf8', join "\n", @message));

sendmail(
    $email,
    {
        from      => FROM_MAIL,
        to        => TO_MAIL,
        transport => Email::Sender::Transport::SMTP->new({ host => 'localhost' })
    }
) || die 'Cant send';

    Покритикуйте скрипт

    MAPTbIwKA, 29 Июля 2022

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

  3. Куча / Говнокод #28047

    0

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    55. 55
    56. 56
    57. 57
    58. 58
    59. 59
    <!DOCTYPE html>
<html>
<head>
	<title>о обезьянках</title>
	<link rel="stylesheet" type="text/css" href="main.css">
</head>
<body>
<header> <img src="Обезьянки (2).jpg" width="900px" height="300px"></header>
<div class=nav>
	<ul  class="nv">
	<li> <a href=" index.html"> Главная </a></li>
    <li><a href="contact.html">  Контакты </a><li>

	</ul>
</div>
<div class=container>
<div class=menu>
	<ul>
		<li><a href="index.html"> Главная</a></li>
		<li><a href="xxx.html">   Виды</a></li>
		<li><a href="kor.html">   Кормление</a></li>
        <li><a href="vd.html">   Видео</a></li>
        <li><a href="dom.html">  Обезьянки как домашние животные </a></li> </ul>
</div>
<content>
<p>	Обезьянки – смышленые и энергичные животные, которых люди приручили много веков назад. Да и сейчас желающих завести дома экзотического питомца немало. Однако, если и вас посетило такое желание, учтите, что молодые приматы стоят довольно дорого, требуют особых условий содержания, а также много внимания и заботы со стороны хозяина. Домашнее животное обезьяна – это действительно питомец для тех, кто готов уделять много времени общению и дрессировке любимца.

Породы обезьян для дома есть разные. Предпочтение стоит отдавать тем, которые не вырастают более 1 м и имеют вес до 3-4 кг. Обезьяны имеют острые зубы, цепкие лапки и достаточно сильны, поэтому при проявлении агрессии крупных особей возможны серьезные травмы. 

Самые популярные обезьяны для дома:

игрунки;
капуцины;
макаки;
саймири и др.
Такие виды домашних обезьян как мартышки и верветки могут позволить себе только опытные заводчики, которые знают, как правильно дрессировать приматов и ухаживать за ними. Эти породы более умные, хорошо поддаются обучению, но и вероятность получить травму, если животное не в духе, гораздо выше, чем при контакте, например, с игрунками</p> <img src=" wr-960.webp" height="300px">
<p> Можно ли завести дома обезьяну
Конечно, вы можете завести дома обезьяну. Но сначала подумайте, есть ли возможность обеспечить ей нормальные условия жизни, приближенные к естественной среде обитания, а также полноценное питание.

Обезьяны как домашние животные требуют особых условий содержания. Нужно учитывать, что в природе они много двигаются, поэтому для поддержания хорошего здоровья и настроения нужно обеспечить питомцу возможность бегать и скакать. То есть придется ставить большой вольер или выпускать животное из клетки. Если вы не готовы к этому, лучше отказаться от покупки обезьяны для дома. 

Конечно, вы можете запереть питомца в клетке, но какой тогда смысл заводить обезьянку, если вы сможете наблюдать за ней только через решетку и не будете иметь возможности подержать на руках, погладить, поиграть. 

Также стоит подумать, сможете ли вы найти нужные продукты питания для питомца и приобретать их постоянно. Поищите заранее ветеринарного врача, специализирующегося на приматах, и проконсультируйтесь с ним по вопросам подготовки дома для нового любимца, а также договоритесь о профилактических осмотрах, поинтересуйтесь, какие заболевания характерны для того или иного вида обезьян. </p>

 <p>Сложно ли держать обезьяну дома
Маленькие обезьянки, которые рекомендуются для содержания в доме, очаровательны, но дрессировке они поддаются плохо. Самые смышленые и интересные – макаки – довольно крупные, а другие виды домашних обезьян не слишком склонны выполнять команды хозяина. Их невозможно дрессировать в прямом смысле слова, этот процесс скорее походит на воспитание ребенка: нужно хвалить за хорошее поведение и необидно наказывать за плохое. При этом никаких гарантий, что животное быстро сделает выводы и «исправится», нет.

Еще одна сложность – размещение в доме большой клетки или вольера. Место для клетки должно быть хорошо освещено и защищено от сквозняков. 

Обеспечить питание обезьяны дома сравнительно легко – большинство приматов веганы, некоторые едят насекомых, например, сверчков, а также отварное мясо птиц и яйца. Поэтому главная задача – обеспечить питомцам сбалансированный рацион и проследить, чтобы в меню всегда были цитрусовые и другие продукты, содержащие витамин С, поскольку организм обезьян не способен вырабатывать его самостоятельно. Чистой воды у обезьянки всегда должно быть вдоволь.

Для прогулок вне клетки придется подготовить пространство – хотя бы одну комнату. В ней придется убрать все острые и хрупкие предметы, лекарства, другие вещи, опасные для животного или дорогие вам. Если вы понимаете, что выполнить все эти условия вам по силам – смело отправляйтесь в зоомагазин и выбирайте маленькую обезьяну домашнюю.</p><img src="images.jfif">
</content>
</div>
<footer>©Сайт создала Стефания Евгеньенва. Мой вк https://vk.com/id523061073</footer>

</body>
</html>

    MAPTbIwKA, 22 Февраля 2022

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

  4. Куча / Говнокод #27112

    0

    1. 1
    bp kernelbase!VirtualAlloc " .printf \"\n\n\n\nBytes allocated: %lu (k)\n\n\n\",(@rdx/0n1024); k 8"

    Давайте течь от windbg

    MAPTbIwKA, 13 Ноября 2020

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

  5. PHP / Говнокод #27100

    0

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    <?php declare(strict_types=1);
/**
 * This file is part of Swoft.
 *
 * @link     https://swoft.org
 * @document https://swoft.org/docs
 * @contact  [email protected]
 * @license  https://github.com/swoft-cloud/swoft/blob/master/LICENSE
 */

namespace Database;

use Swoft;
use Swoft\SwoftComponent;

/**
 * Class AutoLoader
 *
 * @since 2.0
 */
class AutoLoader extends SwoftComponent
{
    /**
     * Class constructor.
     */
    public function __construct()
    {
        parent::__construct();

        Swoft::setAlias('@database', dirname(__DIR__) . '/database');
    }

    /**
     * @return array
     */
    public function getPrefixDirs(): array
    {
        return [
            __NAMESPACE__ => __DIR__,
        ];
    }

    /**
     * @return array
     */
    public function metadata(): array
    {
        return [];
    }
}

    https://github.com/swoft-cloud/swoft/blob/master/database/AutoLoader.php

    MAPTbIwKA, 10 Ноября 2020

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

  6. PHP / Говнокод #27034

    0

    1. 1
    https://pbs.twimg.com/media/EjtRN4HX0AA6FPN.jpg

    MAPTbIwKA, 16 Октября 2020

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

  7. Куча / Говнокод #27032

    −1

    1. 1
    Get-NetTCPConnection -State Listen | %{[pscustomobject]@{Port=$_.LocalPort; Process=$(Get-Process -Id $_.OwningProcess)}} | sort {[int]$_.Port}

    Давайте течь от powershell.

    MAPTbIwKA, 15 Октября 2020

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

  8. Java / Говнокод #27011

    +1

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    9. 9
    [code]
            lengthMapping.put("pt", Float.valueOf(1f));
            // Not sure about 1.3, determined by experiementation.
            lengthMapping.put("px", Float.valueOf(1.3f));
            lengthMapping.put("mm", Float.valueOf(2.83464f));
            lengthMapping.put("cm", Float.valueOf(28.3464f));
            lengthMapping.put("pc", Float.valueOf(12f));
            lengthMapping.put("in", Float.valueOf(72f));
[/code]

    MAPTbIwKA, 08 Октября 2020

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

  9. Python / Говнокод #26945

    +1

    1. 1
    2. 2
    3. 3
    https://docs.python.org/3.9/whatsnew/3.9.html#optimizations

См 38 -- > 3.9

    MAPTbIwKA, 11 Сентября 2020

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

  10. PHP / Говнокод #26087

    −3

    1. 1
    2. 2
    Официальный тред для обсуждения способов высера видеоизображения на телеящик.
Один калмент -- один способ

    Официальный тред для обсуждения способов высера видеоизображения на телеящик.
    Один калмент -- один способ

    MAPTbIwKA, 11 Декабря 2019

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

  11. C++ / Говнокод #25989

    0

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    // This concept tests whether 't + u' is a valid expression
template<typename T, typename U>
concept can_add = requires(T t, U u) { t + u; };
 
// The function is only a viable candidate if 't + u' is a valid expression
template<typename T, typename U> requires can_add<T, U>
auto add(T t, U u)
{
 return t + u;
}

    ого чо есть

    MAPTbIwKA, 24 Октября 2019

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