- 1
 - 2
 - 3
 - 4
 - 5
 - 6
 - 7
 - 8
 - 9
 
<?php
header('content-type: application/x-javascript; charset=windows-1251');
// Здесь сам скрипт
 print 'document.write("' . $quote . '");';
 ?>
                                    Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+163
<?php
header('content-type: application/x-javascript; charset=windows-1251');
// Здесь сам скрипт
 print 'document.write("' . $quote . '");';
 ?>
                                    
            А вот до такого еще додуматься надо.
http://letopisi.ru/index.php/Знаете-ли-что%3F_скрипт
        
+157
function utf8win1251($s){
  $out=""; $c1=""; $byte2=false;
  for ($c=0;$c<strlen($s);$c++){
    $i=ord($s[$c]); if ($i<=127) $out.=$s[$c];
    if ($byte2) { $new_c2=($c1&3)*64+($i&63); $new_c1=($c1>>2)&5;
      $new_i=$new_c1*256+$new_c2;
      if ($new_i==1025) $out_i=168; else
      if ($new_i==1105) $out_i=184; else $out_i=$new_i-848;
      $out.=chr($out_i); $byte2=false; }
    if (($i>>5)==6) {$c1=$i;$byte2=true; } }
 return $out; }
                                    
            Я ничо не понял, но это круто.
http://letopisi.ru/index.php/Знаете-ли-что%3F_скрипт
        
+135
                
+146
Делфи есть светочь всего человечества... 
и мне всё пофиг...
СИонистам просьба тут слюной не брызгать...
тут обсуждать только величие великого паскаля и его семейство... можно также чуть чуть о обероне и модуле...
положительно воспринимаються стихи и песни про дельфиноф в героическом ракурсе (например о героических победах в холиварах против СИПиПишникоф)
всякие джокеры, лакмусы и прочие нупы - фтопку, кг/ам, йаду...
                                    
http://www.gamedev.ru/flame/forum/?id=12560
        
        
        
        +144
# /* [  <!-- */ include  <stdio.h> /*   \
  #{\
`""""true \\#{"\n#"};           \
  \
if [ -n "$ZSH_VERSION" ]; then           \
  \
  echo exec  echo I\'m a zsh script.; \
  \
elif [ -n "$BASH_VERSION" ]; then        \
  \
  echo exec  echo I\'m a bash script.; \
else  \
  echo exec  echo  I\'m  a sh  script.;    \
fi`;  #\
BEGIN{print"I'm a ", 0 ? "Ruby"  :"Perl",  " program.\n";  exit; } 
  #\
%q~            
  
set dummy =0; puts [list "I'm"  "a"  "tcl"  "script."]; exit   
  
all: ; @echo "I'm a Makefile."          \
  #*/
/*: */ enum {a, b};            \
  \
static int c99(void) {         
  
#ifndef __cplusplus /* bah */        
  
unused1: if ((enum {b, a})0)          \
  (void)0;
#endif           
  
unused2:  return a;     \
}  \
static int trigraphs(void) {         \
  \
  return sizeof  "??!"  ==  2;    \
}  \
char X;               \
  \
