03-18-2009, 11:13 PM | #57 |
Drives: 2010 SS RS, 1976 Type LT Join Date: Sep 2008
Location: Jamestown, OH (East of Dayton)
Posts: 1,275
|
|
03-18-2009, 11:37 PM | #58 |
Drives: 2010 SS RS, 1976 Type LT Join Date: Sep 2008
Location: Jamestown, OH (East of Dayton)
Posts: 1,275
|
|
03-18-2009, 11:38 PM | #59 |
Geek
Drives: IOM 2010 Camaro 2SS Join Date: Oct 2008
Location: Orlando
Posts: 4,452
|
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...
|
03-18-2009, 11:55 PM | #60 |
Drives: fanboys and ass kissers crazy. Join Date: May 2008
Location: Ottawa, Ontario
Posts: 7,280
|
Cool thread!
__________________
"BBOMG - More than just a car show.... It's an experience!"
|
03-18-2009, 11:58 PM | #61 |
Gunning for Sixth
Drives: '03 ZR2 Blazer Join Date: Sep 2008
Location: Woodhaven, Michigan
Posts: 9,358
|
HOLY CRAP!?
Denooyer is getting #53? And they have a 2.5K premium over MSRP? Screw that.. |
03-19-2009, 12:24 AM | #62 |
Pinholic
Drives: 11 Silverado, 08 Shelby GT500 Conv. Join Date: Nov 2008
Location: Macomb, Mi
Posts: 698
|
Excellent work heinzd01....keep it up! Thank you so much for this information that we all look forward to seeing every night.
__________________
Almost had a 2SS/RS, IOM, orange accent interior, 6 speed manual, sunroof & polished wheels
ordered 01/19/07 3000 - 2/27/09 3400 - 3/27/09 3800 - 4/17/09 (built and lost in the vortex) ship date ??????? (I gave up and got a GT500) 5/11/09 - order cancelled 5/27/09 - vehicle arrived at dealership for whoever bought it after me |
03-19-2009, 01:13 AM | #63 |
Drives: '10 Camaro SS/RS, '10 GMC Sierra Join Date: Jan 2008
Location: Saskatchewan, Canada
Posts: 213
|
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.
__________________
CGM/BLACK INTERIOR 2SS/RS LS3 M6
TTi/GMS Twin Turbo, Borla S-Type mufflers, Hurst Shifter |
03-19-2009, 06:15 AM | #64 |
Drives: IOM 2010 - 2SS/RS Join Date: Nov 2008
Location: Oak Forest - ILL
Posts: 1,124
|
Nice work guys !! Keep them coming and send some to Illinois ! Please !!
|
03-19-2009, 06:19 AM | #65 | |
Drives: 2010 SS RS, 1976 Type LT Join Date: Sep 2008
Location: Jamestown, OH (East of Dayton)
Posts: 1,275
|
Quote:
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. |
|
03-19-2009, 06:25 AM | #66 | |
Drives: 2010 SS RS, 1976 Type LT Join Date: Sep 2008
Location: Jamestown, OH (East of Dayton)
Posts: 1,275
|
Quote:
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 |
|
03-19-2009, 06:26 AM | #67 | |
VIN #2G1FT1EW6A9100074
|
Quote:
Sorry, I had to... Great job guys !
__________________
|
|
03-19-2009, 07:32 AM | #68 |
Drives: 69 Pontiac Firebird Join Date: Mar 2009
Location: South Eastern Minn
Posts: 374
|
#40 is wrong , It should be Mi for michican not Mn for Minnesota
|
03-19-2009, 07:38 AM | #69 |
Keeper of the Faith
Drives: 2001 Z28 Agressively Join Date: Apr 2008
Location: Rosenberg,Texas
Posts: 1,383
|
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.
__________________
2010 Camaro SS R6P 2001 Camaro Z28 1969 Camaro SS clone |
03-19-2009, 08:31 AM | #70 |
Drives: 2010 SS RS, 1976 Type LT Join Date: Sep 2008
Location: Jamestown, OH (East of Dayton)
Posts: 1,275
|
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 |
|
|
|
|