1. Pascal / Говнокод #13595

    +87

    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
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    55. 55
    56. 56
    57. 57
    58. 58
    59. 59
    60. 60
    61. 61
    62. 62
    63. 63
    64. 64
    65. 65
    66. 66
    67. 67
    68. 68
    69. 69
    70. 70
    71. 71
    72. 72
    73. 73
    74. 74
    75. 75
    76. 76
    77. 77
    78. 78
    79. 79
    80. 80
    81. 81
    82. 82
    83. 83
    84. 84
    85. 85
    86. 86
    87. 87
    88. 88
    89. 89
    90. 90
    91. 91
    92. 92
    93. 93
    94. 94
    95. 95
    96. 96
    *-*-*-*-*-*-*-*-*-*-*-*-*-*-зашифрованные прокси:*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
<TD id="address">
<script language=javascript>
<!--
					proxy(3,'28','70','216','172',80);
					proxy(4,'70','216','172','28',80);
					proxy(1,'103','10','59','30',8080);
					proxy(2,'10','59','30','103',80);
					proxy(3,'251','151','101','109',80);
					proxy(4,'83','209','222','25',8080);
					proxy(1,'101','109','251','89',80);
					proxy(2,'50','26','5','101',8080);
					proxy(3,'220','89','186','93',8000);
					proxy(4,'158','98','190','250',8090);
					proxy(1,'92','39','185','18',80);
					proxy(2,'8','240','44','5',8080);
					proxy(3,'127','84','124','81',8080);
                                                       
                                                               [...]
// -->
</script>
				</TD>

//*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-Свиток-расшифровщик*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*

function proxy(mode,arg1,arg2,arg3,arg4,port){
	var ret;
	switch(mode) {
		case 1:
			ret=arg1+"."+arg2+"."+arg3+"."+arg4+":"+port+"<BR>";
			break;
		case 2:
			ret=arg4+"."+arg1+"."+arg2+"."+arg3+":"+port+"<BR>";
			break;
		case 3:
			ret=arg3+"."+arg4+"."+arg1+"."+arg2+":"+port+"<BR>";
			break;
		case 4:
			ret=arg2+"."+arg3+"."+arg4+"."+arg1+":"+port+"<BR>";
			break;
	}
	document.write(ret);
}
*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-

var
  StartPos : Integer;
  MyText ,temp: string;
  memorystream:tmemorystream;
  anolink:string;
  i:integer;
  ccount:integer;
  counter:string;
  endpos:integer;
  steg,eteg:string;
  b:integer;
  mode,arg1,arg2,arg3,arg4,port:string;
begin
  steg:='proxy(';
  eteg:=');';
  memorystream:=tmemorystream.create;
  idhttp1.Request.UserAgent:='Mozilla/5.0 (Windows NT 5.1; rv:19.0) Gecko/20100101 Firefox/19.0';
  idhttp1.Request.Accept:='text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
  idhttp1.request.AcceptLanguage:='ru-RU,ru;q=0.8,en-US;q=0.5,en;q=0.3';
  idhttp1.Request.AcceptEncoding:='ngnix';
  idhttp1.Request.Connection:='keep-alive';
  idhttp1.Get('http://anonymousinet.com/index.php',memorystream);
  memorystream.Position:=0;
  mytext:=memorystreamtostring(memorystream);
  mytext:=utf8toansi(mytext);
  memorystream.Clear;
  startpos:=0;
  While true do
  begin
    startPos := PosEx(steg, MyText, StartPos + 1);
    if StartPos > 0 then
    begin
      temp:=copy(mytext,startpos+length(steg),length(mytext));
      b:=pos(eteg,temp);
      if b >0 then
      temp:=copy(temp,1,b-1);
      temp:=trim(temp);
      temp:=stringreplace(temp,'''','',[rfreplaceall]);
      mode:=stringfield(temp,',',1);
      arg1:=stringfield(temp,',',2);
      arg2:=stringfield(temp,',',3);
      arg3:=stringfield(temp,',',4);
      arg4:=stringfield(temp,',',5);
      port:=stringfield(temp,',',6);
      smemo1.lines.add(proxy(mode,arg1,arg2,arg3,arg4,port));
    end
    else
    Break;
  end;

    end;

    Зловонная попытка защитить прокси от парсинга. Гм, как бы помягче,гм, неудачная...

    Запостил: Stertor, 11 Августа 2013

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

    • ava 1024-- 11.08.2013 22:34 # 0

      > proxy(3,'28','70','216','172',80);
      > proxy(4,'70','216','172','28',80);
      Напоминает скрипты в веб-интерфейсе тплинковского роутера, где авторы курнули и создали на страницах с таблицами генерацию здоровенный массив вида
      var arraaaaaay = [
  field1, field2, field3, field4, field5, // <--- это как поля объекта, только в массиве
  field1, field2, field3, field4, field5,
  field1, field2, field3, field4, field5,
  field1, field2, field3, field4, field5,
  field1, field2, field3, field4, field5,
  0, 0 ]; // да, два ноля
      Ответить

    • ava bormand 12.08.2013 07:08 # 0

      > защитить прокси от парсинга
      По-настоящему защитить их от парсинга можно разве что по аналогии с капчей - показывать рисунком с кучей мусора поверх него ;)

      > Свиток
      Переводчик надмозг.
      Ответить

    • ava qixKopY 25.08.2021 09:32 # 0

      vanished
      Ответить

    Добавить комментарий