Thread wer hat lust auf ein Spiel?
(61 answers)
Opened by conray at 2010-02-19 20:31
Andere Möglichkeit um den Filenamen und vollen Pfad des Scriptes zu finden ist
Code (perl): (dl
)
print __FILE__; zu EierlegendeWollMilchSau.pl Es sollte auch passwörter generieren können :-D (-pwgen) Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 #!/usr/bin/perl use strict; use warnings; # History: # conray - 19.02.2010 : 19:31 UTC - initial version with ping (-ping) # betterworld - 19.02.2010 : 19:44 UTC - minor changes # esskar - 19.02.2010 : 20:27 UTC - changes on ping, and dump myself command (-dump) # topeg - 19.02.2010 : 00:02 UTC - addded mirror # Kalle - 01.03.2010 - added technology assimilation automation # conray - 02.02.2010 21:07 - added Helpfunktion (-help) and changes on Ping-Parameter # conray - 03.02.2010 19:28 - added Password-Generator (-pwgen) use FindBin; use Net::Ping; #EierlegendeWollMilchSau.pl my $cmd = lc shift @ARGV; if ($cmd eq '-ping' ) #ping { my $ip = shift @ARGV or die "No ip."; my @r = split(/\./, $ip); my $till = shift(@ARGV) || $r[3]; my $until = $till + 1; while ($r[3] < $until ) { $ip = join '.', @r; my $ping = Net::Ping->new('icmp', 1, 64 ); print "$ip " . ($ping->ping($ip) ? 'online' : 'offline') . "\n"; $r[3]++; } } elsif($cmd eq '-dump') { my $path = "$FindBin::Bin/$FindBin::Script"; open(my $myself, "< $path") or die "Unable to open myself ($path): $!"; while(<$myself>) { print $_; } close $myself; } elsif( $cmd eq '-devil' ) { print "So long, and thanks for all the fish.\n"; unlink $0 or die "Will not stop :'-(\n"; } elsif($cmd eq '-mirror') { my $fh=\*STDIN; my $file=shift; open($fh,'<',$file) || die("ERROR open $file ($!)") if($file); chomp($_) && print reverse($_)."\n" while(<$fh>); close($fh); } elsif($cmd eq '-assimilate') { my $newtechsource=shift @ARGV; my $borgtechnology; my $assimilationspace; my $newtechnology; my $biomemorycube; my ($newcmdname)=split(/\./,$newtechsource,0); use File::Basename; my ($borgbase,$borgpath)=fileparse($0); my $newborgtechnology="${borgpath}Neue$borgbase"; if (open($borgtechnology,'<',$0)) { if (open($assimilationspace,'>',$newborgtechnology)) { if (open($newtechnology,'<',$newtechsource)) { while(<$borgtechnology>) { if (/\\t-assimilate newparameter.pl\\t\\t/) { print $assimilationspace $_; print $assimilationspace " print \"\\t-$newcmdname\\t\\t assimilated weird stuff\\n\";\n"; } elsif (/^# elsif\(MORE\) \{ \}/) { my $thisline=$_; print "Assimiliere neue Technologie...\n"; print $assimilationspace "elsif(\$cmd eq \'-$newcmdname\')\n\{\n"; while(<$newtechnology>) { next if (/^#!|^use strict;|^use warnings;/); print $assimilationspace $_; } close($newtechnology); print $assimilationspace "\}\n$thisline"; } else { print $assimilationspace $_; } } close($borgtechnology); if (close($assimilationspace)) { print "Widerstand war zwecklos!\nNeue Technologie einsetzbar: Neue$borgbase -$newcmdname\n"; } else { print "Aktivierungssequenz ungültig. Assimilation abgebrochen.\n"; } } else { print "Neue Technologie kann nicht assimiliert werden. Abbruch der Assimilation\n"; } } else { print "Fluktuation im temporären Raum-/Zeitgefüge. Abbruch der Assimilation.\n"; } } else { print "Wo sind wir ? Es ist so....leise. Bring uns nach Hause!\n"; } } elsif ($cmd eq '-pwgen') { print "How much positions your password should have?\n"; print "Note: Secure passwords have 10 positions as minimum \n"; my $input=<STDIN>; chomp $input; my @bletters = ("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z"); my @sletters = ("a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z"); my @numbers = ("1", "2", "3", "4", "5", "6", "7", "8", "9", "0"); my @special = ("!", "\.", "\$", "\%", "\&", "?", "\/", "\\", "\,", "-", "_", "\#", "\*", ":", "(", ")", "=", "+", "<", "§", "[", "]", "\;"); our $pw; while (length($pw) != $input) { my $n1 = int(rand(26)); my $n2 = int(rand(26)); my $n3 = int(rand(10)); my $n4 = int(rand(23)); my $z = int(rand(4)); if ($z == 0) { $pw = $pw . $bletters[$n1]; } elsif ($z == 1) { $pw = $pw . $sletters[$n2]; } elsif ($z == 2) { $pw = $pw . $numbers[$n3]; } elsif ($z == 3) { $pw = $pw . $special[$n4]; } else { print "There is bug"; exit; } } print "The generated Password is: $pw \n"; } elsif($cmd eq '-help') { print "usage: EierlegendeWollMilchSau.pl <parameters>\n\n"; print "parameters:\n"; print "\t-ping <ip> [range]\t\ttrys to ping an ip or an range of ip addresses.\n"; print "\t-dump\t\t\tdumps itself to STDOUT\n"; print "\t-devil\t\t\tDon't try that\n"; print "\t-mirror [file]\t\t mirror file or STDIN\n"; print "\t-assimilate newparam.pl\t assimilate more perl code into this script\n"; print "\t-pwgen generates an (secure) password\n"; print "\n"; } # elsif(MORE) { } <-- don't touch this else { print "Type ./EierlegendeMilchSau.pl -help for more informations \n"; exit 0; } __END__ Mal noch ne Frage: Code (perl): (dl
)
shift @ARGV wurde ja schon einigemale verwendet. Das entfernt nur das letzte Element von @ARGV und gibts zurück oder? Wie könnte man es machen das man @ARGV nach bestimmten (immer gleichen) zeichenketten abfragt wie IP's oder einzelne zahlen etc? Oder wie kann man mehrere Parameter gleichzeitig verwenden (bzw geht das jetz schon)? mfg conray Last edited: 2010-03-03 19:43:03 +0100 (CET) |