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

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

+84

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

{*********** PosEx ***********}
function Posex(const substr,str:string; const startloc:integer):integer;
{Search for "substr" in "str" starting at "startloc" return 0 or the start
 postion where "substr" was found}
var
  i, j,k,ssLen, sLen, stop:integer;
  a:char;
begin
  result:=0;
  ssLen:=length(substr);
  slen:=length(str);
  stop:=slen-sslen+1; {highest feasible start location for substring}
  if (ssLen=0) or (sslen>sLen) then exit;
  a:=substr[1];  {1st letter of substr}
  i:=startloc; {start search location}
  while (i<=stop) and (result=0) do
  begin
    while (i<=stop) and (a<>str[i]) do inc(i); {find the 1st letter}
    if i<=stop then
    begin
      if sslen=1 then  result:=i {It was a 1 character search, so we're done}
      else
      begin
        j:=2;
        k:=i-1; {back "K" up by 1 so that we can use K+j as the index to the string}
        while (j<=sslen) do
        begin {compare the rest of the substring}
          if (substr[j]<>str[k+j]) then break
          else inc(j); {The letter matched, go to the next+
                   {When we pass the substring end, "while" loop will terminate}
        end;
        if (j>sslen) then
        begin
          result:=i;
          exit;
        end
        else inc(i); {that search failed, look for the next 1st letter match}
      end;
    end;
  end;
end;

Несколько вложенных циклов - это НЕ может работать быстро.
Для сравнения - функция PosEx из StrUtils.pas

function PosEx(const SubStr, S: string; Offset: Cardinal = 1): Integer;

var

  I,X: Integer;

  Len, LenSubStr: Integer;

begin

  if Offset = 1 then

    Result := Pos(SubStr, S)

  else

  begin

    I := Offset;

    LenSubStr := Length(SubStr);

    Len := Length(S) - LenSubStr + 1;

    while I <= Len do

    begin

      if S[i] = SubStr[1] then

      begin

        X := 1;

        while (X < LenSubStr) and (S[I + X] = SubStr[X + 1]) do

          Inc(X);

        if (X = LenSubStr) then

        begin

          Result := I;

          exit;

        end;

      end;

      Inc(I);

    end;

    Result := 0;

  end;

end;

А вот что пишет автор:

The Delphi "Pos" function searches for a

substring within a string.  Later versions of

Delphi also include a "PosEx" function 

which

starts the search at a given position so 

multiple calls can return all occurrences.



This program tests DFF versions of these 

two

functions. Pos was rewritten to provide a 

base

of code for PosEx.  And PosEx wll provide 

the

missing function for versions of Delphi 

before

Delphi 7.



As an unexpected bonus, it appears that the

DFF versions of Pos and Posex are slightly

quicker than the D7 versions.

brutushafens, 20 Апреля 2014

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

Куча / Говнокод #15800

+141

1
2
3

@echo off
start https://pp.vk.me/c607724/v607724832/6c07/5fRLUPfqMe8.jpg
start https://pp.vk.me/c607724/v607724832/6c1c/LD7Zqx1yZAw.jpg

Для батника, запустите - поймёте ;)

Mobac, 20 Апреля 2014

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

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

+149

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

function rawToStructuredDataTree($data) {
        $structured_array = array();
        foreach ($data as $cid => $node) {
            $data[$cid]['children'] = array();
            if ($node['parent_id'] == $cid || $node['parent_id'] == 0) {
                $structured_array[$cid] = &$data[$cid];
            } else {
                $data[$node['parent_id']]['children'][$cid] = & $data[$cid];
            }
        }
        return $structured_array;
  }

Вот такое выдал мой ученик (школьник, 8 класс), когда его попросили из массива id - parent_id построить дерево.

imissyouso, 20 Апреля 2014

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

Куча / Говнокод #15798

+143

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

// основная функция запуска
func main($script){
    //устанавливаем значение переменной
    $caption = "гыыы кальулятор";
    
    //грузим иконку
	$calc_icon= library_load_icon(library_load("shell32.dll"),307);
	
	//создаем окошко))
	$main_window=gui_window("TCalc",$caption,$_WS_SYSMENU+$_WS_VISIBLE+$_WS_CAPTION,$_CW_DESKTOPCENTER,$_CW_DESKTOPCENTER,200,100,$calc_icon,0,0,"WindowFunc");
	
	gui_control($main_window,"button","ok",201,$_WS_CHILD+$_WS_VISIBLE+$_BS_DEFPUSHBUTTON+$_BS_FLAT,152,16,32,16);
	gui_control($main_window,"edit","2+7",202,$_WS_CHILD+$_WS_VISIBLE,2,15,130,15);
	gui_control($main_window,"static","Ready",203,$_WS_CHILD+$_WS_VISIBLE,16,36,130,16);
	
	//иконка в трее...
	tray_icon($main_window,$calc_icon,"ГАЛЬГУЛЯТОР",$_NIM_ADD);
	tray_icon_show_balloon($main_window,"[$caption] -> Startup","Добро пожаловать в программу\nСоздано с неизвестным языком (название не придумал)",4);
	idle(); //перевод программы в режим ожидания
}
	 
func WindowFunc($hwnd,$msg,$param,$id){ //обработка сообщений виндоуса
	if($msg==$_WM_CLOSE){  //если крестик нажали
		tray_icon($main_window,$calc_icon,null,$_NIM_DELETE);  //удаляем иконку
		close();  //выходим
	}
	if($msg==$_WM_COMMAND){  //если нажали кнопку
		if($id==201){ //click ok  //определяем ID   //math_compiler - производить математические операции
			$res=math_compiler(gui_get($hwnd,202)); //gui_get - получить текст
			if length($res)==0 {                    //gui_set - установить текст
				$res="[ERROR]";
				tray_icon_show_balloon($hwnd,"[$caption] -> Ашипка","Нивазможна\nправирить текст!",2);
			}else{
				tray_icon_show_balloon($hwnd,"[$caption] -> Result",gui_get($hwnd,202)." = $res",4);
			}
			gui_set($hwnd,203,$res);
		}
	}
}

Названия языка нет..
Если не нравятся названия команд (например, func и т.д.), то пишите, исправлю. Потом вам готовую версию вышлю :)

