- 1
@AoH_SUBSinFILE = map {&parseSubmodel($_, $block)} $g_file_content =~ m/\s*?(inst .+?vars  \\.+?[^\\])\n/gs;Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
−124
@AoH_SUBSinFILE = map {&parseSubmodel($_, $block)} $g_file_content =~ m/\s*?(inst .+?vars  \\.+?[^\\])\n/gs;Говнокод4obfuscation :)
−124
sub WidthOf()
{
  my %WIDTHES =('90','195','118','165', ...  over9000   ...'43','255');
  my $TextWidth;
  map {$TextWidth += $WIDTHES{ord $_} || 200} split //,@_[0];
  return $TextWidth;
}
−116
sub chooseType()
{
	grep {return $_ if @_[0]  =~ /$_/} (keys %TYPES);
	return "";
}люблю map и grep :)
+161
function get_section(){
		if(ifGet('section')){
			if($this->get_file('./applications/app.'.$this->section.'.php')){
				switch (Get('section')){
					case ''.$this->section.'':
						$m = new $this->section();
					break;
				}
			} else {
				
				switch (Get('section'))
				{
					default:
						include_once('./applications/sys.pages.php');
						$m = new pages();
					break;
				}
			}
		}else{
			switch (Get('section'))
			{
				default:
					include_once('./applications/sys.home.php');
					$m = new home();
				break;
			}
		}
		
		if(isset($m) && is_object($m)) {
			$this->output = $m->output;
			$this->title = $m->title;
			$this->crumbs = $m->crumbs;
		}
	}я сам в шоке как такое мог написать...
+164
$('#menu_block').each…Дальше не смотрел.
+158
if (location.href.split('/')[4] == '14-0-0' | location.href.split('/')[4] == '14') {
	$('#u1').attr({
		class: 'tabv'
	})
}
else if (location.href.split('/')[4] == '14-0-1') {
	$('#u2').attr({
		class: 'tabv'
	})
}
else if (location.href.split('/')[4] == '14-0-0-1' || $('#PMtoUser').val()) {
	$('#bar').hide();
	$('#mess').css({
		backgroundColor: '#fafafa'
	});;
	$('#mess').html('<div style="padding-top:30px;padding-bottom:30px;"><div id="valError2"></div><div id="valSuccess2"></div><div id="bmess"><div id="bmess2"><table width="100%"><tr><td align="left" valign="top"><div class="avaogets" style="margin-top:2px;"><img src='+noavatar+'></div></td><td width="100%" style="padding-left:15px;" align="left" valign="top"><div id="hname">Получатель</div><input type="text" id="nameSend"><div style="padding-top:9px;" id="hname">Тема</div><input type="text" id="tSend"></td></tr></table><textarea style="margin-top:10px;" id="message2"></textarea><div id="idCap" style="overflow:hidden;margin-top:3px;margin-left:1px;"><div style="float:left;" id="abbbb"></div><div style="float:right;"><input id="capval" maxlength="4" type="text"></div></div><div id="new_b" class="Mbd" style="margin-top:6px;" onclick="$(\'#sbm\').click()"><div id="new_b2">Отправить</div></div><div class="spanload" style="display:inline-block;padding-left:5px;"></div></div> </div></div>');
	$('#u4').attr({
		class: 'tabv'
	})
}
            Это и многое другое на http://uweb.su/js/new_message.js!
Смотрите в браузерах вашего компьютера!
        
+159
m_hSemaphore		= CreateSemaphore( NULL, 1, 1, NULL );
....
void CTestGUIDlg::OnBnClickedButtonStartStream()
{
	WaitForSingleObject(m_hSemaphore, INFINITE);
	if(m_ThreadHandle)
	{
		AfxMessageBox("Stop running stream!", MB_ICONEXCLAMATION);
		return;
	};
	m_ThreadHandle	= NULL;
	m_StreamType	= 1;
	m_ThreadHandle =					(HANDLE)_beginthreadex(NULL,
										0,
										streamProcedure,
										static_cast<LPVOID>( this ),
										0,
										NULL);	
	if(!m_ThreadHandle) 
	{
		m_StreamType	= 0;
	}
	UpdateButtons();
	ReleaseSemaphore(m_hSemaphore, 1, NULL);
}классика жанра
+161
class SomeClass
{
public:
	__declspec(dllexport) SomeClass(UINT i_Width, UINT i_Height, UINT i_Lines, float i_Result, bool i_bAutoFill = false, и т.д. еще штук 5);
	__declspec(dllexport) SomeClass::~SomeClass();
	__declspec(dllexport) void setCallbackFunction(void	(*i_pCallbackFunction)(SomeClass* i_pSomeClass)) { m_pCallbackFunction = i_pCallbackFunction; };	
	__declspec(dllexport) bool isFinished() { return m_bIsFinished; };
	__declspec(dllexport) void clear() { m_ResultData.clear(); };
	__declspec(dllexport) bool save(const char* i_sFilename);
	...
private:	
	bool createThread();
	void initWork();	
	void loopWork();
	void stepWork();
	void exitWork();
	static UINT WINAPI workProc(LPVOID lpContext);
	inline bool someInlineFunction(UINT i_Index);
	...
	
private:
	HANDLE				m_ThreadHandle;
	bool				m_bIsFinished;
	bool				m_bThreadStopped;
	bool				m_bThreadClosed;
	vector<SomeType>	m_a...; 
	string				m_sFilename;
	
