Guest User

Untitled

a guest
Sep 14th, 2014
968
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. program Project1;
  2.  
  3. //Coded by VANS
  4. //VANS-SOFT.RU
  5.  
  6. {$APPTYPE CONSOLE}
  7.  
  8. uses
  9.   Windows,
  10.   SysUtils,
  11.   Classes,
  12.   HTTPSend,
  13.   SSL_OpenSSL;
  14.  
  15.   function PR(Const a : string) : string;
  16.   begin
  17.     SetLength(result, length(a));
  18.     CharToOem(PChar(a), Pchar(result));
  19.   end;
  20.  
  21.   function HTTPGet(url: string): string;
  22.     var HTTP:THTTPSend; rez:TStringList;
  23.   begin
  24.     HTTP:=THTTPSend.Create;
  25.     with HTTP do begin
  26.       Protocol:='1.1';
  27.       Sock.SocksIP:='127.0.0.1';
  28.       Sock.SocksPort:='9150';
  29.       Sock.SocksResolver:=true;
  30.       HTTPMethod('GET', url);
  31.       rez:=TStringList.Create;
  32.       rez.LoadFromStream(Document);
  33.       try
  34.       result:=PR(UTF8Decode(rez[8]+' - '+rez[10]));
  35.       except
  36.       result:=rez.Text;
  37.       end;
  38.       rez.Free;
  39.     end;
  40.     HTTP.Free;
  41.   end;
  42.  
  43. begin
  44.   WriteLn(HTTPGet('http://internet.yandex.ru/get_full_info/'));
  45.   WriteLn('');
  46.   WriteLn(PR('À âîò òîò ñàìûé Silk Road êîòîðûé ñåé÷àñ çàêðûò:'));
  47.   WriteLn('');
  48.   WriteLn(HTTPGet('http://silkroadvb5piz3r.onion/'));
  49.   Readln;
  50. end.
RAW Paste Data