Camaro5 Chevy Camaro Forum / Camaro ZL1, SS and V6 Forums - Camaro5.com
 
dave@hennessey
Go Back   Camaro5 Chevy Camaro Forum / Camaro ZL1, SS and V6 Forums - Camaro5.com > General Camaro Forums > Camaro Price | Ordering | Tracking | Dealers Discussions


Reply
 
Thread Tools
Old 03-19-2009, 12:13 AM   #57
heinzd01

 
heinzd01's Avatar
 
Drives: 2010 SS RS, 1976 Type LT
Join Date: Sep 2008
Location: Jamestown, OH (East of Dayton)
Posts: 1,275
Quote:
Originally Posted by UCF w00t View Post
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 is offline   Reply With Quote
Old 03-19-2009, 12:37 AM   #58
heinzd01

 
heinzd01's Avatar
 
Drives: 2010 SS RS, 1976 Type LT
Join Date: Sep 2008
Location: Jamestown, OH (East of Dayton)
Posts: 1,275
Updated spreadsheet with 42 found 2010 Camaros VINs

Thanks UCF_w00t
heinzd01 is offline   Reply With Quote
Old 03-19-2009, 12:38 AM   #59
UCF w00t
Geek
 
UCF w00t's Avatar
 
Drives: IOM 2010 Camaro 2SS
Join Date: Oct 2008
Location: Orlando
Posts: 4,452
Quote:
Originally Posted by heinzd01 View Post
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...
Attached Images
 
UCF w00t is offline   Reply With Quote
Old 03-19-2009, 12:55 AM   #60
Hylton


 
Hylton's Avatar
 
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!"
Hylton is offline   Reply With Quote
Old 03-19-2009, 12:58 AM   #61
Zabo
Gunning for Sixth
 
Zabo's Avatar
 
Drives: '03 ZR2 Blazer
Join Date: Sep 2008
Location: Woodhaven, Michigan
Posts: 9,359
HOLY CRAP!?

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

Screw that..
Zabo is offline   Reply With Quote
Old 03-19-2009, 01:24 AM   #62
detroitboy
Pinholic
 
detroitboy's Avatar
 
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
detroitboy is offline   Reply With Quote
Old 03-19-2009, 02:13 AM   #63
crazz28
 
crazz28's Avatar
 
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
crazz28 is offline   Reply With Quote
Old 03-19-2009, 07:15 AM   #64
Zeus95

 
Zeus95's Avatar
 
Drives: IOM 2010 - 2SS/RS
Join Date: Nov 2008
Location: Oak Forest - ILL
Posts: 1,125
Nice work guys !! Keep them coming and send some to Illinois ! Please !!
Zeus95 is offline   Reply With Quote
Old 03-19-2009, 07:19 AM   #65
heinzd01

 
heinzd01's Avatar
 
Drives: 2010 SS RS, 1976 Type LT
Join Date: Sep 2008
Location: Jamestown, OH (East of Dayton)
Posts: 1,275
Quote:
Originally Posted by detroitboy View Post
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 is offline   Reply With Quote
Old 03-19-2009, 07:25 AM   #66
heinzd01

 
heinzd01's Avatar
 
Drives: 2010 SS RS, 1976 Type LT
Join Date: Sep 2008
Location: Jamestown, OH (East of Dayton)
Posts: 1,275
Quote:
Originally Posted by crazz28 View Post
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
heinzd01 is offline   Reply With Quote
Old 03-19-2009, 07:26 AM   #67
trm0002
VIN #2G1FT1EW6A9100074
 
trm0002's Avatar
 
Drives: 2010 CAMARO 2SS/RS RJT VIN 00074
Join Date: Oct 2008
Location: Buffalo,NY 'burbs
Posts: 4,204
Send a message via AIM to trm0002
Quote:
Originally Posted by heinzd01 View Post
...
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 !
__________________
trm0002 is offline   Reply With Quote
Old 03-19-2009, 08:32 AM   #68
boatingbent
 
boatingbent's Avatar
 
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
boatingbent is offline   Reply With Quote
Old 03-19-2009, 08:38 AM   #69
Txturbo
Keeper of the Faith
 
Txturbo's Avatar
 
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

Txturbo is offline   Reply With Quote
Old 03-19-2009, 09:31 AM   #70
heinzd01

 
heinzd01's Avatar
 
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
heinzd01 is offline   Reply With Quote
 
Reply

Thread Tools

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump


All times are GMT -5. The time now is 12:53 AM.


Powered by vBulletin® Version 3.8.9 Beta 4
Copyright ©2000 - 2016, vBulletin Solutions, Inc.