Go Premium for a chance to win a PS4. Enter to Win

x
Solved

# Calculating a BCC (Xor) for a message

Posted on 2016-10-20
Medium Priority
251 Views
How can I calculate the BCC for the follow message:

Dim s As String = ChrW(&H1) & ChrW(&H56) & "01" & ChrW(&H2) & "123" & ChrW(&H3) & ChrW(&HD)

BCC is XOR of all the bytes in a given byte stream excluding the first SOH[chr(1)] or STX[chr(2)] till first ETX[chr(3)] or EOT[chr(4)]. ETX is included in the BCC.

0
Question by:cmdolcet
• 8
• 4

Author Comment

ID: 41852581
no its just all .net environment.
0

LVL 28

Expert Comment

ID: 41853131
``````Private Function GetBCC(input As String) As Byte
Dim data = System.Text.Encoding.ASCII.GetBytes(input)
Dim firstTime = True
Dim checkSum As Byte = 0
Dim start As Integer = 1 'skip first SOH or STX
For i = start To data.Length - 1
If data(i) = 3 OrElse data(i) = 4 Then Exit For
If firstTime Then
firstTime = False
checkSum = data(i)
Else
checkSum = checkSum Xor data(i)
End If
Next
Return checkSum
'or for 8-bit
'Return checkSum And &H7F
End Function
``````
``````Dim s As String = ChrW(&H1) & ChrW(&H56) & "01" & ChrW(&H2) & "123" & ChrW(&H3) & ChrW(&HD)
MsgBox("BCC = 0x" & GetBCC(s).ToString("X"))
``````
0

Author Comment

ID: 41853677
Ark, thank you so much for the function.

I am having issues where I use this message:

SOH
1
STX
01ABC123 ETX 238 CR

The BCC which is the 238 is calculated from the following:
1
01
ABC123

using the function above I do not get the returned Hex EE
0

Author Comment

ID: 41853769
Using the values
1
01
ABC123

I get the BCC to be decimal 64
0

Author Comment

ID: 41853882
This is what the vendor says in the manual:

See attached screen shot.
Manual-Screen-Shot.PNG
0

Author Comment

ID: 41854336
OK looks like I am learning a little and figuring things out on my own ;)

I did run into an issue with the return of the following:

I get a Hex value in this function:
`````` Dim testStr As String = "V" & "01" & Telesis_DateFormat
Dim byteArray() As Byte = System.Text.ASCIIEncoding.ASCII.GetBytes(testStr)
Dim total As Integer
Try
For x As Integer = 0 To byteArray.Length - 1
total += byteArray(x)
Next
MsgBox(total.ToString("X"))
``````

But when sending to the device I need this to be more dynamic and not hard code the decimal values on the checksum

`````` Dim BCCValue As String = String.Empty
GetBCC(BCCValue)
Dim s1 As String = ChrW(&H1) & "V" & ChrW(&H2) & "01" & Telesis_DateFormat & ChrW(&H3) & ChrW(&H31) & ChrW(&H39) & ChrW(&H30) & ChrW(&HD)
Dim encodedBytes1 As Byte() = utf8.GetBytes(s1)
TelesisSerialPort1.Write(encodedBytes1, 0, encodedBytes1.Length)
``````

Therefore I need To convert my return HEX BE into decimal and then save that.
0

LVL 28

Expert Comment

ID: 41854800
You wrote that BCC is XOR while manual says that it's 8-bit sum. So correct code (according manual):
``````    Private Function GetBCC(input As String) As Byte
Dim data = System.Text.Encoding.ASCII.GetBytes(input)
Dim checkSum As Long = 0
For i = 0 To data.Length - 1
If data(i) = 1 OrElse data(i) = 2 Then Continue For
If data(i) = 3 OrElse data(i) = 4 Then Exit For
checkSum += data(i)
Next
Return checkSum And &HFF
End Function
``````
``````      Dim s = Chr(1) & "1" & Chr(2) & "01ABC123" & Chr(3) & "238" & vbCr
MsgBox(GetBCC(s))
``````
gives 238
0

Author Comment

ID: 41855113
Ark yes sorry I was confused.

