[Spooks] Automated Spy Numbers Loggings

[Derek Glidden]

On Mon, 2002-09-30 at 21:40, Susan C. Hickey wrote:
> Visit http://mailman.qth.net/mailman/listinfo/spooks to unsubscribe from this list
> 
> Hi David;
> 
> I'm in the same boat as you, glad you asked these questions too because I
> didn't want to seem silly! (I have managed to land some of them though...),
> I even have a similar radio, ATS-818!
> 73s, Sue

A few months ago, I finally received my Sony ICF-2010 that'd been on
backorder for several months, specifically ordered to listen to whatever
numbers stations I could pick up.  I live in Florida, so it's easy for
me to pick up the Cuban stations, but I've heard many other "weird"
things on SW also.  

I personally just sit down in the evening in a quiet spot, put my head
down (helps me concentrate on the sound) with the radio turned up but
not too loud and slowly spin the tuning knob until I hear something that
doesn't sound like static.  (I made the choice on the 2010 because it
has a really nice, smooth manual tuning knob that a lot of the units
seem to be moving away from lately in favor of pushbuttons.  It's just
not the same and I suspect anyone who uses their radios for this kind of
thing prefers a knob over buttons.)

I've picked up numbers, various beacons, airport weather reports from
all over the East coast, (and local airport towers because the 2010 has
air frequencies), pirate radio, and all kinds of non-numbers
"oddities".  

Just sit down in a quiet place and start tuning up the bands.  You'll
pick *something* up soon enough.  Keep a piece of paper handy to log the
time and frequency.  I've found that looking up what you've found is
almost always more interesting than the signal itself.

-- 
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
#!/usr/bin/perl -w
$_='while(read+STDIN,$_,2048){$a=29;$b=73;$c=142;$t=255;@t=map
{$_%16or$t^=$c^=($m=(11,10,116,100,11,122,20,100)[$_/16%8])&110;
$t^=(72,@z=(64,72,$a^=12*($_%16-2?0:$m&17)),$b^=$_%64?12:0,@z)
[$_%8]}(16..271);if((@a=unx"C*",$_)[20]&48){$h=5;$_=unxb24,join
"",@b=map{xB8,unxb8,chr($_^$a[--$h+84])}@ARGV;s/...$/1$&/;$d=
unxV,xb25,$_;$e=256|(ord$b[4])<<9|ord$b[3];$d=$d>>8^($f=$t&($d
>>12^$d>>4^$d^$d/8))<<17,$e=$e>>8^($t&($g=($q=$e>>14&7^$e)^$q*
8^$q<<6))<<9,$_=$t[$_]^(($h>>=8)+=$f+(~$g&$t))for@a[128..$#a]}
print+x"C*",@a}';s/x/pack+/g;eval 

usage: qrpff 153 2 8 105 225 < /mnt/dvd/VOB_FILENAME \
    | extract_mpeg2 | mpeg2dec - 

         http://www.cs.cmu.edu/~dst/DeCSS/Gallery/
http://www.eff.org/                   http://www.anti-dmca.org/