#!/usr/bin/perl

# Author: Matthew Myrick
# Date Created: 20101104
# Date Updated: 20110404
#
# Purpose: The purpose of this script is
# to generate a dictionary of numbers ranging 
# from 0000000000 to 9999999999. Which can be 
# useful for attacks against default 2wire passwords.
# 
# Usage: ./2wire.pl >> 2wire.txt


for ($c=0; $c<10000000000; $c++)
{
 if ($c<1000000000)
 {
  printf '%.10d', $c;
  print "\n";
 }
 #Needed a handler for numbers bigger than 2^32
 #This is an ugly hack, but it works!
 else
 {
  $i = sprintf( '%.10f', $c);
  $j = substr( $i,0,-11);
  print "$j \n";
 }
}