Convert teks into 64bit encode in Ax 2012.

Berikut script sederhana untuk bind data teks kedalam 64bit encode.

static void convertInto64encode(Args _args)
{
str teks = “12B03226A6D8BE9C6E8CD5E55DC6C7920CAAA39DF14AAB92D5E3EA9340D1C8A4D3D0B8E4314
F1F6EF131BA4BF1CEB9186AB87C801AF0D5C95B1BEFB8CEDAE2B9”;
container cont = BinData::stringToData(teks);
BinData binData = new BinData();

binData.setData(cont);
info(strFmt(“%1”, binData.base64Encode()));
}

Semoga membantu.

Happy coding 🙂

Generate SHA 1 encrypt in Ax 2012

Ax telah menyediakan enkripsi yang bisa digunakan salah satu diantaranya SHA1. Script ini bisa dimodifikasi menggunaan encode yang diinginkan
Berikut salah satu penggunaannya :

static void SHA1()
{
System.Security.Cryptography.SHA1CryptoServiceProvider hash;
System.Text.ASCIIEncoding encoder;
System.Byte[] combined;
System.Byte byte;
str Sha1, input;
int i, arrayLength;
container cont;
;

new InteropPermission(InteropKind::ClrInterop).assert();
input = “1234567890”;
hash = new System.Security.Cryptography.SHA1CryptoServiceProvider();
encoder = new System.Text.ASCIIEncoding();
combined = encoder.GetBytes(input);
hash.ComputeHash(combined);
sha1 = System.BitConverter::ToString(hash.get_Hash());
info(stralpha(sha1));
}

Semoga membantu 🙂