- 1
int dayOfWeek = calendar.get(calendar.get(Calendar.DAY_OF_WEEK));-
Java / Говнокод #689
+73.6
guest,
10 Марта 2009
Комментарии (2) -
C# / Говнокод #688
+151
- 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
DESCRIBE TABLE name_org LINES count. "Кол-во организаций DESCRIBE TABLE targ_pos LINES count1. SORT name_org BY org. * SORT targ_pos BY org sign_dk shkzg regn_doc. IF count > 2. SORT targ_pos BY shkzg org regn_doc. ELSE. SORT targ_pos BY shkzg org sign_dk regn_doc. ENDIF. LOOP AT targ_pos. metka = sy-tabix. IF count > 2. CONCATENATE targ_pos-org targ_pos-shkzg INTO comp. ELSE. CONCATENATE targ_pos-org targ_pos-sign_dk targ_pos-shkzg INTO comp. ENDIF. IF comp <> comp1. IF metka <> 1. WRITE: AT /pole sy-uline. WRITE: AT /pole 'Итого: '. IF s_nds IS NOT INITIAL. WRITE: AT (14) snds UNDER targ_pos-nds NO-SIGN INPUT ON."<e1> ENDIF. WRITE: AT (15) ssum UNDER targ_pos-dmbtr NO-SIGN. PERFORM ad_itog USING comp1(10)"targ_pos-org shkzg snds ssum. SKIP 1. ENDIF. IF count > 2. READ TABLE name_org WITH KEY org = targ_pos-org BINARY SEARCH. ELSE. IF metka = 1. READ TABLE name_org WITH KEY org = 'ABCDE' BINARY SEARCH. ELSE. READ TABLE name_org WITH KEY org = targ_pos-org BINARY SEARCH. ENDIF. ENDIF. org = name_org-name.CONDENSE org. IF name_org-org NE 'ABCDE'. CONCATENATE org '(' name_org-org ')' INTO org SEPARATED BY ''. ENDIF. IF count > 2 AND metka = 1. READ TABLE name_org WITH KEY org = 'ABCDE' BINARY SEARCH. CONCATENATE name_org-name '-' org INTO org SEPARATED BY space. ENDIF. WRITE: AT /pole 'Плательщик:', org. "name_org-name. WRITE: AT /pole sy-uline. WRITE: AT /pole text-002, ' ' NO-GAP, text-003, ' ' NO-GAP, text-004, ' ' NO-GAP, text-010, ' ' NO-GAP, text-005. IF s_nds IS NOT INITIAL. "<e1> WRITE: text-006 RIGHT-JUSTIFIED. ELSE. WRITE: ' '. ENDIF. WRITE: text-007 RIGHT-JUSTIFIED, ' ' NO-GAP, text-008. WRITE: AT /pole sy-uline. * SKIP 1. snds = 0. ssum = 0. IF metka <> 1. comp = comp1. ENDIF. ENDIF. WRITE: AT /pole targ_pos-regn_doc HOTSPOT, ' ' NO-GAP, targ_pos-regn_dat, ' ' NO-GAP, targ_pos-acc_sch, ' ' NO-GAP, targ_pos-n_doc(6), ' ' NO-GAP, targ_pos-matkl(27) INPUT ON. WRITE: AT (15) targ_pos-dmbtr NO-SIGN, ' ' NO-GAP, targ_pos-hkont. HIDE: targ_pos-regn_doc, targ_pos-gjahr. shkzg = targ_pos-shkzg. if lv_flag is not initial. ADD targ_pos-nds TO snds. endif. ADD targ_pos-dmbtr TO ssum. IF count > 2. CONCATENATE targ_pos-org targ_pos-shkzg INTO comp1. ELSE. CONCATENATE targ_pos-org targ_pos-sign_dk targ_pos-shkzg INTO comp1. ENDIF. IF metka = count1. WRITE: AT /pole sy-uline. WRITE: AT /pole 'Итого: ', * AT (14) snds UNDER targ_pos-nds NO-SIGN INPUT ON, AT (15) ssum UNDER targ_pos-dmbtr NO-SIGN. PERFORM ad_itog USING comp1(10) "targ_pos-org shkzg snds ssum. ENDIF. ENDLOOP.Расширьте, пожалуйста, список доступных языков для говнокода.
guest,
10 Марта 2009
Комментарии (2) -
PHP / Говнокод #687
+144
- 1
$_SESSION['myass_closed']=true; guest,
10 Марта 2009
Комментарии (0) -
PHP / Говнокод #686
+164.9
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
if (USE_MAIN) { $templ = 'main'; .... } elseif (!USE_MAIN) { $used = USE_MAIN ? 1 : 0; $templ = 'default'; .... } ...... if ( !$used ) $templ = 'default';Вычищая один проект помимо всего прочего встретил такое чудо
guest,
08 Марта 2009
Комментарии (1) -
PHP / Говнокод #685
+148.3
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
// Prevent any possible XSS attacks via $_GET. foreach ($_GET as $check_url) { if (!is_array($check_url)) { $check_url = str_replace("\"", "", $check_url); if ((eregi("<[^>]*script*\"?[^>]*>", $check_url)) || (eregi("<[^>]*object*\"?[^>]*>", $check_url)) || (eregi("<[^>]*iframe*\"?[^>]*>", $check_url)) || (eregi("<[^>]*applet*\"?[^>]*>", $check_url)) || (eregi("<[^>]*meta*\"?[^>]*>", $check_url)) || (eregi("<[^>]*style*\"?[^>]*>", $check_url)) || (eregi("<[^>]*form*\"?[^>]*>", $check_url)) || (eregi("\([^>]*\"?[^)]*\)", $check_url)) || (eregi("\"", $check_url))) { die (); } } }PHP-Fusion Content Management System (C)
// напалмом по воробьям... guest,
08 Марта 2009
Комментарии (1) -
PHP / Говнокод #684
+139.9
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
function num_digits($number) { $rest = floor($number / 10); $i = 1; while ($rest >= 1) { $rest = floor($rest / 10); $i++; } return $i; }Взято с http://www.egoholic.ru/2009/03/php.html, что за бред?
guest,
08 Марта 2009
Комментарии (15) -
JavaScript / Говнокод #683
+228.7
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
var pas="WebKill"; function proverka() { var upas=document.wk.userpas.value; if(upas==pas) { location.href="dnevnik_webkill'a.html"; } else { alert('Тебе сюда нельзя!'); } }Хацкер блин =/
guest,
07 Марта 2009
Комментарии (22) -
Perl / Говнокод #682
−305.9
- 1
- 2
- 3
- 4
- 5
my @idx = map{ (split(/\|/, $_))[0] || () } map{ io($_)->chomp->slurp } io($boardsdir)->filter(sub{ my $f = fileparse($_->name, qr/.txt/i); $_->name =~ /\.txt$/i and grep{$_ eq $f} @board; })->all_files;Так бывает, когда хочется одним предложением сказать все.
guest,
07 Марта 2009
Комментарии (3) -
PHP / Говнокод #681
+136.9
- 1
- 2
$Fp = join("", file("Logs.txt")); $Fp1 = explode("\r\n\r\n", $Fp);Норм сиги
guest,
07 Марта 2009
Комментарии (2) -
PHP / Говнокод #680
+140.1
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
//cache control side box detect if ((USE_CACHE == 'true') && empty($SID) && ($column['cfgtitle'] == 'categories1.php') ) { echo tep_cache_categories_box(); } else if ((USE_CACHE == 'true') && empty($SID) && ($column['cfgtitle'] == 'categories.php') ) { echo tep_cache_categories_box(); } else if ((USE_CACHE == 'true') && empty($SID) && ($column['cfgtitle'] == 'categories2.php') ) { echo tep_cache_categories_box1(); } else if ((USE_CACHE == 'true') && empty($SID) && ($column['cfgtitle'] == 'categories3.php') ) { echo tep_cache_categories_box3(); } else if ((USE_CACHE == 'true') && empty($SID) && ($column['cfgtitle'] == 'categories4.php') ) { echo tep_cache_categories_box4(); } else if ((USE_CACHE == 'true') && empty($SID) && ($column['cfgtitle'] == 'categories5.php') ) { echo tep_cache_categories_box5(); } else if ((USE_CACHE == 'true') && empty($SID) && ($column['cfgtitle'] == 'coolmenu.php') ) { echo tep_cache_coolmenu(); } else if ((USE_CACHE == 'true') && empty($SID) && ($column['cfgtitle'] == 'manufacturers.php') ) { echo tep_cache_manufacturers_box(); } else { require(DIR_FS_TEMPLATE_BOXES . '/' . $column['cfgtitle']); }Хотите интернет-магазин? Не спрашивайте про крелоад.
guest,
06 Марта 2009
Комментарии (2)
Follow us!