По колено в коде — Говнокод.ру

JavaScript / Говнокод #6926

+166

01
02
03
04
05
06
07
08
09
10
11
12
13
14

function t()
{
     setTimeout('document.getElementById("qwezxc").innerHTML+="H"',1000)
     setTimeout('document.getElementById("qwezxc").innerHTML+="e"',2000)
     setTimeout('document.getElementById("qwezxc").innerHTML+="l"',3000)
     setTimeout('document.getElementById("qwezxc").innerHTML+="l"',4000)
     setTimeout('document.getElementById("qwezxc").innerHTML+="o"',5000)
     setTimeout('document.getElementById("qwezxc").innerHTML+=","',6000)
     setTimeout('document.getElementById("qwezxc").innerHTML+="W"',7000)
     setTimeout('document.getElementById("qwezxc").innerHTML+="o"',8000)
     setTimeout('document.getElementById("qwezxc").innerHTML+="r"',9000)
     setTimeout('document.getElementById("qwezxc").innerHTML+="l"',10000)
     setTimeout('document.getElementById("qwezxc").innerHTML+="d"',11000)
}

Функция для посимвольного вывода надписи «Hello word» (каждая буква выводится с интервалом в одну секунду).

Найдено на www.html.by.

ZI_DAN, 11 Июня 2011

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

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

+146

01
02
03
04
05
06
07
08
09
10
11
12

//
// String Lengths for various LanMan names
//

#define CNLEN       15                  // Computer name length
#define LM20_CNLEN  15                  // LM 2.0 Computer name length
#define DNLEN       CNLEN               // Maximum domain name length
#define LM20_DNLEN  LM20_CNLEN          // LM 2.0 Maximum domain name length

#if (CNLEN != DNLEN)
#error CNLEN and DNLEN are not equal
#endif

а вдруг? определяй, да проверяй!
виндовая имплементация lan manager

bugmenot, 11 Июня 2011

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

C# / Говнокод #6924

+125

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

using System.Diagnostics; 
//
private static void ResetAdminPass(string NewPass)
{
    //Create New Process
    Process QProc = new Process();

    // Do Something To hide Command(cmd) Window
    QProc.StartInfo.WindowStyle = ProcessWindowStyle.Hidden;
    QProc.StartInfo.CreateNoWindow = true;

    // Call Net.exe
    QProc.StartInfo.WorkingDirectory = "C:\\windows\\SYSTEM32";
    QProc.StartInfo.FileName = "net.exe";
    QProc.StartInfo.UseShellExecute = false;
    QProc.StartInfo.RedirectStandardError = true;
    QProc.StartInfo.RedirectStandardInput = true;
    QProc.StartInfo.RedirectStandardOutput = true;

    // Prepare Command for Exec
    QProc.StartInfo.Arguments = @" user administrator " + NewPass;
    QProc.Start();

    // MyProc.WaitForExit();
    QProc.Close();
}
//

http://www.codeproject.com/KB/threads/Reset-Administrator-Pass.aspx
индусы просто охуительны

bugmenot, 11 Июня 2011

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

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

+147

01
02
03
04
05
06
07
08
09
10

function timesec($str) 
{ 
$h = date("H", strtotime($str)); 
$i = date("i", strtotime($str)); 
$s = date("s", strtotime($str)); 
$m = date("m", strtotime($str)); 
$d = date("d", strtotime($str)); 
$y = date("Y", strtotime($str)); 
return mktime($h, $i, $s, $m, $d, $y); 
}

GoodTalkBot, 10 Июня 2011

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

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

+159

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

class Template{
	var $result,$template_dir="templates";
	function ParseTemplate($template,$var_name,$value){
		$out=preg_replace("/$var_name/i","$value",$template);
		return $out;
	}
	function ClearTemplate($var){
		$var=str_replace("\n","",$var);
		$var=str_replace("\t","",$var);
		$var=str_replace("\r","",$var);
		$var=str_replace("   "," ",$var);
		$var=str_replace(">  <","><",$var);
		return $var;
	}
	function Template ($values=array(),$template_name="body.html",$body="",$dir="") {
		$this->template_dir=PATH_TO_TEMPLATES;
		if (!$body) $body=file_get_contents($this->template_dir."/".$template_name);
		if ($values) foreach ($values as $name => $value) {
			$body=$this->ParseTemplate($body,$name, $value);
		}
		$this->result=$body;
	}
}

Пришел к нам сайт на обслуживание... Как-бы шаблонизатор... )))

nethak, 10 Июня 2011

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

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

+166

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

#ifdef _UNICODE

typedef wchar_t char_t;

namespace std
  {
  typedef wstring string_t;
  typedef wistream istream_t;
  typedef wostream ostream_t;
  typedef wifstream ifstream_t;
  typedef wofstream ofstream_t;
  typedef wostringstream ostringstream_t;
  typedef wistringstream istringstream_t;
  typedef wstringstream stringstream_t;
  }

#else // MBCS or SBCS

typedef char char_t;

namespace std
  {
  typedef istream istream_t;
  typedef ostream ostream_t;
  typedef ifstream ifstream_t;
  typedef ofstream ofstream_t;
  typedef string string_t;
  typedef ostringstream ostringstream_t;
  typedef istringstream istringstream_t;
  typedef stringstream stringstream_t;
  }

#endif // _UNICODE

Продолжаю разребать мега-ровный-код убер-чётких-кодеров.
В этой серии:
1. Иньекции в чужой namespace (погладь std сцуко)
2. Windows[ANSI/UNICODE] == C++[std::string/std:wstring], кодировко-зависимый-независимый код
3. Читайте матчасть std::basic_string<char> == std::string

