Лучший говнокод за всё время

Лучший говнокод

В номинации:

Лучший рейтинг
Самый комментируемый

За время:

Perl / Говнокод #1167

−150

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50

use LWP::Simple;
use HTML::FormatText;
use Fcntl ':flock';
use DB_File;

for ($num = 0 ; $num <= 1900; $num=$num+25){

$url = "http://btk-online.ru/phcode/?curPos1=&curPos="."$num";

print $url."\n";

my $file = "text_in.txt";
my $file_out = "text_out.txt";

$connect = get($url) ;

$text = HTML::FormatText->format_string($connect);

open(MYFILE, ">" .$file) or die "Can't create file: $!";

flock(MYFILE, LOCK_EX);

print MYFILE $text, "\n";

flock(MYFILE, LOCK_UN);

$tie = tie( my @lines, DB_File , $file , O_RDWR , 0666 , $DB_RECNO)
  or die "Cannot tie file $file: $!\n";

for ( $line_number = 140; $line_number <= 317 ; $line_number++){

print $line_number "\n";

unless ( $line_number < $tie->length){

die "Didn't find line $line_number in $file \n";

}

open (YFILE, ">>" .$file_out) or die "Can't create file $! \n";

flock (YFILE, LOCK_EX);

print YFILE "$lines[$line_number-1] \n";

flock (YFILE, LOCK_UN);

}

}

Ребят ! Спасибо ! Едиственное быстро найденое средство перекинуть код с одной тачки на другую :)

guest, 08 Июня 2009

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

PHP / Говнокод #1154

+138.5

1

if (($rtw['noavt']==1) OR ($rtw['noavt']==1)) {$rtw['noavt']=0;}

guest, 05 Июня 2009

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

PHP / Говнокод #1152

+142.3

001
002
003
004
005
006
007
008
009
010
011
012
013
014
015
016
017
018
019
020
021
022
023
024
025
026
027
028
029
030
031
032
033
034
035
036
037
038
039
040
041
042
043
044
045
046
047
048
049
050
051
052
053
054
055
056
057
058
059
060
061
062
063
064
065
066
067
068
069
070
071
072
073
074
075
076
077
078
079
080
081
082
083
084
085
086
087
088
089
090
091
092
093
094
095
096
097
098
099
100

