Cincin Tulis contoh yang sama menggunakan fungsi normal untuk loop enkripsi () dan decrypt ().

See "Enter a string : " give cStr

cKey=""                         # 16 bytes
for x = 0 to 15
        cKey += char(x)
next

cIV = ""
for x = 1 to 16
        cIV += char(x)
next


cStr = Encrypt(cStr,cKey,cIV,"aes128")
See "Cipher Text    : " + cStr + nl +
    "Plain Text     : " + Decrypt(cStr,cKey,cIV,"aes128") + nl
Joker