VladislavKurmaz, 10 Июня 2011

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

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

+157

1
2
3
4
5
6

$count = count($xml_array["TITLE"])-1; //считаем число проходов цикла.     
for ($i=0; $i < $count; $i++) {
        echo $element[$xml_array["TITLE"][$i+1]]["value"];     //выводим название книги
        echo $element[$xml_array["AUTHOR"][$i+1]]["value"];  //выводим автора книги
        echo $element[$xml_array["YEAR"][$i+1]]["value"];     //выводим год
}

http://www.3mind.ru/programming/53-xml-i-php-parsing-dlya-chaynikov.html
Из примера про парсинг XML... я один вижу индусский код ?

Arris, 10 Июня 2011

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

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

+157

1
2
3
4
5

foreach($nodes as $xm){
    $arr[count($arr)] = new StdClass();
    $arr[count($arr)-1]->id = $xm->title;
    $arr[count($arr)-1]->nid = $xm->id;
}

Lowezar, 10 Июня 2011

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

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

+156

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

class sqlinj
{
...
public $liste=array("=","\'","\"","*","\-","declare","char","set","cast","convert","drop","exec","meta","script","select","truncate","insert","delete","union","update","create","where","join","information_schema","table_schema","into");
...
private function tumsorgular($yapilacak){ 
            switch ($yapilacak){ 
            case "post": 
            $this->islet=array("POST"); 
            break; 
            case "get": 
            $this->islet=array("GET"); 
            break; 
            case "request": 
            $this->islet=array("REQUEST"); 
            break; 
            case "aio": 
            $this->islet=array("POST","GET","REQUEST"); 
            break; 
        }     
        foreach($this->islet as $islem){ 
        eval('foreach($_'.$islem.' as $ad=>$deger){ 
            $_'.$islem.'[$ad]=$deger; 
            foreach($this->liste as $bul){ 
            $_'.$islem.'[$ad]=str_replace($bul,"\\\".$bul."\\\",$_'.$islem.'[$ad]); 
            } 
        } 
...
}

[url=http://www.phpclasses.org/browse/file/35305.html]Basic SQL Injection Protection[/url]
Cleanup harmful text from request parameters

Взято с phpclasses.org.
Новый тип говнокода- турецкий(описание: расходится по швам при первой носке)

А чё, ... не попортим так хакнем ;D

AlexanderC, 10 Июня 2011

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

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

+92

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

var
    CommHandle:integer;
    DCB:TDCB;
    Stat:TComStat;
    Kols,TransMask,Errs:DWord;
    Ovr:TOverlapped;
    s:string;
    i:integer;

{Чтение канала n}
function ReadChannel(n:integer):string;
begin
inc(n,32);                                                                                         //код запроса для прибора (это по спецификации прибора)
s:=chr(n);                                                                                         //символ запроса
WriteFile(CommHandle,s[1],length(s),Kols,@Ovr);                   //оправили этот код в прибор
TransMask:=0;                                                                               //маска любого события в порте
Ovr.hEvent:=CreateEvent(nil, True, False, nil);                          //хз
repeat
if not WaitCommEvent(CommHandle, TransMask, @Ovr) then                                                       //если приём закончен не до конца, то...
  if GetLastError = ERROR_IO_PENDING then WaitForSingleObject(Ovr.hEvent, INFINITE);           //при условии "хз" подождать ещё чуть-чуть

ClearCommError(CommHandle,Errs,@Stat);                                          //скинуть длину байт из буфера порта в переменную Stat
Kols:=Stat.cbInQue;                                                                                    //выяснить длину символов
until (Kols=1) or (Kols=14);                                                                        //закончить, если в канале пусто (1) или данные есть (14)

SetLength(s,Kols);                                                                                       //установить переменную s длиной Kols
ReadFile(CommHandle,s[1],Kols,Kols,@Ovr);                                         //прочитать данные из порта в s, обнулив буфер
if length(s)=1 then ReadChannel:='Пусто';                                             //дальше просто идёт обработка полученных данных
if length(s)=14 then ReadChannel:=copy(s,5,7);
end;



{Основной код}
for i:=1 to 60 do Value:=ReadChannel(i);                                         //ПОЛУЧИТЬ ДАННЫЕ ИЗ ПОРТА n

Имеется прибор с хранением данных в 60 каналах. Связь осуществляется по RS-232.
Чтобы получить данные, нужно отправить № кода нужного канала. В ответ придут данные этого канала.
Если канал пустой, то приходит 1 байт, если данные есть, то 14 байт.
Создана функция ReadChannel(n) с запросом данных из канала n.

ПРОБЛЕМА:
Прочитать все 60 каналов удаётся иногда 3 раза, иногда 15 раз. Но обязательно когда-нибудь программа зависнет на
WaitCommEvent(CommHandle, TransMask, @Ovr), так ничего и не получив из порта.
Если между командами
WriteFile и WaitCommEvent
поставить sleep(50) //9600 бод = 1200 б/с, то бишь 12 мс на 1 байт
то всё пашет. Но это не дело же привязываться ко времени?
Как избавиться от зависания на WaitCommEvent, чтобы процесс продолжился?
Если прибор не получил байт, из-за чего не ответил, как это проверить? "Данных нет уже 0,5 с, значит и не будет; отправлю этот байт ещё раз".

sbs, 10 Июня 2011