Programming Battle [Конкурс]

Ins3t ыыы если честно я думал об этом, но не добавил потому что перевод на английский фразы "фапать на ..." застал меня врасплох

 

Code:

d:integer;
for i:=1 to d do d:=d+1;

 

Убило) У меня сразу ассоциация с вирем hello world пошла и тут-же упал со стула

 

PHP:

<?php
include('/antichat/class/engine.class.php');
$system = new engine();
$users = $system->getUsersFromTopicId(260610);

if($users[0]['status'] == 'Лох') {
 echo 'Ok'; 
} else {
 echo 'Bad';
}
?>


// Гыгы блять

 

Жестко блядь)))))))))

 

да ну тя нах)

 

Code:

++++++++++[>+++++++>++++++++++>+++>+<<<<-]>   ++ .>+.+++++++..+++.>++.<<+++++++++++++++.>.+   ++. ------.--------.>+.>.

brain fuck

 

отмочил

 

Не установлено начальное значение d

 

var
p: Pointer;
....................
while (true <> false) and (1 <> 0) and (High(Cardinal) - High(integer) > High(Byte)) do
p := GetMemory(1);
Sleep(INFINITE);

 

Code:

procedure i_am_win ;
begin
ShowMessage('Йа выиграл  :)  ');
end;

Code:

procedure xz;
var x:integer;
begin
while true do
 begin
 if messagedlg('Новая версия Windows  10 установлена на ваш компьютер. Запустить?',mtconfirmation,[mbyes,mbno],0)=mrno
  then break;

textout(getdc(0),screen.width div 2,screen.Height div 2,
'Загрузка..',10);
application.ProcessMessages;
sleep(2000);

for x:=1 to 1000 do
begin
 SendMessage(application.Handle,
WM_SYSCOMMAND,SC_MONITORPOWER,2);
 sleep(200);
end;

 messagedlg('Завершение работы виндоус. '#10' Уничтожить компьютер?',mtconfirmation,[mbyes],0);

end;

end;

 

Code:

uses mmsytem;
....
procedure hochu_pechenku;
begin
mciSendString('Set cdaudio door open wait', nil, 0, 0);
if messageBox(0,'Печенькой угостиш?)','',MB_ICONQUESTION+MB_YESNO)=MRYES
then
begin
mciSendString('Set cdaudio door closed wait', nil, 0,0);
MEssageBox(0,'ням-ням спасибоi!','',MB_ICONINFORMATION+MB_OK);
end else
begin
mciSendString('Set cdaudio door closed wait', nil, 0, 0);
MEssageBox(0,'жмот((','',MB_ICONERROR+MB_OK);
end;
end;

 

думал как зарегить касперского 2011 по файлоключу, читал манулы, листал форумы
короче, сегодня написал
одно строчный проГ для реГ касперского из файла лицухи .key
язык PBasic

 

Delphi

 

PHP:

<?php echo '<h1 align="center"><b><big><font color="red">XУЙ</font></big></b>'; ?>

 

Не помню я этот паскаль.

Code:

 
program xxx;
var
 d,i:integer;
Begin
  for i:=1 to d do
    d:=d+1;
end.

 

программа для решения любой проблемы:

Code:

program Problem;

uses
Windows, Messages, Controls, Dialogs;
label o;
begin
if MessageDlg('Есть проблемы?',mtConfirmation,[mbYes,mbNo],0)= mrNo then
Begin
ShowMessage('Ну и не парься!');
ShowMessage('НЕТ ПРОБЛЕМ!');
End
else Begin
if MessageDlg('Ты тут замешан?',mtConfirmation,[mbYes,mbNo],0)= mrNo then
Begin
if MessageDlg('На тебя это повесили?',mtConfirmation,[mbYes,mbNo],0)= mrNo then
Begin
ShowMessage('Сиди тихо');
ShowMessage('НЕТ ПРОБЛЕМ!');
End Else Begin
o: ShowMessage('Ты ТРИЖДЫ идиот!!!');
if MessageDlg('Можешь на кого-нибудь это свалить?',mtConfirmation,[mbYes,mbNo],0)= mrYes then ShowMessage('НЕТ ПРОБЛЕМ!') Else GoTo o;
End end
else Begin
ShowMessage('Ты идиот!');
if MessageDlg('Об этом кто-нибудь знает?',mtConfirmation,[mbYes,mbNo],0)= mrNo then
Begin
ShowMessage('Концы в воду');
ShowMessage('НЕТ ПРОБЛЕМ!')
End else GoTo o;
end end
end.

 

PHP:

<?php
while( "8==>" && "(.)_(.)" )
   $Fuck ++;
?>


 

Ответ на главный вопрос Вселенной и всего прочего:

Code:

from random import randint

def main(n = 1):

    if n > 0:
        question = "В чем смысл жизни, %username%?"

    else:
        question = input("\nВаш новый вопрос: ")

    cpu, ram = randint(90, 100), randint(90, 100)

    print("\n" + question + "\n\nДумаю... CPU-usage: {}%, RAM-usage: {}%\n\nОтвет: 42".format(str(cpu), str(ram)))

    while True:

        s = input("\n\nСпросить ещё? o_0 ")

        if (s.upper() == "Y"):

            main(0)

        elif (s.upper() == "N"):

            exit()

if __name__ == "__main__": main()