Tracking All Currently Known US VIN and Window Stickers - Order Tracking Thread

[heinzd01]

Originally Posted by UCF w00t

I wrote a program to automate this.

I started writing a program too. Did you loop through the alphabet & numbers for the 5th and 8th digits?

[heinzd01]

Updated spreadsheet with 42 found 2010 Camaros VINs

Thanks UCF_w00t

[UCF w00t]

Originally Posted by heinzd01

I started writing a program too. Did you loop through the alphabet & numbers for the 5th and 8th digits?

I probably should but I haven't automated that portion. I've just been using the known codes. I just guessed and found the 1SS/Auto code. We know the engine codes (position 8) but it's possible we don't have all of the position 5 codes for models. Here's a screenshot...

[Hylton]

Cool thread!

[Zabo]

HOLY CRAP!?

Denooyer is getting #53? And they have a 2.5K premium over MSRP?

Screw that..

[detroitboy]

Excellent work heinzd01....keep it up! Thank you so much for this information that we all look forward to seeing every night.

[crazz28]

Sweet thread...although it sucks you can't get Canada's vin's, our own country releases information to everybody else but not their own people.
Although I have figured that my VIN will be at least 2G1FT1EW?A91????? don't quite know how that 9th check digit works.

[Zeus95]

Nice work guys !! Keep them coming and send some to Illinois ! Please !!

[heinzd01]

Originally Posted by detroitboy

Excellent work heinzd01....keep it up! Thank you so much for this information that we all look forward to seeing every night.

Thanks go to UCF w00t for starting this including doing some VIN research. Thanks UCF w00t for showing me this and getting me hooked so that I didn't get my regular work done and I was up until 3AM playing with it. I'm up again at 7AM still playing with it instead of doing my real work.

At least now I have a little program written to loop through possible VIN values and open up the VIN lookup website.

If anyone can confirm all the possible VIN values (5th and 8th position), it would help a lot.

[heinzd01]

Originally Posted by crazz28

Sweet thread...although it sucks you can't get Canada's vin's, our own country releases information to everybody else but not their own people.
Although I have figured that my VIN will be at least 2G1FT1EW?A91????? don't quite know how that 9th check digit works.

The 9th digit is calculated from the other digits. Below is the VBA function I created if you can understand the code. It may not be the most efficient way to get the check sum digit but it seems to be working for me.

Function VIN_Checksum(sVIN As String) As String

Dim i As Integer
Dim arrCheckSum(1 To 17, 1 To 3) As Integer
Dim lngCheckSum As Long
Dim intCheckSum As Integer

' 1 - Translate each VIN character to a number
For i = LBound(arrCheckSum) To UBound(arrCheckSum)
Select Case Mid(sVIN, i, 1)
Case "0"
arrCheckSum(i, 1) = 0
Case "1"
arrCheckSum(i, 1) = 1
Case "2"
arrCheckSum(i, 1) = 2
Case "3"
arrCheckSum(i, 1) = 3
Case "4"
arrCheckSum(i, 1) = 4
Case "5"
arrCheckSum(i, 1) = 5
Case "6"
arrCheckSum(i, 1) = 6
Case "7"
arrCheckSum(i, 1) = 7
Case "8"
arrCheckSum(i, 1) = 8
Case "9"
arrCheckSum(i, 1) = 9
Case "A"
arrCheckSum(i, 1) = 1
Case "B"
arrCheckSum(i, 1) = 2
Case "C"
arrCheckSum(i, 1) = 3
Case "D"
arrCheckSum(i, 1) = 4
Case "E"
arrCheckSum(i, 1) = 5
Case "F"
arrCheckSum(i, 1) = 6
Case "G"
arrCheckSum(i, 1) = 7
Case "H"
arrCheckSum(i, 1) = 8
Case "J"
arrCheckSum(i, 1) = 1
Case "K"
arrCheckSum(i, 1) = 2
Case "L"
arrCheckSum(i, 1) = 3
Case "M"
arrCheckSum(i, 1) = 4
Case "N"
arrCheckSum(i, 1) = 5
Case "P"
arrCheckSum(i, 1) = 7
Case "R"
arrCheckSum(i, 1) = 9
Case "S"
arrCheckSum(i, 1) = 2
Case "T"
arrCheckSum(i, 1) = 3
Case "U"
arrCheckSum(i, 1) = 4
Case "V"
arrCheckSum(i, 1) = 5
Case "W"
arrCheckSum(i, 1) = 6
Case "X"
arrCheckSum(i, 1) = 7
Case "Y"
arrCheckSum(i, 1) = 8
Case "Z"
arrCheckSum(i, 1) = 9
End Select
Next i

' 2 - Setup the weight factor for each VIN digit
arrCheckSum(1, 2) = 8
arrCheckSum(2, 2) = 7
arrCheckSum(3, 2) = 6
arrCheckSum(4, 2) = 5
arrCheckSum(5, 2) = 4
arrCheckSum(6, 2) = 3
arrCheckSum(7, 2) = 2
arrCheckSum(8, 2) = 10
arrCheckSum(9, 2) = 0
arrCheckSum(10, 2) = 9
arrCheckSum(11, 2) = 8
arrCheckSum(12, 2) = 7
arrCheckSum(13, 2) = 6
arrCheckSum(14, 2) = 5
arrCheckSum(15, 2) = 4
arrCheckSum(16, 2) = 3
arrCheckSum(17, 2) = 2

' 3 - Multiply the number from 1 by the factor from 2
For i = LBound(arrCheckSum) To UBound(arrCheckSum)
arrCheckSum(i, 3) = arrCheckSum(i, 1) * arrCheckSum(i, 2)
Next

' 4 - Sum all the multiplied values from 3
lngCheckSum = 0
For i = LBound(arrCheckSum) To UBound(arrCheckSum)
lngCheckSum = lngCheckSum + arrCheckSum(i, 3)
Next

' 5 - Divide the sum from 4 by 11 and get the remainder
intCheckSum = lngCheckSum Mod 11

' Convert the remainder to text and return a value to the calling function
If intCheckSum = 10 Then
VIN_Checksum = "X"
Else
VIN_Checksum = CStr(intCheckSum)
End If


End Function ' Function VIN_Checksum(sVIN As String) As String

[trm0002]

Originally Posted by heinzd01

...
If anyone can confirm all the possible VIN values (5th and 8th position), it would help a lot.

0-9 and A-Z






















Sorry, I had to...


Great job guys !

[boatingbent]

#40 is wrong , It should be Mi for michican not Mn for Minnesota

[Txturbo]

good work guys.......do we have an updated spreadsheet yet? With this info we could keep a registry of all the 5th gen camaros produced.

[heinzd01]

Found something odd - VIN 2G1FT1EW8A9100271

At http://www.chevrolet.com/ws/nvlWindo...FT1EW8A9100271 this comes up as a Silverado

At http://www.gmbuypower.com/ws/nvlWind...FT1EW8A9100271 this comes up as a Camaro