1. Куча / Говнокод #13243

    +141

    1. 1
    ПОСОНЫ, МНЕ НАКОНЕЦ ТО ДАЛИ!

    nonamez, 27 Июня 2013

    Комментарии (10)

  2. Assembler / Говнокод #13242

    +108

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    ; Assign standard procedure (PChar)

AssignFileC:

	DB	0BAH			;MOV DX,immed

; Assign standard procedure (String)

AssignFile:

	XOR	DX,DX
	MOV	BX,SP
	PUSH	DS
	LES	DI,SS:[BX+8]
	LDS	SI,SS:[BX+4]
	CLD
	XOR	AX,AX
	STOSW
	MOV	AX,fmClosed
	STOSW
	XOR	AX,AX
	MOV	CX,(fName-fBufSize)/2
	REP	STOSW
    IF WindowsVersion
	PUSH	ES
	PUSH	DI
	PUSH	ES
	PUSH	DI
    ENDIF
	MOV	CX,79
	OR	DX,DX
	JNE	@@1
	LODSB
	CMP	CL,AL
	JBE	@@1
	MOV	CL,AL
	JCXZ	@@2
@@1:	LODSB
	OR	AL,AL
	JE	@@2
	STOSB
	LOOP	@@1
@@2:	XOR	AL,AL
	STOSB
    IF WindowsVersion
	CALL	AnsiToOem
    ENDIF
	POP	DS
	RETF	8

    Угадайте с первых строк автора и как выполнится инструкция DB 0BAH; XOR DX, DX.

    inkanus-gray, 26 Июня 2013

    Комментарии (10)

  3. Pascal / Говнокод #13241

    +148

    1. 1
    2. 2
    3. 3
    4. 4
    Сионисты, давно захватившие власть во всей Европе, навязывают нормальным людям повадки педерастов 
и … На Западе идёт активная и настойчивая пропаганда гомосексуализма.

http://ru-an.info/news_content.php?id=2159

    Вот я и задумался: стоит ли после этого учить c++ ???

    Stertor, 26 Июня 2013

    Комментарии (71)

  4. Pascal / Говнокод #13240

    +140

    1. 1
    2. 2
    3. 3
    4. 4
    Несколько дней назад я просил помочь мне положить сайт vbbook.ru. 
Если честно, когда я писал это сообщение, не рассчитывал, что кто-то серьезно к этому отнесется. 
Но...
Кто-то местный положил сайт почти на 4 дня!! Я в шоке! Спасибо! Я преклоняюсь пред Вашим величием! )

    .

    Stertor, 26 Июня 2013

    Комментарии (3)

  5. Куча / Говнокод #13239

    +147

    1. 1
    Куда пропадают мои г-коды?

    Stertor, 26 Июня 2013

    Комментарии (3)

  6. Куча / Говнокод #13238

    +147

    1. 1
    Николас Вирт - Бог

    Stertor, 26 Июня 2013

    Комментарии (2)

  7. Pascal / Говнокод #13236

    +143

    1. 1
    Лучший язык программирования, я считаю. Ставь лойс, если думаешь так жи

    Stertor, 26 Июня 2013

    Комментарии (2)

  8. Pascal / Говнокод #13235

    +146

    1. 1
    Приходите на наш сайт : yadelphi.ru

    Stertor, 26 Июня 2013

    Комментарии (1)

  9. Pascal / Говнокод #13234

    +141

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    function TForm1.Pars(T_, ForS, _T: string): string;
var a, b:integer;
	begin
	Result := '';
	if (T_='') or (ForS='') or (_T='') then Exit;
	a:=Pos(T_, ForS);
	if a=0 then Exit else a:=a+Length(T_);
	ForS:=Copy(ForS, a, Length(ForS)-a+1);
	b:=Pos(_T, ForS);
	if b>0 then
	Result:=Copy(ForS, 1, b - 1);
	end;

    Давно хотел выложить эту дуру на форум.
    В чем лажа? Я подозреваю, что перегруженный оператор '=' применительно к строкам (сравнение двух строк) это вызов lstrcmp.
    следовательно, POS ЧУВСТВИТЕЛЬНА к регистру!! Это значит, что функция вернет фалс, сравнивая ВоТ эТО и вот это.
    Но это полбеды. Иные горемыки передают ей километровый текст в качестве шаблона - это нормально.

    И потом еще кто то наивно удивляется, почему функция пропускает нужное или хватает лишнее.

    Stertor, 26 Июня 2013

    Комментарии (16)

  10. Pascal / Говнокод #13233

    +75

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    9. 9
    function rus (s:string):string;             {русификатор}
var m:integer;
begin
for m := 1 to length (s) do
case s [m] of
'А'..'п':S[m]:=chr(ord (S[m])-64);
'р'..'я':S[m]:=chr(ord(S[m])-16);
end;
rus:=S; end;

    Кусок лабы на делфи

    _113, 26 Июня 2013

    Комментарии (209)