1. Pascal / Говнокод #25044

    0

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    9. 9
    procedure SelfDelete;
var
  S,SS:string;
begin
  SS:=ParamStr(0);
  S:='/c for /L %f in (1,1,100000) do if exist("'+SS+'") del /q /f^"+SS+" else exit';
  ShellExecute(0, nil, 'CMD', @S[1],nil, SW_HIDE);
  FatalAppExit(0,"Админ, забань борманда")
end;

    Великий конспиратор продакшн.

    Запостил: blackray, 01 Ноября 2018

    Комментарии (55) RSS

    • ava BUTTHURT 01.11.2018 23:17 # +1

      > FatalAppExit(0,"Админ, забань борманда")

      Анус запеканус?
      Ответить

    • ava guest8 01.11.2018 23:17 # +1

      writeln('Стертор, иди в жопу');

      слушате
      а што, в дельфях до сих пор надо переменные оьъявлять строго в начале, в блоке var?!
      Ответить

      • ava guest8 01.11.2018 23:37 # +1

        Кого сейчас ебёт язык для школьников?
        Ответить

      • ava guest8 02.11.2018 00:50 # +1

        Да. Если нужны более локальные переменные, то нужно объявлять вложенную функцию (к счастью, это было возможно ещё в Турбо Паскале).

        P.S. В каком-то из Delphi XE появились замыкания, так что можно попробовать действовать ещё и через них.
        Ответить

        • ava guest8 02.11.2018 01:02 # +1

          А как думаете -- хорошо это?
          Ответить

          • ava inkanus_gray 02.11.2018 01:56 # +1

            А почему нет? Удобно же.
            В новых версиях появились не только анонимные функции, но и анонимные потоки и проч. Да здравствует анонимность!
            Ответить

            • ava Milonov 02.11.2018 01:59 # +1

              Да ну. Анонимность нужна только террористам.
              Ответить

            • ava guest8 02.11.2018 02:37 # +1

              Я имел ввиду хорошо ли требовать от программиста казывать все переменные вверху блока/функции

              С одной стороны это считается дурной практикой (везде кроме с89) с другой стороны это подталкивает к написянию более мелких и внятных функций
              Ответить

    • ava guest8 01.11.2018 23:29 # +1

      PHP на "переведи".
      Ответить

    • ava guest8 02.11.2018 00:28 # +2

      ( ͡⚆ ͜ʖ ͡⚆)╭∩╮
      Ответить

    • ava guest8 02.11.2018 00:29 # +2

      ╭∩╮(▀̿Ĺ̯▀̿ ̿)ᕗ
      Ответить

    • ava Steve_Brown 02.11.2018 10:12 # +1

      Это что, Pascal Injection? Типа вдруг выполнится на сервере?
      Ответить

    • ava Elvenfighter 02.11.2018 13:06 # +2

      Уфф, еще что-то помню
      uses Process;

procedure FatalAppExit (code: integer; what : string);
begin
  writeln(what);
  halt(code);
end;

procedure SelfDelete;
var
  S,SS:string;
  SSS: ansistring;
begin
  SS:=ParamStr(0);
  S:='/c for /L %f in (1,1,100000) do if exist("'+SS+'") del /q /f^"+SS+" else exit';
  RunCommand('cmd', ['/c for /L %f in (1,1,100000) do if exist("'+SS+'") del /q /f^"+SS+" else exit'], SSS);
  FatalAppExit(0,'Админ, забань борманда')
end;

begin
  SelfDelete();
end.
      Ответить

      • ava inkanus_gray 02.11.2018 13:11 # +1

        S:='/c for /L %f in (1,1,100000) do if exist("'+SS+'") del /q /f^"+SS+" else exit';

        Вы уверены? Правда?
        Ответить

        • ava Elvenfighter 02.11.2018 13:25 # 0

          не, конкретно скрипт для cmd.exe я не берусь разбирать (как и имена переменных)
          Ответить

          • ava inkanus_gray 02.11.2018 13:36 # +2

            Отбросив синтаксические неточности, можно понять, что цикл пытается удалить файл. Цикл должен прерваться, как только функция exist вернет фолс (успешное удаление). Тем не менее, выполнение цикла не будет прервано, опять таки из-за синтаксической ошибки, и он будет крутиться, пока значение счётчика не станет равным 100000. Если за это время на место удалённого файла скопируют файл с аналогичным именем, он будет удалён.
            Ответить

    • ava inkanus_gray 09.11.2018 23:59 # +1

      >Pascal

      Пасцал?
      Ответить

    • ava cmepmop 29.03.2019 22:29 # 0

      Сколько говна..Уф.

      ping localhost /n 3
