briques_appli_key.txt

Sub WriteParam(replyCode, Buf, Rep, Replylength, RL, Adr, N)
    dim CR
    dim i
    set CR = CreateObject("DiagLibs2.CRC")

         Buf.LowIndex = 1 
         Buf.Count = 8 + N
         Buf(1) = &H34
         Buf(2) = RL
         Buf(3) = (Adr \ &H10000) And &HFF
         Buf(4) = (Adr \ &H100) And &HFF
         Buf(5) = Adr And &HFF
         Buf(6) = N
         For i = 7 to N+6
             Buf(i) = 0
         Next

         CR.Clear
         CR.Append Buf.Interval(1,N+6)
         CR.Send Buf

         ReplyLength = 3
         Rep.LowIndex = 1 
'         Rep.Count = 2
         Rep.Count = 3
         Rep(1) = &H7F
         Rep(2) = &H34
         Rep(3) = replyCode

End Sub


Sub WriteParamBis(replyCode, Buf, Rep, Replylength, RL, Adr, N, Length)
    dim CR
    dim i
    set CR = CreateObject("DiagLibs2.CRC")

         Buf.LowIndex = 1 
         Buf.Count = 8 + Length
         Buf(1) = &H34
         Buf(2) = RL
         Buf(3) = (Adr \ &H10000) And &HFF
         Buf(4) = (Adr \ &H100) And &HFF
         Buf(5) = Adr And &HFF
         Buf(6) = N
         For i = 7 to Length+6
             Buf(i) = 0
         Next

         CR.Clear
         CR.Append Buf.Interval(1,Length+6)
         CR.Send Buf

         ReplyLength = 3
         Rep.LowIndex = 1 
'         Rep.Count = 2
         Rep.Count = 3
         Rep(1) = &H7F
         Rep(2) = &H34
         Rep(3) = replyCode

End Sub

function reqWriteAKparLB(replyCode)
    dim root
    dim Header
    dim Buf
    dim Rep
    dim ReplyLength
    dim LB

    set Buf = CreateObject("DiagLibs2.ByteArray")
    set Rep = CreateObject("DiagLibs2.ByteArray")
    Set Header = H.Header

    With Header
         Set root = .ownerDocument

'         For LB = 3 to 240
'             WriteParam replyCode, Buf, Rep, ReplyLength, &H88, 0, LB
'             H.makeRequest Header, Buf
'             H.makeCheck Header, Rep, ReplyLength
'         Next

	For LB = 3 to &HFF
		WriteParamBis replyCode, Buf, Rep, ReplyLength, &H88, 0, LB, 2
		H.makeRequest Header, Buf
		H.makeCheck Header, Rep, ReplyLength
	Next

    end with
    root.documentElement.appendChild root.createTextNode(vbCrLf)
    Set reqWriteAKparLB = root
 end function

function reqWriteAK(replyCode,Key, waitErr)
    dim root
    dim Header
    dim Buf
    dim Rep
    dim ReplyLength
    dim CR

    set Buf = CreateObject("DiagLibs2.ByteArray")
    set Rep = CreateObject("DiagLibs2.ByteArray")
    set CR = CreateObject("DiagLibs2.CRC")
    Set Header = H.Header

    With Header
         Set root = .ownerDocument
         Buf.LowIndex = 1 
         Buf.Count = 10
         Buf(1) = &H34
         Buf(2) = &H88
         Buf(3) = &H00
         Buf(4) = &H00
         Buf(5) = &H00
         Buf(6) = &H02
         Buf.Interval(7,2).Text = Key
         CR.Clear
         CR.Append Buf.Interval(1,8)
         CR.Send Buf

         Rep.LowIndex = 1
         if   waitErr then
                Rep.Count = 3
                Rep(1) = &H7F
                Rep(2) = &H34
                Rep(3) = replyCode
                ReplyLength = 3
         else Rep.Count = 2
              Rep(1) = &H74
              Rep(2) = replyCode
              ReplyLength = 2
         end if

         H.makeRequest Header, Buf
         H.makeCheck Header, Rep, ReplyLength
    end with
    root.documentElement.appendChild root.createTextNode(vbCrLf)
    Set reqWriteAK = root
 end function

function reqWriteAKparRL(replyCode)
    dim root
    dim Header
    dim Buf
    dim Rep
    dim ReplyLength
    dim RL

    set Buf = CreateObject("DiagLibs2.ByteArray")
    set Rep = CreateObject("DiagLibs2.ByteArray")
    Set Header = H.Header

    With Header
         Set root = .ownerDocument

         For RL = 0 to 255
             Select Case RL
             Case &H81,&H82,&H83,&H88
             Case Else
                  WriteParam replyCode, Buf, Rep, ReplyLength, RL, 0, 2
                  H.makeRequest Header, Buf
                  H.makeCheck Header, Rep, ReplyLength
             End Select
         Next

    end with
    root.documentElement.appendChild root.createTextNode(vbCrLf)
    Set reqWriteAKparRL = root
 end function

function reqWriteAKparAdr(replyCode)
    dim root
    dim Header
    dim Buf
    dim Rep
    dim ReplyLength
    dim RL

    set Buf = CreateObject("DiagLibs2.ByteArray")
    set Rep = CreateObject("DiagLibs2.ByteArray")
    Set Header = H.Header


    With Header
         Set root = .ownerDocument

         Adr = &H0F
         Do While Adr < &HFFFFFF
             WriteParam replyCode, Buf, Rep, ReplyLength, &H88, Adr, 2
             H.makeRequest Header, Buf
             H.makeCheck Header, Rep, ReplyLength
             Adr = Adr * 2
         Loop

    end with
    root.documentElement.appendChild root.createTextNode(vbCrLf)
    Set reqWriteAKparAdr = root
 end function

function reqWriteAKparCRC()
    dim root
    dim Header
    dim Buf
    dim Rep
    dim ReplyLength

    set Buf = CreateObject("DiagLibs2.ByteArray")
    set Rep = CreateObject("DiagLibs2.ByteArray")
    Set Header = H.Header

    With Header
         Set root = .ownerDocument
         Buf.LowIndex = 1 
         Buf.Count = 10
         Buf(1) = &H34
         Buf(2) = &H88
         Buf(3) = &H00
         Buf(4) = &H00
         Buf(5) = &H00
         Buf(6) = &H02
         Buf(7) = &H00
         Buf(8) = &H00
         Buf(9) = &H00
         Buf(10) = &H00

         Rep.LowIndex = 1 
         Rep.Count = 2
         Rep(1) = &H74
         Rep(2) = &H0A
         ReplyLength = 2

         H.makeRequest Header, Buf
         H.makeCheck Header, Rep, ReplyLength
    end with
    root.documentElement.appendChild root.createTextNode(vbCrLf)
    Set reqWriteAKparCRC = root
 end function