- 1
- 2
- 3
- 4
- 5
- 6
- 7
proc HeapCompact(HANDLE hHeap, DWORD dwFlags)
mov edi, edi
push ebp
mov ebp, esp
pop ebp
jmp RtlCompactHeap
endp
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
Всего: 3
+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 написать...
+127
<HTML>
<HEAD>
<TITLE>Free Web Graphics - Buttons, Backgrounds, Dividers, Bullets...</TITLE>
<meta name="author" content="EverEden Design">
<TITLE>Contact Us </TITLE>
</HEAD>
<BODY BGCOLOR="FFFFFF" BODY BACKGROUND="/images/whstuccobk2.gif" TEXT="#003333" LINK="#660033" VLINK="#003333" ALINK="#660033">
...
<HTML>
<HEAD>
<TITLE>Contact Information</TITLE>
</HEAD>
<BODY BGCOLOR="#FFFFFF" TEXT="#990066" LINK="#006633" VLINK="#339900">
...
</BODY>
</HTML>
Эта страница была сделана явно для проверки HTML-парсеров=)
http://www.graphics-4free.com/contact.html
−116.9
Public Function Str2Hex(ByVal strData As String)
Dim i As Long, CryptString As String, tmpAppend As String
On Local Error Resume Next
For i = 1 To Len(strData)
tmpAppend = Hex$(Asc(Mid$(strData, i, 1)))
If Len(tmpAppend) = 1 Then tmpAppend = Trim$(Str$(0)) & tmpAppend
CryptString = CryptString & tmpAppend: DoEvents
Next i
Str2Hex = CryptString
End Function
Работающий перевод строки в Hex.
Но:
1. On Error ... - Где тут может быть Error?!
2. Вместо "0" почему-то написано Trim$(Str$(0)
3. DoEvents, выполняющийся после каждого добавления к строке сильно замедлит код