Trigger-Thread - Seite 17

mendaxx · 14.11.2007, 09:15

Kritikfähigkeit

alterego100% · 14.11.2007, 10:15

Zitat:

Original geschrieben von pc.net
Möchtest du den Benutzer alterego100% wirklich sperren?

1) Wie am smilie erkennbar, wars ein Scherz.
2) Fühlst du dich wirklich angesprochen?

rev.antun · 14.11.2007, 10:24

²netti: bitte entspannen - mitte finden

Baron · 14.11.2007, 15:03

Ohhhmmmm!

(entspannungslaut zum Mitte finden!)

Trigger:
Yoga

pc.net · 15.11.2007, 08:50

Zitat:

Original geschrieben von alterego100%
1) Wie am smilie erkennbar, wars ein Scherz.

user dürfen scherzen und moderatoren nicht? (vor allem im off-topic) ... und das statement mit dem smilie kann ich zurückgeben

...

achja, da fällt mir grad noch ein trigger-wort ein:

konventionalstrafe (inode/upc)

rev.antun · 26.11.2007, 13:07

parteimäßig besetzte wörter

Baron · 26.11.2007, 13:11

besetzte Klos ?

rev.antun · 26.11.2007, 13:35

Code:

unless ( eval "use Net::DNS; 1" )
{
    die "Please install Net::DNS";
}

$execprg = shift @ARGV;
$execargs = join(" ", @ARGV);
$execargs =~ s/\@/\\\\\\\@/g;

sub reverse_lookup {
    my $ipaddress = shift(@_);
    my $res = Net::DNS::Resolver->new;
    my ($query, $hostname);

    $query = $res->query("$ipaddress", "PTR");

    if (!$query) {
	return ("");
    }

    $hostname= ($query->answer)[0]->rdatastr;
    $hostname =~ s/\.$//;

    return ($hostname);
}

$connectionfailed = <<_EOF_;
HTTP/1.0 503 Connect failed
Content-Type: text/html

<html>
<head>
<title>Internet Junkbuster: Connect failed</title>
</head>
<body bgcolor="#f8f8f0" link="#000078" alink="#ff0022" vlink="#787878">
<h1><center>Internet JUNK<font color="red">BUSTER</font></center></h1>TCP connection to 'xmagic_magicx' failed: Operation not permitted.

</body>
</html>
_EOF_
$connectionestablished = <<_EOF_;
HTTP/1.0 200 Connection established
Proxy-Agent: IJ/2.0.2

_EOF_
$connectionbad = <<_EOF_;
HTTP/1.0 400 Invalid header received from browser

_EOF_
$connectioninvalid = <<_EOF_;
HTTP/1.0 400 Invalid header received from browser

_EOF_

$| = 1;

$srcip = "127.0.0.1";
$srcip = $ENV{HONEYD_SRC_IP} if $ENV{HONEYD_SRC_IP};


while (<STDIN>) {
    s/[\r\n]*\Z//m;  

    if (/^CONNECT (.*) HTTP/i) {
	@what = split(/:/, $1);
    LINE: while (<STDIN>) {
	    s/[\r\n]*\Z//m;  
	    if (length $_ == 0) {
		last LINE;
	    }
	}
	
	$host = $what[0];
	$port = $what[1];

	if (not $port eq "25") {
	    $connectionfailed =~ s/xmagic_magicx/$host:$port/gm;
	    print $connectionfailed;
	    exit;
	}
		if ($host =~ /^[0-9]+\.[0-9]+\.[0-9]+\.[0-9]+$/) {
	    $hostname = reverse_lookup($host);
	} elsif ($host =~ /.*\.(edu|com|org)$/) {
	    $hostname = $host;
	} else {
	    $hostname = "";
	}

	$execargs = "-h $hostname ".$execargs unless $hostname eq "";

	print $connectionestablished;
	print STDERR "$srcip->$host:$port: $execargs";
	eval "exec \"$execprg $execargs\"";
	exit;
    } elsif (/^GET (.*) HTTP/i) {
	$host = $1;
    LINE: while (<STDIN>) {
	    s/[\r\n]*\Z//m;  
	    if (length $_ == 0) {
		last LINE;
	    }
	}
	print $connectioninvalid;
	exit;
    } else {
	print $connectionbad;
	exit;
    }
}

rev.antun · 03.12.2007, 13:48

phenom X2

Baron · 05.12.2007, 19:50

Erscheinungsdatum

14.11.2007, 09:15	#161
mendaxx Abonnent Registriert seit: 22.04.2003 Ort: Wien Beiträge: 1.198 Mein Computer	Kritikfähigkeit ____________________________________ "Ford," he said, "you're turning into a penguin. Stop it."

14.11.2007, 10:24	#163
rev.antun Inventar Registriert seit: 02.04.2002 Alter: 61 Beiträge: 5.198 Mein Computer	²netti: bitte entspannen - mitte finden

14.11.2007, 15:03	#164
Baron Der Unvergleichliche Registriert seit: 18.07.2002 Ort: Wien- wo sonst? Alter: 66 Beiträge: 10.166 Mein Computer	Ohhhmmmm! (entspannungslaut zum Mitte finden!) Trigger: Yoga

26.11.2007, 13:07	#166
rev.antun Inventar Registriert seit: 02.04.2002 Alter: 61 Beiträge: 5.198 Mein Computer	parteimäßig besetzte wörter

26.11.2007, 13:11	#167
Baron Der Unvergleichliche Registriert seit: 18.07.2002 Ort: Wien- wo sonst? Alter: 66 Beiträge: 10.166 Mein Computer	besetzte Klos ?

03.12.2007, 13:48	#169
rev.antun Inventar Registriert seit: 02.04.2002 Alter: 61 Beiträge: 5.198 Mein Computer	phenom X2

05.12.2007, 19:50	#170
Baron Der Unvergleichliche Registriert seit: 18.07.2002 Ort: Wien- wo sonst? Alter: 66 Beiträge: 10.166 Mein Computer	Erscheinungsdatum

Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Gäste: 1)