AESEncoder

function AESEncoder(byref Text as string, byref Key as string) as String

Функция позволяет шифровать строку по технологии AES

Text - любая строка для шифрования

Key - ключ(пароль) для шифрования

Windows , Linux

#Include "window9.bi"
Dim As String st="Hello"
st=AESEncoder(st,"dvbjhrvh")
? st
st = AESDecoder(st,"dvbjhrvh")
? st
Sleep

7d? ╜[Пд┤╕~^V°
Hello