- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
Актуальна задача о двух стеках
push esp1
push esp2
Требуется реализация забывчивого стека
push 1 [1,2,3] -> [1,1,2]
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+248
Актуальна задача о двух стеках
push esp1
push esp2
Требуется реализация забывчивого стека
push 1 [1,2,3] -> [1,1,2]
+247
mov eax, eax ;without this crap, it fucks up
mov ecx, ecx ;don't ask me why...
нашел в инклудах к opengl
+246.7
proc mltcoef
push ecx
xor ecx,ecx
xor edx,edx
xor ebx,ebx
mov eax,dword[coef+edx]
_b:
add [coef+edx],eax
jc _c
_e:
cmp ecx,9
jne _b
inc ecx
_c
push edx
_d
add edx,4
add [coef+edx],1
jc _d
pop edx
jmp _e
pop ecx
ret
endp
Пока я писалвысирал эту НЁБ, я уже забыл, зачем оно было нужно.
+245
cmp DWORD PTR [esi+4], 0 ; if obj->curChip == 0
push ebx
push edi
jne SHORT $LN8@harddetect
movzx ebx, WORD PTR [esi+12] ; ebx = obj->baseport;
jmp SHORT $LN9@harddetect
$LN8@harddetect:
mov ax, WORD PTR [esi+12] ;\
add ax, 2 ; шедевр!
movzx ebx, ax ;/
$LN9@harddetect:
Не понравился размер кода после компиляции. Полез посмотреть. Особо забавной показалась скомпилированная незатейливая конструкция:
unsigned short port = (curChip == 0 ? baseport : baseport + 2);
+243.6
format ELF
include 'macros.inc'
public main
extrn printf
extrn puts
extrn exit
extrn strtok
extrn getenv
extrn strcmp
extrn strtol
extrn strcpy
; Функции для общения с БД
extrn get_version ; ремейк на mysql_get_client_info()
extrn get_product_by_single_name_ex
CGI_HEADER db "Content-Type: text/html", 13,10, "X-Powered-by: FASM (Flat Assembler 1.68)",13,10,0
QUERY_STRING db ?
REQUEST_METHOD db ?
query_str_env_req db "QUERY_STRING", 0
request_method_env_req db "REQUEST_METHOD", 0
RM_GET db "GET", 0
RM_POST db "POST",0
NO_ACTION_ERROR_MSG db "No action", 0
q_token db "="
r_token db "&"
; Константы ACTION
AC_VERSION equ 0; Инфа о версии и копирайте
AC_PRODUCT_ID_BY_SINGLE_NAME equ 1; ID продукта по полному совпадению имени
section '.text' executable
_start:
main:
ccall puts, CGI_HEADER
ccall getenv, request_method_env_req
push eax
;c
xor eax, eax
pop eax
ccall strcmp, eax, RM_GET ; TODO: ЗМЕНИТЬ НА POST!!!1111
cmp eax, 0
jne quit
;Что прислали в Action. ( ТОЛЬКО GET )
ccall getenv, query_str_env_req
ccall strcpy, QUERY_STRING, eax
ccall strtok, QUERY_STRING, q_token
push eax
ccall strcmp, eax, "act"
cmp eax, 0
jne no_act
je act
no_act:
ccall puts, NO_ACTION_ERROR_MSG
jmp quit
act:
; Узнаём, что за опция в act
pop eax;
ccall strtok, 0, q_token
ccall strtol, eax, 0, 10
cmp eax, AC_VERSION
je version_put
cmp eax, AC_PRODUCT_ID_BY_SINGLE_NAME
je product_id_by_single_name
jne quit
version_put:
; версия - из mysql
ccall puts, "Web kernel v0.1. (c) 2009 by Sergei V. Adoniew ( [email protected] ) with MySQL: "
ccall get_version
ccall puts, eax
jmp quit
product_id_by_single_name:
;НА Входе: name=%docname%
;НА Выходе id
; дробим строку на a=b разделителем &
ccall getenv, "QUERY_STRING"
;у нас в eax вся строка
Собственный пьяный высер на фасме ( FASM ).
Обратить внимание на ветвление:)
+242.5
CNode* CBSTree::AddNode(CNode *&pTree, CNode *pNode)
{
...
return !NULL;
}
...
if(AddNode(pTree->left ,pNode)!=NULL)
{
...
}
...
Надо не нулл - дадим не нулл!
+242
proc HeapCompact(HANDLE hHeap, DWORD dwFlags)
mov edi, edi
push ebp
mov ebp, esp
pop ebp
jmp RtlCompactHeap
endp
Код от Microsoft. Заглушка? А вот и нет! Для заглушки нужны 5 байтов, а pop ebp останется на месте, т.е. при вызове вершина стека нарушится. Вот не могли просто NOP написать...
+242
main:
mov a, P0
dec a
inc a
jnz __div_part
jmp __mul_part
__mul_part:
// mul
mov r0, P1
mov r2, P2
call __Mul
mov P1, r0
mov P2, r1
jmp __end
__div_part:
// div
mov r0, P1
mov r2, P2
call __Div
mov P1, r0
mov P2, r1
jmp __end
__end:
end
процедура main лабы по mcs-51
+240.1
fld qword ptr [d]
call @ROUND
Это творчество дельфийского компилятора на тему i := round(d);
Он делает вызов функции ради одной пустяковой команды, что очень влияет на скорость.
+240
db $8F, $AE, $A7, $A4, $E0, $A0, $A2, $AB, $EF, $EE, $20, $E3, $EE, $E2, $AD, $A5
db $AD, $EC, $AA, $A8, $A9, $20, $A3, $AE, $A2, $AD, $AE, $AA, $AE, $A4, $A8, $AA
db $20, $E1, $20, $A4, $AD, $F1, $AC, $20, $E1, $A8, $E1, $E2, $A5, $AC, $AD, $AE
db $A3, $AE, $20, $A0, $A4, $AC, $A8, $AD, $A8, $E1, $E2, $E0, $A0, $E2, $AE, $E0
db $A0, $21