Hi,
I'm trying to download https://sourceforge.net/account/login.php, but it
doesn't work (although it used to).
Does anyone know, what's wrong with sourceforge?
Other sites (e.g. https://www.google.de,
https://www.npm.org/assets/verify.html) work fine.
program:
program synwget;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Classes, httpsend, ssl_openssl, ssl_openssl_lib
{ you can add units after this };
var sl:TStringList;
HTTP: THTTPSend;
begin
if not IsSSLloaded then writeln(stderr, 'Not loaded');
sl := TStringList.Create;
writeln('getting ', paramstr(1));
HTTP := THTTPSend.Create;
(*didn't change anything:
http.AddPortNumberToHost:=false;
http.Protocol := '1.1';
http.UserAgent:='Mozilla/5.0 (X11; Linux i686 on x86_64; rv:6.0)
Gecko/20100101 Firefox/6.0';*)
HTTP.HTTPMethod('GET', paramstr(1));
sl.LoadFromStream(http.Document);
writeln(sl.Text);
writeln;
writeln('Headers out:');
writeln(http.Headers.text);
sl.free;
end.
failed sourceforge tcp stream:
00000000 16 03 03 01 3b 01 00 01 37 03 03 4f 80 bb 89 0a ....;... 7..O....
00000010 2c c3 1d 17 32 ba 71 ab ca 30 b0 b9 9c 94 5e f3 ,...2.q. .0....^.
00000020 31 ba c8 97 a9 97 97 45 61 26 f4 00 00 9e c0 30 1......E a&.....0
00000030 c0 2c c0 28 c0 24 c0 14 c0 0a c0 22 c0 21 00 a3 .,.(.$.. ...".!..
00000040 00 9f 00 6b 00 6a 00 39 00 38 00 88 00 87 c0 32 ...k.j.9 .8.....2
00000050 c0 2e c0 2a c0 26 c0 0f c0 05 00 9d 00 3d 00 35 ...*.&.. .....=.5
00000060 00 84 c0 12 c0 08 c0 1c c0 1b 00 16 00 13 c0 0d ........ ........
00000070 c0 03 00 0a c0 2f c0 2b c0 27 c0 23 c0 13 c0 09 ...../.+ .'.#....
00000080 c0 1f c0 1e 00 a2 00 9e 00 67 00 40 00 33 00 32 ........ .g.@.3.2
00000090 00 9a 00 99 00 45 00 44 c0 31 c0 2d c0 29 c0 25 .....E.D .1.-.).%
000000A0 c0 0e c0 04 00 9c 00 3c 00 2f 00 96 00 41 c0 11 .......< ./...A..
000000B0 c0 07 c0 0c c0 02 00 05 00 04 00 15 00 12 00 09 ........ ........
000000C0 00 14 00 11 00 08 00 06 00 03 00 ff 02 01 00 00 ........ ........
000000D0 6f 00 0b 00 04 03 00 01 02 00 0a 00 34 00 32 00 o....... ....4.2.
000000E0 0e 00 0d 00 19 00 0b 00 0c 00 18 00 09 00 0a 00 ........ ........
000000F0 16 00 17 00 08 00 06 00 07 00 14 00 15 00 04 00 ........ ........
00000100 05 00 12 00 13 00 01 00 02 00 03 00 0f 00 10 00 ........ ........
00000110 11 00 23 00 00 00 0d 00 22 00 20 06 01 06 02 06 ..#..... ". .....
00000120 03 05 01 05 02 05 03 04 01 04 02 04 03 03 01 03 ........ ........
00000130 02 03 03 02 01 02 02 02 03 01 01 00 0f 00 01 01 ........ ........
Benito
------------------------------------------------------------------------------
For Developers, A Lot Can Happen In A Second.
Boundary is the first to Know...and Tell You.
Monitor Your Applications in Ultra-Fine Resolution. Try it FREE!
http://p.sf.net/sfu/Boundary-d2dvs2
_______________________________________________
synalist-public mailing list
synalist-public@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/synalist-public
