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

    Всего: 23

  2. Куча / Говнокод #16046

    +144

    1. 1
    2. 2
    3. 3
    "Если не заходит на Веб мани,есть выход."
    звучит, как тонкий афоризм :)
    Вот только автор его не философ, а какое-то школоло.

    http://zismo.biz/forum/13-481526-1

    brutushafens, 23 Мая 2014

    Комментарии (15)
  3. PHP / Говнокод #16017

    +150

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    Не так давно одно местное парнокопытное (и гомосексуальное также) существо с пеной у рта нахваливало 
    среду разработки php devel studio. Ради интереса скачал  - что ж?
    Обычный, ничем не примечательный интерпретатор (на дельфях кстати, писаный), ничем не лучше автоита. 
    Скомпилированный бинарник имеет фантастические размеры - около ~3 мб,  при выполнении требует runtime php5ts.dll.
    Понмится мне, Конь с присущим ему пафосом предлагал кодить на ней чуть ли не драйверы.
    
    Так в чем же фишка, товарищи, возможно я что-то проглядел? По мне - полнейшая лажа.

    Конь php-бляди соснули.

    brutushafens, 19 Мая 2014

    Комментарии (4)
  4. Pascal / Говнокод #15982

    +89

    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
    var
      Form1: TForm1;
      i:integer; // глобальные переменные - "общие"
      CritSec:TCriticalSection; // объект критической секции
    implementation
    
    {$R *.dfm}
    
    procedure ThreadFunc;
    begin
    while (i<100000) do
      begin
      CritSec.Enter; // открываем секцию
      i:=i+1; //увеличиваем i
      Form1.Label1.Caption:=IntToStr(i); //из потока к элементам формы нужно обращаться через имя формы
      CritSec.Leave; // закрываем
      end;
    
    endthread(0); // красиво выходим из потока.
    end;
    
    procedure TForm1.Button1Click(Sender: TObject);
    var tid1,tid2,id:longword;
    begin
    i:=0;
    tid1:=beginthread(nil,0,Addr(ThreadFunc),nil,0,id); //запускаем функцию ThreadFunc в потоке
    tid2:=beginthread(nil,0,Addr(ThreadFunc),nil,0,id); //в tid2 присваиваем Идентификатор потока, который пригодится позже.
    end;
    
    
    procedure TForm1.FormCreate(Sender: TObject);
    begin
    CritSec:=TCriticalSection.Create; // создаём объект критической секции, на всё время работы программы
    end;
    
    procedure TForm1.FormDestroy(Sender: TObject);
    begin
    CritSec.Free; // разрушаем
    end;
    
    end.

    Уебище, блять, лесное.
    http://grabberz.com/showthread.php?t=24619

    brutushafens, 14 Мая 2014

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

    +86

    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
    begin
       if CheckListBox1.checked[2] or CheckListBox1.checked[3]
        or CheckListBox2.checked[0] or CheckListBox2.checked[1] or CheckListBox2.checked[2]
        or CheckListBox3.checked[1] or CheckListBox3.checked[2]
        or CheckListBox5.checked[0] or CheckListBox5.checked[1] or CheckListBox5.checked[2]
       then Form2.Memo1.Lines.Add('Генераторы шумовых сигналов');
        if CheckListBox1.checked[2] or CheckListBox1.checked[3]
        or CheckListBox2.checked[0] or CheckListBox2.checked[1] or CheckListBox2.checked[2]
        or CheckListBox3.checked[1] or CheckListBox3.checked[2]
        or CheckListBox5.checked[0] or CheckListBox5.checked[1] or CheckListBox5.checked[2]
       then Form2.Memo1.Lines.Add('Низкочастотные генераторы сигналов');
       if CheckListBox1.checked[2] or CheckListBox1.checked[3]
        or CheckListBox2.checked[0] or CheckListBox2.checked[1] or CheckListBox2.checked[2]
        or CheckListBox3.checked[1] or CheckListBox3.checked[2]
        or CheckListBox5.checked[0] or CheckListBox5.checked[1] or CheckListBox5.checked[2]
       then Form2.Memo1.Lines.Add('Усилители мощности');
       if CheckListBox1.checked[2] or CheckListBox1.checked[3]
        or CheckListBox2.checked[0] or CheckListBox2.checked[1] or CheckListBox2.checked[2]
        or CheckListBox3.checked[1] or CheckListBox3.checked[2]
        or CheckListBox5.checked[0] or CheckListBox5.checked[1] or CheckListBox5.checked[2]
       then Form2.Memo1.Lines.Add('Акустические излучатели');
       if CheckListBox1.checked[2] or CheckListBox1.checked[3]
        or CheckListBox2.checked[0] or CheckListBox2.checked[1] or CheckListBox2.checked[2]
        or CheckListBox3.checked[1] or CheckListBox3.checked[2]
        or CheckListBox5.checked[0] or CheckListBox5.checked[1] or CheckListBox5.checked[2]
       then Form2.Memo1.Lines.Add('Измерители шума и вибраций (шумомеры)');
       if CheckListBox1.checked[0]
        or CheckListBox2.checked[0] or CheckListBox2.checked[1] or CheckListBox2.checked[2]
        or CheckListBox3.checked[1] or CheckListBox3.checked[2] or CheckListBox3.checked[0]
        or CheckListBox5.checked[0] or CheckListBox5.checked[1] or CheckListBox5.checked[2]
       then Form2.Memo1.Lines.Add('Селективные микровольтметры, измерительные приемники (анализаторы спектра)');
       if CheckListBox1.checked[0] or CheckListBox1.checked[1] or CheckListBox1.checked[2] or CheckListBox1.checked[3]
        or CheckListBox2.checked[0] or CheckListBox2.checked[1] or CheckListBox2.checked[2]
        or CheckListBox3.checked[1] or CheckListBox3.checked[3]
        or CheckListBox5.checked[0] or CheckListBox5.checked[1] or CheckListBox5.checked[2]
       then Form2.Memo1.Lines.Add('Селективные нановольтметры');
       if CheckListBox1.checked[2] or CheckListBox1.checked[2]
        or CheckListBox2.checked[0] or CheckListBox2.checked[1] or CheckListBox2.checked[2]
        or CheckListBox3.checked[1] or CheckListBox3.checked[2]
        or CheckListBox5.checked[0] or CheckListBox5.checked[1] or CheckListBox5.checked[2]
       then Form2.Memo1.Lines.Add('Измерительные микрофоны');
       if CheckListBox1.checked[0] or CheckListBox1.checked[1]
        or CheckListBox2.checked[0] or CheckListBox2.checked[1] or CheckListBox2.checked[2]
        or CheckListBox3.checked[0]
        or CheckListBox5.checked[0] or CheckListBox5.checked[1] or CheckListBox5.checked[2]
       then Form2.Memo1.Lines.Add('Измерительные антенны');
       if CheckListBox1.checked[2] or CheckListBox1.checked[3]
        or CheckListBox2.checked[0] or CheckListBox2.checked[1] or CheckListBox2.checked[2]
        or CheckListBox3.checked[1] or CheckListBox3.checked[2]
       then Form2.Memo1.Lines.Add('Вибродатчики (акселерометры)');
       if CheckListBox1.checked[0] or CheckListBox1.checked[1]
        or CheckListBox2.checked[0] or CheckListBox2.checked[1] or CheckListBox2.checked[2]
        or CheckListBox3.checked[0]
        or CheckListBox5.checked[0] or CheckListBox5.checked[1] or CheckListBox5.checked[2]
       then Form2.Memo1.Lines.Add('Измерительные пробники');
       if CheckListBox1.checked[2] or CheckListBox1.checked[3]
        or CheckListBox2.checked[0] or CheckListBox2.checked[1] or CheckListBox2.checked[2]
        or CheckListBox3.checked[1] or CheckListBox3.checked[2]
        or CheckListBox5.checked[0] or CheckListBox5.checked[1] or CheckListBox5.checked[2]
       then Form2.Memo1.Lines.Add('Полосовые октавные фильтры со среднегеометри- ческими частотами 250, 500, 1000, 2000, 4000 Гц');
       if CheckListBox1.checked[0] or CheckListBox1.checked[1]
        or CheckListBox3.checked[0]
        or CheckListBox5.checked[0] or CheckListBox5.checked[1] or CheckListBox5.checked[2]
       then Form2.Memo1.Lines.Add('Осциллографы');
     { if Checklistbox6.Checked[0] or CheckListBox3.checked[0]
        or CheckListBox4.checked[0]
      then Form2.Memo1.Lines.Add('Программные средства формирования и контроля полномочий доступа в AC'); }
     <font color="Red"> if CheckListBox2.checked[3] or CheckListBox2.checked[4]or CheckListBox2.checked[5]
        or CheckListBox3.checked[0] or CheckListBox4.checked[0]
       then Form2.Memo1.Lines.Add('Программные средства контроля целостности программ и программных комплексов');</font>

    Вот так живут Америка с Европой.
    http://www.delphisources.ru/forum/showthread.php?t=26142

    brutushafens, 11 Мая 2014

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

    +138

    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
    Аватар:
    Привет, Пахомыч
    Слушай друг, будь ласка, смени пжлст свою аватарку на чтонить попроще, ну очень ужасная - попртит общую картину
    
    Тролль:
    С указанной Вами личностью я не знаком.
    Теперь насчет авы: это не Ваше дело. Мне например, не нравится Ваш аватар, однако, я же не прошу его сменить.
    
    Аватар:
    Всё же прошу покорнейше, пжлст, смени аву
    
    Тролль:
    
    Ну хорошо, если это так сильно Вас беспокоит, я пойду навстречу. [поставил зеленый троллфейс]
    
    Аватар:(цитирует)
    Мне лично абсолютно наплевать на всё - мало-ли какие закидоны бывают у различной шешуры, но вот форуму в целом, нет.
    Пахомыч, чувак, ти случайно не заметил что тебе слегка репу опустили? Если нет, то посмотри, подивись.
     Следующей будет временная баня - тебе это надо? А ведь ещё есть вечный бан, затем блокировка по IP и мылу
     (это если ты опять никулю сменишь), передача его в К7 для последующей мозгоправки, много чего ещё есть
    Пжлст, смени аву

    Адекватен ли этот человек? Вот как не пойти, и не зафлудить/завайпать форум, где сидят такие упоротые?
    Но это больше админ местный виноват, продажная скотина.
    Все началось с того, что на форуме http://www.delphisources.ru/forum я поставил на аву красный троллфейс.

    brutushafens, 10 Мая 2014

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

    +139

    1. 1
    2. 2
    Представляю Вашему вниманию новейший минусатор: http://rghost.ru/54852059
    Исправлены многие ошибки предыдущих версий. Не побрезгуйте, родимые!..

    Новейший минусатор для творения непотребностей с рейтингом.

    brutushafens, 02 Мая 2014

    Комментарии (45)
  8. Pascal / Говнокод #15886

    +96

    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
    Var
    h : THandle;
    
    procedure TMain.FormCreate(Sender: TObject);
    
    begin
    begin
    h := CreateMutex(nil, True, PChar(ExtractFileName(Application.ExeName)));
    if WaitForSingleObject(h, 0)<>0 then
    begin
    ShowMessage(‘Программа уже запущена!’);
    Application.Terminate;
    CloseHandle(h);
    end;
    end;

    http://moron.1side.ru/programmirovanie/delphi/zapret-povtornogo-zapuska-programmy.php

    brutushafens, 02 Мая 2014

    Комментарии (17)
  9. Куча / Говнокод #15879

    +117

    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
    86. 86
    87. 87
    88. 88
    89. 89
    90. 90
    91. 91
    92. 92
    93. 93
    94. 94
    95. 95
    96. 96
    97. 97
    98. 98
    DataSection
      Data.f 0.0025,0.0026,0.00235
    EndDataSection
    
    Global SCREENWIDTH,SCREENHEIGHT
    
    Define .f:bitplanes.b=32
    
    SCREENWIDTH=GetSystemMetrics_(#SM_CXSCREEN)
    SCREENHEIGHT=GetSystemMetrics_(#SM_CYSCREEN)
    
    If InitSprite()=0 Or InitSprite3D()=0 Or InitKeyboard()=0
      MessageRequester("Error","Can't access DirectX",0)
      End
    EndIf
    
    desktop.l = CreateImage(0,DesktopWidth(0),DesktopHeight(0))
    hdc.l = StartDrawing(ImageOutput(0))
    SelectObject_(hdc,desktop)
    BitBlt_(hdc,0,0,DesktopWidth(0),DesktopHeight(0),GetDC_(GetDesktopWindow_()),0,0,#SRCCOPY)
    StopDrawing()
    DeleteDC_(hdc)
    
    While OpenScreen(SCREENWIDTH,SCREENHEIGHT,bitplanes.b,"FullScreen")=0
      If bitplanes.b>16
        bitplanes.b-8
      ElseIf SCREENHEIGHT>600
        SCREENWIDTH=800
        SCREENHEIGHT=600
      ElseIf SCREENHEIGHT>480
        SCREENWIDTH=640
        SCREENHEIGHT=480
      ElseIf SCREENHEIGHT>400
        SCREENWIDTH=640
        SCREENHEIGHT=400
      ElseIf SCREENHEIGHT>240
        SCREENWIDTH=320
        SCREENHEIGHT=240
      ElseIf SCREENHEIGHT>200
        SCREENWIDTH=320
        SCREENHEIGHT=200
      Else
        MessageRequester("Listen:","Can't open Screen!",0)
        End
      EndIf
    Wend
    w=DesktopWidth(0)
    h=DesktopHeight(0)
    z=1000/Sqr(3)
    perspw=w
    PerspectiveAngle.d=#PI/16
    CreateSprite(0,w,h,#PB_Sprite_Texture)
    StartDrawing(SpriteOutput(0))
    DrawImage(ImageID(0),0,0)
    StopDrawing()
    DisplaySprite(0,0,0)
    FlipBuffers()
    DisplaySprite(0,0,0)
    CreateSprite3D(0,0)
    x3=w-1
    x4=0
    y3=h
    y4=h
    z3=z
    z4=z
    For t.b=1 To 3
      omega=-omega
      Read alfa
      Repeat
        ExamineKeyboard()
        ClearScreen(0)
        Incrz=h*Sin(Angle)
        x1=Incrz*Tan(PerspectiveAngle)
        x2=x3-x1
        y1=h-h*Cos(Angle)
        y2=y1
        z1=z+Incrz/4.75
        z2=z1:Start3D()
        TransformSprite3D(0,x1,y1,z1,x2,y2,z2,x3,y3,z3,x4,y4,z4)
        DisplaySprite3D(0,0,0,255)
        Stop3D()
        omega+alfa
        If omega<0
          Angle-Pow(omega,2)
        Else
          Angle+Pow(omega,2)
        EndIf
        If Angle<0 Or Angle>4/5*#PI
          Break
        EndIf
        FlipBuffers()
        Delay(10)
      Until KeyboardPushed(#PB_Key_Escape)
    Next
    DisplaySprite(0,0,0)
    FlipBuffers()
    Delay(10)
    DisplaySprite(0,0,0)

    Очень интересный эффект - экран "отшатывается" от юзера :)
    Для компиляции понадобится PureBasic не ниже 4.50

    brutushafens, 01 Мая 2014

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

    +130

    1. 001
    2. 002
    3. 003
    4. 004
    5. 005
    6. 006
    7. 007
    8. 008
    9. 009
    10. 010
    11. 011
    12. 012
    13. 013
    14. 014
    15. 015
    16. 016
    17. 017
    18. 018
    19. 019
    20. 020
    21. 021
    22. 022
    23. 023
    24. 024
    25. 025
    26. 026
    27. 027
    28. 028
    29. 029
    30. 030
    31. 031
    32. 032
    33. 033
    34. 034
    35. 035
    36. 036
    37. 037
    38. 038
    39. 039
    40. 040
    41. 041
    42. 042
    43. 043
    44. 044
    45. 045
    46. 046
    47. 047
    48. 048
    49. 049
    50. 050
    51. 051
    52. 052
    53. 053
    54. 054
    55. 055
    56. 056
    57. 057
    58. 058
    59. 059
    60. 060
    61. 061
    62. 062
    63. 063
    64. 064
    65. 065
    66. 066
    67. 067
    68. 068
    69. 069
    70. 070
    71. 071
    72. 072
    73. 073
    74. 074
    75. 075
    76. 076
    77. 077
    78. 078
    79. 079
    80. 080
    81. 081
    82. 082
    83. 083
    84. 084
    85. 085
    86. 086
    87. 087
    88. 088
    89. 089
    90. 090
    91. 091
    92. 092
    93. 093
    94. 094
    95. 095
    96. 096
    97. 097
    98. 098
    99. 099
    100. 100
    using System;
    using System.Collections.Generic;
    using System.Linq;
    using System.Text;
    using System.Text.RegularExpressions;
    using System.IO;
    
    namespace SimpleLex
    {
        class Lexical
        {
            //Сюда передается путь к файлу конфигурации
            public string Path = "";
            //Определяем ключевые слова 
            string regular = "Color|Size|Name";
            public void lexical()
            {
                //Создаем массив строк для дальнейшего заполнения
                string[] conf = new string[1024];
                //Переменная счетчик
                int i = 0;
                //Заполняем массив из файла 
                //Path мы присваиваем значение при создании
                //объекта нашего класса.
                conf = File.ReadAllLines(Path);
                //Запускаем цикл чтения 
                while (conf.Length - 1 >= i)
                {
                // Создаем новый объект класса Regex
                // и передаем ему в качестве конструктора
                // cписок ключевых слов
                Regex RegularExp = new Regex(regular);
                //Начинаем поиск совпадений в текущей строке
                Match match = RegularExp.Match(conf[i]);
                while (match.Success)
                {
                    //Ожидаем наличия совпадений
                    break;
                    //Если нашли то выпрыгиваем 
                }
    
                switch (match.Value) // Смотрим что же мы обнаружили и вызываем соответствующий метод
                {
                    case "Color":
                        //вызываем метод Color_
                        //и передаем ему текущую строку для разбора
                        //Предварительно удалив все пробелы с двух сторон
                        //если они были метод Trim()
                        Color_(conf[i].Trim());
                        i++;
                        break;
                    case "Size":
                        size_(conf[i].Trim());
                        i++;
                        break;
                    default:
                        //все другое пропускаем
                        i++;
                        break;
                }
                }
            }
            void Color_(string str)
            {
                int i = 0;
                while (str.Substring(i,1)!= "=")
                {
                    //Ищем разделитель в данном случае "="
                    i++;
                }
                //Находим и извлекаем нужную нам информацию
                string value_ = str.Substring(i + 1, str.Length - (i+1)).Trim();
                //Теперь все зависит от вашей фантазии хотите 
                //Создайте класс который будет устанавливать цвет шрифта
                //И.т.д
    
                Console.WriteLine(value_);
                Console.ReadKey();
            }
            void size_(string str)
            {
                /*
                 * В этом методе я хочу показать как быть если вы используете
                 * в своем файле для каждой команды разные разделители
                 * в теории конечно можно все это засунуть в один метод
                 * Но я советую в дальнейшем если вы будите применять
                 * именно такую структуру передавать в метод тип разделителя
                 * и соответственно искать именно его другое дело если вы имеете
                 * различный формат входных данных как у нас параметр size имеет
                 * вид shize X=100,Y=500
                 */
                //Есть прекрасный метод 
                int i = 0;
                while (str.Substring(i,1) != " ")
                {
                    i++;
                }
                str = str.Substring(i, str.Length - i).Trim();
                string[] commandMas = new string[3];
                commandMas = str.Split(',');

    (GetPrivateProfileString? Не, не слышал)
    Лютый песдеzz с сайта vbbook.ru

    brutushafens, 24 Апреля 2014

    Комментарии (61)
  11. Pascal / Говнокод #15803

    +81

    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
    procedure SetCurrentThreadName(const AName: String);
    type
      TThreadNameInfo = record
          RecType: LongWord;
          Name: PChar;
          ThreadID: LongWord;
          Flags: LongWord;
        end;
    var
      LThreadNameInfo: TThreadNameInfo;
    begin
      with LThreadNameInfo do
      begin
        RecType := $1000;
        Name := PChar(AName);
        ThreadID := $FFFFFFFF; // -1 - текущий поток; также сюда можно вставить ID другого потока
        Flags := 0;
      end;
      try
        RaiseException($406D1388, 0, SizeOf(LThreadNameInfo) div SizeOf(LongWord),
          PDWord(@LThreadNameInfo));
      except
      end;
    end;

    Попытка создать именованный поток.
    Не хак. (http://msdn.microsoft.com/en-us/library/xcb2z8hs%28VS.71%29.aspx)

    brutushafens, 20 Апреля 2014

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