$my_cgi = $_SERVER['REQUEST_METHOD'] == 'GET' ? $_GET : $_POST;

	$fnumber = "";
	$fname="";
	$fjunction = "";
	$fstreet = "";
	$fintersectingstreet = "";
	$flocality = "";
	$fadministrative = "";
	$fpostalcode = "";
	$fsettlement = "";
	$flatitude = 0.0;
	$flongitude = 0.0;
	$fcoordtype = "";
	$ffreetext = "";
	$fuid = "";
	$fsettlement = "";
	$tnumber = "";
	$tname="";
	$tjunction = "";
	$tstreet = "";
	$tintersectingstreet = "";
	$tstreet = "";
	$tlocality = "";
	$tadministrative = "";
	$tpostalcode = "";
	$tsettlement = "";
	$tlatitude = 0.0;
	$tlongitude = 0.0;
	$tcoordtype = "";
	$tfreetext = "";
	$tuid = "";
	$method = "";
	$passenger = "";
	$return = "";
	$trainf = "";
	$traind = "";
	$flocate = "";
	$tlocate = "";

	/*****************************************************************************
	 * Decode URL
	 ****************************************************************************/
	while (list($my_key, $my_value) = each($my_cgi)) {
		if($my_key == "fname") {
			$fname = $my_value;
		} else if ($my_key == "fnumber" ) {
			$fnumber = $my_value;
		} else if($my_key == "fstreet") {
			$fstreet = $my_value;
		} else if($my_key == "fintersectingstreet") {
			$fintersectingstreet = $my_value;
		} else if($my_key == "flocality") {
			$flocality = $my_value;
		} else if($my_key == "fadministrative") {
			$fadministrative = $my_value;
		} else if ($my_key == "fpostalcode") {
			if ($my_key["fpostalcode"] != "") {
			$fpostalcode = $my_value;
			}
		} else if ($my_key == "fsettlement" ) {
			$fsettlement = $my_value;
		} else if ($my_key == "flatitude" ) {
			$flatitude = $my_value;
		} else if ($my_key == "flongitude" ) {
			$flongitude = $my_value;
		} else if ($my_key == "fcoordtype" ) {
			$fcoordtype = $my_value;
		} else if ($my_key == "fmatch_uid" ) {
			$fuid = $my_value;
		} else if ($my_key == "ffreetext" ) {
			$ffreetext = $my_value;
		} else if($my_key == "tname") {
			$tname = $my_value;
		} else if ($my_key == "tnumber" ) {
			$tnumber = $my_value;
		} else if($my_key == "tstreet") {
			$tstreet = $my_value;
		} else if($my_key == "tintersectingstreet") {
			$tintersectingstreet = $my_value;
		} else if($my_key == "tlocality") {
			$tlocality = $my_value;
		} else if($my_key == "tadministrative") {
			$tadministrative = $my_value;
		} else if ($my_key == "tpostalcode") {
			if ($my_key["tpostalcode"] != "") {
			$tpostalcode = $my_value;
			}
		} else if ($my_key == "tsettlement" ) {
			$tsettlement = $my_value;
		} else if ($my_key == "tnumber" ) {
			$tnumber = $my_value;
		} else if ($my_key == "tlatitude" ) {
			$tlatitude = $my_value;
		} else if ($my_key == "tlongitude" ) {
			$tlongitude = $my_value;
		} else if ($my_key == "tcoordtype" ) {
			$tcoordtype = $my_value;
		} else if ($my_key == "tmatch_uid" ) {
			$tuid = $my_value;

guest, 04 Июня 2009

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

ActionScript / Говнокод #1144

−285.8

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42

public function check():void {
    var gem:Gem;
    var counter:Number = 1;
    for (var i : int = 0; i < _cols; i++) {
        gem = null;
	counter = 1;
	for (var j : int = 0; j < _rows; j++) {
	    checkCell();
	}
    }
    for (var j : int = 0; j < _rows; j++) {
        gem = null;
	counter = 1;
	for (var i : int = 0; i < _cols; i++) {
	    checkCell();
	}
    }
    function checkCell():void {
        if (getCell(i,j).gem == gem) {
            counter++;
	} else {
	    if (counter>=GEMS_IN_ROW) {
	        checkLine(i, j-counter, i, j-1);
	    }
	    gem = getCell(i,j).gem;
	    counter = 1; 
	}
    }
    deleteCells();
}

private function checkLine(startX:Number, startY:Number, endX:Number, endY:Number):void {
    if (startX == endX) {
        for (var j : int = startY; j < endY; j++) {
            _cells[startY][j].toDelete = true;
        }
    } else {
        for (var i : int = startX; i < endX; i++) {
	    _cells[i][startY].toDelete = true;
	}
    }
}

знакомый осваивает программирование на флэше
жжот не по детски

guest, 04 Июня 2009

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

C++ / Говнокод #1124

+31

1
2

int qwer;
cin >> *&*&*&*&*&*&qwer;

оО

guest, 02 Июня 2009

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

PHP / Говнокод #1123

+139.5

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40

<?php
$qw=chr(32);  
$fp = fsockopen ("udp://77.239.192.43",28960, $errno, $errstr);  
if (!$fp)  
{  
return("Error");  
}  
else  
{  
fwrite($fp,"яяяяinfo");  
socket_set_timeout($fp,2,1);  
$st=fread($fp,1);  
print_r($st); 
$r=socket_get_status($fp);  
$r=$r["unread_bytes"]; 
@$st.=fread($fp,$r);  
fclose($fp);  
$tmp2=strpos($st,"sv_maxclients");  
$tmp1=strpos($st,"clients")+9;
$players = 0;  
$map=SubStr($st,0,StrPos($st,chr(0))); 
$show_map="<img src=./maps/".$map.".jpg width=\"160\" height=\"120\">"; 
if (($tmp2-$tmp1) >= 0)  
{  
  $players=substr($st,$tmp1,$tmp2-$tmp1);  
  $tmp2=strpos($st,"mapname")+8;  
  $map = substr($st,$tmp2,$tmp1-$tmp2-9);  

}  
}  
echo "";  

echo (" 
<b><font color=\"#000000\">Call of Duty2</font></b> 
<br> 
<b><font color=\"#000000\">$show_map</font></b> 
<br> 
<b><font color=\"#000000\">Игроков: $players</font></b> 
"); 
?>

говноскрипт мониторенга cod

guest, 02 Июня 2009

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

Си / Говнокод #1114

+131.2

1

WCHAR szSLASHSTARDOTSTAR[] = TEXT("\\*");  /* This is a single "\"  */

Из убежавших исходников Widnows 2000,
win2k\private\ntos\w32\ntuser\client\clg lobal.c

guest, 31 Мая 2009

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

Pascal / Говнокод #1113

+153

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28

program Drink;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,
  Windows;

const
  C: array[0..5] of Cardinal = ($64AABAB8, $54AAA288, $54AB3A90, $54AAAAA0, $563ABBB8,$60820000);
 
var
  I: Byte;
  B: PByte;
begin
  for I := 191 downto 0 do
  begin
    B := @C[I div 32];
    Inc(B, (I - (I div 32) * 32) div 8);
    if (B^ and (1 shl (I mod 8))) <> 0 then
      Write('X')
    else
      Write(' ');
    if (I mod 32) = 0 then
      Writeln('');
  end;
  ReadLn;
end.

guest, 31 Мая 2009

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

Pascal / Говнокод #1112

+133.5

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Windows;

const
  C: array[0..5] of Cardinal = ($4A9AAA90, $8AA33308, $8AA2AA88, $4C9AAA90, $22200, $822200);

var
  I: Byte;
  B: PByte;
begin
  for I := 191 downto 0 do
  begin
    B := @C[I div 32];
    Inc(B, (I - (I div 32) * 32) div 8);
    if (B^ and (1 shl (I mod 8))) <> 0 then
      Write('X')
    else
      Write(' ');
    if (I mod 32) = 0 then
      Writeln('');
  end;
  ReadLn;
end.

nickkk govnokod

guest, 31 Мая 2009

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

PHP / Говнокод #1108

+51.5

01
02
03
04
05
06
07
08
09
10

/*
 * adding data into report params array.
 */
$reportParams = array();
$reportParams += array(
			'id'			=> $ID, 
			'view_class'	=> $viewClass,
			'direct'		=> $direct,
			'clone'			=> $clone
		);

Суровые узбекские программисты делают так :)

guest, 30 Мая 2009

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

Говнокод: по колено в коде.