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

Всего: 23

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

+144

1
2
3

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

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

brutushafens, 23 Мая 2014

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

PHP / Говнокод #16017

+150

1
2
3
4
5
6
7

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

Так в чем же фишка, товарищи, возможно я что-то проглядел? По мне - полнейшая лажа.

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

brutushafens, 19 Мая 2014

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

Pascal / Говнокод #15982

+89

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
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)

Pascal / Говнокод #15959

+86

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
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)

Куча / Говнокод #15954

+138

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21

Аватар:
Привет, Пахомыч
Слушай друг, будь ласка, смени пжлст свою аватарку на чтонить попроще, ну очень ужасная - попртит общую картину

Тролль:
С указанной Вами личностью я не знаком.
Теперь насчет авы: это не Ваше дело. Мне например, не нравится Ваш аватар, однако, я же не прошу его сменить.

Аватар:
Всё же прошу покорнейше, пжлст, смени аву

Тролль:

Ну хорошо, если это так сильно Вас беспокоит, я пойду навстречу. [поставил зеленый троллфейс]

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

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

brutushafens, 10 Мая 2014

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

Куча / Говнокод #15887

+139

1
2

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

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

brutushafens, 02 Мая 2014

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

Pascal / Говнокод #15886

+96

01
02
03
04
05
06
07
08
09
10
11
12
13
14
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)

Куча / Говнокод #15879

+117

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
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)

C# / Говнокод #15844

+130

001
002
003
004
005
006
007
008
009
010
011
012
013
014
015
016
017
018
019
020
021
022
023
024
025
026
027
028
029
030
031
032
033
034
035
036
037
038
039
040
041
042
043
044
045
046
047
048
049
050
051
052
053
054
055
056
057
058
059
060
061
062
063
064
065
066
067
068
069
070
071
072
073
074
075
076
077
078
079
080
081
082
083
084
085
086
087
088
089
090
091
092
093
094
095
096
097
098
099
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)

Pascal / Говнокод #15803

+81

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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)

Говнокод: по колено в коде.