the "unlisted number lister"

#!/usr/bin/perl
use strict;
use warnings;
print <<'tag';
#########################################
# UNL ver. 0.1 #
# Unlisted Number Lister #
# Lists numbers not found in #
# Superpages.com's directory #
# for a given NPA-NXX #
# #
# rEph #
# (robf [at] flamegrilled [dot] net) #
#########################################
tag
# Globals
my %number;
my $BusNum = 0;
my $ResNum = 0;
## Modules
use Time::Duration;
use HTTP::Request::Common;
require LWP::UserAgent;
my $UserAgent = LWP::UserAgent->new;
$UserAgent->agent("Mozilla/5.0");
## Main
my $NPA = checkinput('NPA');
my $NXX = checkinput('NXX');
my $filename = $NPA.".".$NXX.".XXXX.txt";
print "\nOutputting $NPA-$NXX-XXXX's unlisted numbers to $filename\nPlease be patient, this may take a while.\n\n";
print "Scanning Residential Directory\n"."-" x 30 . "\n";
my $start_time = time();
# Residential Search
for (my $suffix = 0; $suffix < 10; $suffix++) {
results($suffix, 1);
}
print "\nScanning Business Directory\n"."-" x 27 . "\n";

# Business Search
for (my $suffix = 0; $suffix < 100; $suffix++) {
results($suffix, 2);
}
print "\nWriting unlisted numbers to file\n" . "-" x 32 . "\n";
sifter();
### Error Checking
sub checkinput {
my $temp = shift;
while (1){
print "Enter the $temp.\n";
chomp($_ = );
if ($_=~/^\d{3,3}?$/) {
return $_;
}
print "$temp must be 3 digits.\n\n";
}
}
## Parsing Results
sub results {
my $CurrentCount = 0;
my $URI;
my $suffix = shift;
my $type = shift;
if ($type == 1) {print "Scanning $NPA-$NXX-$suffix"."xxx";}
elsif ($type == 2) {
$suffix = sprintf("%02d", $suffix);
print "Scanning $NPA-$NXX-$suffix"."xx";}
my $FollowPage = 1;
my $PI = 1;
while ($FollowPage) {
if ($type == 1) {
$URI = "http://directory.superpages.com/wp/results.jsp?SRC=&STYPE=WR&PS=60&PI=$PI&A=$NPA&X=$NXX&P=$suffix***&search=Find";
} elsif ($type == 2) {
$URI = "http://yellowpages.superpages.com/listings.jsp?SRC=&PS=45&A=$NPA&X=$NXX&P=$suffix**&PP=N&STYPE=AP&paging=1&PI=$PI";
}
$FollowPage = 0;
my $response = $UserAgent->request(GET "$URI");
my $content = $response->content;
if ($type == 1) {
if ($FollowPage == 0 && $content=~m/Next Page/) { $FollowPage++; $PI++ }
while ($content=~m/\($NPA\) $NXX - (\d{4,4}?)/go) { unless ($number{$1}) {$ResNum++; $CurrentCount++;} $number{$1} = 1;}
} elsif ($type == 2) {
if ($FollowPage == 0 && $content=~m/>Next/) { $FollowPage++; $PI += 45}
while ($content=~m/\($NPA\) $NXX-(\d{4,4}?)/go) { unless ($number{$1}) {$BusNum++; $CurrentCount++;} $number{$1} = 1; }
}
}
print " - $CurrentCount numbers found\n";
}

### Checks Keys against each possible suffix and outputs nonexisting suffixes
sub sifter {
my $count = 0;
my $sift;
open (OUTPUT, ">>$filename") or die 'Failed to open output file!!\n';
for ($sift = 0; $sift < 10000; $sift++) {
$sift = sprintf("%04d", $sift);
unless ($number{$sift}) {
$count++;
print OUTPUT "$NPA.$NXX.$sift\n";
}
}
close OUTPUT;
print "\nStatistics\n" . "-" x 10 . "\n";
print "$ResNum\tUnique listed Residential numbers found.\n";
print "$BusNum\tUnique listed Business numbers found.\n";
print "$count\tUnlisted numbers found.\n\n";
printf "%.0f%%\tUnlisted\n%.0f%%\tResidential\n%.0f%%\tBusiness\n", $count/10000*100, $ResNum/10000*100, $BusNum/10000*100;
}
print "\nScan was completed in " . duration(time() - $start_time) . ".\n";
exit(0);

