1. PHP / Говнокод #10629

    +65

    1. 1
    $new_array = explode('.sep.', implode('.sep', $old_array));

    Полезная функция с http://www.dzone.com/snippets/re-create-array-index

    Anon8yXubeVu, 08 Июня 2012

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

  2. Java / Говнокод #10628

    +125

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    9. 9
    // Handle Ctrl-1 ... Ctrl-9 keypresses
if (!event.isSpecialKey() && event.isControlKey()) {
	final int code = event.getKeyCode();
	
	if (code >= '1' && code <= '9') {
		// Technically, the keyCode is not the ASCII code and should not
		// be treated as such. Stupid JavaScript events. However, it
		// *just so happens* that for number keys these codes match their
		// ASCII codes. Luckily for us.

    someone, 08 Июня 2012

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

  3. JavaScript / Говнокод #10627

    +158

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    55. 55
    56. 56
    57. 57
    58. 58
    59. 59
    60. 60
    61. 61
    62. 62
    63. 63
    64. 64
    65. 65
    66. 66
    67. 67
    68. 68
    69. 69
    70. 70
    71. 71
    function check_email(_email)
{
  var letters = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ-_0123456789 ";
  var i = 0, j = 0;
  var match = false;

  if (_email.length == 0) {
    return false;
  }

  for (i = 0; i < _email.length; i++)
  {
    match = false;
    for (j = 0; j < letters.length; j++)
    {
      if (_email.charAt(i) == letters.charAt(j))
      {
        match = true;
        break;
      }
    }

    if (!match)
    {
      if (_email.charAt(i) == '.') {
        match = true;
      }
    }

    if(!match) {
      break;
    }
  }
 
  if (i >= _email.length) {
    return false;
  }
 
  if (_email.charAt(i++) != '@') {
    return false;
  }

  var dotpassed = false;

  while (i < _email.length)
  {
    var match = false;
    for (j = 0; j < letters.length; j++)
    {
      if (_email.charAt(i) == letters.charAt(j))
      {
        match = true;
        break;
      }
    }
 
  if (!match)
  {
    if (_email.charAt(i) == '.')
    {
      dotpassed = true;
      match = true;
    }
  }

  if (!match) return false;
  i++;
  }
 if (dotpassed) return true;
 return false;
}

    в недрах http://astro.smsonline.ru/

    Timon, 08 Июня 2012

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

  4. Pascal / Говнокод #10625

    +92

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    function THandlerServerCommands.CheckCommandOnDigits(const AComand: string;
  var AIndex: integer): Boolean;
var
  i, k: Integer;
  Nn, Ln: integer;
  TempComand: string;
begin
  Result := False;
  try
    TempComand := AComand;
    Ln := 1;
    Nn := 0;
    if FServerCommands.Find(TempComand, i) then
    begin
      AIndex := i;
      Result := True;
      Exit;
    end;

    for k := 1 to Length(AComand) do
    begin
      if not (AComand[k] in ['0'..'9']) then
        inc(Nn)
      else
      begin
        inc(Nn);
        if Nn > Ln then
        begin
          TempComand := '';
          TempComand := Copy(AComand, 1, Nn - 1);
          if FServerCommands.Find(TempComand, i) then
          begin
            AIndex := i;
            Result := True;
            Break;
          end;
        end;
        Ln := Nn + 1;
      end;
    end;
  except
    on e: Exception do
    begin
      Result := False;
      LogEx.Error('Ошибка в процедуре CheckCommandOnDigits c параметрами AComand = ' + AComand + ' ' + e.Message);
    end;
  end;
end;

    Проверьте код на запашок

    DeadIgle, 08 Июня 2012

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

  5. C++ / Говнокод #10624

    −33

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    CArray <CStyle *, CStyle *> m_aStyles;

...

#define RETURN_TRUE  return *bOk = TRUE, S_OK
#define RETURN_FALSE return *bOk = FALSE, S_FALSE
#define RETURN_ERROR(E) \
	return LastErrorCode = (ERROR_##E), *bOk = FALSE, S_FALSE

...

// Создание нового стиля (пустого)
STDMETHODIMP CEffector::AddStyle(VARIANT_BOOL *bOk)
{
	AFX_MANAGE_STATE(AfxGetStaticModuleState())
	
	CStyle *pNew = new CStyle;
	if (pNew)
	{
		INT n = m_aStyles.GetSize();
		m_aStyles.Add(pNew);
		if (m_aStyles.GetSize() <= n)
			RETURN_ERROR(MEMORY);
	}
	else
		RETURN_ERROR(MEMORY);
	RETURN_TRUE;
}

...

// Получение кода ошибки
STDMETHODIMP CEffector::GetErrorCode(long *p)
{
	AFX_MANAGE_STATE(AfxGetStaticModuleState())

	*p = LastErrorCode;
	LastErrorCode = ERROR_NONE;
	return S_OK;
}

    Мой первый COM-объект.
    1) Если при успешном возвращении метод должен возвращать S_OK, то при ошибке... S_FALSE, наверное.
    2) Только в Дельфи почему-то возвращается не HRESULT, а параметр, помеченный [out]. Поэтому пришлось добавить аргумент *bOk.
    3) Интересно, что делает CArray, когда кончается память.

    Steve_Brown, 08 Июня 2012

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

  6. PHP / Говнокод #10623

    +65

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    // если нужно вернуть json
if (request('json', false)) {
	echo "<html><head><script>
				document.domain = \"" . substr(\system\config\auth::SESSION_COOKIES_DOMAIN, 1) . "\";
			</script></head><body>";
	echo json_encode(array('status' => 'ok',
											   'data'   => array('hash'     => $file_id,
																 'duration' => $mediaFile->getDuration(),
																 'width'    => $mediaFile->getVideoWidth(),
																 'height'   => $mediaFile->getVideoHeight())));
	echo "</body></html>";
}

    А вам слабо вот так выводить JSON?

    WinnerWolf, 08 Июня 2012

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

  7. Ruby / Говнокод #10622

    −84

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    def self.allow_some_behaviour?
  # better safe than sorry.
  bool = !false ? !false : !!false

  # type checking
  if bool

    # short circuit just in case
    return !true;
  elsif !bool
    return !false
  end
