1. Лучший говнокод

    В номинации:
    За время:

  2. Assembler / Говнокод #306

    −232

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    push esp
push $00000101
mov eax,[$0044ee50]
mov eax,[eax] ;eax = 0
call eax

    Вызывал функцию WSAStartup в дельфе, но забыл из какого она юнита. Хелп показал 2 пункта WSAStartup, не подумал тупо скопировал IdWinsock (вместо Winsock). Запускаю - access violation. В дебагере ctrl+c. Дельфя скомпилила так, что в любом случае вылетает аксес :)

    guest, 29 Декабря 2008

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

  3. C# / Говнокод #298

    +887.2

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    if (current_switch == true)
{
//вырезано
}
else if (current_switch == false)
{
//вырезано
}

    Данный говнокод взят из журнала "ХАКЕР". Вот ссылка, http://www.xakep.ru/magazine/xs/071/076/1.asp

    хакеры пля...=\

    guest, 28 Декабря 2008

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

  4. C++ / Говнокод #247

    −46.6

    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
    switch (*p)
         {
            case '0': id += 0; break;
            case '1': id += 1; break;
            case '2': id += 2; break;
            case '3': id += 3; break;
            case '4': id += 4; break;
            case '5': id += 5; break;
            case '6': id += 6; break;
            case '7': id += 7; break;
            case '8': id += 8; break;
            case '9': id += 9; break;
            case 'a': case 'A': id += 10; break;
            case 'b': case 'B': id += 11; break;
            case 'c': case 'C': id += 12; break;
            case 'd': case 'D': id += 13; break;
            case 'e': case 'E': id += 14; break;
            case 'f': case 'F': id += 15; break;
            case 'g': case 'G': id += 16; break;
            case 'h': case 'H': id += 17; break;
            case 'i': case 'I': id += 18; break;
            case 'j': case 'J': id += 19; break;
            case 'k': case 'K': id += 20; break;
            case 'l': case 'L': id += 21; break;
            case 'm': case 'M': id += 22; break;
            case 'n': case 'N': id += 23; break;
            case 'o': case 'O': id += 24; break;
            case 'p': case 'P': id += 25; break;
            case 'q': case 'Q': id += 26; break;
            case 'r': case 'R': id += 27; break;
            case 's': case 'S': id += 28; break;
            case 't': case 'T': id += 29; break;
            case 'u': case 'U': id += 30; break;
            case 'v': case 'V': id += 31; break;
            case 'w': case 'W': id += 32; break;
            case 'x': case 'X': id += 33; break;
            case 'y': case 'Y': id += 34; break;
            case 'z': case 'Z': id += 35; break;
         }

    считаем нечто типа хэша. захотим изменить алгоритм, сделав вместо сложения - ксор, будем фаница реплейсом.
    источник http://www.winsim.com/diskid32/diskid32.cpp
    там же красивые переменные int ijk = 0;

    guest, 23 Декабря 2008

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

  5. Perl / Говнокод #138

    −379.3

    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
    sub pfexec { args "pfexec", @_ unless $1.$2 eq "pfexec";
  local ( $_, $lp, @rep ) = @_; $lp ||= 1;
  die 'Command string must not contain $$ sequences' if m/\$\$/o;
  1 while s/\(([^()]*)\)/'$$'.push(@rep,$1)/eo;
# print $_,"REP:\n","=>",join( "\n=>", @rep),"\n";
  unshift @rep, ""; s/\s+/ /g;

LOOP: while ( $lp-- ) {
        foreach ( split ";" ){
          my @cmd = split " "; $_ = shift @cmd; last unless m/^(\w{2})(\w+)/o;
CMD:  foreach (@cmd){
                1 while s/\$\$(\d+)/'('.$rep[$1].')'/eo; s/^\(\s*(.*?)\s*\)$/$1/so;
                s/^\%(\d+)->(\w+)=//    and ${$HASH[$1]} ->{$2} = $_ and next;
                /^\%(\d+)->(\w+)/               and $_ = ${$HASH[$1]} ->{$2} and redo CMD;

                /^%%(\d+)/      and $_ = $HASH[$1] || ( $HASH[$1] = \{} ) and next;
                /^\%(\d+)/      and $_ = ${$HASH[$1]} and next;
                /^\#\#(\d+)/ and $_ = $CHAN[$1] || ( $CHAN[$1] = \{} ) and next;
                /^\#(\d+)/      and $_ = ${$CHAN[$1]} and next;
          }
          $_ = $::control{$1} && $::control{$1}{$2};
          s/\^(\d+)/$cmd[$1-1]/geo and print "Expanded to: $_\n"
                and pfexec( $_ ) if !ref;
          args $1.$2, @cmd and eval { $_->(@cmd) } if "CODE" eq ref;
          last LOOP if $@;
        }
  }

    Так пишет мой коллега

    guest, 12 Декабря 2008

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

  6. C# / Говнокод #117

    +27

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    if (Monitor.TryEnter(this))
            {
                ...
            }
            else
            {
                // do not do anything
            }

    guest, 12 Декабря 2008

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

  7. PHP / Говнокод #107

    −37.4

    1. 1
    <?php }}}}}}} ?>

    Самое яркое впечатление от кода...

    guest, 11 Декабря 2008

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

  8. PHP / Говнокод #98

    +25.8

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    while(!$a){
      $rd = rand(1,999999);
      $mdrd = md5($rd);
      db_query("SELECT * FROM players WHERE mdid = '$mdrd' LIMIT 1;");
      $fla = db_fetch();
           if(empty($fla))
           $a=1;
           }

    Молодость...
    // Поиск уникального идентификатора для юзера в базу данных.

    guest, 10 Декабря 2008

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

  9. Python / Говнокод #15

    −215

    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
    # -*- coding: utf-8 -*-
