SSS-IPC.pl

sub main(){sub os(){if($^O=~/Win/){system("cls");}else{system("clear");}}use strict;use warnings;use LWP::UserAgent;use HTTP::Response;os();my$x=LWP::UserAgent->new;$x=LWP::UserAgent->new(keep_alive => 1);$x->agent("Mozilla/5.0 (X11; Linux x86_64) AppleWebKit/537.31 (KHTML, like Gecko) Chrome/26.0.1410.63 Safari/537.31");printf("\033[93m");printf("\n  #####   #####   #####        ### ######   #####  \n #     # #     # #     #        #  #     # #     # \n #       #       #              #  #     # #       \n  #####   #####   #####  #####  #  ######  #       \n       #       #       #        #  #       #       \n #     # #     # #     #        #  #       #     # \n  #####   #####   #####        ### #        #####  \n  Coded by M.Fazri Nizar - github.com/Anon6372098\n        System Server Security IP Checker");printf("\n\nMasukkan IP yang ingin dicek : ");chomp(my$a=<STDIN>);my$b="https://ipapi.co/$a/xml";my$c=$x->get("$b");my$d=$c->content;my$e=$c->code;if($e=~/200/ || $c->is_success){if($d=~m/<ip>(.*?)<\/ip>/g){printf("\033[92m\n\nIP : $1");}if($d=~m/<city>(.*?)<\/city>/g){printf("\nKota : $1");}if($d=~m/<region>(.*?)<\/region>/g){printf("\nWilayah : $1");}if($d=~m/<region_code>(.*?)<\/region_code>/g){printf("\nKode Wilayah : $1");}if($d=~m/<country>(.*?)<\/country>/g){printf("\nKode Negara : $1");}if($d=~m/<country_name>(.*?)<\/country_name>/g){printf("\nNegara : $1");}if($d=~m/<continent_code>(.*?)<\/continent_code>/g){printf("\nKode Benua : $1");}if($d=~m/<in_eu>(.*?)<\/in_eu>/g){printf("\nDi Eropa : $1");}if($d=~m/<postal>(.*?)<\/postal>/g){printf("\nKode Postal : $1");}if($d=~m/<latitude>(.*?)<\/latitude>/g){printf("\nGaris Lintang : $1");}if($d=~m/<longitude>(.*?)<\/longitude/g){printf("\nGaris Bujur : $1");}if($d=~m/<timezone>(.*?)<\/timezone>/g){printf("\nZona Waktu : $1");}if($d=~m/<utc_offset>(.*?)<\/utc_offset>/g){printf("\nUTC Offset : $1");}if($d=~m/<country_calling_code>(.*?)<\/country_calling_code>/){printf("\nKode Panggilan : $1");}if($d=~m/<currency>(.*?)<\/currency>/){printf("\nMata Uang : $1");}if($d=~m/<languages>(.*?)<\/languages>/g){printf("\nKode Bahasa : $1");}if($d=~m/<asn>(.*?)<\/asn>/g){printf("\nASN : $1");}if($d=~m/<org>(.*?)<\/org>/g){printf("\nOrganisasi : $1");}}elsif($c->is_client_error){printf("\033[91m\n\nWebpagenya error, silahkan coba lagi nanti\n");}elsif($c->is_server_error){printf("\033[91m\n\nMasalah internal, coba cek koneksi internet dan coba lagi");}elsif($c->is_redirect){printf("\033[91m\n\nWebpagenya dialihkan, coba cek versi terbaru atau open issue");}else{printf("\033[91m\n\nErrornya tidak diketahui, coba cek koneksi, coba lagi, cek versi terbaru, atau open issue");}}main();sleep(2);printf("\033[93m\n\nGunakan lagi ? (y/t) : ");chomp(my$f=<STDIN>);if($f=~/y/ || $f=~/Y/){os();main();}else{printf("\n\nKeluar . . .\n");os();exit 0;}