Autor Beitrag
NOS
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 178
Erhaltene Danke: 2

Win XP, Win Vista Ultimate, Win 7 Ultimate
Delphi 10 - Seattle PRO
BeitragVerfasst: Do 21.12.17 21:47 
Hallo zusammen,

ich möchte gern die Nutzung des TOR Project in ein privates Projekt integrieren. Nach vielen Beispielen aus dem Netz habe ich mir was zusammengestrickt ... wenn ich jedoch die IP Daten anzeigen lassen will so bekomme ich nur meine richtige IP ... also nicht die über das TOR Netzwerk ... ich prüfe das per idHTTP mit folgendem Code

ausblenden Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
var
 resultstring: string;
begin
 try
  if idHTTP.Connected then
   idHTTP.Disconnect;
  IdSocksInfo.Host := '127.0.0.1';
  IdSocksInfo.Port := 9050;
  IdSocksInfo.Authentication := saNoAuthentication;
  resultstring := IdHTTP.Get('http://ipinfo.io/json');
  if idHTTP.ResponseCode < 400 then
  begin

   ShowMessage(resultstring);

  end;
 finally
  idHTTP.Disconnect;
 end;
end;


Gibt es jemanden der damit Erfahrungen hat oder einen Sample-Code ... mir fehlen leider die Erfahrungen auf dem Gebiet.

Grüße,
Andreas
Einloggen, um Attachments anzusehen!
Frühlingsrolle
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 2165
Erhaltene Danke: 399

[Win NT] 5.1 x86 6.1 x64
[Delphi] 7 PE, 2006, 10.1 Starter, Lazarus - [C#] VS Exp 2012 - [Android API 15] VS Com 2015, Eclipse, AIDE - [C++] Builder 10.1
BeitragVerfasst: Fr 22.12.17 02:28 
Guten Abend NOS,

die JSON-Datei liefert dir somit folgenden Inhalt:

ausblenden Quelltext
1:
{ "ip": "...", "hostname": "...", "city": "...", "region": "...", "country": "...", "loc": "...", "org": "...", "postal": "..." }					

Die "..." Werte bekommst du mit der Stringverarbeitung hin.
Stichwort: Pos(), PosEx() und Copy().

_________________
„Politicians are put there to give you the idea that you have freedom of choice. You don’t. You have no choice. You have owners. They own you. They own everything." (George Denis Patrick Carlin)
NOS Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 178
Erhaltene Danke: 2

Win XP, Win Vista Ultimate, Win 7 Ultimate
Delphi 10 - Seattle PRO
BeitragVerfasst: Fr 22.12.17 08:56 
Hallo,

ja ... die Daten bekomme ich und aus dem JSON das ganze parsen oder mit nem Parser lösen ist kein Problem .... mein Problem besteht darin dass ich offensichtlich nicht über das TOR Netzwerk das GET ausführe sondern über meine normale IP addy.
Frühlingsrolle
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 2165
Erhaltene Danke: 399

[Win NT] 5.1 x86 6.1 x64
[Delphi] 7 PE, 2006, 10.1 Starter, Lazarus - [C#] VS Exp 2012 - [Android API 15] VS Com 2015, Eclipse, AIDE - [C++] Builder 10.1
BeitragVerfasst: Fr 22.12.17 11:19 
Jetzt macht die Fragestellung Sinn für mich. :D Entschuldige bitte, es war spät.
Aus der Doku geht hervor, dass man die IdSocksInfo einem IOHandler als TransparentProxy vorher übergeben soll.
Den IOHandler übergibt man dann der IdHTTP und führt .GET aus.
So viel zur Theorie:

ausblenden Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
begin
  IdSocksInfo.Host := '127.0.0.1';
  IdSocksInfo.Port := 9050;
  IdSocksInfo.Version := svSocks5; 
  IdSocksInfo.Authentication := saNoAuthentication;
  SSL_IOHandler.TransparentProxy.Assign(IdSocksInfo);
  IdHTTP.IOHandler.Assign(SSL_IOHandler); 
  resultstring := IdHTTP.Get('http://ipinfo.io/json');
  ShowMessage(resultstring);
end;

Hier ist ein Beispiel in Python. Sieht in etwa genauso aus.

_________________
„Politicians are put there to give you the idea that you have freedom of choice. You don’t. You have no choice. You have owners. They own you. They own everything." (George Denis Patrick Carlin)

Für diesen Beitrag haben gedankt: NOS
NOS Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 178
Erhaltene Danke: 2

Win XP, Win Vista Ultimate, Win 7 Ultimate
Delphi 10 - Seattle PRO
BeitragVerfasst: Fr 22.12.17 11:51 
Hallo und guten Morgen,

kein Problem ... und kein Grund sich zu entschuldigen :-) ... ich danke Dir recht herzlich für deine Antwort ... vom Grundkonstrukt hatte ich das auch schon so hingebogen ... nur das Zuweisen der Version fehlte mir scheinbar :-)

Hab vielen lieben Dank, schöne Weihnachtstag und einen guten Rutsch, falls man sich vorher nicht mehr liest :-)

Grüße,

Andreas

Für diesen Beitrag haben gedankt: Frühlingsrolle
Frühlingsrolle
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 2165
Erhaltene Danke: 399

[Win NT] 5.1 x86 6.1 x64
[Delphi] 7 PE, 2006, 10.1 Starter, Lazarus - [C#] VS Exp 2012 - [Android API 15] VS Com 2015, Eclipse, AIDE - [C++] Builder 10.1
BeitragVerfasst: Fr 22.12.17 12:01 
Dankeschön! :beer: Wünsche dir auch ein schönes Weihnachtsfest, sowie ein aufregendes neues Jahr. :D
:wave:

_________________
„Politicians are put there to give you the idea that you have freedom of choice. You don’t. You have no choice. You have owners. They own you. They own everything." (George Denis Patrick Carlin)