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

    Всего: 5

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

    −2

    1. 1
    2. 2
    3. 3
    4. 4
    Посоны, накидайте плиз пикчей для троллинга пингвинов.
Что-то типа такова: https://i.imgur.com/RZIOjnQ.jpg
Что-нибудь про ЖМУ/Пинус, швабодку, прыщи, типичных линуксоидов.
Сру сейчас на Жопеннете, хочу сраньё повзрывать у ебанашек.

    DelphiGovno, 18 Октября 2021

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

  3. Pascal / Говнокод #27689

    +1

    1. 1
    2. 2
    3. 3
    Ой, девачьки, я 5 лет не заходило. Почему нет говнокодов на Дульфи? Я десять страниц промотал! Неужели все дульфисты впали 
в старческий маразм и не могут больше срать на этом недоязыке? Почему? Он же изначально создавался для даунов.
Что стало с Тарасом? Что стало с поняшей-ассемблеристом?

    Только одфаги меня вспомнят.

    DelphiGovno, 28 Сентября 2021

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

  4. Куча / Говнокод #21775

    −16

    1. 1
    2. 2
    3. 3
    Где говнокод? В FF или в/на сайте?
goo.gl/6XhZpH
goo.gl/4EC3Lg

    Кстати, на говнохостинге картинок было упоминание, что "вот эту ссылку вы можете передавать по почте или _ICQ_". Г-ди, неужели кто-то ещё пользуется этим говном?

    DelphiGovno, 04 Декабря 2016

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

  5. Assembler / Говнокод #18591

    +100

    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
    ;МОЛНИЯ! КОНКУРС! ПРИЗОВОЙ ФОНД - 4 ТЫСЯЧИ РУБЛЕЙ!!!
