byp4a55 professor6T9

Linux SamCT211 4.4.302+ #86009 SMP Wed Nov 26 18:19:20 CST 2025 x86_64
nginx/1.23.1
192.168.4.211

update_bad_phishing_sites

#!/usr/bin/perl -w

#
#   MailScanner - SMTP E-Mail Virus Scanner
#   Copyright (C) 2008  Julian Field
#
#   $Id: update_phishing_sites 3982 2007-06-26 09:00:39Z sysjkf $
#
#   This program is free software; you can redistribute it and/or modify
#   it under the terms of the GNU General Public License as published by
#   the Free Software Foundation; either version 2 of the License, or
#   (at your option) any later version.
#
#   This program is distributed in the hope that it will be useful,
#   but WITHOUT ANY WARRANTY; without even the implied warranty of
#   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#   GNU General Public License for more details.
#
#   You should have received a copy of the GNU General Public License
#   along with this program; if not, write to the Free Software
#   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
#
#   The author, Julian Field, can be contacted by email at
#      Jules@JulianField.net
#   or by paper mail at
#      Julian Field
#      Dept of Electronics & Computer Science
#      University of Southampton
#      Southampton
#      SO17 1BJ
#      United Kingdom
#

use strict; 
use Net::DNS::Resolver;
use LWP::UserAgent;
use FileHandle;
use DirHandle;

# Work out Quarantine Directory from MailScanner.conf
my $base = '/var/spool/MailScanner/quarantine'; # Default value
my $msconf = new FileHandle("< /opt/MailScanner/etc/MailScanner.conf") or warn "Cannot open main configuration file /opt/MailScanner/etc/MailScanner.conf";
while(<$msconf>) {
  $base = $1 if /^\s*Quarantine\s*Dir\s*=\s*(\S+)/;
}
close($msconf);

my $current = $base . '/phishingupdate/';
my $cache = $current . 'cache/';
my $status = $current . 'status';
my $urlbase = "http://cdn.mailscanner.info/";
my $target= "/opt/MailScanner/etc/phishing.bad.sites.conf";
my $query="msupdate.greylist.bastionmail.com";

my $baseupdated = 0;
if (! -s $target) {
	open (FILE,">$target") or die "Failed to open target file so creating a blank file";
	print FILE "# Wibble";
	close FILE;
} else {
      utime(time(), time(), $current); # So that clean quarantine doesn't delete it!
}

if (! -d $current) {
	print "Working directory is not present - making.....";
	mkdir ($current) or die "failed";
	print " ok!\n";
}

if (! -d $cache) {
	print "Cache directory is not present - making.....";
	mkdir ($cache) or die "failed";
	print " ok!\n";
}

my ($status_base, $status_update);

$status_base=-1;
$status_update=-1;

if (! -s $status) {
	print "This is the first run of this program.....\n";
}
else {
	print "Reading status from $status\n";
	open(STATUS_FILE, $status) or die "Unable to open status file\n";
	my $line=<STATUS_FILE>;
	close (STATUS_FILE);
	
	# The status file is text.text
	if ($line =~ /^(.+)\.(.+)$/) {
		$status_base=$1;
		$status_update=$2;
	}
}

print "Checking that $cache$status_base exists...";
if ((! -s "$cache$status_base") && (!($status_base eq "-1"))) {
	print " no - resetting.....";
	$status_base=-1;
}
print " ok\n";

print "Checking that $cache$status_base.$status_update exists...";
if ((! -s "$cache$status_base.$status_update") && ($status_update>0)) {
	print " no - resetting.....";
	$status_update=-1;
}
print " ok\n";

my ($currentbase, $currentupdate);

$currentbase=-1;
$currentupdate=-1;

# Lets get the current version
my $res = Net::DNS::Resolver->new();
 my $RR = $res->query($query, 'TXT');
	my @result;

if ($RR) {
		foreach my $rr ($RR->answer) {
			my $text = $rr->rdatastr;
			if ($text =~ /^"(.+)\.(.+)"$/) {
				$currentbase=$1;
				$currentupdate=$2;
				last;
			}
		}
}

die "Failed to retrieve valid current details\n" unless (!($currentbase eq "-1"));

print "I am working with: Current: $currentbase - $currentupdate and Status: $status_base - $status_update\n";

my $generate=0;