end

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

    malleus, 08 Июня 2012

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

  8. Си / Говнокод #10621

    +137

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    55. 55
    56. 56
    57. 57
    58. 58
    59. 59
    #include<stdio.h>
#include<stdlib.h>
#include<math.h>
int main()
{
	long i, copy, n, temp;
	int *ar, j, k, flag, d1, d2;
	for(i=987654321; i>=123456789; i--)
	{		
		copy=i;
		ar=(int *)calloc(10, sizeof(int));
		while(copy>0)
		{
			if(copy%10==0)
				break;
			if(ar[copy%10]!=0)
				break;
			ar[copy%10]=1;
			copy/=10;
		}
		free(ar);
		if(copy==0)
		{				
			for(j=8; j>=5; j--)
			{
				flag=1;
				n=i/(long)pow(10, j);
				copy=i-n*(long)pow(10, j);
				for(k=2; k<=8 && flag; k++)
				{
					temp=n*k;
					if(temp>copy)
					{
						flag=0;
						break;
					}
					while(temp>0)
					{
						d1=temp/(long)pow(10, (int)log10(temp));
						d2=copy/(long)pow(10, (int)log10(copy));
						if(d1!=d2)
						{
							flag=0;
							break;
						}
						temp=temp-d1*(long)pow(10, (int)log10(temp));
						copy=copy-d2*(long)pow(10, (int)log10(copy));
					}
					if(copy==0)
					{
						printf("The pandigital number is %ld and the integer is %ld\n", i, n);
						return 0;
					}
				}
			}
		}
	}
	return 0;
}

    Очередной гений с пр. Ейлер:
    http://projecteuler.net/problem=38
    http://projecteuler.net/thread=38&page=8

    >Runtime: 14.86s on 2.67Ghz machine

    TheHamstertamer, 08 Июня 2012

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

  9. PHP / Говнокод #10619

    +57

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    $format   = $_[3];           # Format object

# Check for a format object
if (isset($_[3])) {
    $ixfe = $format->get_xf_index();
} else {
    $ixfe = 0x0F;
}

    Сначала присвоить, а потом проверить наличие - это сильно!
    Найдено в class.writeexcel_worksheet.inc.php - классе для заботы с .xls

    domaster, 08 Июня 2012

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

  10. C++ / Говнокод #10618

    −34

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    52. 52
    //cgi_http.cpp

#include "http.h"
#include <cstring>
#include <cstdlib>

//decodes uri-encorded string
char* uri_decode(char* source, char* dest)
{
//save pointer address for dest
char* p = dest;
char* src = source;

while(*src)
{
if(src == strstr(src,"%B8"))
{
*p = 'ё';
src = src + 3;
p++;
}
else if(src == strstr(src,"%E9"))
{
*p = 'й';
src = src + 3;
p++;
}
else if(src == strstr(src,"%F6"))
{
*p = 'ц';
src = src + 3;
p++;
}
else if(src == strstr(src,"%F3"))
{
*p = 'у';
src = src + 3;
p++;
}
else if(src == strstr(src,"%EA"))
{
*p = 'к';
src = src + 3;
p++;
}
else if(src == strstr(src,"%E5"))
{
*p = 'е';
src = src + 3;
p++;
}
.......

    Выкладываю свой чатик на С++. PHP не нужен.

    kukuk, 07 Июня 2012

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