Mistři v programování na #hovnokod

Visual Basic #575

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

HovnoKod,