Skip to content

Instantly share code, notes, and snippets.

View giganteous's full-sized avatar

Kai S giganteous

  • XS4ALL
  • Amsterdam
View GitHub Profile
@giganteous
giganteous / drops.pl
Created August 28, 2018 07:40
To debug drops, use "watch -n 1 drops.pl"
#! /usr/bin/perl
use warnings;
use strict;
use Data::Dumper;
#
sub read_udp {
my $fn = shift;
my $drops = shift;
keycode 64 = Alt_L
keycode 133 = Super_L
remove Mod1 = Alt_L
remove Mod4 = Super_L
add Mod1 = Super_L
add Mod4 = Alt_L
keycode 108 = Alt_R
keycode 134 = Super_R
import dns.resolver
r = dns.resolver.Resolver()
r.nameservers = ['194.109.9.99']
result = r.query('servfail.sidnlabs.nl', raise_on_no_answer=False)
if result.rcode == SERVFAIL:
print("YES")
@giganteous
giganteous / dnsdist.lua
Created January 16, 2018 12:07
dnsdist.conf snippet for filtering the pirate bay domains
addAction(OrRule({
QNameRule("accesspiratebay.co.uk"),
QNameRule("hyperproxy.net"),
QNameRule("ikwilthepiratebay.org"),
QNameRule("kanyebay.co.uk"),
QNameRule("pirateaccess.info"),
QNameRule("piratebayaccess.co.uk"),
-- snipped most of it for brevity
QNameRule("www.proxybay.date"),
QNameRule("www.thehiddenbay.bid"),