OMG LIEK N3W P0ST!!!!!!

heh i just remembered i had this thing this morning :-P
ok .... you know those lame quizes people have in their blogs? well for some reason i've been keeping all teh results from mine in a txt file and for some reason feel like posting them :)

what warcraft race are you?

Advanced Global Personality Test Results Extraversion |||||||||||| 46% Stability |||||||||||||| 60% Orderliness |||| 16% Altruism |||||||||||||||||||| 90% Interdependence |||||||||||||||||| 76% Intellectual |||||||||||||||||||| 83% Mystical |||||||||||||||||||| 83% Artistic |||||||||||||||||| 76% Religious |||||||||||||||| 63% Hedonism |||||| 30% Materialism |||||| 23% Narcissism |||||||||| 36% Adventurousness |||||||||||||||| 70% Work ethic |||||||||||| 43% Self absorbed |||| 16% Conflict seeking |||||||||||||| 56% Need to dominate |||||| 23% Romantic |||||||||||||||||| 76% Avoidant |||||| 23% Anti-authority |||||||||||| 50% Wealth |||||||||||||||| 70% Dependency |||||||||||||||| 63% Change averse |||||||||||||||||| 76% Cautiousness |||||||||||||||||| 76% Individuality |||||||||||||||||| 76% Sexuality |||||||||||||| 56% Peter pan complex |||||||||||||| 56% Physical security |||||||||||||||||||| 90% Physical Fitness |||||||||||||||||| 77% Histrionic |||||||||||| 50% Paranoia |||||||||||||||| 70% Vanity || 10% Hypersensitivity |||||||||||||||| 63% Female cliche |||||||||||| 43%

Take Free Advanced Global Personality Test
personality tests by similarminds.com

You're a Granola Hippie!



YOU ARE... Terrapin Station - A song, divided into
three parts. Full of imagery, it conveys a
message of everyone being in the world, whether
they like it or not. This song comes with a
spirit of adaption, and wonder of the world
around.

"Inspiration, move me brightly/
light the song with sense and color,/
hold away despair/
More than this I will not ask/
faced with mysteries dark and vast/
statements just seem vain at last/
some rise, some fall, some climb/
to get to Terrapin/

Counting stars by candlelight/
all are dim but one is bright:/
the spiral light of Venus/
rising first and shining best,/
From the northwest corner/
of a brand-new crescent moon/
crickets and cicadas sing/
a rare and different tune" - Grateful Dead,
"Terrapin Station" Part II.

"Back in Terrapin, for good or ill
again..." - Part III


What Grateful Dead song are you?
brought to you by Quizilla

Latest Phreak Adventure

for the past week i've been kickin' it up a knotch in da 215 and home of the cheese steak.....Philadelphia! i did some major UE,SE, and a little phreaking while there.i'll post about all that later




peace

April 28th

i didn't do to much today other the a bit of UE after school...didn't find anything good

getting OS X Tiger tomorrow!!!!!!!!!!!!!!!!

Mod Times!

Yoshi's "Mod Times" Page Finally Completed 
Yoshi the mad moder now has more than just a forum page, he now has his own page called Mod Times (kind of like High Times, get haha funny), but don't worry he still has a forum this will allow him to put special work on the front page.


http://www.yoshi.us/

What i did today

well today has been pretty uneventful....didn't have school today which is good, but dad took my car to get some work done on it ...so no l33t phreak adventures today. I did start on an article on telephone etiquette...depending on if it's any good i might send it to binrev and if not i'll just send it to natas to put up on old skool phreak

