Ackermann Funktion
Die implizite Definition der Ackermann Funktion: / y+1 ; fuer x=0 A(x,y)=| ... weiter lesen
kleiner 404 Parser
#!/usr/bin/perl # tanbot v0.2 # sven tantau # update: DISCLAMER: Ich war jung.. :) # eichfaches parsen der url um den hostnamen zu bekommen use URI::URL; # name fuer temp datei $write_file_name = "/tmp/tanbot"; #... weiter lesen
mac Adresse verändern
Ich will, dass sich die mac Adresse meiner Wireless-Lan-Karte bei jedem "neu einstecken" auf einen neuen Wert setzt... Auf meinem Gentoo system: bash-2.05b$ grep makemac /etc/init.d/net.eth1 -B2 -A4... weiter lesen
perl
Die Taschenkettensäge für Hacker. weiter lesen
perlfoo
perl -e ' for($i=0;$i<6134;$i++){print "A";};' | nc -u -l -p 27155 grep search access.sven.log access.sven.log.1 >>search perl -pi -e 's/.*search//' search perl -pi -e 's/\s.*//' search vi search use... weiter lesen
perlsignatur
#!/usr/bin/perl &_,s;(.);chr(31^ord());eg;sub _{$_=q;omvqk?=C;.q--. q+q?Lizq?K~qk~j?5?ovq1ezsC_xrg1qzk?5?wkkol%00ovq+.q++. q;ezs1{~mtkz|w1pmx0tzf1oxoCqCq=$;}eval,"+$_>Fnordish!!" weiter lesen
Raw IP
#!/usr/bin/perl use Net::RawIP; @data = split (//,"0"x20); $p = new Net::RawIP({ip => {ihl => 11,tot_len => 44,tos => 0, ttl => 255,id => 1999,frag_off => 16382,protocol =>... weiter lesen
risd
#!/usr/bin/perl # # Remote Irc Shell Ding # Stellt eine Shell im IRC zu Verfuegung. # Anmelden mit ueblichem IRC-Client und /msg $nick PASS $passcode # Jedes weiter /msg $nick $command wird interpretiert. #... weiter lesen
risdmaker
#!/usr/bin/perl # Danke an Joern Reder fuer seinen Artikel ueber # "Reverse engineering von obfuscated perl" # # risdmaker erzeugt einen risd in unleserlichem perl # perl risdmaker.pl >>risd # perl risd # "risd"... weiter lesen
yapssd
Yet another perl start stop daemon #!/usr/bin/perl # # Copyright by Sven Tantau # # This lines are under the GNU General Public License. # http://www.gnu.org/copyleft/gpl.html # # I know this could be written... weiter lesen
