sonjz

# tested on https://www.tutorialspoint.com/execute_perl_online.php
use warnings;
use strict;
use Data::Dumper;

my @errors = (
    {
        at => "Thu Jun  6 20:31:11 2019",
        error => "/url/1/2/3: 403 Forbidden"
        

sonjz

#Requires -RunAsAdministrator

# description: quick port scan for vulnerable VPNFilter for your router, you can specify router ip manually,
#              by default it will hit the external IP of your router, which is what VPNFilter would be scanning
# author: github @sonjz

param(
  [string]$routerIp = $null, # if not provided, it will perform a WhatsMyIp and scan that address
  [int[]]$ports = @(23, 80, 2000, 8080), # current VPNFilter ports, http://forums.timewarnercable.com/t5/Connectivity/VPNFilter-Arris-TG1672/m-p/152563/highlight/true#M50525
  [switch]$skipInstall = $false,

sonjz

# src: https://gallery.technet.microsoft.com/scriptcenter/Get-ExternalPublic-IP-c1b601bb

$info = ((curl http://ipinfo.io/json).Content | ConvertFrom-Json);
$info ;
$info.ip ;