	void				(*m_pCallbackFunction)(SomeClass* i_pSomeClass);
	
	...
};Это краткий пересказ того, что шло вместе с DLL, только длиннее и с комментариями к каждой строке и доксигеновской докой!
+161
/////////////////////////////////////////////////////////////////////////////
#define TWAIT(_WAIT_EXPR_, _TIMEOUT_)	TWAIT_EX(_WAIT_EXPR_, _TIMEOUT_, 0)
#define TWAIT_(_WAIT_EXPR_, _TIMEOUT_)	TWAIT_EX_(_WAIT_EXPR_, _TIMEOUT_, 0)
/////////////////////////////////////////////////////////////////////////////
#define TWAIT_DECL_VARS														\
	DWORD TWAIT_START = GetTickCount();										\
	bool TWAIT_RET = true;													
/////////////////////////////////////////////////////////////////////////////
#define TWAIT_EX(_WAIT_EXPR_, _TIMEOUT_, _ABORT_)							\
	DWORD TWAIT_START = GetTickCount();										\
	bool TWAIT_RET = true;													\
	do {ProcessMessage(1);													\
		TWAIT_RET = GetTickCount() - TWAIT_START < (DWORD)(_TIMEOUT_);		\
		if( !TWAIT_RET ) break;												\
		if( _ABORT_ != 0 ) { TWAIT_RET = false; break; }					\
	} while( (_WAIT_EXPR_) == 0 );
/////////////////////////////////////////////////////////////////////////////
#define TWAIT_EX_(_WAIT_EXPR_, _TIMEOUT_, _ABORT_)							\
	TWAIT_START = GetTickCount();											\
	TWAIT_RET = true;														\
	do {ProcessMessage(1);													\
		TWAIT_RET = GetTickCount() - TWAIT_START < (DWORD)(_TIMEOUT_);		\
		if( !TWAIT_RET ) break;												\
		if( _ABORT_ != 0 ) { TWAIT_RET = false; break; }					\
	} while( (_WAIT_EXPR_) == 0 );lambdas, functors... макрос - это наше все... а ProcessMessage(1) тоже радует.
−91
Функция СравнитьЭлементыСправочника(Элемент1, Элемент2, фЗаписатьРазличия=0) Экспорт
	Перем Рез;
	Рез = 0;
	Если (Элемент1 <> Элемент2) и (фЗаписатьРазличия=0) Тогда
		Рез = 1;
		Перейти ~М1;
	КонецЕсли;
	
	// сначала проверим код и наименование 
	Если (Элемент1.Код <> Элемент2.Код) Тогда
		если фЗаписатьРазличия=1 Тогда
			ЗаписьЖурналаРегистрации("изменен код с '"+СокрЛП(Элемент1.Код)+"' на '"+СокрЛП(Элемент2.Код)+"'","Справочники","Изменен реквизит справочника",Элемент1,2);
		Иначе
			Рез = 1;
			Перейти ~М1;
		КонецЕсли;	
	КонецЕсли;
	
	Если Элемент1.Наименование <> Элемент2.Наименование Тогда
		если фЗаписатьРазличия=1 Тогда
			ЗаписьЖурналаРегистрации("изменено наименование с '"+СокрЛП(Элемент1.наименование)+"' на '"+СокрЛП(Элемент2.наименование)+"'","Справочники","Изменен реквизит справочника",Элемент1,2);
		Иначе
			Рез = 1;
			Перейти ~М1;
		КонецЕсли;	
	КонецЕсли;	
	// == тут было код который удалил автор поста	==
~М1:	
	Возврат Рез;
		
КонецФункцииВнезапно нашел такую функцию неизвестного автора :)