From b6a81ba7fdb0875f04fddb74b33415c6e8afc507 Mon Sep 17 00:00:00 2001
From: Brian West <brian@freeswitch.org>
Date: Mon, 27 Sep 2010 21:36:02 -0500
Subject: [PATCH]  http://www.infiltrated.net/voipabuse/

---
 scripts/perl/blacklist.pl | 29 +++++++++++++++++++++++++++++
 scripts/perl/honeypot.pl  | 26 ++++++++++++++++++++++++++
 2 files changed, 55 insertions(+)
 create mode 100755 scripts/perl/blacklist.pl
 create mode 100755 scripts/perl/honeypot.pl

diff --git a/scripts/perl/blacklist.pl b/scripts/perl/blacklist.pl
new file mode 100755
index 0000000000..d6c2ea785f
--- /dev/null
+++ b/scripts/perl/blacklist.pl
@@ -0,0 +1,29 @@
+#!/usr/bin/perl
+#
+# Add this to acl.conf.xml
+#
+#   <X-PRE-PROCESS cmd="exec" data="$${base_dir}/bin/blacklist.pl"/>
+#
+
+use Data::Dumper;
+use LWP::Simple;
+
+# http://www.infiltrated.net/voipabuse/addresses.txt
+# http://www.infiltrated.net/voipabuse/netblocks.txt
+
+
+my @addresses = split(/\n/, get("http://www.infiltrated.net/voipabuse/addresses.txt"));
+my @netblocks = split(/\n/, get("http://www.infiltrated.net/voipabuse/netblocks.txt"));
+
+print "<list name=\"voip-abuse-addresses\" default=\"allow\">\n";
+foreach $addr (@addresses) {
+  print "  <node type=\"deny\" cidr=\"$addr/32\"/>\n";
+}
+print "</list>\n";
+
+
+print "<list name=\"voip-abuse-netblocks\" default=\"allow\">\n";
+foreach $netb (@netblocks) {
+  print "  <node type=\"deny\" cidr=\"$netb\"/>\n";
+}
+print "</list>\n";
diff --git a/scripts/perl/honeypot.pl b/scripts/perl/honeypot.pl
new file mode 100755
index 0000000000..ef52142cb1
--- /dev/null
+++ b/scripts/perl/honeypot.pl
@@ -0,0 +1,26 @@
+#!/usr/bin/perl
+#
+# Add this to conf/dialplan/public but only if you wish to setup a honeypot.
+#
+#   <X-PRE-PROCESS cmd="exec" data="$${base_dir}/bin/honeypot.pl"/>
+#
+
+use Data::Dumper;
+use LWP::Simple;
+
+# http://www.infiltrated.net/voipabuse/numberscalled.txt
+
+my @numberscalled = split(/\n/, get("http://www.infiltrated.net/voipabuse/numberscalled.txt"));
+
+foreach $number (@numberscalled) {
+  my ($num,$ts) = split(/\t/, $number);
+
+  print "<extension name=\"$num\">\n";
+  print "  <condition field=\"destination_number\" expression=\"^$num\$\">\n";
+  print "    <action application=\"answer\"/>\n";
+  print "    <action application=\"sleep\" data=\"30000\"/>\n";
+  print "  </condition>\n";
+  print "</extension>\n";
+}
+
+