Куча — Говнокод.ру

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

+122

1

Warning: file_get_contents(http://www.bbc.co.uk/radio1/programmes/schedules.xml) [function.file-get-contents]: failed to open stream: HTTP request failed! HTTP/1.1 404 Not Found in /home/atomzone/public_html/beta/at0m.rss.class.php on line 65

Случайно найдено на: http://atomzone.co.uk/beta/audio/Blue%20Sky%20Black%20Death
Я все понимаю, бета и все такое, но это же паблик бета...

wvxvw, 23 Июля 2010

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

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

+129

1
2

{{ object.xml_data.file.read|safe }}
{% if object.xml_data.file.close %}{% endif %}

Мой говнокод. Django template. Не хотелось писать отдельный view, забацал все в шаблоне + generic views. Лень страшная сила)
object.xml_data обычный FileField

sbb, 22 Июля 2010

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

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

+129

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

Author: decker <decker@personal-army>  2010-06-19 05:39:42
Committer: decker <decker@personal-army>  2010-06-19 05:39:42

    fix potential race in reservation id generation

@@ -97,7 +98,7 @@ public class VmInstances extends AbstractNamedRegistry<VmInstance> {
     do {
       MessageDigest digest = Hashes.Digest.MD5.get();
       digest.reset();
-      digest.update( Long.toString( rsvId + launchIndex + System.currentTimeMillis() ).getBytes() );
+      digest.update( Long.toString( rsvId + launchIndex + System.nanoTime( ) ).getBytes() );
 
       Adler32 hash = new Adler32();
       hash.reset();

Вот так суровые калифорнийцы сурово чинят race...

raorn, 13 Июля 2010

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

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

+135

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

0 DIM P(4): DIM R(4)
10 DATA 173, 48, 192, 136, 208, 5, 206, 1, 3, 240, 9, 202, 208, 245, 174, 0, 3, 76, 2, 3, 96,,0
20 FOR X=770 TO 792
30 READ Y
40 POKE X, Y
50 NEXT X
60 DATA 192, 152, 144, 128, 114
70 FOR I=0 TO 4
80 READ P(I)
90 NEXT I
100 DATA 255, 128, 64, 64, 128
FOR I=0 TO 4
READ R(I)
NEXT I
FOR I=0 TO 4
POKE 768, P(I)
POKE 769, R(I)
CALL 770
NEXT I
END

Не совсем ГК, зато выглядит страшно. Шарманка для ПЭВМ «Агат-7». Вторая строка — машинные коды. Выглядит как обфуска. Вот листинг:

.ORG 768

L_768: .BYTE 0 ; НОТА

L_769: .BYTE 0 ; ДЛИТЕЛЬНОСТЬ

L_770: LDA $C030

L_773: DEY

       BNE L_781

       DEC L_769

       BEQ L_790

L_781: DEX

       BNE L_773

       LDX L_768

       JMP L_770

L_790: RTS

       .BYTE $FF

       .BYTE 0

Кстати, таблица команд процессора совместима с 6502, поэтому листинг похож на демонстрировавшийся в фильме «Терминатор».
Строчки 7 и 11 — это массивы нот и длительностей соответственно.
Самое страшное, что этот код мы набирали на уроке информатики в восьмом классе. Представляете, что может произойти, если ошибиться во второй строке? Хорошо, что у «Агатов» винчестеров не было...

inkanus-gray, 13 Июля 2010

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

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

+129

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

for i in 14 15 27 29 38; do # make a sed string to replace special characters
    hexval=$(printf \\\\x%02x $i)
    sedstr=$sedstr"s/'$hexval/chr($i)||'/g;s/$hexval'/'||chr($i)/g;s/$hexval/'||chr($i)||'/g;"
done

cat <<EOF | sqlplus -S $DB_LOGIN | sed $sedstr | awk -v dbdir=db/data '{print > dbdir"/"$3".sql"}'
$SPINIT
BEGIN
  FOR i IN (SELECT * FROM USER_OBJECTS WHERE OBJECT_TYPE='TABLE' ORDER BY OBJECT_NAME) LOOP
    DECLARE
      all_cols VARCHAR2(32767) := '';
      TYPE data_cur_type IS REF CURSOR;
      data_cur data_cur_type;
      ins_str VARCHAR2(32767);
    BEGIN
      FOR j IN (SELECT DISTINCT(COLUMN_NAME) FROM USER_TAB_COLUMNS
                WHERE TABLE_NAME=i.OBJECT_NAME AND
                DATA_TYPE IN ('VARCHAR2', 'CHAR', 'NUMBER', 'DATE')
                ORDER BY COLUMN_NAME) LOOP
        all_cols := all_cols || j.column_name || ',';
      END LOOP;
      IF all_cols is null THEN GOTO end_of_loop; END IF;
      all_cols := RTRIM(all_cols,',');
    
      OPEN data_cur FOR 'select ' ||
       '''INSERT INTO ' || i.object_name || ' (' || all_cols || ') VALUES (' || '''''''||' || replace(all_cols, ',', '||'''''',''''''||') || '||'''''');''' ||
       ' from ' || i.object_name || ' order by ' || all_cols;
      LOOP
        FETCH data_cur INTO ins_str;
        EXIT WHEN data_cur%NOTFOUND;
        dbms_output.put_line(ins_str);
      END LOOP;
      CLOSE data_cur;
    END;
<<end_of_loop>> NULL;
  END LOOP;
END;
/
EOF

Проблеме экранирования посвящается.
На стыке технологий: экспорт данных из БД в виде insert-ов. Там еще есть awk-шный код по разбору всего, что получилось, но он не такой ужасный.
Автор я, если чо:)

nil, 13 Июля 2010

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

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

+89

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

## dup_hq - merge ##
 dup     = opos!=pos || abs(dm)<2 || abs(dm)==3 ? 0 : dcn*5<dbc && dnn*5<dbc && 
(dcn<1.25*thr || bn<bc && pos==lpos) || (dcn*dcn<dbc || dcn*5<dbc) && bn<bc && pos==lpos 
&& dnn<.9*dbc || dnn*9<dbc && dcn*3<dbc ? 1 : (dbc*dbc<dcn || dbc*5<dcn) && 
bb<bc && pos==lpos && dbb<.9*dcn || dbb*9<dcn && dbc*3<dcn ||  dbb*5<dcn && 
dbc*5<dcn &&  (dbc<1.25*thr || bb<bc && pos==lpos) ? -1 : 0
mer = bom==false && opos==pos && dup==0 && abs(dm)>2 && 
      (dbc*8<dcn || dbc*8<dbb || dcn*8<dbc || dcn*8<dnn || dbc*2<thr ||
       dcn*2<thr || dnn*9<dbc && dcn*3<dbc || dbb*9<dcn && dbc*3<dcn)


add  = bp1*cn2>bn2*cp1*(1+thr*.01) && bn0*cn2>bn2*cn0*(1+thr*.01) && 
          cn2*bn1>cn1*n2*(1+thr*.01)
dup  = bom ? (bn0>bp2 && bn0>=bp1 && bn0>bn1 && bn0>bn2 && cn0<125 ? 
         (d12*d12<d10 || d12*9<d10) ? 1 :  (d10*d10<d12 || d10*9<d12) ? 
         0 : 4 : bp1>bp3 && bp1>=bp2 && bp1>bn0 && bp1>bn1 ? 1 : 0) : dup!=0 ? 
         dup : om>0 && om<5 ? (bbool==false ? 0 : om==4 && bp1*cn1<bn1*cp1 ||
         om==3 && d10<d01 || om==1 ? -1 : 1) : om==5 ? (bp1*cp2>bp2*cp1*(1+thr*.01) && 
         bn0*cp2>bp2*cn0*(1+thr*.01) && cp2*bn1>cn1*bp2*(1+thr*.01) &&
         (add==false || cp2*bn2>cn2*bp2) ? -2 : add ? 2 : bn0*cp1>bp1*cn0 && 
         (bn0*cn1<bn1*cn0 || cp1*bn1>cn1*bp1) ? -1 : bn0*cn1>bn1*cn0 ? 1 : 0) : 0

это называется AviSynth - и это вполне нормальный скрипт, ибо другого пути там просто нет, да и альтернатив AviSynthy пока нет

3.14159265, 12 Июля 2010

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

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

+144

1

$a = true || false;

^)