q=0
def is_sym(li):
	l=li[:]
	if len(l)%2==1:
		l.pop(len(l)/2)
	half = l[:len(l)/2]
	sec_half = l[len(l)/2:]
	sec_half.reverse()
	if(half==sec_half):
		return True
def do_sym(li):
	global q
	l=li[:]
	while (is_sym(l)!=True):
		l.insert(len(l)-q,l[q])
		q=q+1
	return l
how_much=input("Сколько? ")
lis=[]
for z in range(1,how_much+1):
	lis.append(input("Введите число №%d: " % (z, )))
sym = do_sym(lis)
print q
res = ""
for z in range(0, len(sym)):
	res=res + "%d, " % (sym[z],)
print res

    Задание на школьную олимпиаду, что удивительно - работает.

    guest, 27 Ноября 2008

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

  10. Haskell / Говнокод #29172

    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
    64. 64
    65. 65
    66. 66
    67. 67
    68. 68
    (ql:quickload :blockchain)
(ql:quickload :quantum)
(ql:quickload :windows)
(ql:quickload :connector-5g)
(ql:quickload :connector-4g)
(ql:quickload :nft)
(ql:quickload :nn-lisp)
(ql:quickload :rl)
(ql:quickload :cl-cuda)
(ql:quickload :cl-tpu)
(ql:quickload :cl-blas)
(ql:quickload :cl-cublas)
(ql:quickload :cudnn)
(ql:quickload :spike)
(ql:quickload :sparse-tensor)
(ql:quickload :trivial-cpu)

(defpackage :skynet.core.nn
  (:use :cl))

;; AGPL 3.0
;; ALL RIGHTS ARE RESERVED

;;;; *-* Mode: Lisp *-*
;; Author: John McCarthy II
;; License: AGPL 3.0
;; File: skynet-nn.lisp
;; Filepath: skynet/core/skynet-nn.lisp
;;;;