How can I know take the result of what I get in the BCC function and apply it dynamically to my serialport.write code? WhatI gave use  I am confused on also is that for example I gave with decimal 238 they break it down as ChrW(&H31) & ChrW(&H39) & ChrW(&H30) how can I do this more dynamically?

`````` Dim BCCValue As String = String.Empty
GetBCC(BCCValue)
Dim s1 As String = ChrW(&H1) & "V" & ChrW(&H2) & "01" & Telesis_DateFormat & ChrW(&H3) & ChrW(&H31) & ChrW(&H39) & ChrW(&H30) & ChrW(&HD)
Dim encodedBytes1 As Byte() = utf8.GetBytes(s1)
TelesisSerialPort1.Write(encodedBytes1, 0, encodedBytes1.Length)
``````
0

LVL 28

Accepted Solution

Ark earned 2000 total points
ID: 41855725
Unfortunatelly, I don't know the specification  of TelesisSerialPort input string. Most serial ports controllers calculates BCC (as well as appends STX and ETX marks) automatically, so you just need send "ABC123" string as byte array and SP controller add all missing SOH,STX, BCC and ETX. If you need add them manually - here are functions according Manual you sent:
``````Private Function GetBCC(input As String) As Byte
Dim data = System.Text.Encoding.ASCII.GetBytes(input)
Dim checkSum As Long = 0
For i = 0 To data.Length - 1
If data(i) = 1 OrElse data(i) = 2 Then Continue For
If data(i) = 3 OrElse data(i) = 4 Then Exit For
checkSum += data(i)
Next
Return checkSum And &HFF
End Function

Private Function ByteToHex(input As Byte) As Byte()
Return System.Text.Encoding.ASCII.GetBytes(input.ToString)
End Function
``````
Using:
``````Private SOH As String = Chr(1), STX As String = Chr(2), ETX As String = Chr(3)
Private EOS As String = vbCr, MessageType As String = "1", FieldNumber = "01"

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim message = "ABC123"
Dim s = SOH & MessageType & STX & FieldNumber & message & ETX
Dim bcc = GetBCC(s)
Dim bccBytes = ByteToHex(bcc)
'Complete string to pass to SP, including SOH, STX, BCC etc:
Dim StringToSend = s & System.Text.Encoding.ASCII.GetString(bccBytes) & EOS
'Just to show string in Hex:
Dim sb As New System.Text.StringBuilder
For Each c In StringToSend
sb.AppendFormat("{0:X3}H ", Asc(c))
Next
MsgBox("Hex string to send:" & vbCrLf & sb.ToString)
End Sub
``````
0

Author Comment

ID: 41856483
So what your saying is the checksum will be calculated automatically from the com
Port ? Can you clarify the last post for me

Also I want to be able to append the checksum results automatically to the message and not take each decimal value and return it's equivalent
0

Author Comment

ID: 41856956
Ark,

What is c?
In for  For Each c In StringToSend.............
0

LVL 28

Expert Comment

ID: 41857792
For each c as Char  In StringToSend...
This loop convert each char to 3 digit hex with "H" at the end just to display string similar to manual. MsgBox displays:
001H 031H 002H 030H 031H 041H 042H 043H 031H 032H 033H 003H 032H 033H 038H 00DH
0

## Featured Post

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Calculating holidays and working days is a function that is often needed yet it is not one found within the Framework. This article presents one approach to building a working-day calculator for use in .NET.
It was really hard time for me to get the understanding of Delegates in C#. I went through many websites and articles but I found them very clumsy. After going through those sites, I noted down the points in a easy way so here I am sharing that undeâ€¦
Weâ€™ve all felt that sense of false security beforeâ€”locking down external access to a database or component and feeling like weâ€™ve done all we need to do to secure company data. But that feeling is fleeting. Attacks these days can happen in many wâ€¦
Is your data getting by on basic protection measures? In todayâ€™s climate of debilitating malware and ransomwareâ€”like WannaCryâ€”that may not be enough. You need to establish more than basics, like a recovery plan that protects both data and endpoints.â€¦
###### Suggested Courses
Course of the Month12 days, 10 hours left to enroll