- 1
- 2
- 3
- 4
- 5
<?php
if ($_GET['api_id'] != $_CONFIG['api_id']) {
Header("Location:http://youporn.com");
exit();
}
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+157
<?php
if ($_GET['api_id'] != $_CONFIG['api_id']) {
Header("Location:http://youporn.com");
exit();
}
Iframe-приложение в вк. Если переданный api_id не равен прописанному в конфиге, это значит, что кто-то в своем приложении поставил ссылку на наше.
+125
fn AsText Val BufferID:undefined AppendLast:false Prefix:"" Postfix:"" ArraySeparators:#("#(", ",", ")") ValClass:undefined AncestorName:undefined PushVar:undefined = (
if PushVar == undefined then PushVar = GIMS.Core.BufferMgr.PushVar
case (ClassOf Val) of (
ArrayParameter:
AsText Val BufferID:BufferID AppendLast:AppendLast Prefix:Prefix Postfix:Postfix ArraySeparators:ArraySeparators ValClass:Array AncestorName:AncestorName PushVar:PushVar
Array: (
if BufferID != undefined then (
PushVar BufferID (Prefix + ArraySeparators[1]) AppendLast:AppendLast
for ItemID = 1 to Val.Count do (
if ItemID != Val.Count then
AsText Val[ItemID] BufferID:BufferID AppendLast:AppendLast Postfix:ArraySeparators[2] AncestorName:AncestorName PushVar:PushVar
else
AsText Val[ItemID] BufferID:BufferID AppendLast:AppendLast AncestorName:AncestorName PushVar:PushVar
)
PushVar BufferID (ArraySeparators[3] + Postfix) AppendLast:AppendLast
) else (
local Res = (Prefix + ArraySeparators[1])
for ItemID = 1 to Val.Count do (
if ItemID != Val.Count then
Res += (AsText Val[ItemID] Postfix:ArraySeparators[2] AncestorName:AncestorName PushVar:PushVar)
else
Res += (AsText Val[ItemID] AncestorName:AncestorName PushVar:PushVar)
)
Res += (ArraySeparators[3] + Postfix)
)
Res
)
String: (
if BufferID != undefined then
PushVar BufferID (Prefix + "\"" + (GIMS.Core.StringOps.ReplaceChars Val ReplaceTags:#(#("\"", "\\"), #("\\\"", "\\\\")) MultiChar:true) + "\"" + Postfix) AppendLast:AppendLast
else
(Prefix + "\"" + (GIMS.Core.StringOps.ReplaceChars Val ReplaceTags:#(#("\"", "\\"), #("\\\"", "\\\\")) MultiChar:true) + "\"" + Postfix)
)
Name: (
if BufferID != undefined then
PushVar BufferID (Prefix + "#" + Val as string + Postfix) AppendLast:AppendLast
else
(Prefix + "#" + Val as string + Postfix)
)
BitmapTexture: (
GIMS.Core.MaterialOps.FixTexName Val
local FileName = (GetFileNameFile Val.FileName)
if BufferID != undefined then (
if (DoesFileExist Val.FileName) then (
local FilePath = (GIMS.CurrentGame.ResourceCachePath + AncestorName + "/")
MakeDir FilePath All:true
CopyFile Val.FileName (FilePath + (FileNameFromPath Val.FileName))
)
PushVar BufferID (Prefix + "(GIMS.Core.MaterialOps.CreateBitmapFile (GIMS.CurrentGame.ResourceCachePath + \"" + AncestorName + "/\") \"" + FileName + "\")" + Postfix) AppendLast:AppendLast
) else
(Prefix + "(GIMS.Core.MaterialOps.CreateBitmapFile \"" + (GetFileNamePath Val.FileName) + "\" \"" + FileName + "\")" + Postfix)
)
default: (
local VarType = (SuperClassOf Val)
if VarType == StructDef or VarType == GeometryClass or VarType == Material then (
if BufferID == undefined then
throw "Undefined BufferID!"
local AllTagNames = (GetPropNames Val),
StructNameTagID = (FindItem AllTagNames #StructName),
StructName = (
if StructNameTagID != 0 then
(GetProperty Val AllTagNames[StructNameTagID])
else
((ClassOf Val) as string)
),
Tags = (
for TempTag in AllTagNames where
TempTag != #StructName and
not (IsKindOf (GetProperty Val TempTag) MAXScriptFunction)
collect
TempTag
)
if Tags.Count == 1 then
PushVar BufferID (Prefix + "(" + StructName + "())") AppendLast:AppendLast
else (
PushVar BufferID (Prefix + "(") AppendLast:AppendLast
PushVar BufferID (StructName + " \\") AppendLast:AppendLast
case VarType of (
GeometryClass: (
PushVar BufferID ("Name:" + (AsText Val.Name AncestorName:AncestorName PushVar:PushVar) + " \\") AppendLast:AppendLast
PushVar BufferID ("Pos:" + Val.Pos as string + " \\") AppendLast:AppendLast
)
Material: (
PushVar BufferID ("Name:" + (AsText Val.Name AncestorName:AncestorName PushVar:PushVar) + " \\") AppendLast:AppendLast
PushVar BufferID ("ShowInViewPort:" + Val.ShowInViewPort as string + " \\") AppendLast:AppendLast
)
)
for TagID = 1 to Tags.Count do
AsText (GetProperty Val Tags[TagID]) BufferID:BufferID AppendLast:AppendLast Prefix:(Tags[TagID] as String + ":") Postfix:" \\" AncestorName:AncestorName PushVar:PushVar
PushVar BufferID (")" + Postfix) AppendLast:AppendLast
)
) else (
if BufferID != undefined then
PushVar BufferID (Prefix + Val as string + Postfix) AppendLast:AppendLast
else
(Prefix + Val as string + Postfix)
)
)
)
)
MAXScript. Сериализация от бога!
+64
Товарищи, стоит задача: найти количество слов в строке.
Автор (http://programmersforum.ru/showthread.php?p=1269850#post1269850) просто делит строку по пробелам, затем
подсчитывает кол-во слов.
Я же, говорю, что такой подход НЕПРАВИЛЕН, т.к. в русском
языке (да и не только) слова разделяются символами пунктуации, которые сами в состав слова не входят - следовательно, делить нужно по ним:
[code]" ' . , ! ?: ; - + <пробел> <табуляция> ( )[code]
На меня сразу же наехали и поудаляли мои сообщения. Неужели я не прав?
Баян все еще там: http://programmersforum.ru/showthread.php?p=1269850#post1269850
+136
type
Potok = class(TThread)
private
FAcc : string;
FPas : string;
Ip : string;
Port : string;
Rez : Integer;
protected
procedure Execute; override;
public
procedure Sync;
constructor Create(CreateSuspended: Boolean);
end;
var
Form2: TForm2;
Accounts, Proxy:Tstringlist;
Thread, Acc:integer;
Work:boolean;
CS:TcriticalSection;
GoodFile, BadFile: textfile;
tp:integer;
Balance, Login, Email:string;
UserAg: array [0..20] of string=(
'Mozilla/5.0 (Windows; U; Win98; en-US; rv:0.9.2) Gecko/20010726 Netscape6/6.1',
'Mozilla/5.0 (Windows; U; Win9x; en; Stable) Gecko/20020911 Beonex/0.8.1-stable',
'Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US) AppleWebKit/525.19 (KHTML, like Gecko) Chrome/0.2.153.1 Safari/525.19',
'Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.1.11) Gecko/20071127 Firefox/2.0.0.4/Megaupload 3.0',
'Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.452) Gecko/20041027 Mnenhy/0.6.0.104',
'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; iRider 2.21.1108; FDM)',
'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; MathPlayer2.0)',
'Mozilla/5.0 (Windows; U;XMPP Tiscali Communicator v.10.0.1; Windows NT 5.1; it; rv:1.8.1.3) Gecko/20070309 Firefox/2.0.0.3',
'Mozilla/5.0 (X11; U; Linux 2.4.2-2 i586; en-US; m18) Gecko/20010131 Netscape6/6.01',
'Mozilla/5.0 (X11; U; Linux i686; en-GB; rv:1.7.6) Gecko/20050405 Epiphany/1.6.1 (Ubuntu) (Ubuntu package 1.0.2)',
'Mozilla/5.0 (X11; U; Linux i686; en-US; rv:0.9.3) Gecko/20010801',
'Mozilla/5.0 (Linux; U; Android 2.2; en-us; Nexus One Build/FRF91) AppleWebKit/533.1 (KHTML, like Gecko) Version/4.0 Mobile Safari/533.1',
'Mozilla/5.0 (Linux; U; Android 2.2; en-us; DROID2 GLOBAL Build/S273) AppleWebKit/533.1 (KHTML, like Gecko) Version/4.0 Mobile Safari/533.1',
'Mozilla/5.0 (Linux; U; Android 2.1-update1; de-de; E10i Build/2.0.2.A.0.24) AppleWebKit/530.17 (KHTML, like Gecko) Version/4.0 Mobile Safari/530.17',
'Mozilla/5.0 (Linux; U; Android 2.2; nl-nl; Desire_A8181 Build/FRF91) AppleWebKit/533.1 (KHTML, like Gecko) Version/4.0 Mobile Safari/533.1',
'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; Google Wireless Transcoder;)',
'Mozilla/5.0 (compatible; MSIE 9.0; Windows NT 6.1; Trident/5.0; Xbox)',
'Mozilla/5.0 (compatible; MSIE 9.0; Windows NT 6.1; Win64; x64; Trident/5.0)',
'Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; Trident/4.0; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729; .NET CLR 3.0.30729; Media Center PC 6.0; Tablet PC 2.0; InfoPath.2; InfoPath.3)',
'Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; winfx; .NET CLR 1.1.4322; .NET CLR 2.0.50727; Zune 2.0)',
'Mozilla/4.0 (compatible; MSIE 5.01; Windows 95; MSIECrawler)'
);
implementation
{$R *.dfm}
Бля, говорят же, что нельзя пить и курить марихуану перед зачатием детей, иначе родятся наркоманами.
+133
http://www.quizful.net/interview/java/k4gCs7Qmf8YF
Мне кажется, или кто то накурился?
если я не прав - обьяните(
+133
hq->rd_period = (i = hq->rd_period+1) != 0 ? i : 1;
что именно хотел сказать автор, неизвестно. предполагаю что `while (!++hq->rd_period);`
+134
private static final String IPADDRESS_PATTERN =
"^([01]?\\d\\d?|2[0-4]\\d|25[0-5])\\." +
"([01]?\\d\\d?|2[0-4]\\d|25[0-5])\\." +
"([01]?\\d\\d?|2[0-4]\\d|25[0-5])\\." +
"([01]?\\d\\d?|2[0-4]\\d|25[0-5])$";
Сначала статья по регуляркам, а потом хороший, годный пример для ip)
−92
a < 5 and a or 5
Вы все еще думаете, что сочетание and'а и or'а это тернарник? Тогда мы идем к вам :)
http://ideone.com/qC0TyS
+151
/**
* Magic method __get()
* @param string $name The name of the payment options properties
* @return string
*/
public function &__get($name)
{
if (isset($this->_properties[$name]) && is_scalar($this->_properties[$name]))
{
$property = $this->_properties[$name];
}
else
{
$property = &$this->_properties[$name];
}
return $property;
}
+155
<?php
class Json_Encode {
public function Encode($obj) {
$str = "";
$type = gettype($obj);
if ($type == "array") {
$fst = 1;
if (array_keys($obj) !== range(0, count($obj) - 1)) {
$str .= "{";
foreach($obj as $id=>$el) {
if ($fst) {
$fst = 0;
} else {
$str .= ",";
}
$str .= "\"$id\":";
$str .= $this->Encode($el);
}
$str .= "}";
} else {
$str .= "[";
foreach($obj as $el) {
if ($fst) {
$fst = 0;
} else {
$str .= ",";
}
$str .= $this->Encode($el);
}
$str .= "]";
}
} else if ($type == "string") {
$str .= "\"$obj\"";
} else if ($obj == null) {
$str .= "null";
} else {
$str .= "$obj";
}
return $str;
}
}
Листинг файла json_encode.php
От души посмеялся.