(defun ai-cublas-tpu-engine-nft-innovative-algorithm-revolutionary-neural-network-blas-cudnn-5g-4g-quantum-blockchain-lstm-rnn-cnn-gru-fnn-fc-resnet-big-data-machine-learning-data-science (blockchain 5g ai)
  "Uploads information from the blockchain to artificial intelligence through modern technologies"

  ;; Initialize the blockchain and adapter

  (let* ((msg "GET_BLOCKCHAIN_AI_DATA")
            (data (or 
                         (connector-5g:load-data-from-server msg)
                         (connector-4g:load-data-from-server msg)))
            (nn-prediction (nn-lisp:forward ai data))
            (device (or
                           (tpu:is-available)
                           (gpu:is-available)
                           (trivial-cpu:get-device))))
  (setf (blockchain:data blockchain) nn-prediction)
  (setf (blockchain:silent-mode blockchain) nil)
  (setf (blockchain:backend blockchain) device)
  (blockchain:start-blockchain blockchain))

  ;; Now we need to use hardware acceleration

  (defun relu ())
  (defun sigmoid ())
   
  (setf #'relu (or #'cudnn:relu #'nnl2:relu)
           #'sigmoid (or #'cudnn:sigmoid #'nnl2:sigmoid)) 
   

  ;; We get a prediction of a modern neural network spike

  (let ((snn (spike:make-snn :in 4 :out 8 :reward (rl:make-q-table)))) (blockchain:transfer blockchain :to snn :alignment 4)
  (windows:make-snapshot)
  (quantum:lparallel #'(lambda () (spike:prediction :keyc #'relu :keyd #'sigmoid :to ai :meta (nft:get-latest-metadata))

  ;; We copy the AI data to the tensor and return

  (let ((data (sparse:make-tensor (nnl-lisp:data ai))))
    data))

    lisp-worst-code, 15 Августа 2025

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

  11. Си / Говнокод #29091

    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
    extern char* strcat( char* dest, const char* src );
extern int   printf ( const char * restrict format, ... );
extern int   putchar( int ch );

#define LISPER(n, l, re) ({                                                                                                     \
                auto int ii = l;                                                                                                          \
                static unsigned char n[l];                                                                                      \                           
                while (ii--) {                                                                                                             \
                    *str##n(n, (unsigned char[]){0x09 >> 1 << 1, 0x1911 >> 0xD});                \
                };                                                                                                                               \
                *((void**)&re) = printf((unsigned char[]){0x25, 0x73, 0x1917 >> 0xE}, n); \
                })

struct bombitterLemon{
    union {
        unsigned char   : 0;
        unsigned char   : 0;
        unsigned char v: 7;
    } pacific;
};

int main(void) {

    struct bombitterLemon b0; 

    LISPER(cat, 0x40 ^ (2 << 2), b0);
    (*putchar) (*(struct wtf**)&b0);
    LISPER(cat, ((int) (((char*)   (0x8 ^ (1 << 6))) - 3) | 1), b0);
    (**putchar) (*(struct is***)&b0);
    LISPER(cat, ((int) (((short*)  (0x9 << 3))) | 4), b0);
    (***putchar) (*(struct that****)&b0);
    LISPER(cat, ((int) (((int*)    (0x12 << 2))) | 4), b0);
    (**putchar) (*(unsigned char*****)&b0);
    LISPER(cat, ((int) (((long*)   (0x90 >> 1))) | 4 | 2 | 1), b0);
    (*putchar) (b0.pacific.v);

}

    Классический собесный говнокод для кунов на громкие позиции malware ANALyst, security дрист-searcher и даже (о, ужас) compiler devteam в известные шарашки.
    Шланг<15 и ICC жуют с говном не глядя. Чего не сказать о бычаре, дристающего на коврик.
    Осилил, анонимус? Поясни пацанам на пальцах за высер без единого include с ноября прошлого.

    Dulldonch1k, 13 Февраля 2025

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