Mobac, 20 Апреля 2014

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

Куча / Говнокод #15797

+142

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

// основная функция запуска
func main($script){
    //устанавливаем значение переменной
    $caption = "гыыы кальулятор";
    
    //грузим иконку
	$calc_icon= library_load_icon(library_load("shell32.dll"),307);
	
	//создаем окошко))
	$main_window=gui_window("TCalc",$caption,$_WS_SYSMENU+$_WS_VISIBLE+$_WS_CAPTION,$_CW_DESKTOPCENTER,$_CW_DESKTOPCENTER,200,100,$calc_icon,0,0,"WindowFunc");
	
	gui_control($main_window,"button","ok",201,$_WS_CHILD+$_WS_VISIBLE+$_BS_DEFPUSHBUTTON+$_BS_FLAT,152,16,32,16);
	gui_control($main_window,"edit","2+7",202,$_WS_CHILD+$_WS_VISIBLE,2,15,130,15);
	gui_control($main_window,"static","Ready",203,$_WS_CHILD+$_WS_VISIBLE,16,36,130,16);
	
	//иконка в трее...
	tray_icon($main_window,$calc_icon,"ГАЛЬГУЛЯТОР",$_NIM_ADD);
	tray_icon_show_balloon($main_window,"[$caption] -> Startup","Добро пожаловать в программу\nСоздано с неизвестным языком (название не придумал)",4);
	idle(); //перевод программы в режим ожидания
}
	 
