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

    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
    function ProcessTerminate(dwPID:Cardinal):Boolean;
    var
     hProcess:THandle;
    begin
     Result:=false;
     if GetLastError()<> ERROR_SUCCESS  then exit;
     hProcess := OpenProcess(PROCESS_TERMINATE, FALSE, dwPID);
     if hProcess =0  then exit;
     if not TerminateProcess(hProcess, DWORD(-1))then exit;
     CloseHandle( hProcess );
     if GetLastError() <>  ERROR_SUCCESS then exit;
     Result:=true;
    end;

    Никогда - никогда, никогда, никогда - НЕ ПИШИТЕ код по ночам.

    CTEPTOP, 20 Февраля 2017

    Комментарии (0)
  2. Куча / Говнокод #22414

    −1

    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
    CTEPTOP satanail
    bagor 123212321a
    Kamerynez Kamerynez
    barop 123
    guestinho 123
    guestinh0 123
    guest0 123
    negr penis
    CrashTesterAnusov penis
    voodoodal16 voodoo16
    Dr_Stertor str
    cteptop satanail
    TOHKuU_XEP 123
    shadow_of_stertor sss
    Guest_ 123
    huest 123
    ANYS 123
    MilosTeodosic 123
    MOCKBA_O4KO 123
    XEP 123

    Настало время напомнить народу пароли

    dm_fomenok, 19 Февраля 2017

    Комментарии (5)
  3. Pascal / Говнокод #22395

    +1

    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
    79. 79
    80. 80
    81. 81
    82. 82
    83. 83
    84. 84
    85. 85
    procedure TForm1.btn1Click(Sender: TObject);
    
    var
      s, i: Byte;
      prg: Byte;
      fs: Tfilestream; JPEG: TJPEGImage;  Bitmap: TBitmap;  oldindex: Byte;
      iCounterPerSec: TLargeInteger;  
      C1, C2: TLargeInteger;
    label
      ss;
    begin
    
      pb1.Position := 0;
      ComboBox1.Enabled := False;
      DateTimePicker2.Enabled := False;
      DateTimePicker1.Enabled := False;
      Button3.Enabled := False;
      Button1.Enabled := False;
      SpeedButton1.Enabled := False;
      chk1.Enabled := False;
      chk2.Enabled := False;
      btn1.Enabled := False;
      txt := 'Подготовка отчёта, подождите... ~ ?';
      oldindex := ComboBox1.ItemIndex;
    
      for i := 0 to ComboBox1.Items.Count do
      begin
        QueryPerformanceFrequency(iCounterPerSec);
        QueryPerformanceCounter(C1);
        ComboBox1.ItemIndex := i;
        Button1.Click;
        inc(prg);
        pb1.Position := prg;
        if AnsiRightStr(Combobox1.Text, 6) <> 'стакан' then
        begin
          Chart1.SaveToBitmapFile(Path + 'Report\~temp.tmp');
          JPEG := TJPEGImage.Create;
          Bitmap := TBitmap.Create;
    
          try
            Bitmap.LoadFromFile(path + 'Report\~temp.tmp');
            Bitmap.Canvas.LineTo(0, 0);
            Bitmap.Canvas.Font.Name := 'Courier New';
            Bitmap.Canvas.Font.Size := 10;
            Bitmap.Canvas.TextOut(25, 5, '  Дата и время выдачи: ' + datetostr(date)
              + ' ' + timetostr(time) + ' |');
            JPEG.Assign(Bitmap);
            JPEG.CompressionQuality := 85;
            JPEG.Compress;
            Image1.Picture.Assign(JPEG);
    
          finally
            JPEG.Free;
            Bitmap.Free;
          end;
          DeleteFile(path + 'Report\~temp.tmp');
        end;
    
        if AnsiRightStr(Combobox1.Text, 6) <> 'стакан' then
          Image1.Picture.SaveToFile(path + 'Report\' + Combobox1.Text + '.jpg');
        Application.HandleMessage;
        if i > 0 then
          goto ss;
        QueryPerformanceCounter(C2);
        txt := 'Подготовка отчёта, подождите... ~ ' +
          IntToStr(strtoint(FormatFloat('0', (C2 - C1) / iCounterPerSec)) * 60 div
            60)
          + ' мин';
        ss:
        pb1.Visible := True;
      end;
      prg := 0;
      ComboBox1.ItemIndex := oldindex;
      Button1.Click;
      ComboBox1.Enabled := True;
      DateTimePicker2.Enabled := True;
      DateTimePicker1.Enabled := True;
      Button3.Enabled := True;
      Button1.Enabled := True;
      SpeedButton1.Enabled := True;
      chk1.Enabled := True;
      chk2.Enabled := True;
      btn1.Enabled := True;
      txt := 'Построение графика...';
    end;

    Программа просмотра архива температурных датчиков. Работает неплохо, со своими обязанностями справляется.
    Полный исходный код проекта с откомпилированным екзешником и базой можно взять здесь: https://yadi.sk/d/lM7TrPJ33EFeDJ

    65536bytesfree, 19 Февраля 2017

    Комментарии (1)
  4. Куча / Говнокод #22365

    0

    1. 1
    http://guesto.ru

    Какое совпадение

    guestinho, 19 Февраля 2017

    Комментарии (1)
  5. C# / Говнокод #22364

    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
    kinds.AddError("error", "error: <0>");
    kinds.AddAttention("attention", "warning: <0>");
    kinds.AddNormalMessage("message", "<0>");
    kinds.AddError("out_of_bounds", "<0> out of <1>..<2>");
    kinds.AddError("dont_be_here", "Should dont be here!");
    kinds.AddError("not_found", "<0> not found!");
    kinds.AddError("not_equal", "<0> not equals <1>");
    kinds.AddError("equal", "<0> equals <1>, but they must be differrence!");
    kinds.AddError("equals_null", "<0> is null!!");
    kinds.AddError("excess_item", "Item '<0>' is excess");
    kinds.AddError("expected_item", "Expected '<0>'");
    kinds.AddError("unexpected_item", "Encountered unexpected item '<0>'");
    kinds.AddError("wrong_item", "Wrong item '<0>'");
    kinds.AddError("expected_other_item", "Expected '<0>' but encountered '<1>'");
    kinds.AddError("unknown_item", "item '<0>' is unknown");
    kinds.AddError("file_not_found", "File '<0>' not found");
    kinds.AddError("wrong_file_extension", "File '<0>' has wrong extension");
    kinds.AddError("expected_eol", "Expected end of line but encountered '<0>'");
    kinds.AddError("expected_not_eol", "End of line unexpected!");
    
    // ...
    
    private void MakeTplParams(object[] originalTplParams)
    {
    	Object[] obj = originalTplParams;
    	String[] str = new String[obj.Length];
    	int length = str.Length;
    	for (int i = 0; i < length; i++)
    	{
    		str[i] = !Object.ReferenceEquals(obj[i], null) ? obj[i].ToString() : "";
    	}
    	tplParams = str;
    }
    
    
    private String MakeText(String tpl)
    {
    	if (tpl != "") return this.MakeTextByTemplate(tpl);
    	return this.MakeDefaultText();
    }
    
    private String MakeTextByTemplate(String tpl)
    {
    	String builder = tpl;
    	int length = tplParams.Length;
    	for (int i = 0; i < length; i++)
    	{
    		builder = builder.Replace("<" + i + ">", (tplParams[i]));
    	}
    	return builder;
    }
    
    private String MakeDefaultText()
    {
    	String builder = "";
    	builder += "[" + kindName + "] :";
    	int length = tplParams.Length;
    	for (int i = 0; i < length; i++)
    	{
    		builder += (tplParams[i]) + "; ";
    	}
    	return builder;
    }

    Он сказал, что string.Format томозит и предложил замену

    dm_fomenok, 18 Февраля 2017

    Комментарии (7)
  6. Куча / Говнокод #22358

    −1

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    // Вариант 1
    ++++++++++[>+++++++>++++++++++>+++>+<<<<-]>++.>+.+++++++..+++.>++.<<+++++++++++++++. >.+++.------.--------.>+.>.
    
    // Вариант 2
    --[+++++++>---->-->+>+>+<<<<<]>.>>---------.>--..>+.<<<----.<+++++++++++++++.>>>>.+++.<.--------.<<+.<<++++++++++.
    
    // Вариант 3
    --[+++++++<---->>-->+>+>+<<<<]<.>++++[-<++++<++>>>->--<<]>>-.>--..>+.<<<.<<-.>>+>->>.+++[.<]<<++.
    
    // Вариант 4
    --[+++++++<---->>-->+>+>+<<<<]<.>++++[-<++++>>->--<<]>>-.>--..>+.<<<.<<-.>>+>->>.+++[.<]

    4 Варианта вывода "Hello World" в Brainfuck

    Finn88, 18 Февраля 2017

    Комментарии (9)
  7. C# / Говнокод #22357

    +1

    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
    int i = 592;
            private void Move_Buttons_Tick(object sender, EventArgs e)
            {
               if (i >= 345)
                {
                    i = i - 5;
                    Point new_cord = new Point(i, 42);
                    Buttons_Panel.Location = new_cord;
                } else
                {
                    Move_Buttons.Stop();
                    Move_Buttons.Enabled = false;
                }
            }

    Передвижение панели с кнопками по форме (Событие таймера)

    Finn88, 18 Февраля 2017

    Комментарии (0)
  8. PHP / Говнокод #22356

    +1

    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
    $alice_ecdh_secret = 
        "\x69\xf2\x08\x41\x2d\x8d\xd5\xdb\x9d\x0c\x6d\x18\x51\x2e\x86\xf0" . 
        "\xec\x75\x66\x5a\xb8\x41\x37\x2d\x57\xb0\x42\xb2\x7e\xf8\x9d\x8c";
    $bob_ecdh_public =
        "\xe8\x98\x0c\x86\xe0\x32\xf1\xeb\x29\x75\x05\x2e\x8d\x65\xbd\xdd" .
        "\x15\xc3\xb5\x96\x41\x17\x4e\xc9\x67\x8a\x53\x78\x9d\x92\xc7\x54";
    $message_keypair = sodium_crypto_box_keypair_from_secretkey_and_publickey(
        $alice_ecdh_secret,
        $bob_ecdh_public
    );
    $plaintext = "This is a secret message for your eyes only.";
    $nonce = random_bytes(24);
    
    // And now for the actual public-key encryption step:
    $ciphertext = sodium_crypto_box($plaintext, $nonce, $message_keypair);
    
    
    
    //To decrypt a message:
    
    $received = sodium_crypto_box_open(
        $received_ciphertext, 
        $received_nonce, 
        $message_keypair
    );

    https://dev.to/paragonie/php-72-the-first-programming-language-to-add-modern-cryptography-to-its-standard-library
    Пока сишка и прочие говноязыки доверяют взломанным и опровергнутым методам шифрования и текущим изо всех сердец библиотекам, PHP стал первым языком сделавшим современную криптографию частью стандартной библиотеки. Время переписывать ядро прыщей и оси на PHP.

    barop, 17 Февраля 2017

    Комментарии (73)
  9. PHP / Говнокод #22355

    +1

    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
    .................
    <?
    if($arResult['ID'] == 160){ // Субсидирование процентной ставки на реализацию новых инвестиционных проектов
    	$arTypeGos = array("Субсидирование процентной ставки на реализацию новых инвестиционных проектов","Субсидирование части процентов по кредитам на пополнение оборотных средств","Субсидирование части затрат на НИОКР","Специальные инвестиционные контракты (СПИК)","Поддержка лесной промышленности","Поддержка производителей с/х техники","Поддержка лёгкой промышленности","Кредитование высокотехнологичного экспорта","Лизинговые займы","Займы. Проекты развития","Займы. Совместные федерально-региональные займы","Займы. Проекты консорциумов","Займы. Станкоинструментальные проекты"); // Список программ для формы, требование заказчика
    }
    if($arResult['ID'] == 93049){ // Поддержка производителей с/х техники
    	$arTypeGos = array("Поддержка производителей с/х техники","Субсидирование части затрат на НИОКР","Субсидирование процентной ставки на реализацию новых инвестиционных проектов","Субсидирование части процентов по кредитам на пополнение оборотных средств","Специальные инвестиционные контракты (СПИК)","Поддержка лесной промышленности","Поддержка лёгкой промышленности","Кредитование высокотехнологичного экспорта","Лизинговые займы","Займы. Проекты развития","Займы. Совместные федерально-региональные займы","Займы. Проекты консорциумов","Займы. Станкоинструментальные проекты"); // Список программ для формы, требование заказчика
    }
    if($arResult['ID'] == 93050){ // Поддержка лёгкой промышленности
    	$arTypeGos = array("Поддержка лёгкой промышленности","Субсидирование части затрат на НИОКР","Субсидирование процентной ставки на реализацию новых инвестиционных проектов","Субсидирование части процентов по кредитам на пополнение оборотных средств","Специальные инвестиционные контракты (СПИК)","Поддержка лесной промышленности","Поддержка производителей с/х техники","Кредитование высокотехнологичного экспорта","Лизинговые займы","Займы. Проекты развития","Займы. Совместные федерально-региональные займы","Займы. Проекты консорциумов","Займы. Станкоинструментальные проекты"); // Список программ для формы, требование заказчика
    }
    if($arResult['ID'] == 93051){ // Субсидирование части затрат на НИОКР
    	$arTypeGos = array("Субсидирование части затрат на НИОКР","Субсидирование процентной ставки на реализацию новых инвестиционных проектов","Субсидирование части процентов по кредитам на пополнение оборотных средств","Специальные инвестиционные контракты (СПИК)","Поддержка лесной промышленности","Поддержка производителей с/х техники","Поддержка лёгкой промышленности","Кредитование высокотехнологичного экспорта","Лизинговые займы","Займы. Проекты развития","Займы. Совместные федерально-региональные займы","Займы. Проекты консорциумов","Займы. Станкоинструментальные проекты"); // Список программ для формы, требование заказчика
    }
    if($arResult['ID'] == 108773){ // Кредитование высокотехнологичного экспорта
    	$arTypeGos = array("Кредитование высокотехнологичного экспорта", "Субсидирование части затрат на НИОКР","Субсидирование процентной ставки на реализацию новых инвестиционных проектов","Субсидирование части процентов по кредитам на пополнение оборотных средств","Специальные инвестиционные контракты (СПИК)","Поддержка лесной промышленности","Поддержка производителей с/х техники","Поддержка лёгкой промышленности","Лизинговые займы","Займы. Проекты развития","Займы. Совместные федерально-региональные займы","Займы. Проекты консорциумов","Займы. Станкоинструментальные проекты"); // Список программ для формы, требование заказчика
    }
    ?>
    .................
    <select class="mail_to" name="mail_to" value="0">
        <?foreach($arTypeGos as $val){?>
            <option value="<?=$val;?>"><?=$val;?></option>
        <?}?>
    </select>
    .................

    Таких "if($arResult['ID'] " 10.

    :facepalm:

    ovi, 17 Февраля 2017

    Комментарии (1)
  10. Куча / Говнокод #22354

    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
    #include "..\kernel\kernel.+"
    
    <TheOverloads> {{
    	\ Aquapear::Kernel /
    	
    	**Run() ((
    		Overload("", alloc int16(85),20)
    		Overload("", alloc int32(80),20)
    		Overload("",10,20)
    		
    		Overload("", 10000)
    		Overload("", 15000->uint64)
    		
    		Overload("", 10000.5#)
    		Overload("", 15000.5)
    	))
    	
    	
    	
    	Overload(x$,y:void~,z%) ((
    		PrintLine("Str+VoidPtr+Int")
    	))
    	
    	Overload(x$,y:int32~,z%) ((
    		PrintLine("Str+IntPtr+Int")
    	))
    	
    	
    	
    	Overload(x$,y%,z%) ((
    		PrintLine("Str+Int+Int")
    	))
    	
    	Overload(c$,d%) ((
    		PrintLine("Str+Int")
    	))
    	
    	Overload(a$,b#) ((
    		PrintLine("Str+Float")
    	))
    	
    	Overload(xx$,yy%%) ((
    		PrintLine("Str+Int64")
    	))
    	
    	Overload(xxx$,yyy##) ((
    		PrintLine("Str+Float64")
    	))
    	
    }}

    Тоже самое

    dm_fomenok, 17 Февраля 2017

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