#!/usr/bin/perl -w

# pronscan.pl - by dual
#
# Generates phone sex numbers
#############################

use strict;

my $usage = "pronscan.pl - Generates phone sex numbers
Usage: perl pronscan.pl <NPA> <x>
NPA => Most likely toll-free
  x => Number of numbers to generate
";

# Get and check args
print $usage and exit unless defined(my $npa = shift) &&
	defined(my $num = shift);

# Exchanges
my %xchange = (
	ASS => '277',
	BAD => '223',
	BIG => '244',
#	BUM => '286',
#	BUN => '286',
	CUM => '286',
	DOG => '364',
	DRY => '379',
	FAG => '324',
	FAT => '328',
	FUR => '387',
	HOT => '468',
	GAY => '429',
	LIL => '545',
	TIT => '848',
	WET => '938',
);
my $xchange_length = keys %xchange;
my @xchange_keys   = keys %xchange;

# Extensions
my %xtension = (
	ANAL => '2625',
	BALL => '2255',
	BANG => '2264',
	BEEF => '2333',
	BOOB => '2662',
	BUNG => '2864',
	BUNS => '2867',
	BUTT => '2888',
	CLIT => '2548',
	COCK => '2625',
	CUNT => '2868',
	DICK => '3425',
	FACE => '3223',
	FARM => '3276',
	FEET => '3338',
	FUCK => '3825',
	FURS => '3877',
	GAPE => '4273',
	GASH => '4274',
	GIRL => '4475',
	GUYS => '4897',
	HEAD => '4323',
	HOLE => '4653',
	JIZZ => '5499',
	JUGS => '5847',
	LEGS => '5347',
	LICK => '5425',
	LIPS => '5477',
	LOAD => '5623',
	MAMA => '6262',
	MEAT => '6328',
	MILK => '6455',
	PISS => '7477',
	PLAY => '7529',
	POLE => '7653',
	POON => '7666',
	POOP => '7667',
	PORN => '7676',
	PRON => '7766',
	RUMP => '7867',
	SCAT => '7228',
	SUCK => '7825',
	TEEN => '8336',
	TOES => '8637',
	TWAT => '8928',
	YIFF => '9433',
);
my $xtension_length = keys %xtension;
my @xtension_keys   = keys %xtension;

# Print numbers
my $count = 0;

while ($count < $num) {
	my $nxx = rand($xchange_length);
	my $xxx = rand($xtension_length);
	my $rand_xch_key  = $xchange_keys[$nxx];
	my $rand_xten_key = $xtension_keys[$xxx];
	print "$npa-$rand_xch_key-$rand_xten_key ($xchange{$rand_xch_key}-$xtension{$rand_xten_key})\n";
	$count++;
}