' Peters aes demo program for Picomites
' modified for ascii input by twofingers@TBS

Option explicit
CLS
Dim float key(15)=(&H2b,&H7e,&H15,&H16,&H28,&Hae,&Hd2,&Ha6,&Hab,&Hf7,&H15,&H88,
&H09,&Hcf,&H4f,&H3c)

Dim string in$="",out$="",comp$=""
Dim integer iv(15),i

'convert the key array to a string version of the key
For i=0 To 15
  iv(i)=15-i 'create an initialisation vector different from the default
Next
'convert the message to a string version of the message
Print
Input "Your message (16 min char, max 128): ", in$
Inc in$,String$(16-Len(in$) Mod 16,0)

' encrypt the message
Math aes128 encrypt ctr key(),in$,out$,iv()
Print in$
Print out$
'Math v_print out(),hex
'decrypt the message
Math aes128 decrypt ctr key(),out$,comp$,iv()
'Math v_print comp(),hex
Print out$
Print comp$
'check for errors
If in$<>comp$ Then Print "WTF" Else Print "Okay"

End