Список говнокодов пользователя pbg

Всего: 3

VisualBasic / Говнокод #3594

−95

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72

For x=1 to Len(content)
  bs = Mid(content, x, 1)
  If bs = "0" Or bs = "1" Or bs = "2" Or bs = "3" Or bs = "4" Or bs = "5" Or bs = "6" Or bs = "7" Or bs = "8" Or bs = "9"
    If Not t1 = "."
      d1+bs
    ElseIf Not t2 = "."
      d2+  bs
    ElseIf Not t3 = "."
      d3+  bs
    ElseIf Not t4 = ":"
      d4+  bs
    Else
      pp+  bs
    EndIf
  ElseIf bs = "."
    If Not d1 = "" And d2 = ""
      t1 = "."
    ElseIf Not d2 = "" And d3 = ""
      t2 = "."
    ElseIf Not d3 = "" And d4 = ""
      t3 = "."
    ElseIf Not pp = ""
      d1 = pp
      d2 = ""
      d3 = ""
      d4 = ""
      pp = ""
      t1 = "."
      t2 = ""
      t3 = ""
      t4 = ""
    EndIf
  Else
    If Not d4 = "" And pp = ""
      t4 = ":"
    ElseIf Val(pp) > 79 And Val(pp) < 9000 And Val(d1) < 255 And Val(d2) < 255 And Val(d3) < 255 And Val(d4) < 255 And Val(d1) > 0 And Val(d2) > 0 And Val(d3) > 0 And Val(d4) > 0
      p+  1
      prx = d1 + t1 + d2 + t2 + d3 + t3 + d4 + t4 + pp
      If Not FindString(prx, "127.0.0.1", 1)
        For r = 1 To ArraySize(prox())
          g = 0
          If prox(r) = prx
            g = 1
          EndIf
        Next
        If g = 0
          prox(ArraySize(prox())) = prx
          ReDim prox(ArraySize(prox())+1)
        EndIf
      EndIf
      d1 = ""
      d2 = ""
      d3 = ""
      d4 = ""
      pp = ""
      t1 = ""
      t2 = ""
      t3 = ""
      t4 = ""
    Else
      d1 = ""
      d2 = ""
      d3 = ""
      d4 = ""
      pp = ""
      t1 = ""
      t2 = ""
      t3 = ""
      t4 = ""
    EndIf
  EndIf
Next x

=) это мой калл
суть: ищется посимвольным сравнениям прокси сервера формата n.n.n.n port и заполняется массив prox()
в 2000 году у PureBasic не было еще регулярок, а у меня знаний =)
даже сейчас удивляюсь что код тогда мной был написан за один раз и без комментариев 0_0 (d1,d2,d3,d4,pp,t1,t2,t3,t4.... жуть)

pbg, 29 Июня 2010

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

JavaScript / Говнокод #3590

+173

1

javascript:for(i=0; i<=document.images.length; i++){document.images[i].width=height=0}

Безумное решение которое я нашел на форуме в локалке под лозунгом "Сэкономить на трафике" была ссылка с данным кодом.

pbg, 29 Июня 2010

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

VisualBasic / Говнокод #3534

−84

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19

Macro BL(X):For I=0 To 3:X:Next:EndMacro:Dim G(14,28):Dim G2(14,28):Dim C(1)
Macro IT:X+PX(PC,I,Rt),Y+PY(PC,I,Rt):EndMacro:Dim PX(6,3,3):Dim PY(6,3,3)
Macro F(X,Y):For X=0 To Y:EndMacro:Macro N:Next:EndMacro:Macro Q:EndIf:EndMacro
F(I,28):G(1,I)=1:G(13,I)=1:G(I%13,27)=1:N:F(Pe,6):eC=0:F(Eg,1):F(PL,3)
If Val("$"+Mid("33F06336747172",2*Pe+1+Eg,1))&(1<<PL):F(Ag,3):Y=1-PL:A=1.57*Ag;
C=Cos(A):S=Sin(A):PX(Pe,eC,Ag)=C*Eg-S*Y:PY(Pe,eC,Ag)=S*Eg+C*Y:N:eC+1:Q:N:N:N
Macro K0:AddKeyboardShortcut:EndMacro:OpenWindow(0,0,0,208,432,"",$CF0001)
K0(0,37,10):K0(0,40,32):K0(0,39,12):K0(0,38,16):X=7:Y=2:D=1000:C(0)=$FFFFFF
C(1)=$1:Ok=1:Repeat:Delay(1):Et=WindowEvent():StartDrawing(WindowOutput(0))
F(A,28):F(B,14):Box(B*16-16,(A-1)*16,16,16,C(G(B,A)|G2(B,A))):N:N:StopDrawing()
If Ok:BL(G2(IT)=0):MN=0:If Et=13101:MN=EventMenu():If MN=32:CH!1:Q:Q
EL=ElapsedMilliseconds():If EL>T Or CH:T=EL+D:Y+1:Q:CA=0:F(I,3):If G(IT):CA=1:Q
N:If CA:Y-1:CH=0:MN=0:BL(G(IT)=1):X=7:Y=2:SC+1:If D>100:D-10:Q:DY=0
For Y3=26 To 0 Step -1:CM=1:For X3=1 To 12:If G(X3,Y3)=0:CM=0:Q
G(X3,Y3+DY)=G(X3,Y3):N:If CM:DY+1:Q:If Y3-DY<=0:Break:Q:N:SC+(DY*(DY+1))
SetWindowTitle(0,Str(SC)):PC=Random(6):Rt=Random(3):Ok=1:F(I,3):If G(IT):Ok=0:Q
N:Else:BL(G2(IT)=1):Q:BL(G2(IT)=0):NS=0:If MN&8:NS=MN-11:Q:If NS:X+NS:Q:C0=0
F(I,3):If G(IT):C0=1:Q:N:If C0:X-NS:Q:If MN&16:Rt+1:Rt&3:Q:C3=0:F(I,3):If G(IT)
C3=1:Q:N:If C3:Rt-1:Rt&3:Q:BL(G2(IT)=1):Q:Until Et=16

Тетрис на PureBasic

pbg, 22 Июня 2010

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

Говнокод: по колено в коде.