ycuk, 12 Июля 2010

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

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

+84

1
2
3
4
5

<TABLE Border=0 cellpadding=1 cellspacing=1 width=100%>
<tr><td valign=top width=49%><table Border=0 cellpadding=0 cellspacing=0 width=100% height=100%><tr>
<td><TABLE valign=top Border=0 cellpadding=0 cellspacing=0 bgcolor=#EEEEEE width=100% height=100%>
<tr height=1><td align=center colspan=6 class=text2 bgcolor='#91A9B0'>Список подразделений</td></tr>
<tr height=1><td colspan=6 class='TablHeadText' bgcolor=#EDF1F2><a href='javascript:GoTown(1)'>.. наверх</a></td></tr><tr height=1><td align=center class=TitleName bgcolor=#E0E7E9>&nbsp;</td><td align=center class=TitleName bgcolor=#E0E7E9>Наименование</td><td align=center class=TitleName bgcolor=#E0E7E9>Бранч</td><td align=center class=TitleName bgcolor=#E0E7E9 Title='Группа'>Гр.</td><td align=center class=TitleName bgcolor=#E0E7E9 Title='Форма создания'>Инд. 1</td><td align=center class=TitleName bgcolor=#E0E7E9 Title='Целевая направленность'>Инд. 2</td></tr><tr><td bgcolor=#EDF1F2 width=1 align=right class=link vAlign=top>+</td><td bgcolor=#EDF1F2 class=linktext vAlign=top></td><td bgcolor=#EDF1F2 class='TablHeadText' align=center></td><td align=center bgcolor=#EDF1F2 class='TablHeadText' align=center>ГБ</td><td align=center bgcolor=#EDF1F2 class='TablHeadText' align=center>&nbsp;</td><td align=center bgcolor=#EDF1F2 class='TablHeadText' align=center>&nbsp;</td><td bgcolor=#E0E7E9 class='TablHeadText' align=center>DOH0</td><td align=center bgcolor=#E0E7E9 class='TablHeadText' align=center>РУ</td><td align=center bgcolor=#E0E7E9 class='TablHeadText' align=center>&nbsp;</td><td align=center bgcolor=#E0E7E9 class='TablHeadText' align=center>&nbsp;</td></tr>

и наверное килобайт 200 такого <td align=center bgcolor=#E0E7E9 class='TablHeadText'> треша

3.14159265, 09 Июля 2010

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

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

+82

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

<HTML>
<HEAD>
<TITLE>Коммерческий банк "ХОУМ-БАНК"</TITLE>
</HEAD>
<BODY>
<table border="0" width="100%">
   <tr align="center">
   <img src="/img/home.jpg" align="top">
   </tr>
</table>
</BODY>
</HTML>

Сайт банка "Хоум-банк" (http://www.home-bank.ru). Никаких тебе пхп и жабаскрипт! Новое слово в сайтостроении! При изменении информации соответствующе фотошоппится картинка!
Неудивительно, что у банка отозвана лицензия: http://www.lenta.ru/news/2010/07/08/homebank/

Webkill, 08 Июля 2010

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

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

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

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

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

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

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

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

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

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

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

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