Reversing in-addr addresses

The following perl code will take entries that look like a.b.c.in-addr.arpa and make it into c.b.a

In the case where you have only a b.c.in-addr.arpa, then simply vi the file and remove the in-addr at the beginning of the line using [escape] to get to the edit functions and then
:%s/^in-addr.// [enter]


while () {
chomp ($_);
@sub_atom = split (/\./); #split the fields on the . character
print "$sub_atom[2].$sub_atom[1].$sub_atom[0]\n";
}

Looking for VIN checker or a used car?

I'm kinda sorta in the market for a used car. I keep having to look up these links so I'll just post them here for myself or for others to use when buying a used car.. you'll need the VIN.

Canadian Police Database of stolen vehicles:
http://www.cpic-cipc.ca/English/search.cfm

ICBC's vehicle status (whether it's in salvage, rebuilt, normal):
https://onlinebusiness.icbc.com/vdwqs/VDWQSServlet/WelcomeAction

This one lists something similar to ICBC's.
https://www.nicb.org/theft_and_fraud_awareness/vincheck/vincheck

This one shows you how many "records" there are for the vehicle. This would show you the claims history... well.. it shows you how many times there were "records" -- if you want to know what the "records" are, you'll have to pay, of course.
http://www.autocheck.com/consumers/gatewayAction.do?WT.mc_id=2353&siteID=2353&WT.srch=1