# Create a user agent object
my $ua = LWP::UserAgent->new;
$ua->agent("UpdateBadPhishingSites/0.1 ");
# Patch from Heinz.Knutzen@dataport.de
$ua->env_proxy;

if (!($currentbase eq $status_base)) {
	print "This is base update\n";
	$status_update = -1;

$baseupdated = 1;

# Create a request
	my $req = HTTP::Request->new(GET => $urlbase.$currentbase);

# Pass request to the user agent and get a response back
	my $res = $ua->request($req);

# Check the outcome of the response
	if ($res->is_success) {
			open (FILE, ">$cache/$currentbase") or die "Unable to write base file ($cache/$currentbase)\n";
			print FILE $res->content;
			close (FILE);
	}
	else {
			warn "Unable to retrieve $urlbase.$currentbase :".$res->status_line, "\n";
	}
	$generate=1;  
}
else {
	print "No base update required\n";
}

# Now see if the sub version is different
if (!($status_update eq $currentupdate)) {

my %updates=();

print "Update required\n";
	if ($currentupdate<$status_update) {
		# In the unlikely event we roll back a patch - we have to go from the base
		print "Error!: $currentupdate<$status_update\n";
		$generate = 1;
		$status_update = 0;
	}
	# If there are updates avaliable and we haven't donloaded them yet we need to reset the counter
	if ($currentupdate>0) {
		if ($status_update<1) {
			$status_update=0;
		}
		my $i;
		# Loop through each of the updates, retrieve it and then add the information into the update array
		for ($i=$status_update+1; $i<=$currentupdate; $i++) {
			print "Retrieving $urlbase$currentbase.$i\n";
			my $req = HTTP::Request->new(GET => $urlbase.$currentbase.".".$i);
			my $res = $ua->request($req);
			warn "Failed to retrieve $urlbase$currentbase.$i" unless ($res->is_success) ;
					my $line;
				 foreach $line (split("\n", $res->content)) {
					# Is it an addition?
					if ($line =~ /^\> (.+)$/) {
						if (defined $updates{$1}) {
							if ($updates{$1} eq "<") {
								delete $updates{$1};
							}
						}
						else {
							$updates{$1}=">";
						}
					}
					# Is it an removal?
					if ($line =~ /^\< (.+)$/) {
						if (defined $updates{$1}) {
							if ($updates{$1} eq ">") {
								delete $updates{$1};
							}
						}
						else {
							$updates{$1}="<";
						}
					}
				}
		}
		# OK do we have a previous version to work from?
		if ($status_update>0) {
			# Yes - we open the most recent version
			open (FILE, "$cache$currentbase.$status_update") or die "Unable to open base file ($cache/$currentbase.$status_update)\n";
		}
		else {
			# No - we open the the base file
			open (FILE, "$cache$currentbase") or die "Unable to open base file ($cache/$currentbase)\n";
		}
		# Now open the new update file
		print "$cache$currentbase.$currentupdate\n";
		open (FILEOUT, ">$cache$currentbase.$currentupdate") or die "Unable to open new base file ($cache$currentbase.$currentupdate)\n";

# Loop through the base file (or most recent update)
		while (<FILE>) {
			chop;
			my $line=$_;

if (defined ($updates{$line})) {
				# Does the line need removing?
				if ($updates{$line} eq "<") {
					$generate=1;
					next;
				}
				# Is it marked as an addition but already present?
				elsif ($updates{$line} eq ">") {
					delete $updates{$line};
				}
			}
			print FILEOUT $line."\n";
		}
		close (FILE);
		my $line;
		# Are there any additions left
		foreach $line (keys %updates) {
			if ($updates{$line} eq ">") {
				print FILEOUT $line."\n" ;
				$generate=1;
			}
		}
		close (FILEOUT);
	}
		
}

# Changes have been made
if ($generate) {

print "Updating live file $target\n";

my $file="";

if ($currentupdate>0) {
		$file="$cache/$currentbase.$currentupdate";
	}
	else {
		$file="$cache/$currentbase";
	}

if ($file eq "") {
		die "Unable to work out file!\n";
	}
		
	system ("mv -f $target $target.old");
	system ("cp $file $target");

open(STATUS_FILE, ">$status") or die "Unable to open status file\n";
	print STATUS_FILE "$currentbase.$currentupdate\n";
	close (STATUS_FILE);
}

