По колено в коде — Говнокод.ру

1C / Говнокод #28550

0

1
2
3
4
5
6
7
8

Функция ЗначениеКонстанты(ИмяКонстанты) Экспорт
 
 Если  ИмяКонстанты = "_ИмяФайловогоСервера" тогда
  возврат "jrumos03fscp010";
 КонецЕсли;
 
 Возврат Константы[ИмяКонстанты].Получить();
КонецФункции

Файловый сервер может быть только такой.

TrollNeedsDoll, 11 Января 2023

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

Java / Говнокод #28543

+1

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

static private Double getHashString(String string, Integer foundation){
    Double hash = 0.0 ;
    short [] charsToInteger = getCharArray(string);
    double step = Double.MAX_VALUE / 256 - foundation;
    for (int i = 0; i < charsToInteger.length ; i++ ){
        hash += charsToInteger[i] * step;
        step = step / 2 - 1;
    }
    return hash;
}

static private short [] getCharArray(String string){
    char [] chars = string.toLowerCase().toCharArray();
    short [] bytes = new short [chars.length];
    for (int i = 0; i < chars.length; i++){
        bytes [i] = (short) (chars[i] & 0x00FF);
        //System.out.println("bytes [" + i + "] = " + bytes[i]);
    }
    return bytes;
}

Вычисление сигнатуры строки для её применения в сортировке строк в алфавитном порядке по всем символам
https://habr.com/ru/post/709406/ / https://itnan.ru/post.php?c=1&p=709406
https://github.com/Helgi-cell/HashStringAlphabetical

ISO, 08 Января 2023

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

Haskell / Говнокод #28539

0

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

#!/usr/bin/guile -s
!#

(define (pt n s)
  (cond ((< n 1) 0)
        ((= n 1) 1)
        ((= s 0) 0)
        ((= s 1) 1)
        ((= s n) 1)
        ((> s n) 0)
        (else (+ (pt (- n 1) s) (pt (- n 1) (- s 1))))))

(display (pt 1 1)) ;; 1
(newline)

(display (pt 3 2)) ;; 2
(newline)

(display (pt 5 3)) ;; 6
(newline)

Лисп-загадка: угадайте, что делает этот (вышеприведённый) код.

JloJle4Ka, 05 Января 2023

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

Perl / Говнокод #28535

0

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

#!/usr/bin/guile -s
!#

(define (square x)
  (* x x))

(define (square_sum x y)
  (+ (square x) (square y)))

(define (tmax x y z)
  (cond ((and (>= x y) (>= x z)) x)
        ((and (>= y x) (>= y z)) y)
        (else z)))

(define (tms x y z)
  ((cond ((= (tmax x y z) x)
          (if (> y z)
              (square_sum x y)
              (square_sum x z)))
         ((= (tmax x y z) y)
          (if (> x z)
              (square_sum x y)
              (square_sum y z)))
         ((= (tmax x y z) z)
          (if (> x y)
              (square_sum x z)
              (square_sum y z)))
         (else 0))))

(display "Ans: ")
(display (tms 6 5 4))
(newline)

Почему не работает?

JloJle4Ka, 02 Января 2023

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

Assembler / Говнокод #28534

−3

1

Зачем простенькие проги, написанные на MASM коннектятся к ip адресу Microsoft 20.99.133.109:443?

BelCodeMonkey, 01 Января 2023

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

Python / Говнокод #28531

−2

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16

key_base_len = random.randint(30,61)
key_base = bytearray(key_base_len)
for i in range(key_base_len):
    key_base[i] = random.randint(0,255)

key = bytearray(8)
key[0] = chip_uid_chksum ^ key_base[ 4 * (key_base_len // 7)]
key[1] = chip_uid_chksum ^ key_base[      key_base_len // 5 ]
key[2] = chip_uid_chksum ^ key_base[      key_base_len // 7 ]
key[3] = chip_uid_chksum ^ key_base[ 6 * (key_base_len // 7)]
key[4] = chip_uid_chksum ^ key_base[ 3 * (key_base_len // 7)]
key[5] = chip_uid_chksum ^ key_base[ 3 * (key_base_len // 5)]
key[6] = chip_uid_chksum ^ key_base[ 5 * (key_base_len // 7)]
key[7] = (chip_id + key[0]) & 0xff

return key, key_base

Китайцы и криптография.

Сначала программатор отдаёт контроллеру key_base, а затем юзает key чтобы ксорить с ним заливаемую прошивку.

bormand, 31 Декабря 2022

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

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

0

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

table inet filter {
    set open_ports {
        type inet_proto . inet_service
        counter
        elements = { tcp . 123 counter packets 0 bytes 0,
                 udp . 123 counter packets 0 bytes 0,
                 tcp . 456 counter packets 0 bytes 0,
                 tcp . 567 counter packets 0 bytes 0 }
    }

    chain input {
        type filter hook input priority filter; policy drop;
        iifname "eth*" ct state established,related accept
        iifname "eth*" ct state invalid drop
        iifname "eth*" ct state new meta l4proto . th dport @open_ports accept
    }
}

«nftables» — охуенны.

ISO, 30 Декабря 2022

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

Haskell / Говнокод #28529

0

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

;; Sound.
(xbindkey '(Alt F7) "amixer set Master 1%-")
(xbindkey '(Alt F8) "amixer set Master 1%+")

(define muted 0)
(run-command "amixer set Master 3%")

(xbindkey-function '(Alt F6)
                   (lambda()
                     (cond ((equal? muted 0)
                            (run-command "amixer set Master 0%")
                            (set! muted 1)
                            )
                           (else (begin
                                   (run-command "amixer set Master 3%")
                                   (set! muted 0)
                                   ))
;; какой багор
                           )))

Линукс-загадка!

JloJle4Ka, 30 Декабря 2022

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

C++ / Говнокод #28528

+1

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15

ListNode* mergeTwoLists(ListNode* list1, ListNode* list2) {
        bool f;
        ListNode* t;
        return (ListNode*)
            ( 
                (!list1 * (unsigned long long)list2) + 
                (!list2 * (unsigned long long)list1) +
                ((!!list1 && !!list2 && 
                    (
                        ((f = (list1 -> val <= list2 -> val)) && (t = list1, list1->next = mergeTwoLists(list1 -> next, list2)))||
                        ((!f) && (t = list2, list2->next = mergeTwoLists(list1, list2->next)))
                    )
                ) * (unsigned long long)t)
            ); 
    }

2022. Хабр. Итоги.