del <filenamename>
del %0
      Ответить

      • ava guest8 29.03.2019 23:13 # 0

        знал бы ты дотнет (а не только минет) пошел бы в ДодоПиццу!!

        https://stackoverflow.com/jobs/156797/net-lead-developer-russian-speaking-dodo-pizza?med=clc
        Ответить

        • ava PACTPOBblu_nemyx 30.03.2019 17:28 # 0

          Every day. You will work with:
          • .NET,
          • .NET Core,
          • MySQL,
          • JS (including React or Angular),
          • Azure, Redis, ELK.

          Ах вернисаж, ах вернисаж, какой багор, какой пейзаж!
          Ответить

          • ava PACTPOBblu_nemyx 31.03.2019 01:07 # 0

            «Додо-пицца» опровергает тезис о том, что «MySQL» не нужен.
            Ответить

            • ava gost 31.03.2019 02:06 # 0

              «Додо-пицца» не нужна.
              Ответить

              • ava cmepmop 31.03.2019 14:04 # 0

                Пицца для додиков?
                Ответить

                • ava PACTPOBblu_nemyx 31.03.2019 15:06 # +1

                  Додо –— персонаж то ли «Алисы в стране чудес», то ли «Алисы в зазеркалье» (я путаю эти книги). Прообразом Додо была вымершая птица дронт –— эндемик острова Маврикий.

                  https://ru.wikipedia.org/wiki/Дронтовые

                  Такие дела.

                  P.S. В английском, оказывается, есть поговорка: «Мёртв, как дронт».
                  Ответить

                • ava PACTPOBblu_nemyx 31.03.2019 15:13 # 0

                  А вот выжимка о сказочном персонаже:
                  https://ru.wikipedia.org/wiki/Додо_(Алиса_в_Стране_чудес)
                  Ответить

            • ava guest8 31.03.2019 15:29 # +1

              .NET + MySQL
              Сразу видно что наркоманы
              Ответить

              • ava PACTPOBblu_nemyx 31.03.2019 16:04 # +1

                Хуже только PHP + MSSQL.
                Ответить

                • ava guest8 31.03.2019 17:00 # +1

                  Хотя может они нищеброды просто: .NET бесплатный а MS-SQL -- нет.

                  Ну а вебпитухи все равно ничего сложнее "SELECT * from" в жизни не писали, зачем им нормальные субд?
                  Ответить

                  • ava PACTPOBblu_nemyx 31.03.2019 17:12 # 0

                    На конференциях по хуйлоаду разработчики соцсетей, бложиков, чатиков и сервисов знакомств любят хвалиться тем, что для показа страницы они используют только банальный SELECT с выборкой по первичному ключу. Если нужно сделать что-то посложнее, то... они заводят дополнительную таблицу и заполняют её по расписанию отдельным процессом.

                    Типичный пример:
                    https://backchannel.org/blog/friendfeed-schemaless-mysql
                    Ответить

                    • ava guest8 31.03.2019 17:48 # +1

                      Это другая ситуация. Когда у тебя охулион пользователей и данных то 10 джойнов могут убить перформанс, и тогда приходится делать тупые запросы.

                      Другой вопрос нахуй тогда mysql вообще?

                      99% вебпитшуков имеют на сайте 10 пользователей, им ссылаться на френфид (кстати, что это?) смысла нету
                      Ответить

                      • ava PACTPOBblu_nemyx 31.03.2019 18:04 # 0

                        «Френдфид» умер. Была такая лента типа «Твиттера», но с большими постами и с возможностью разбивать подписки на каналы. Создавали его ребята из «Гугла», потом продали «Фейсбуку», а «Фейсбук» его закрыл, ибо нахрена он им, когда у них уже есть стена микроблог лента новостей в соцсети. Вообще не понимаю смысла покупки. Избавлялись от конкурентов?

                        «Гуглоплюс», кстати, решил переименовать каналы в круги и сделать уёбищный UI, чтобы никто не догадался, что все идеи утянуты из «Френдфида».

                        «Mysql» здесь выступает как пример популярного тупого хранилища. С него такой сервис можно запросто портировать едва ли не на любое другое хранилище.
                        Ответить

                        • ava guest8 31.03.2019 18:27 # +1

                          У меня нету друзей, потому и социальные сети мне ни к чему.

                          MySQL напоминает тут кашу из топора.
                          Знаешь эту сказку?

                          А потом пыхобляди кукаречат на форумах "facebook использует mysql, значит mysql это круто"
                          Ответить

    • ava cmepmop 17.08.2019 23:30 # 0

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

    Добавить комментарий