Генерация лицензионного ключа

[QQruza]

Скрипт для генерации лицензионного ключ из заданной даты, формата XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX (Можно любое количество символов) (X- латинская буква алфавита, цифра)
Скрипт для дешифровки лицензионного ключа в дату.

Заранее благодарен всем откликнувшимся.

 

[ra4o]

#include <Crypt.au3>

Local Const $sUserKey = "CryptPassword" ;Пароль
Local $sData = @MDAY&'-'&@MON&'-'&@YEAR ;Строка для шифрования

Local $bEncrypted = _Crypt_EncryptData($sData, $sUserKey, $CALG_AES_256) ;Зашифрованная строка
MsgBox(4096, "Зашифрованная строка", $bEncrypted)
$bEncrypted = _Crypt_DecryptData($bEncrypted, $sUserKey, $CALG_AES_256) ;Исходная строка
MsgBox(4096, "Исходная строка", BinaryToString($bEncrypted))