func WindowFunc($hwnd,$msg,$param,$id){ //обработка сообщений виндоуса
	if($msg==$_WM_CLOSE){  //если крестик нажали
		tray_icon($main_window,$calc_icon,null,$_NIM_DELETE);  //удаляем иконку
		close();  //выходим
	}
	if($msg==$_WM_COMMAND){  //если нажали кнопку
		if($id==201){ //click ok  //определяем ID   //math_compiler - производить математические операции
			$res=math_compiler(gui_get($hwnd,202)); //gui_get - получить текст
			if length($res)==0 {                    //gui_set - установить текст
				$res="[ERROR]";
				tray_icon_show_balloon($hwnd,"[$caption] -> Ашипка","Нивазможна\nправирить текст!",2);
			}else{
				tray_icon_show_balloon($hwnd,"[$caption] -> Result",gui_get($hwnd,202)." = $res",4);
			}
			gui_set($hwnd,203,$res);
		}
	}
}

Названия языка нет..

Mobac, 20 Апреля 2014

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

Куча / Говнокод #15796

+143

1
2
3
4
5
6
7

Lol1 = "1", Lol2 = "2"
set lols = array
lols.append Lol1
lols.append Lol2
set result = string
result = lols.foldl1 (++)
Put result

Название языка ещё не придумал :)

Mobac, 20 Апреля 2014

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

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

+155

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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72

/**
* Handles Registration Links.
*
* @package s2Member\Registrations
* @since 3.5
*
* @attaches-to ``add_action("init");``
*
* @return null Or exits script execution after redirection.
*/
public static function register ()
{
	do_action ("ws_plugin__s2member_before_register", get_defined_vars ());

	if (!empty ($_GET["s2member_register"])) // If they're attempting to access the registration system.
		{
			while (@ob_end_clean ()); // Clean any existing output buffers.

			$msg_503 = _x ('<strong>Your Link Expired:</strong><br />Please contact Support if you need assistance.', "s2member-front", "s2member");

			if (is_array ($register = preg_split ("/\:\.\:\|\:\.\:/", c_ws_plugin__s2member_utils_encryption::decrypt (trim (stripslashes ((string)$_GET["s2member_register"]))))))
				{
					if (count ($register) === 6 && $register[0] === "subscr_gateway_subscr_id_custom_item_number_time" /* Does the checksum value match up here? */)
						{
							if (is_numeric ($register[5]) && $register[5] <= strtotime ("now") && $register[5] >= strtotime ("-" . apply_filters ("ws_plugin__s2member_register_link_exp_time", "2 days", get_defined_vars ())))
								{
									$_COOKIE["s2member_subscr_gateway"] = /* For ``reg_cookies_ok ()``. */ c_ws_plugin__s2member_utils_encryption::encrypt ($register[1]);
									$_COOKIE["s2member_subscr_id"] = /* For ``reg_cookies_ok ()``. */ c_ws_plugin__s2member_utils_encryption::encrypt ($register[2]);
									$_COOKIE["s2member_custom"] = /* For ``reg_cookies_ok ()``. */ c_ws_plugin__s2member_utils_encryption::encrypt ($register[3]);
									$_COOKIE["s2member_item_number"] = /* For ``reg_cookies_ok ()``. */ c_ws_plugin__s2member_utils_encryption::encrypt ($register[4]);

									if (($reg_cookies = c_ws_plugin__s2member_register_access::reg_cookies_ok ()) && extract ($reg_cookies) /* Needed? */)
										{
											status_header(200); // Send a 200 OK status header.
											header("Content-Type: text/html; charset=UTF-8"); // Content-Type with UTF-8.

											setcookie ("s2member_subscr_gateway", $_COOKIE["s2member_subscr_gateway"], time () + 31556926, COOKIEPATH, COOKIE_DOMAIN) . setcookie ("s2member_subscr_gateway", $_COOKIE["s2member_subscr_gateway"], time () + 31556926, SITECOOKIEPATH, COOKIE_DOMAIN);
											setcookie ("s2member_subscr_id", $_COOKIE["s2member_subscr_id"], time () + 31556926, COOKIEPATH, COOKIE_DOMAIN) . setcookie ("s2member_subscr_id", $_COOKIE["s2member_subscr_id"], time () + 31556926, SITECOOKIEPATH, COOKIE_DOMAIN);
											setcookie ("s2member_custom", $_COOKIE["s2member_custom"], time () + 31556926, COOKIEPATH, COOKIE_DOMAIN) . setcookie ("s2member_custom", $_COOKIE["s2member_custom"], time () + 31556926, SITECOOKIEPATH, COOKIE_DOMAIN);
											setcookie ("s2member_item_number", $_COOKIE["s2member_item_number"], time () + 31556926, COOKIEPATH, COOKIE_DOMAIN) . setcookie ("s2member_item_number", $_COOKIE["s2member_item_number"], time () + 31556926, SITECOOKIEPATH, COOKIE_DOMAIN);

											do_action ("ws_plugin__s2member_during_register", get_defined_vars ());

											if (is_multisite () && c_ws_plugin__s2member_utils_conds::is_multisite_farm () && is_main_site () && ($location = c_ws_plugin__s2member_utils_urls::wp_signup_url ()))
												{
													echo '<script type="text/javascript">' . "\n";
													echo "window.location = '" . c_ws_plugin__s2member_utils_strings::esc_js_sq ($location) . "';";
													echo '</script>' . "\n";
												}
											else if (($location = c_ws_plugin__s2member_utils_urls::wp_register_url ()))
												{
													echo '<script type="text/javascript">' . "\n";
													echo "window.location = '" . c_ws_plugin__s2member_utils_strings::esc_js_sq ($location) . "';";
													echo '</script>' . "\n";
												}
											exit (); // Clean exit. The browser will now be redirected to ``$location``.
										}
									else
										status_header(503) . header ("Content-Type: text/html; charset=UTF-8") . exit ($msg_503);
								}
							else
								status_header(503) . header ("Content-Type: text/html; charset=UTF-8") . exit ($msg_503);
						}
					else
						status_header(503) . header ("Content-Type: text/html; charset=UTF-8") . exit ($msg_503);
				}
			else
				status_header(503) . header ("Content-Type: text/html; charset=UTF-8") . exit ($msg_503);
		}

	do_action ("ws_plugin__s2member_after_register", get_defined_vars ());
}

