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

    +151

    1. 1
    @$sel = $_POST["sel"]?$_POST["sel"]:$_GET["sel"];

    из огромной кучи (продолжение следует)

    guest, 24 Июля 2009

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

  2. Perl / Говнокод #1413

    −147

    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
    if (!@ARGV){
    die ("Usage: palindrom.pl word\n");
}
$text = $ARGV[0];
if (length($text) < 4){
    die ("Error: Word must be not less than 4 leters\n");
}
if ($text =~ m/(.)(.). ?\2\1/){
    print "Result: Match\n";
}
else{
    print "Result: Not match\n";
}

    Код как-бэ проверяет является ли слово палиндромом.
    На самом деле проверяются только первые два символа с начала и конца. То есть строка "alla123h5vj3galla" является палиндромом.

    guest, 23 Июля 2009

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

  3. Perl / Говнокод #1412

    −237.4

    1. 1
    print "Content-type: text/plane \n\n";

    текст/самолёт

    Собсно, тут даже Перл ни при чем, просто улыбнуло...

    guest, 23 Июля 2009

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

  4. VisualBasic / Говнокод #1411

    −363.8

    1. 1
    2. 2
    3. 3
    4. 4
    If dd.Items.Count < 1 Then
    dd.Items.Clear()
    ...
End If

    guest, 23 Июля 2009

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

  5. JavaScript / Говнокод #1410

    +166.8

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    if (document.getid.txtemail.value.search("@") == -1)
{
	alert("This is not a valid email account.");
	return(false);
}
//check for valid email address required.

    Нашел вот тут в одном индусском проекте, валидакия имейла XD

    guest, 23 Июля 2009

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

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

    +149

    1. 1
    2. 2
    3. 3
    $pizdeckakoyzaprosische = "SELECT DISTINCT direct_pay.*, t_user.name AS username, kart.nominal, kart.name AS kartname, exemplyar.serial, exemplyar.usdok, exemplyar.balance FROM direct_pay, t_user, t_dealer, kart, exemplyar WHERE direct_pay.id_device = t_user.id AND t_user.id = {$_SESSION['id']} AND exemplyar.id = direct_pay.id_kart AND exemplyar.id_kart = kart.id$sql$stord";
	$result = pg_query($dbconnk, $pizdeckakoyzaprosische);
	while ($row = pg_fetch_assoc($result)) {

    3-4 года назад.. начинал писать платежную систему.. до сих пор знакомый в коде разбирается :)

    guest, 23 Июля 2009

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

  7. Pascal / Говнокод #1408

    +128.5

    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
    program kot;

var r,i,j, z : integer ;
 famnom: array[1..11,1..26] of char;
Label lb1, lb2;

    begin

Assign(input, 'c:\pascal\kot.txt');
Reset(input);
 Assign(output, 'c:\pascal\tok.txt');
Rewrite(output);
for j:=1 to 10 do
for i:=1 to 26 do           (*каждому символу присваивается свой номер в массиве*)

 begin
 read(input,famnom[j,i]);
 write(famnom[j,i]);        (*исходные данные копируются в файл*)
 end;

writeln('');
writeln('');
close(input);

Assign(input, 'c:\pascal\kot.txt');
Reset(input);
begin


lb1 :   for j:=1 to 10 do
begin
      i:= 16;                            
while famnom[j,i]=famnom[j+1,i] do      
i:=i+1;                               (*блабла*)
if  famnom[j,i]<famnom[j+1,i] then    
begin
for i := 1 to 26 do
begin
famnom[11,i]:=famnom[j,i];            (*сравниваются символы короч*)
famnom[j,i]:=famnom[j+1,i];
famnom[j+1,i]:=famnom[11,i];


end;
goto lb1;
end;
end;
end;

for j:=1 to 10 do                
for i:= 1 to 26 do
begin
write(famnom[j,i]);

end;
close(input);
close(output);
end.

    Ужас какойто

    guest, 23 Июля 2009

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

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

    +108.1

    1. 1
    2. 2
    int i;
if(i/2 == i - i/2) { ... }

    Тоже из лабораторки. Проверка на четность

    guest, 23 Июля 2009

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

  9. Си / Говнокод #1406

    +140

    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
    char *bukva="qwertyuiopasdfghjklzxcvbnmQWERTYUIOPASDFGHJKLZXCVBNM";
char *cifra="1234567890";

//тут получаем строку

while((ch = getc(fp)) != EOF) {
    putc(ch,stdout);
    if(ch == ' ') {probel++; continue;}
    for (j = 0; j < (strlen(cifra)); j++) {
        if(ch == cifra[j])
            countcifra++;
    }

    for (j = 0;j < (strlen(bukva)); j++) {
        if(ch == bukva[j])
            countbukva++;
    }
 }

    Из лабораторки однокурсника. Подсчет количества букв и цифр в строке

    guest, 23 Июля 2009

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

  10. PHP / Говнокод #1405

    +143

    1. 1
    2. 2
    3. 3
    4. 4
    if (xmlHttp.status==200){
xmlResponse=xmlHttp.responseXML;
xmlDocumentElement=xmlResponse.documentElement;		helloMessage=xmlDocumentElement.firstChild.data;
}

    if (xmlHttp.status==200){
    xmlResponse=xmlHttp.responseXML;
    xmlDocumentElement=xmlResponse.documentE lement; helloMessage=xmlDocumentElement.firstChi ld.data;
    }

    guest, 23 Июля 2009

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