XBee Pro ATmega128 Setting the Encrption Key Problem

    This site uses cookies. By continuing to browse this site, you are agreeing to our Cookie Policy.

    Aufgrund technischer Veränderungen ist der Mailverkehr innerhalb des Forums (Private Nachrichten) nur noch eingeschränkt möglich. Die Einschränkung ist notwendig, um zusätzliche Betriebskosten für das Forum zu vermeiden. Näheres zu den Hintergründen im Thread "Aktuelles zum Forum".Wir bitten um Verständnis.

    Hinweis kann nach Kenntnisnahme deaktiviert werden!

    • XBee Pro ATmega128 Setting the Encrption Key Problem

      Grüße, Jeder hier, der XBee-Module verwendet und den Verschlüsselungsschlüssel mit Bascom einstellt.Ich bin seit ein paar Wochen dabei und es wird einfach nicht fest, ich habe es versucht. Wahrscheinlich mache ich in Zeile 189 natürlich etwas falsch.

      Greetings, Anyone here using XBee modules who sets the Encryption key using Bascom.
      I have been at this for few weeks and it just does not get set, I tried. Likely I am doing something wrong of course on Line 189.







      Source Code

      1. $regfile = "m128def.dat"
      2. $crystal = 16000000
      3. $hwstack = 100
      4. $swstack = 100
      5. $framesize = 100
      7. $baud = 19200
      10. Config Porta = Input 'for address selection switches
      11. Porta = &B11111111 'enable ALL the PortA internal pull-up resistors
      13. Config Portb = Output
      15. Config Portc = Input 'for sensor input
      16. Portc = &B11111111
      20. 'Port C
      21. Dim J3pinstates As Byte
      23. 'Port A
      24. Dim Switchstates As Byte ' Inverted and correct format for use
      27. Dim Address_string As String * 2
      29. Red_led Alias Portb.7
      30. Dim Beambroke As Byte
      33. Config Com2 = 19200 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0
      34. Open "com2:" For Binary As #2
      38. '********************************************************************
      39. '
      40. ' Main Loop
      41. '
      42. '********************************************************************
      44. Gosub Config_xbee
      47. Do
      49. Gosub Getswitches
      50. 'Gosub Test_for_broken_beam
      52. 'If Beambroke = 1 Then
      53. Reset Red_led
      54. Print #2 , "***";
      55. Print #2 , Address_string;
      56. Print #2 , "@@@"
      57. Print #2 , Chr(13)
      58. Beambroke = 0
      59. Gosub Flash_led
      60. 'Else
      61. Set Red_led
      62. 'End If
      64. Loop
      66. End
      71. '************************************************
      72. '
      73. ' Just flash a LED
      74. '
      75. '************************************************
      77. Flash_led:
      79. Waitms 100
      80. Set Red_led
      81. Waitms 100
      82. Reset Red_led
      83. Return
      87. '************************************************
      88. '
      89. ' Test for a pin going low
      90. '
      91. '************************************************
      92. Test_for_broken_beam:
      93. ' For now I test the whole port
      94. J3pinstates = Pinc
      97. If J3pinstates < 255 Then
      98. Beambroke = 1
      99. End If
      101. Return
      104. '************************************************
      105. '
      106. ' Read the switches
      107. '
      108. '************************************************
      109. Getswitches:
      110. Switchstates = Pina ' Read the pins of port A
      111. Toggle Switchstates 'Invert the states
      113. Select Case Switchstates
      114. Case 0 : Address_string = "00"
      115. Case 1 : Address_string = "01"
      116. Case 2 : Address_string = "02"
      117. Case 3 : Address_string = "03"
      118. Case 4 : Address_string = "04"
      119. Case 5 : Address_string = "05"
      120. Case 6 : Address_string = "06"
      121. Case 7 : Address_string = "07"
      122. Case 8 : Address_string = "08"
      123. Case 9 : Address_string = "09"
      124. Case 10 : Address_string = "10"
      125. Case 11 : Address_string = "11"
      126. Case 12 : Address_string = "12"
      127. Case 13 : Address_string = "13"
      128. Case 14 : Address_string = "14"
      129. Case 15 : Address_string = "15"
      130. Case 16 : Address_string = "16"
      131. Case 17 : Address_string = "17"
      132. Case 18 : Address_string = "18"
      133. Case 19 : Address_string = "19"
      134. Case 20 : Address_string = "20"
      135. Case 21 : Address_string = "21"
      136. Case 22 : Address_string = "22"
      137. Case 23 : Address_string = "23"
      138. Case 24 : Address_string = "24"
      139. Case 25 : Address_string = "25"
      140. Case 26 : Address_string = "26"
      141. Case 27 : Address_string = "27"
      142. Case 28 : Address_string = "28"
      143. Case 29 : Address_string = "29"
      144. Case 30 : Address_string = "30"
      145. Case 31 : Address_string = "30"
      146. End Select
      148. Return
      151. '************************************************
      152. '
      153. ' Config XBEE
      154. '
      155. '************************************************
      156. Config_xbee:
      159. ' Flash the red led to indicate the entry of XBEE Config
      160. Set Red_led
      161. Waitms 150
      162. Reset Red_led
      163. Waitms 150
      165. Set Red_led
      166. Waitms 150
      167. Reset Red_led
      168. Waitms 150
      171. Waitms 1200
      172. Print #2 , "+++"; 'Use ; Semicolon To Not add CR After
      173. Waitms 100
      175. Print #2 , "ATCHC";
      176. Waitms 100
      178. Print #2 , "ATID1111";
      179. Waitms 100
      181. Print #2 , "ATBD4"; ' set to 19200 BAUD
      182. Waitms 100
      183. ' 1 = 2400 2 = 4800 3 = 9600 4 = 19200 5 = 38400 6 = 57600 7 = 115200
      185. 'Print #2 , "ATEE1"; 'Enable AES Encryption
      186. 'Waitms 100
      188. 'Print #2 , "ATKYA1A2A3A4A5A6A7A8"; 'Set Encryption KEY
      189. 'Waitms 100
      192. Print #2 , "ATWR"; 'Write to NVRam
      193. Waitms 100
      195. Print #2 , "ATCN"; 'Exit AT Mode
      196. Waitms 500
      200. ' Do some visual stuff on a led to know we ran this code.
      201. ' Flash the red led to indicate the exit of XBEE Config
      203. Set Red_led
      204. Waitms 150
      205. Reset Red_led
      206. Waitms 150
      208. Set Red_led
      209. Waitms 150
      210. Reset Red_led
      211. Waitms 150
      213. Set Red_led
      214. Waitms 150
      215. Reset Red_led
      216. Waitms 150
      218. ' Just wait a bit before transmition
      219. Waitms 1000
      221. Return
      Display All

    • Hallo Andy,
      hast du mal die AT-Eingaben per HTERM oder so von Hand probiert?
      Hast du dir die Antworten des Moduls auf deine AT Befehle überprüft?
      In diesem XBEE Manual ist einiges anders beschrieben als du es verwendest:
      +++ hier soll vorher und nachher jeweils 1 Sekunde Ruhe sein, bei dir ist es 1200ms vorher und nur 100ms nachher
      ATCN soll mit einem CR abgeschlossen werden
      ATWR Danach soll man warten, bis ein OK empfangen wurde, du wartest 100ms
      ATKY Der Schlüssel soll 64 Hex Char sein, deiner ist nur 16
      ATCH Ich finde diesen Befehl nicht, habe ihn aber vielleicht nur übersehen.

      Wie gesagt, zuerst würde ich versuchen, die Befehle manuell an das Modul zu schicken und mir auch die Antworten ansehen.

    • Franz wrote:

      Hallo Andy,
      hast du mal die AT-Eingaben per HTERM oder so von Hand probiert?
      Hast du dir die Antworten des Moduls auf deine AT Befehle überprüft?
      In diesem XBEE Manual ist einiges anders beschrieben als du es verwendest:
      +++ hier soll vorher und nachher jeweils 1 Sekunde Ruhe sein, bei dir ist es 1200ms vorher und nur 100ms nachher
      ATCN soll mit einem CR abgeschlossen werden
      ATWR Danach soll man warten, bis ein OK empfangen wurde, du wartest 100ms
      ATKY Der Schlüssel soll 64 Hex Char sein, deiner ist nur 16
      ATCH Ich finde diesen Befehl nicht, habe ihn aber vielleicht nur übersehen.

      Wie gesagt, zuerst würde ich versuchen, die Befehle manuell an das Modul zu schicken und mir auch die Antworten ansehen.
      Danke Franz,

      Dank Ihrer Hervorhebung des Textes zum Hinzufügen der Carage-Rückgaben habe ich es genau nicht getan, auch der Schlüssel musste tatsächlich länger sein.

      Der ATCH stellt die Kanaleinstellung einDie 1200 ms werden als ok angesehen und auch die 100 ms nach dem +++, ich habe das irgendwo in einem Forum gelesen, aber ich habe den Code trotzdem angepasst, um für alle anderen, die ihn brauchen, besser zu sein.

      Trotzdem haben Sie Recht, es ist besser zu codieren, um zu prüfen, ob das OK kommt.

      Der folgende Code funktioniert jetzt perfekt.


      Source Code

      1. ' This short code is an example of configuring an XBEE XBP24 S1 in AT Mode using Bascom-Avr and an Atmega128A 16Mhz.
      3. Config Com2 = 19200 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0
      5. Open "com2:" For Binary As #2
      7. Waitms 1200
      8. Print #2 , "+++";
      9. Waitms 1200
      11. Print #2 , "ATCHC" + Chr(13)
      12. Waitms 100
      14. Print #2 , "ATID1111" + Chr(13)
      15. Waitms 100
      17. Print #2 , "ATBD4" + Chr(13)
      18. Waitms 100
      20. Print #2 , "ATEE1" + Chr(13)
      21. Waitms 100
      23. Print #2 , "ATKY0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F" + Chr(13)
      24. Waitms 100
      26. Print #2 , "ATWR" + Chr(13)
      27. Waitms 100
      29. Print #2 , "ATCN" + Chr(13)
      30. Waitms 500
      Display All

      The post was edited 2 times, last by AndyF97 ().