Recomendados: The Daily WTF.

El día en que algo del código que escribo aparezca en The Daily WTF será el que me jubile voy a amargarme mucho (lo de la jubilación me pareció una apuesta demasiado alta... todos tenemos nuestros días. No quisiera que una función escrita a los apurones en un mal día me obligue a cumplir esa promesa).

Gracias a la cantidad de seguidores que tiene, es una fuente inagotable de delirios de código, burradas, situaciones delirantes y demás, todas ellas concienzudamente documentadas.

Para muestra dos botones extraídos de One In 3.4*10^38:

1) Kill the children (un poco fuerte el nombre de la función ¿no?):

Public Sub KillTheChildren()
   Dim objIntegrationAccount As IntegrationAccount

   For Each objIntegrationAccount In mcolItems
      Set objIntegrationAccount = Nothing
   Next

   Set objIntegrationAccount = Nothing
End Sub

2) Este es buenísimo, no me puedo explicar cómo se llega a esto:

If blnContinue Then
   If CreateConnection Then
      If DeleteData Then
         If CreateLocations Then
            If SaveServiceProviders Then
               If LoadServiceProviders Then
                  If LoadCategoryNames Then
                     If LoadFiveServiceProviders Then
                        If CalculateAllActivations Then
                           If UpgradesCalcNoExchange Then
                              If UpgradesCalcExchangeReturns
                                 ' (25 more levels here)
                              End If
                           End If
                        End If
                     End If
                  End If
               End If
            End If
         End If
      End If
   End If
End If

En el trabajo surgió esta regla: si estás escribiendo de la mitad de la pantalla para la derecha (por el anidamiento) algo está mal.

¿Alguien conoce algún sitio parecido en español?