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

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

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

      Анус запеканус?
      Ответить
    • writeln('Стертор, иди в жопу');

      слушате
      а што, в дельфях до сих пор надо переменные оьъявлять строго в начале, в блоке var?!
      Ответить
      • Кого сейчас ебёт язык для школьников?
        Ответить
      • Да. Если нужны более локальные переменные, то нужно объявлять вложенную функцию (к счастью, это было возможно ещё в Турбо Паскале).

        P.S. В каком-то из Delphi XE появились замыкания, так что можно попробовать действовать ещё и через них.
        Ответить
        • А как думаете -- хорошо это?
          Ответить
          • А почему нет? Удобно же.
            В новых версиях появились не только анонимные функции, но и анонимные потоки и проч. Да здравствует анонимность!
            Ответить
            • Да ну. Анонимность нужна только террористам.
              Ответить
            • Я имел ввиду хорошо ли требовать от программиста казывать все переменные вверху блока/функции

              С одной стороны это считается дурной практикой (везде кроме с89) с другой стороны это подталкивает к написянию более мелких и внятных функций
              Ответить
    • PHP на "переведи".
      Ответить
    • ( ͡⚆ ͜ʖ ͡⚆)╭∩╮
      Ответить
    • ╭∩╮(▀̿Ĺ̯▀̿ ̿)ᕗ
      Ответить
    • Это что, Pascal Injection? Типа вдруг выполнится на сервере?
      Ответить
    • Уфф, еще что-то помню
      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.
      Ответить
      • S:='/c for /L %f in (1,1,100000) do if exist("'+SS+'") del /q /f^"+SS+" else exit';

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

      Пасцал?
      Ответить
    • Сколько говна..Уф.

      ping localhost /n 3
      del <filenamename>
      del %0
      Ответить
      • знал бы ты дотнет (а не только минет) пошел бы в ДодоПиццу!!

        https://stackoverflow.com/jobs/156797/net-lead-developer-russian-speaking-dodo-pizza?med=clc
        Ответить
        • Every day. You will work with:
          • .NET,
          • .NET Core,
          MySQL,
          JS (including React or Angular),
          • Azure, Redis, ELK.

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

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

                  Такие дела.

                  P.S. В английском, оказывается, есть поговорка: «Мёртв, как дронт».
                  Ответить
                • А вот выжимка о сказочном персонаже:
                  https://ru.wikipedia.org/wiki/Додо_(Алиса_в_Стране_чудес)
                  Ответить
            • .NET + MySQL
              Сразу видно что наркоманы
              Ответить
              • Хуже только PHP + MSSQL.
                Ответить
                • Хотя может они нищеброды просто: .NET бесплатный а MS-SQL -- нет.

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

                    Типичный пример:
                    https://backchannel.org/blog/friendfeed-schemaless-mysql
                    Ответить
                    • Это другая ситуация. Когда у тебя охулион пользователей и данных то 10 джойнов могут убить перформанс, и тогда приходится делать тупые запросы.

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

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

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

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

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

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

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