my $queuedir = new DirHandle;
my $file;
my $match1 = "^" . $currentbase . "\$";
my $match2 = "^" . $currentbase . "." . $currentupdate . "\$";
$queuedir->open($cache) or die "Unable to do clean up\n";
while(defined($file = $queuedir->read())) {
	next if $file eq '.' || $file eq '..';
	next if $file =~ /$match1/;
	next if $file =~ /$match2/;
	print "Deleting cached file: $file.... ";
	unlink($cache.$file) or die "failed";
	print "ok\n";
}
$queuedir->close();

Name	Type	Size	Owner/Group	Permission	Last Modified	Actions
.	dir	-	0/0	0755	2025-06-20 04:13:54
..	dir	-	0/0	0755	2025-06-20 04:14:21
cron	dir	-	0/0	0755	2025-06-20 04:13:54
CheckModuleVersion	text/x-perl	1.02 KB	0/0	0755	2025-06-20 04:13:54
MailScanner	text/x-perl	66.12 KB	0/0	0755	2025-06-20 04:13:54
Quick.Peek	text/x-perl	2.68 KB	0/0	0755	2025-06-20 04:13:54
RawSendmailToCompleteMessage	text/x-perl	1.19 KB	0/0	0755	2025-06-20 04:13:54
Sophos.install	text/x-shellscript	7.38 KB	0/0	0755	2025-06-20 04:13:54
Sophos.install.linux	text/x-shellscript	7.38 KB	0/0	0755	2025-06-20 04:13:54
Sophos.install.solaris	text/x-shellscript	6.21 KB	0/0	0755	2025-06-20 04:13:54
analyse_SpamAssassin_cache	text/x-perl	4.31 KB	0/0	0755	2025-06-20 04:13:54
analyze_SpamAssassin_cache	text/plain	26 B	0/0	0755	2025-06-20 04:13:54
check_mailscanner	text/x-shellscript	3.81 KB	0/0	0755	2025-06-20 04:13:54
check_mailscanner.tru64	text/x-shellscript	2.1 KB	0/0	0755	2025-06-20 04:13:54
clean.SA.cache	text/x-perl	1.09 KB	0/0	0755	2025-06-20 04:13:54
clean.quarantine	text/x-perl	931 B	0/0	0755	2025-06-20 04:13:54
d2mbox	text/x-shellscript	1.48 KB	0/0	0755	2025-06-20 04:13:54
df2mbox	text/x-shellscript	1.52 KB	0/0	0755	2025-06-20 04:13:54
getPERLLIB	text/x-perl	988 B	0/0	0755	2025-06-20 04:13:54
mailscanner.sbin.orig	text/x-perl	65.35 KB	0/0	0755	2025-06-20 04:13:54
mailscanner_create_locks	text/x-perl	2.59 KB	0/0	0755	2025-06-20 04:13:54
processing_messages_alert	text/x-shellscript	1.57 KB	0/0	0755	2025-06-20 04:13:54
svn-commit.tmp	text/plain	188 B	0/0	0755	2025-06-20 04:13:54
tnef	application/x-pie-executable	67.23 KB	0/0	0755	2025-06-20 04:13:54
tnef.solaris.x86	application/x-executable	52.03 KB	0/0	0755	2025-06-20 04:13:54
update_bad_phishing_emails	text/x-perl	8.17 KB	0/0	0755	2025-06-20 04:13:54
update_bad_phishing_sites	text/x-perl	8.04 KB	0/0	0755	2025-06-20 04:13:54
update_bad_phishing_sites.pl	text/x-perl	6.8 KB	0/0	0755	2025-06-20 04:13:54
update_bad_phishing_sites.sh.old	text/x-shellscript	2.67 KB	0/0	0755	2025-06-20 04:13:54
update_phishing_sites	text/x-shellscript	2.37 KB	0/0	0755	2025-06-20 04:13:54
update_spamassassin	text/x-shellscript	1.26 KB	0/0	0755	2025-06-20 04:13:54
update_virus_scanners	text/x-shellscript	2.4 KB	0/0	0755	2025-06-20 04:13:54
upgrade_MailScanner_conf	text/x-perl	11.53 KB	0/0	0755	2025-06-20 04:13:54
upgrade_languages_conf	text/plain	24 B	0/0	0755	2025-06-20 04:13:54

Team Anon Force

https://t.me/Professor6T9x