Wo bin ich?

Alle anderen Themen ...

Moderator: ModerationP

Wo bin ich?

Beitragvon Fennek » 03. Jan 2021, 14:40

Hallo,

als Beitrag zum Thema"privacy" hier ein Code, der "weather.com" und "wikipedia.org" aufruft und aus der Antwort den Ort und die IP-Adresse des Anfragenden ausliest.

Hier der Powershell-Code, es sollte aber mit VBA genauso gehen.

Code: Alles auswählen
$userAgent = "Mozilla/5.0 (Windows NT 10.0; rv:78.0) Gecko/20100101 Firefox/78.0"

$No_Java = 'HKCU:\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3'
Set-ItemProperty -Path $No_Java -Name '1400' -Value 3 #3: abgeschaltet; 0: angeschaltet

$url1 = 'https://weather.com/'
$url2 = 'https://www.wikipedia.org'

$Geo = iwr $url1 -UserAgent $userAgent -Method Head -DisableKeepAlive
$IP    = iwr $url2 -UserAgent $userAgent -Method Head -DisableKeepAlive

    $rGeo.Headers

write-host '--------------------------'
Write-Host 'My Location: ', $Geo.Headers['TWC-GeoIP-Country'], $Geo.Headers['TWC-GeoIP-LatLong']

$cookie = $IP.headers['Set-Cookie'].Split(',')
for ($i=0; $i -lt $cookie.count; $i++){
    if ($cookie[$i].indexof('GeoIP') -eq 0) {$GeoIP = $cookie[$i] }
}
$GeoIP = $GeoIP.Split(';')[0]

write-host 'my IP', $IP.headers['x-Client-IP'], $GeoIP

Set-ItemProperty -Path $No_Java -Name '1400' -Value 0 #3: abgeschaltet; 0: angeschaltet


Aus rechtlichen Gründen sollte der Webserver wissen aus welcher Region/Land die Anfrage kommt, z.B. damit keine in der EU nicht erlaubten Tracking-Verfahren ausgeliefert werden. Aber öfters wird gleich die Nah-Region/Stadt mit-geprüft.

Wer den Code nicht ausprobieren möchte kann die genannten Web-Seiten im Browser der Wahl aufrufen und mit F12 NETWORK nachsehen.

mfg
Benutzeravatar
Fennek
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 824
Registriert: 12. Feb 2016, 18:56

Zurück zu Offtopic (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 4 Gäste