Концовка особенно захватывающа.

Плагин для Wordpress - s2member, https://www.s2member.com/codex/stable/source/s2member/includes/classes/register-in.inc.php

antongorodezkiy, 20 Апреля 2014

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

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

+64

1
2
3
4
5

QSqlQuery my_query;
my_query.prepare(
          QString("INSERT INTO table1 (number, address, age) VALUES (%1, '%2', %3);")
                          .arg(fromInput1).arg(fromInput2).arg(fromInput3)
          );

Жаль, но похоже автор не осилил экранирование от SQL-иньекций.

LispGovno, 19 Апреля 2014

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

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

+70

1

qDebug() << QString("%1-%2").arg("%1").arg("foo");

LispGovno, 19 Апреля 2014

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

Куча / Говнокод #15792

+123

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

Type win32gui
Create object window
Set window title = "Window"
Set width window = 299
Set height window = 279
S1 = "y"
S2 = "="
S3 = "x^3+1"
Obj = "Graph"
Create object obj
Set obj graph = "y=x^3+1"
Display obj
Rewrite obj

Название языка ещё не придумал :P

Данный пример построит график y=x^3+1.
Картинка тут - http://coun.at.ua/_sf/1/116_Screenshot1.png

Mobac, 19 Апреля 2014

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

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

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

Куча / Говнокод #15800

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

Куча / Говнокод #15798

Куча / Говнокод #15797

Куча / Говнокод #15796

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

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

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

Куча / Говнокод #15792