+- Sinisterly (https://sinister.ly)
+-- Forum: Hacking (https://sinister.ly/Forum-Hacking)
+--- Forum: Tutorials (https://sinister.ly/Forum-Tutorials)
+--- Thread: random ip generator perl (/Thread-random-ip-generator-perl)
random ip generator perl - sec0verun - 08-07-2011
this is used to generate random ips to feed into a program like onesixty one have a ball
[code]
#!/usr/bin/perl
sub main {
open ($OUT, ">.ip.txt") or die "cannot open file";
print "This script will try to create a random ip list of 450,000 hosts\n";
for($i=0;$i<=450000;$i++){
$oct1 = int rand(254);
$oct2 = int rand(254);
$oct3 = int rand(254);
$oct4 = int rand(254);
$ip = join('.', $oct1, $oct2, $oct3, $oct4);
&trace_progress($ip);
}
}
sub trace_progress {
my $word_progress=shift;
print $OUT "$word_progress\n";
}
&main()
/[code]
========================================