Find the CRC of OBDII Packet VB6

Function FindCRC(Value)
   Dim val(5) As Byte
   value1 = Left(Value, 2)
   value2 = Mid(Value, 4, 2)
   value3 = Mid(Value, 7, 2)
   value4 = Mid(Value, 10, 2)
   value5 = Right(Value, 2)
   val(1) = "&H" & value1
   val(2) = "&H" & value2
   val(3) = "&H" & value3
   val(4) = "&H" & value4
   val(5) = "&H" & value5
   FindCRC = Hex(CalcCRC(val))
End Function

Function for VB6, (place it in a module) to find the CRC of incoming data on the BR-3 OBDII module.

By |June 19th, 2010|Categories: Code|Tags: , , , |0 Comments

Calculate the OBD CRC Packet VB6

Function CalcCRC(s() As Byte) As Byte
   checksum = 0
   crcreg = 255
   length = UBound(s) - LBound(s)
   For i = 1 To length
       bitpoint = 128
       x = s(i)
       For k = 0 To 7
           If bitpoint And x Then
               If crcreg And 128 Then
                   poly = 1
                   poly = 28
               End If
               crcreg = (((crcreg * 2) Or 1) Xor poly) And 255
               If crcreg And 128 Then
                   poly = 29
                   poly = 0
               End If
               crcreg = ((crcreg * 2) Xor poly) And 255
           End If
           bitpoint = bitpoint \ 2
       Next k
   CalcCRC = (Not crcreg) And 255
End Function

VB6 function, (place it in a module) that will calculate the crc hex packet to use with the BR-3 OBDII unit.

By |June 19th, 2010|Categories: Code|Tags: , , , |0 Comments


Alright, up front I am not a Apple guy I do not use Mac systems. But this is about tech support not about me.

Recently at work one of the newer executives purchased a mac and wishes to use it on our corporate wireless. No problem bring it by and I will take a look.

After trying to setup the 802.1X authentication and continuously failing, I decided to do what I know and Google search for it. I found out it’s a known issue. The site told me to replace the driver, I did and sadly it did not work. So I had to restore that file.

Called the Mac support number since the owner had support, might as well use it. Yeah, it’s about to get funny.

I give them my name, exec’s name and the serial number, and then I start to describe the problem. As first level support he asks the OS version and passes me over to the wireless support. Talking to the wireless guy he directs me to open the Advanced tab, and remove all networks, then click on 802.1X tab at the top and remove all these. I do, and then he tells me to create a new one, name for the network, SSID, Authentication Type, Encryption, Username and then Password. After I click save he then asks if we use any proxy servers and if we can bypass them.


It’s like if I went to oh say, a vehicle mechanic and said my car will not start. He then says, “Alright, put the key in, turn it to accessory, lights come on?” Yes. “Alright, turn it once more, do you hear clicks from the engine?” Yes. “Alright, don’t crank it, turn on the ass warmer, does it work?” ….What?

Yeah, okay. Your asking if I use any proxy servers, you know services that filter HTTP traffic and allow strict filtering from the inside of a network out to another, like the Internet. But, we have not even connected to the wireless network yet. It’s like having the Ethernet cable in your hand and asking if you have an Internet connection yet.

Suffice it to say, we still did not get 802.1X working on that Macbook Pro. I refuse to use plain WEP on any wireless network let alone an enterprise system. I guess I will tell the executive he can bitch out Mac for adding features that just don’t work… Well, at least on this Mac.

By |June 15th, 2010|Categories: General|Tags: , |0 Comments

Interface Screens

Main Screen:

The -1 on each side is because there is no current song playing, the numbers would represent played and total song lengths.

Navigation Screen:

I need to work on skinning MapMonkey.

Diag Screen:

Car was not running for these, so the navigation and the diag information is incorrect in the shots.

By |June 14th, 2010|Categories: Carputer|Tags: , |0 Comments