Lucky's article on CID in Von

Antiquated ID?
Have Caller ID and other call screening services outlived their usefulness?

In February, I spoke about the evolution of Caller ID spoofing (i.e. sending a fake number or name that appears on a caller ID device) at Shmoocon, a new computer security conference from the Shmoo Group.

I traced the evolution of Caller ID spoofing, from breaking into Nortel DMS-100s, to dealing with PRI ISDN lines, to present-day VoIP. Spoofing VoIP has become a hot topic in the media-so hot in fact, that I've decided to revisit the origins of Caller ID and weigh the pros and cons of its value, in the light of both modern technology, privacy concerns and hacking.

Around the mid 1990s, Caller ID exploded in popularity as consumers embraced the convenience of screening their phone calls. In the beginning, all one needed to do was dial *67 and the calling number would appear as 'Private' or 'Blocked' on Caller ID devices. Today, phone companies offer a suite of services to screen phone calls; subscribers can now put 'Anonymous Call Rejection' (ACR) on the line (usually *77 to activate it, *87 to de-activate it). If you block your number with *67 and call someone with active ACR, you'll hear a recorded message telling you that the called party does not accept blocked calls and to unblock before calling or the call won't go through.

It wasn't long before some people (mainly phone phreaks and telemarketers) discovered ways of getting around Anonymous Call Rejection. One simple way is to use a payphone, which will merely show the name of the company that owns that phone (e.g. Pacific Bell) and the number associated with that payphone. Most phreaks, however, used another simple technique: just call the local, "0" operator, and have her place the call. By doing this, the phone company's switch does not actually receive a phone number and so the call goes through but the Caller ID displays "Out of Area."

Call screeners complained about these types of calls, so the phone companies started offering a new service that works as follows: if a "no number" call comes in, the caller is forced to record his or her name; the called party then listens to this recording and has the option of accepting or rejecting the call. (This feature is commonly marketed as "Call Intercept" or "Call Gate.") Amazingly, telcos then countered this by offering a service enabling unknown callers to manually touchtone the phone number that will appear on the Caller ID device; the name usually appears as "Privacy Manager" which tips off the called party to the fact that the accompanying phone number isn't necessarily genuine.

You can pay US$5-7 per month for Caller ID and tag on another $3-5 per month for Anonymous Call Rejection or Call Intercept services. However, Caller ID spoofing has become very prevalent, and it bypasses all these services, including the *57 Call Trace feature used for dealing with harassing callers. One can now spoof Caller ID as any number you like. There are even pay services online that allow anyone who is willing to spend as little as $5 to open an account to spoof calls at rates ranging from about 5-20 cents per minute. To help defeat spoofing, other services allow you to sign up for voicemails or VoIP re-directs that enable a called party to trap a private caller's phone number; the calling party will think that their number is hidden but in fact you've captured it.

So, why do most people continue to rely on Caller ID and other call screening services, given the pliability of the system? Because cnsumers do want to screen their calls. Of course, there's a way to do this that doesn't involve a monthly fee, just an investment of about $30 - it's called an answering machine.

For over 100 years we answered phones without looking at a box or subscribing to call screening services. Time was, if you didn't want to talk to someone on the phone, you'd just hang up.

 
Lucky225 (not his real name) has been immersed in telephony’s inner workings since childhood. He possesses a vast knowledge about telephones, voicemail systems, PBXs, switches and the Intelligent Network. He has written for 2600 Magazine and Hacker’s Digest and can be reached at: lucky225@2600.com.

First Post!

#!/usr/bin/perl
$msg="Hello, world.\n";
if ($#ARGV >= 0) {
while(defined($arg=shift(@ARGV))) {
$outfilename = $arg;
open(FILE, ">" . $outfilename) || die "Can't write $arg: $!\n";
print (FILE $msg);
close(FILE) || die "Can't close $arg: $!\n";
}
} else {
print ($msg);
}
1;