int main(void) {             \
  \
  struct X  {        \
  \
     char  a[2];    \
  };\
  if (sizeof(X)  !=  1) {       \
  \
printf("I'm a C++ program (trigraphs %sabled).\n",         \
  \
   trigraphs()  ? "en"  : "dis");\
  \
}else if (1//**/2
 
 
)unused3 : { ; \
    printf("I'm a C program (C%s, trigraphs %sabled).\n", \
        c99() ? "89 with // comments" : "99", \
        trigraphs() ? "en" : "dis"); \
  } else { \
    printf("I'm a C program (C89, trigraphs %sabled).\n", \
        trigraphs() ? "en" : "dis"); \
  } \
  return 0; \
} /*
# \
> main :: IO () -- -- \
> main = putStr "I'm a Literate Haskell program.\n"
# \
]>++++++++[<+++++++++>-]<+.>>++++[<++++++++++>-]<-.[-]>++++++++++ \
[<+++++++++++>-]<-.>>++++[<++++++++>-]<.>>++++++++++[<++++++++++> \
-]<- - -.<.>+.->>++++++++++[<+++++++++++>-]<++++.<.>>>++++++++++[ \
<++++++++++>-]<+++++.<<<<+.->>>>- - -.<+++.- - -<++.- ->>>>>+++++ \
+++++[<+++++++++++>-]<- - -.<<<<<.<+++.>>>.<<<-.- ->>>>+.<.<.<<.> \
++++++++++++++.[-]++++++++++"""`
# \
print "I'm a Python program."; """[-][--><html><head>
<!--:--><title>I'm a HTML page</title></head><body>
<!--:--><h1>I'm a <marquee><blink>horrible HTML</blink></marquee> page</h1>
<!--:--><script language="JavaScript">
<!--: # \
setTimeout( // \
  function () { // \
   document.body.innerHTML = "<h1>I'm a javascript-generated HTML page</h1>"; // \
  }, 10000); // \
//-->
</script><!--: \
</body></html><!-- } # \
say "I'm a Perl6 program", try { " ($?PUGS_VERSION)" } // "", "."; # """ # */
#define FOO ]-->~
                                    
            Может боян, конечно, но этот код реально компилится и работает на 15 разных языках программирования без изменений.
Работает в C(x2), C++, Haskell, Ruby, Python, Perl(x2), HTML, tcl, bash, zsh, make, bash и brainfuck.
        
+147
$prim = mysql_result($result,$i,"prim");
$gruz = mysql_result($result,$i,"gruz");
$kuzov = mysql_result($result,$i,"kuzov");
$o_strana = mysql_result($result,$i,"o_strana");
$o_gorod = mysql_result($result,$i,"o_gorod");
$k_strana = mysql_result($result,$i,"k_strana");
$k_gorod = mysql_result($result,$i,"k_gorod");
$stavka = mysql_result($result,$i,"stavka");
$data = mysql_result($result,$i,"data");
$m3 = mysql_result($result,$i,"m3");
$ves = mysql_result($result,$i,"ves");
$valuta = mysql_result($result,$i,"valuta");
$firstname = mysql_result($result,$i,"firstname");
$lastname = mysql_result($result,$i,"lastname");
$middlename = mysql_result($result,$i,"middlename");
$phone = mysql_result($result,$i,"phone");
$cb_icq = mysql_result($result,$i,"cb_icq");
$cb_skype = mysql_result($result,$i,"cb_skype");
$cb_company = mysql_result($result,$i,"cb_company");
$cb_org = mysql_result($result,$i,"cb_org");
$cb_profession = mysql_result($result,$i,"cb_profession");
                                    пробуем сервер баз данных на выносливость...
+64
boolean i = true;
  while (i){
   out.println("\n");
  }
                                    Нашлось в недрах работающей программы
+146
#if LINUX_VERSION_CODE < KERNEL_VERSION(2,6,27)
 kill_proc(1,SIGTERM,1);
 #else
...
                                    
            Оригинальный способ проверить версию ядра линукса... 
Где-то в сырцах реалтековского драйвера для GPIO...
        
+164
FrmCabinetFound *frm = new FrmCabinetFound(index.data(Qt::UserRole).toInt());
    ((QMdiArea*)this->parent()->parent()->parent())->addSubWindow(frm);
    frm->show();
                                    
+100
case
   0: FilterList.Add('RCHECK = '+''''+'+'+'''');
   1: FilterList.Add('RCHECK = '+''''+'-'+'''');
...
                                    
            Автор кода жжот. Код реально работает. Но прочитать такое даже автор по прошествии года не сможет.
Можно было проще 
  0:FilterList.Add('RCHECK = ''+''');