cypherpunks/stop_cloudflare
cypherpunks
/
stop_cloudflare
mirror of https://git.openprivacy.ca/cypherpunks/stop_cloudflare
0
0
Fork 0
Code Issues Releases Activity

Update 'tool/irssi_cf_alturl.pl'

This commit is contained in:
unethical 2019-05-03 09:47:03 +00:00
parent c17a85697b
commit 195a4ac211
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
tool/irssi_cf_alturl.pl
View File

@ -84,12 +84,15 @@ sub mitmtest {
my ( $server, $chan, $longurl ) = @_;
my ($fqdn) = $longurl =~ m!(https?://[^:/]+)!;
my ( $junk, $fqdn ) = split( /\/\//, $fqdn, 2 );
my $scanned_url;
## FQDN is ok
if (length($fqdn) >= 4) {
my $url = 'https://searxes.danwin1210.me/collab/open/ismitm.php?f=' . $fqdn;
deb("getting url:($url)");
my $browser = LWP::UserAgent->new;
$browser->agent("cloudflare cflare_alt.pl");
my $response = $browser->get($url);
my $scanned_url = $response->content;
$scanned_url = $response->content;
}
## if the array[1] is true => it is MITM
if ( $scanned_url == '[true,true]' ) {
$scanned_url = 'https://web.archive.org/web/' . $longurl;