−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
pbg 29.06.2010 19:33 # 0
Анонимус 30.06.2010 01:22 # 0
cfdev 30.06.2010 04:18 # 0
3.14159265 30.06.2010 12:31 # 0
насчет 9000 понятно )))
This is obvious 30.06.2010 13:23 # +1
3.14159265 30.06.2010 13:53 # 0
спасибо кеп, это и так ясно
но что тут особенного?
есть и номер 77
http://www.straipsniai.lt/ru/Poses/page/10814
и другие номера тоже
This is obvious 30.06.2010 16:51 # +1
>>http://govnokod.ru/3594#comment36488
pbg 30.06.2010 08:25 # 0