crimeflare/cloudflare-tor
0
0
Fork 0
mirror of https://codeberg.org/crimeflare/cloudflare-tor synced 2024-11-14 21:32:43 +00:00
Code Issues Releases Activity

Update 'tool/irssi_cf_alturl.pl'

Browse Source
This commit is contained in:
unethical 2019-05-05 01:14:26 +00:00
parent 07285377b8
commit 885c3415a4
1 changed files with 51 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

66
tool/irssi_cf_alturl.pl
View File

@ -10,13 +10,16 @@
# /set cflarealt_channels <"#channel1, #channel2, etc"> -- Channels to automatically convert. Empty Defaults to all # /set cflarealt_channels <"#channel1, #channel2, etc"> -- Channels to automatically convert. Empty Defaults to all
# /set cflarealt_shorturl_activate <on|off> -- (off) set it 'on' to use shortner # /set cflarealt_shorturl_activate <on|off> -- (off) set it 'on' to use shortner
# /set cflarealt_shorturl_min <40> -- (40) How long a url has to be to trigger automatic url shortening # /set cflarealt_shorturl_min <40> -- (40) How long a url has to be to trigger automatic url shortening
#
# /set cflarealt_localdbpath <"string to path"> -- () '/path/database/split/'
# /set cflarealt_uselocaldb <on|off> -- (off) if 'on', please set path to local database (or the script will die)
#--------------------------------------------------------------------- #---------------------------------------------------------------------
##use strict; ##use strict;
use vars qw($VERSION %IRSSI); use vars qw($VERSION %IRSSI);
$VERSION = "20190505"; $VERSION = "20190506";
%IRSSI = ( %IRSSI = (
# Special thanks to: "eo, tsaavik" # Special thanks to: "eo, tsaavik"
authors => "Anonymous", authors => "Anonymous",
@ -32,7 +35,7 @@ use Irssi::Irc;
use LWP::Simple; use LWP::Simple;
use LWP::UserAgent; use LWP::UserAgent;
my ( $cfg_minurllen, $cfg_send2chan, $cfg_useshort, $cfg_isdebug, $cfg_chanlist ); my ( $cfg_minurllen, $cfg_send2chan, $cfg_useshort, $cfg_isdebug, $cfg_uselocaldb, $cfg_localdbpath, $cfg_chanlist );
my @cached = (); my @cached = ();
sub setuphandler { sub setuphandler {
@ -75,6 +78,18 @@ sub setuphandler {
} }
} }
Irssi::settings_add_bool( "cflarealt", "cflarealt_uselocaldb", 0 );
if ( Irssi::settings_get_bool("cflarealt_uselocaldb") ) {
print "cflarealt: Lookup Local DB enabled";
$cfg_uselocaldb = 1;
}
Irssi::settings_add_str( "cflarealt", "cflarealt_localdbpath", "" );
$cfg_localdbpath = Irssi::settings_get_str("cflarealt_localdbpath");
if ($cfg_localdbpath) {
print "cflarealt: DB path set to $cfg_localdbpath";
}
} }
sub GotUrl { sub GotUrl {
@ -102,6 +117,7 @@ sub GotUrl {
if ( ( $_ =~ /^http\:/ ) || ( $_ =~ /^https\:/ ) ) { if ( ( $_ =~ /^http\:/ ) || ( $_ =~ /^https\:/ ) ) {
foreach $a (@urls) { foreach $a (@urls) {
if ( $_ eq $a ) { if ( $_ eq $a ) {
# incase they use the same url on the line. # incase they use the same url on the line.
$same = 1; $same = 1;
next; next;
@ -116,6 +132,7 @@ sub GotUrl {
my ( $myurl, $fqdn, $junk ); my ( $myurl, $fqdn, $junk );
my ( $url, $browser, $response, $answer ); my ( $url, $browser, $response, $answer );
my ( $line, $ifoundit );
foreach (@urls) { foreach (@urls) {
$myurl = $_; $myurl = $_;
@ -130,26 +147,45 @@ sub GotUrl {
$myurl = 'https://web.archive.org/web/' . $myurl; $myurl = 'https://web.archive.org/web/' . $myurl;
} }
else { else {
deb("$target Asking API about $fqdn"); if ( $cfg_uselocaldb == 1 ) {
$answer = ''; deb("$target Lookup local DB about $fqdn");
$url = 'https://searxes.danwin1210.me/collab/open/ismitm.php?f='.$fqdn; open( CFSFILE,$cfg_localdbpath. "cloudflare_". substr( $fqdn, 0, 1 ). ".txt" ) or die "file not found for $fqdn";
$browser = LWP::UserAgent->new; $ifoundit = 0;
$browser->agent("Mozilla/5.0 (Windows NT 6.1; rv:60.0) Gecko/20100101 Firefox/60.0"); while (<CFSFILE>) {
$response = $browser->get($url); $line = $_;
$answer = $response->content; $line =~ s/\R//g;
if ( $answer == '[true,true]' ) { if ( $line eq $fqdn ) {
push( @cached, $fqdn ); $ifoundit = 1;
$myurl = 'https://web.archive.org/web/' . $myurl; last;
}
}
close CFSFILE;
if ( $ifoundit == 1 ) {
push( @cached, $fqdn );
$myurl = 'https://web.archive.org/web/' . $myurl;
}
}
else {
deb("$target Asking API about $fqdn");
$answer = '';
$url = 'https://searxes.danwin1210.me/collab/open/ismitm.php?f='.$fqdn;
$browser = LWP::UserAgent->new;
$browser->agent("Mozilla/5.0 (Windows NT 6.1; rv:60.0) Gecko/20100101 Firefox/60.0");
$response = $browser->get($url);
$answer = $response->content;
if ( $answer eq '[true,true]' ) {
push( @cached, $fqdn );
$myurl = 'https://web.archive.org/web/' . $myurl;
}
} }
} }
## ACT2: Short URL __if__ enabled and long ## ACT2: Short URL __if__ enabled and long
if ( $cfg_useshort == 1 ) { if ( $cfg_useshort == 1 ) {
if ( length($myurl) > $cfg_minurllen ) { if ( length($myurl) > $cfg_minurllen ) {
# Should change from tinyurl because it is Cloudflare.
# What is the alternative solution?
deb("$target Creating Short URL for $myurl"); deb("$target Creating Short URL for $myurl");
$url = 'https://tinyurl.com/api-create.php?url=' . $result; $url = 'https://tinyurl.com/api-create.php?url='.$result;
$browser = LWP::UserAgent->new; $browser = LWP::UserAgent->new;
$browser->agent("Mozilla/5.0 (Windows NT 6.1; rv:60.0) Gecko/20100101 Firefox/60.0"); $browser->agent("Mozilla/5.0 (Windows NT 6.1; rv:60.0) Gecko/20100101 Firefox/60.0");
$response = $browser->get($url); $response = $browser->get($url);