LOAD "Blocks.bas" 'to load it into RAM
FLASH SAVE 3 'this converts the AsCII program to binary, and stores it into FLASH

FLASH RUN 3

'start endless music now
Play volume 50,50  'adjust for best gameplay (0-100)
restartplay        'start music (endless loop)

'timed interrupt to restart the gameboy tetris tune when ended (1:16 duration)
Sub restartplay
 Play wav "tet16cut.wav",restartplay 'start music, and restart when end
End Sub

> list
'TEST aes128 cbc
'
Dim integer out2(15)
key$ = "1234567812345678"
in$  = "1234567890123456"
'iv$  = "1234567812345678"
iv$  = String$( 16, 0 ) 'nbr, ascii
'
Math aes128 encrypt cbc key$,in$,out2(),iv$
Math v_print out2(), hex
> run
74, 74, A4, 9E, 44, 98, B2, 49, D8, F6, 2E, F4, CF, 55, 41, A9
>

2.1.  Mode

  NIST has defined 5 modes of operation for AES and other FIPS-approved
  ciphers [MODES]: CBC (Cipher Block Chaining), ECB (Electronic
  CodeBook), CFB (Cipher FeedBack), OFB (Output FeedBack) and CTR
  (Counter).  The CBC mode is well-defined and well-understood for
  symmetric ciphers, and is currently required for all other ESP
  ciphers.  This document specifies the use of the AES cipher in CBC
  mode within ESP.  This mode requires an Initialization Vector (IV)
  that is the same size as the block size.  Use of a randomly generated
  IV prevents generation of identical ciphertext from packets which
  have identical data that spans the first block of the cipher
  algorithm's block size.

  The IV is XOR'd with the first plaintext block before it is
  encrypted.  Then for successive blocks, the previous ciphertext block
  is XOR'd with the current plaintext, before it is encrypted.

  More information on CBC mode can be obtained in [MODES, CRYPTO-S].
  For the use of CBC mode in ESP with 64-bit ciphers, see [CBC].

...


3.  ESP Payload

  The ESP payload is made up of the IV followed by raw cipher-text.
  Thus the payload field, as defined in [ESP], is broken down according
  to the following diagram:

  +---------------+---------------+---------------+---------------+
  |                                                               |
  +               Initialization Vector (16 octets)               +
  |                                                               |
  +---------------+---------------+---------------+---------------+
  |                                                               |
  ~ Encrypted Payload (variable length, a multiple of 16 octets)  ~
  |                                                               |
  +---------------------------------------------------------------+

  The IV field MUST be the same size as the block size of the cipher
  algorithm being used.  The IV MUST be chosen at random, and MUST be
  unpredictable.

  Including the IV in each datagram ensures that decryption of each
  received datagram can be performed, even when some datagrams are
  dropped, or datagrams are re-ordered in transit.

  To avoid CBC encryption of very similar plaintext blocks in different
  packets, implementations MUST NOT use a counter or other low-Hamming
  distance source for IVs.

Dim a$="1234567890",b$,c$
? math(base64 encrypt a$,b$)
? b$
? math(base64 decrypt b$,c$)
? c$

PLAY WAV "tet16cut.wav"
if a=0 then print "a"