Код уморил

Страницы: «1» «2» «3» «4»

Встретил у коллеги подобный код.

procedure TfmChannels.ListBoxAExit(Sender: TObject);
begin
  if .... then
  begin
    .....
  end;
//  else
  begin
    .....
  end;
end;

Ха, удивил!
У нас на предприятии целый отдел "программистов", 80% которых - пацанчики слегка за 70 и тёлки слегка за 60. Они там на С++Билдере проги мастырят. Мне попадались ихние исходники - это что-то! Индусы и китайцы нервно курят в коридоре! Вот, например, открываю первый попавшийся модуль. Зацени функцию:

long (*_IFRA)();
int _AVAR;
static char bufd[30];
static int pr_osh,posl_str,k;
static char dl,stbadr,mlbadr;
static char bufstr[100];
int wkdpk::fpr_str()
{
  unsigned char ts,kod,ks;
  int adr,sk,chet,i,pr_z;
  pr_z=0;
  ks=0;
  k=0;
  bufd[k]=0x83;  k++;
  for(i=0;i<100;i++)
  {
    ts=bufstr[i];
    if(i==0)
    {
     if(ts!=':')
      {pr_osh=1;  break;  }
     else continue;
    }
    if(ts==0)
     {pr_osh=3;  break;   }
    if(ts=='\n')
     {
      if(pr_z==1)
       {pr_osh=0; break; }   /* Правильный выход  */
      else
       {pr_osh=4; break; }
     }
    switch (ts)
    {
     case '0': {kod=0;  break; }
     case '1': {kod=1;  break; }
     case '2': {kod=2;  break; }
     case '3': {kod=3;  break; }
     case '4': {kod=4;  break; }
     case '5': {kod=5;  break; }
     case '6': {kod=6;  break; }
     case '7': {kod=7;  break; }
     case '8': {kod=8;  break; }
     case '9': {kod=9;  break; }
     case 'A': {kod=0xA;  break; }
     case 'B': {kod=0xB;  break; }
     case 'C': {kod=0xC;  break; }
     case 'D': {kod=0xD;  break; }
     case 'E': {kod=0xE;  break; }
     case 'F': {kod=0xF;  break; }
     default: {pr_osh=5;  break; }
    }
    if(pr_osh==5)  break;
    if(i==1) dl=kod<<4;
    if(i==2) dl=dl+kod;
    if(i==3) stbadr=kod<<4;
    if(i==4) stbadr=stbadr+kod;
    if(i==5) mlbadr=kod<<4;
    if(i==6)
     {
      mlbadr=mlbadr+kod;
      ks=0;
      bufd[k]=stbadr;  ks=ks+bufd[k]; k++;
      bufd[k]=mlbadr;  ks=ks+bufd[k]; k++;
      bufd[k]=dl;  ks=ks+bufd[k]; k++;
      bufd[k]=(0400-ks)&0377; k++;
      ks=0;
     }
    if(i==7) sk=kod<<4;
    if(i==8)
     {
      sk=sk+kod;
      if(sk==1) posl_str=1;
     }
    if((i>8)&&(i<(dl*2+9)))
     {
      if((i&1)==1)        /* нечетное    */
       bufd[k]=kod<<4;
      else                 /*четное  */
       {
        bufd[k]=bufd[k]|kod;
        ks=ks+bufd[k];             /*контрольная сумма   */
        k++;
       }
     }
     if(i==dl*2+10)
      {
       pr_z=1;
       bufd[k]=(0400-(ks&0377))&0377;
       k++;
      }
  }
  return pr_osh;
}

Могу прислать ещё примеров.

Жги!
Для того тему и создавал.

Тема Проблемы с Run выдала следующий шедевр. Сам не с первого раза заметил, обратите внимание на обработчики для кнопок klienti и dokumenti.

Вопрос № 5007.

if StringGrid4.Cells[1,i]='' then s := s+0
else s := s + StrToFloat(StringGrid4.Cells[1,i]);

Так сказать, а мы пойдем другим путём!

javascript:

  eval("ifName.value = ifn");
  // а вот просто написать ifName.value = ifn ну никак нельзя
 
  for (var i = 0; i < maxSp; i++)
  {
    eval("proxyAddr" + i + ".value = pa"+i);
    eval("proxyPort" + i + ".value = pp"+i);
    eval("obProxyAddr" + i + ".value = oa"+i);
    eval("obProxyPort" + i + ".value = op"+i);
.................

ну вот никак нельзя без eval, а массивы - это зло, я так понимаю?

  if ('192.168.1.10' != '0.0.0.0') {  // а оно может быть иначе?
    eval("enblProxy" + i + ".checked = true");
    eval("hideProxyInfo(0, " + i + ")");
  } else {
    eval("enblProxy" + i + ".checked = false");
    eval("hideProxyInfo(1, " + i + ")");
  }
 
  if ('192.168.1.10' != '0.0.0.0') {  // ну ещё раз проверим
    eval("enblOutbound" + i + ".checked = true");
    eval("hideOutboundInfo(0, " + i + ")");
  } else {
    eval("enblOutbound" + i + ".checked = false");
    eval("hideOutboundInfo(1, " + i + ")");
  }
 
   // на 67887655-ой попытке сервер пентагона согласился, что...
  if ('192.168.1.10' != '0.0.0.0') {
    eval("enblReg" + i + ".checked = true");
    eval("hideRegInfo(0, " + i + ")");
  } else {
    eval("enblReg" + i + ".checked = false");
    eval("hideRegInfo(1, " + i + ")");
  }
............

и это код от одного из известнейших мировых производителей всякого железа!
и ведь мне это разбирать...

упс... что-то с кодом стало. все служебные слова-символы исчезли

Цитата (Егор):

Спасибо за находку, подсветка JS поправлена.

не давайте код на с++ программисту-сишнику! ибо...

    string wpa_pairwise = ......
.....
    const char *pairwise = wpa_pairwise.c_str();
    if(!strcmp(pairwise, "TKIP") ||
       !strcmp(pairwise, "CCMP") ||
       !strcmp(pairwise, "TKIP CCMP"))
    {
     .....

fprintf(fs, "<option
value=''>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</option>\n");

это попытка сделать выпадающий список на странице широооооооким

ну и классика жанра

if(cb.checked == true)
{
    chkOmci.checked = true;
    chkModel.checked = true;
.... // куча аналогичного кода
    chkFile.checked = true;
}
else
{
    chkOmci.checked = false;
.... // куча аналогичного кода
    chkFile.checked = false;
}