0003FCA4  8ED8                mov ds,ax
0003FCA6  0F20C0            mov eax,cr0
0003FCA9  24F0                 and al,0xf0
0003FCAB  80E20E             and dl,0xe
0003FCAE  0AC2                 or al,dl
0003FCB0  0F22C0             mov cr0,eax
0003FCB3  EAB8FC00F0    jmp word 0xf000:0xfcb8
0003FCB8  33C0                 xor ax,ax
0003FCBA  8EE0                mov fs,ax
0003FCBC  648F061A08   pop word [fs:0x81a]
0003FCC1  83C402            add sp,byte +0x2
0003FCC4  648F061808   pop word [fs:0x818]
0003FCC9  8ED0                mov ss,ax
0003FCCB  BC2608            mov sp,0x826
0003FCCE  61                    popaw
0003FCCF  368B262C08  mov sp,[ss:0x82c]
0003FCD4  83EC06           sub sp,byte +0x6
0003FCD7  368E162008  mov ss,[ss:0x820]
0003FCDC  CF                    iretw
0003FCDD  FB                    sti
0003FCDE  1E                    push ds
0003FCDF  56                    push si
0003FCE0  BE0000           mov si,0x0
0003FCE3  8EDE                mov ds,si
0003FCE5  BE6C04           mov si,0x46c
0003FCE8  830401           add word [si],byte +0x1
0003FCEB  83540200       adc word [si+0x2],byte +0x0
0003FCEF  837C0218       cmp word [si+0x2],byte +0x18
0003FCF3  7513                jnz 0xfd08
0003FCF5  813CB000       cmp word [si],0xb0
0003FCF9  750D                jnz 0xfd08
0003FCFB  C7040000       mov word [si],0x0
0003FCFF  C744020000   mov word [si+0x2],0x0
0003FD04  C6440401      mov byte [si+0x4],0x1
0003FD08  5E                   pop si
0003FD09  50                   push ax
0003FD0A  52                   push dx
0003FD0B  803E400400  cmp byte [0x440],0x0
0003FD10  7411               jz 0xfd23
0003FD12  FE0E4004       dec byte [0x440]
0003FD16  750B               jnz 0xfd23
0003FD18  80263F04F0  and byte [0x43f],0xf0
0003FD1D  BAF203          mov dx,0x3f2
0003FD20  B00C               mov al,0xc
0003FD22  EE                    out dx,al
0003FD23  CD1C               int 0x1c
0003FD25  FA                    cli
0003FD26  B020               mov al,0x20 ;ороро
0003FD28  E620               out 0x20,al
0003FD2A  5A                   pop dx
0003FD2B  58                   pop ax
0003FD2C  1F                   pop ds
0003FD2D  CF                   iretw
0003FD2E  50                   push ax
0003FD2F  1E                   push ds
0003FD30  B80000          mov ax,0x0
0003FD33  8ED8              mov ds,ax
0003FD35  800E3E0480 or byte [0x43e],0x80
0003FD3A  B020              mov al,0x20
0003FD3C  E620              out 0x20,al
0003FD3E  B80191          mov ax,0x9101
0003FD41  1F                   pop ds
0003FD42  CD15              int 0x15
0003FD44  58                   pop ax
0003FD45  CF                   iretw
0003FD46  B0FE               mov al,0xfe
0003FD48  E664               out 0x64,al
0003FD4A  FA                   cli
0003FD4B  F4                   hlt
0003FD4C  EBFC               jmp short 0xfd4a
0003FD4E  33D2              xor dx,dx
0003FD50  8EC2              mov es,dx
0003FD52  BB007C         mov bx,0x7c00
0003FD55  B90100         mov cx,0x1
0003FD58  33C0             xor ax,ax
0003FD5A  CD13             int 0x13
0003FD5C  B80102         mov ax,0x201
0003FD5F  CD13              int 0x13
0003FD61  720A              jc 0xfd6d
0003FD63  E83A00         call word 0xfda0
0003FD66  7205              jc 0xfd6d
0003FD68  EA007C0000 jmp word 0x0:0x7c00
0003FD6D  8D0699FE     lea ax,[0xfe99]
0003FD71  B93500         mov cx,0x35
0003FD74  90                  nop
0003FD75  E80400         call word 0xfd7c
0003FD78  33C0             xor ax,ax
0003FD7A  EBD2             jmp short 0xfd4e
0003FD7C  BA01FF         mov dx,0xff01
0003FD7F  E897FD         call word 0xfb19
0003FD82  B302             mov bl,0x2
0003FD84  B90017         mov cx,0x1700
0003FD87  E8CDED         call word 0xeb57
0003FD8A  33C9             xor cx,cx
0003FD8C  E2FE              loop 0xfd8c
0003FD8E  B305              mov bl,0x5
0003FD90  B90030         mov cx,0x3000
0003FD93  E8C1ED         call word 0xeb57
0003FD96  32E4              xor ah,ah

    Шолом, говноеды. Ебошить Мне скоро в Гермашку надолго, и чтобы не скучать в пути, решил Я немножко угарнуть над местными недопрограммистами и устроить конкурц. Любой true-программист (а это автоматом знание Ассмеблера и программирования МК) часа за два, порывшись в мануалах, без проблем найдёт ошибку и срубит за вечер немного бабок (а для вас, нищебродов - очень и очень много).

    УСЛОВИЯ:
    Дано: кусок кода, выдранный из прошивки одного микроконтроллера. Было написано на C лично Мной, затем, после неполадок, дисассемблировано ndisasm`ом. Баг был отловлен, исправлен, короче, хеппи энд, контроллер управляет одной Мега-Супер-Штукой (inb4: кококо уш не плиткой ли кококо). Некоторые части кода здесь не нужны и добавлены для усложнения. Ошибка далеко не очевидная, говорю сразу.
    Вопрос: "Какая часть вышеприведённого кода содержит ошибку, как и когда она проявляется?".
    Железо: x86, процессор на базе Pentium II (да, на базе Pentium II);
    Кто победит: победит тот, кто первый напишет правильный вариант ответа. Попыток может быть неограниченное множество Для победы достаточно
    ответить хотя бы на первую часть вопроса;
    Форма ответа: "Ошибка <там-то>, из-за неё может произойти <при таких-то условиях> такая неприятная хуйня, как <то-то>. Мой <любой_кошелёк_
    поддерживаемый_Хуяндексом>, мой <e-mail>";
    Форма оплаты: перечисляю на любой кошелёк или банковский счёт;
    Сколько денег: задание будет выложено в канун 8 августа 2015-го. Победитель будет объявлен либо вечером в воскресенье, либо через неделю
    (ещё не решил, проголосуете), но объявлен будет (если он будет, бгг). Розыгрыш приза будет таковым: выигравший в первую половину срока получит
    две тыры, во вторую - четыре тыры. Вне зависимости от кол-ва подебителей, выбран будет тот, кто первым даст правильный ответ. Если правильного
    ответа не будет (а я стопроцентно в этом уверен) - Я раскрою, в чём же тут бага.
    Дисквалификация: обращение на форумы за помощью. Я всё вижу.

    Фтыкай ф каменты, камрад!

    DelphiGovno, 07 Августа 2015

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

  6. SQL / Говнокод #18394

    −163

    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
    SET DELETED ON
store 0 to r_klot,r_kpot,r_vspot,r_klgv,r_kpgv,r_vspgv,r_klvod,r_kpvod,r_vspvod,r_klngv,r_kpngv,r_vspngv
store 0 to r_klkan,r_kpkan,r_sumkan,r_klmys,r_kpmys,r_summys,r_klmys1,r_kpmys1,r_summys1,r_vspmys,r_vspkan,r_vspmys1
STORE 0 TO r_klmys2,r_kpmys2,r_summys2,r_vspmys2
STORE 0 TO r_klmys3,r_kpmys3,r_summys3,r_vspmys3
STORE 0 TO r_klmys4,r_kpmys4,r_summys4,r_vspmys4
STORE 0 TO r_klmys5,r_kpmys5,r_summys5,r_vspmys5
SELECT 2
USE tarif INDEX tarif SHARED
SELECT 1
use kw SHARED
SET RELATION TO kodtar INTO tarif
go top
do while .not. eof()
if kw.ot=0
r_klot=r_klot+1
r_kpot=r_kpot+kp
r_vspot=r_vspot+vsp
endif
if kw.gv#0 .or. prgvod=0
r_klgv=r_klgv+1
r_kpgv=r_kpgv+kp
r_vspgv=r_vspgv+vsp
endif
if kw.vod#0 .or. prv=0
r_klvod=r_klvod+1
r_kpvod=r_kpvod+kp
r_vspvod=r_vspvod+vsp
endif
IF tarif.tgv#0
r_klngv=r_klngv+1
r_kpngv=r_kpngv+kp
r_vspngv=r_vspngv+vsp
ENDIF
IF kw.kan#0
r_klkan=r_klkan+1
r_kpkan=r_kpkan+kp
r_sumkan=r_sumkan+kan
r_vspkan=r_vspkan+vsp
ENDIF
IF kw.mys#0
r_klmys=r_klmys+1
r_kpmys=r_kpmys+kp
r_summys=r_summys+mys
r_vspmys=r_vspmys+vsp
ENDIF
*газ.плита 2-х комфорочная
IF kw.gpp=1
r_klmys1=r_klmys1+1
r_kpmys1=r_kpmys1+kp
r_summys1=r_summys1+gps
r_vspmys1=r_vspmys1+vsp
ENDIF
*газ.плита 4-х комфорочная
IF kw.gpp=2
r_klmys2=r_klmys2+1
r_kpmys2=r_kpmys2+kp
r_summys2=r_summys2+gps
r_vspmys2=r_vspmys2+vsp
ENDIF
*нагреватель проточный (обычная колонка)
IF kw.gkp=1
r_klmys3=r_klmys3+1
r_kpmys3=r_kpmys3+kp
r_summys3=r_summys3+gks
r_vspmys3=r_vspmys3+vsp
ENDIF
*нагреватель емкостной, газовый (титан)
IF kw.gkp=2
r_klmys4=r_klmys4+1
r_kpmys4=r_kpmys4+kp
r_summys4=r_summys4+gks
r_vspmys4=r_vspmys4+vsp
ENDIF
*водоотведение
IF kw.yb#0
r_klmys5=r_klmys5+1
r_kpmys5=r_kpmys5+kp
r_summys5=r_summys5+yb
r_vspmys5=r_vspmys5+vsp
ENDIF
skip
enddo
REPORT FORM spr1r TO PRINTER prompt PREVIEW 
---
set date british
  select 2
 use sprstr index sprstr SHARED 
SET ORDER TO TAG KST OF SPRSTR.CDX
SELE 3
 USE TARIF INDEX TARIF SHARED
  select 1
 use kw index kw1 SHARED 

 set relation to kst into b,kodtar INTO c
SET FILTER TO ls=r_ls  
sdr=DTOC(thisform.text1.Value)
REPORT FORM subsid PREVIEW

    Вот такой пиздец мне надо сопровождать и дописывать. Судя по говённости кода, по уёбскому названию переменных, по дико ебланской манере писать код - аффтар из Дульфистов, только у них может получиться настолько уёбский код.

    DelphiGovno, 24 Июня 2015

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