View source

= <span class="f_Header">Action</span> =

Encrypts a variable or array using the XTEA protocol.

<span style="font-family: Arial;">&nbsp;</span>

<span style="font-family: Arial;">&nbsp;</span>

= <span class="f_Header">Syntax</span> =

<span style="font-weight: bold; color: rgb(0, 0, 128);">XTEAENCODE &nbsp;</span>Msg , Key , size

<span style="font-family: Arial;">&nbsp;</span>

<span style="font-family: Arial;">&nbsp;</span>

= <span class="f_Header">Remarks</span> =
<div style="padding: 0px; margin: 0px 0px 0px 4px;">
{| width="609" cellspacing="0" cellpadding="1" border="1" style="border: 2px solid rgb(0, 0, 0); border-spacing: 0px; border-collapse: collapse;"
|- style="vertical-align: top;"
| valign="top" width="15%" style="width: 88px; border: 1px solid rgb(0, 0, 0);" | 
Msg

| valign="top" width="100%" style="width: 512px; border: 1px solid rgb(0, 0, 0);" | 
The variable to encrypt. Encryption is performed in blocks of 8 bytes. This means that you need to specify an array that has a minimal size of 8 bytes. For example, 2 Longs will be 8 bytes in size.

&nbsp;

After the encryption is performed, Msg will contain the encrypted data.

The original data will be overwritten.

|- style="vertical-align: top;"
| valign="top" width="15%" style="width: 88px; border: 1px solid rgb(0, 0, 0);" | 
Key

| valign="top" width="100%" style="width: 512px; border: 1px solid rgb(0, 0, 0);" | 
The 128 bit key which is used to encrypt the message data.

You need to pass this as an array of 16 bytes.

|- style="vertical-align: top;"
| valign="top" width="15%" style="width: 88px; border: 1px solid rgb(0, 0, 0);" | 
Size

| valign="top" width="100%" style="width: 512px; border: 1px solid rgb(0, 0, 0);" | 
The number of bytes to encrypt. This must be a multiple of 8.

|}
</div>
<span style="font-family: Arial;">&nbsp;</span>

The XTEA encryption/decryption is described well at&nbsp;[http://en.wikipedia.org/wiki/XTEA http://en.wikipedia.org/wiki/XTEA]

The XTEA is an enhanced version of the TEA encryption protocol.

&nbsp;

The XTEA encoding/decoding routines have a small footprint. You could use the XTEADECODE in a bootloader and encrypt your firmware.

<span style="font-family: Arial;">&nbsp;</span>

<span style="font-family: Arial;">&nbsp;</span>

= <span class="f_Header">See also</span> =

<span style="font-family: Arial;">[[XTEADECODE]]</span>

<span style="font-family: Arial;">&nbsp;</span>

<span style="font-family: Arial;">&nbsp;</span>

= <span class="f_Header">Example</span> =

<br/><source lang="bascomavr">
'----------------------------------------------------------
' XTEA.BAS
' This sample demonstrates the XTEA encryption/decryption
' statements
' (c) 1995-2011 MCS Electronics
'----------------------------------------------------------
$regfile = "m88def.dat"
$hwstack = 40
$swstack = 32
 
 
'The XTEA encryption/decryption has a small footprint
'XTEA processes data in blocks of 8 bytes. So the minimum length of the data is 8 bytes.
'A 128 bit key is used to encrypt/decrypt the data. You need to supply this in an array of 8 bytes.
 
'Using the encoding on a string can cause problems when the data contains a 0. This is the end of the string marker.
 
Dim Key(16) As Byte '128 bit key
Dim Msg(32) As Byte ' this need to be a multiple of 8
 
Dim B As Byte ' counter byte
 
For B = 1 To 16 ' create a simple key and also fill the data
 Key(b) = B
 Msg(b) = B
Next
 
 
Xteaencode Msg(1) , Key(1) , 32 ' encode the data
 
For B = 1 To 16
Print Hex(msg(b)) ; " , " ;
Next
Print
 
 
Xteadecode Msg(1) , Key(1) , 32 ' decode the data
 
For B = 1 To 16
Print Hex(msg(b)) ; " , " ;
Next 'it should print 1-16 now
Print
 
End
</source><br/>{{Languages}}

[[Category:BASCOM Language Reference]]