- 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
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+143
Lol1 = "1", Lol2 = "2"
set lols = array
lols.append Lol1
lols.append Lol2
set result = string
result = lols.foldl1 (++)
Put result
Название языка ещё не придумал :)
+155
/**
* 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
+64
QSqlQuery my_query;
my_query.prepare(
QString("INSERT INTO table1 (number, address, age) VALUES (%1, '%2', %3);")
.arg(fromInput1).arg(fromInput2).arg(fromInput3)
);
Жаль, но похоже автор не осилил экранирование от SQL-иньекций.
+70
qDebug() << QString("%1-%2").arg("%1").arg("foo");
+123
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
+133
Lol = "Lol"
Put Lol
Lol1 = "1", Lol2 = "2"
Put Lol1+Lol2
Set lol = string
Lol = "HELLO LOLLED GUYS!"
Put lol.lowcase
Lolka="lolka"
Put lolka.upcase
Так сказать, новый язык программирования - название не придумал (помогите!!!).
Результат выполнения программы:
Lol
3
hello lolled guys!
LOLKA
Жду комментариев (напишите название для япа).
+143
entry start
include 'C:\Program Files\Casm\win32a.inc' ; Include file win32a.inc
section '.text' code readable executable
start:
invoke GetModuleHandle,0
invoke DialogBoxParam,eax,37,HWND_DESKTOP,DialogProc,0
or eax,eax
jz exit
exit:
invoke ExitProcess,0
proc DialogProc hwnddlg,msg,wparam,lparam
push ebx esi edi
cmp [msg],WM_INITDIALOG
je .wminitdialog
cmp [msg],WM_CLOSE
je .wmclose
xor eax,eax
jmp .finish
.wminitdialog:
jmp .processed
.wmclose:
invoke EndDialog,[hwnddlg],0
.processed:
mov eax,1
.finish:
pop edi esi ebx
ret
endp
section '.bss' readable writeable
flags dd ?
caption rb 40h
message rb 100h
section '.idata' import data readable writeable
library kernel,'KERNEL32.DLL',\
user,'USER32.DLL'
import kernel,\
GetModuleHandle,'GetModuleHandleA',\
ExitProcess,'ExitProcess'
import user,\
DialogBoxParam,'DialogBoxParamA',\
EndDialog,'EndDialog'
section '.rsrc' resource data readable
directory RT_DIALOG,dialogs
resource dialogs,\
37,LANG_ENGLISH+SUBLANG_DEFAULT,demonstration
dialog demonstration,'TestProgram',170,170,105,75,WS_CAPTION+WS_POPUP+WS_SYSMENU+DS_MODALFRAME
dialogitem 'STATIC','Compile',-1,10,10,70,29,WS_VISIBLE
dialogitem 'STATIC','WITH...',-1,10,20,70,8,WS_VISIBLE
dialogitem 'STATIC','C',-1,10,30,70,8,WS_VISIBLE
dialogitem 'STATIC','A',-1,10,40,70,8,WS_VISIBLE
dialogitem 'STATIC','S',-1,10,50,70,8,WS_VISIBLE
dialogitem 'STATIC','M',-1,10,60,70,8,WS_VISIBLE
enddialog
Окно на Fasm M.P.E.
+123
Я тут решил свой язык запилить, кто скажет, какой синтаксис кому нравится?
Пишите в комментарии!
+121
Wct Editor forever
Ахаххахаха))
+152
function locate($info) {
$name = sprintf("%s_%02d_%02d.jpg", $info['prefix'], $info['vol'], $info['page']);
if (file_exists($name))
return $name;
$name = sprintf("%s_%02d_%03d.jpg", $info['prefix'], $info['vol'], $info['page']);
if (file_exists($name))
return $name;
$name = sprintf("%s%d_%03d.jpg", $info['prefix'], $info['vol'], $info['page']);
if (file_exists($name))
return $name;
$name = sprintf("%s%d_%03d-%03d.jpg", $info['prefix'], $info['vol'], $info['page'], $info['page']+1);
if (file_exists($name))
return $name;
$name = sprintf("%s%d_%03dcover.jpg", $info['prefix'], $info['vol'], $info['page']);
if (file_exists($name))
return $name;
return false;
}
Онлайн читалка манги. Эта функция ищет картинку по номеру тома/страницы.
Как считаете, я сильно наговнокодила? ^_^