a) Generating a payment link

								var CTRGladman = CryptoJS.lib.BlockCipherMode.extend();
var Encryptor = CTRGladman.Encryptor = CTRGladman.extend({
     processBlock: function (words, offset) {
         // Shortcuts
         var cipher = this._cipher
         var blockSize = cipher.blockSize;
         var iv = this._iv;
         var counter = this._counter;

         // Generate keystream
         if (iv) {
             counter = this._counter = iv.slice(0);

             // Remove IV for subsequent blocks
             this._iv = undefined;
         }

incCounter(counter);

var keystream = counter.slice(0);
         cipher.encryptBlock(keystream, 0);

         // Encrypt
         for (var i = 0; i < blockSize; i++) {
             words[offset + i] ^= keystream[i];
         }
     }
 });

 CTRGladman.Decryptor = Encryptor;
							

								static function encrypt($key, $data) {
    $ivlen = openssl_cipher_iv_length('AES-128-CBC');
    $iv = openssl_random_pseudo_bytes($ivlen);
    $encodedEncryptedData = base64_encode(openssl_encrypt($data, 'aes-128-cbc', AesCipher::fixKey($key), OPENSSL_RAW_DATA, $iv));
    $encodedIV = base64_encode($iv);
    $encryptedPayload = $encodedEncryptedData.":".$encodedIV;

    return base64_encode($encryptedPayload);
}
							

								static function encrypt($key, $data) {
    $ivlen = openssl_cipher_iv_length('AES-128-CBC');
    $iv = openssl_random_pseudo_bytes($ivlen);
    $encodedEncryptedData = base64_encode(openssl_encrypt($data, 'aes-128-cbc', AesCipher::fixKey($key), OPENSSL_RAW_DATA, $iv));
    $encodedIV = base64_encode($iv);
    $encryptedPayload = $encodedEncryptedData.":".$encodedIV;

    return base64_encode($encryptedPayload);
}
							

								'' Esta implementación utiliza http://restsharp.org v105
    Dim encodedString As String = HttpUtility.UrlEncode("SNDBX123[USAR LA CADENA DEL EJEMPLO UNO]")
    Dim postParam As String = "xml=" & encodedString
    Dim client = New RestClient("https://wppsandbox.mit.com.mx/gen")
    Dim request = New RestRequest(Method.POST)
    request.AddHeader("cache-control", "no-cache")
    request.AddHeader("content-type", "application/x-www-form-urlencoded")
    request.AddQueryParameter(postParam, ParameterType.RequestBody)
    Dim response As IRestResponse = client.Execute(request)
    Dim content = response.Content
							

								// Esta implementación utiliza http://restsharp.org v105
string encodedString = 
  HttpUtility.UrlEncode("<pgs><data0>SNDBX123</data0><data>[USAR LA CADENA DEL EJEMPLO UNO]</data></pgs>");
string postParam = "xml=" + encodedString;
var client = new RestClient("https://wppsandbox.mit.com.mx/gen");
var request = new RestRequest(Method.POST);
request.AddHeader("cache-control", "no-cache");
request.AddHeader("content-type", "application/x-www-form-urlencoded");
request.AddQueryParameter(postParam, ParameterType.RequestBody);

IRestResponse response = client.Execute(request);
var content = response.Content;
							

								def encrypt(self, raw):
padded_plain_text = self._padPKCS5(raw)
iv = Random.new().read(AES.block_size)
cipher = AES.new(self.key, AES.MODE_CBC, iv)
ivEncoded = b64encode(iv)
dataEncoded = b64encode(cipher.encrypt(padded_plain_text))
return b64encode(dataEncoded+':'+ivEncoded)
							

								def encrypt(self, raw):
padded_plain_text = self._padPKCS5(raw)
iv = Random.new().read(AES.block_size)
cipher = AES.new(self.key.encode("utf8"), AES.MODE_CBC, iv)
ivEncoded = b64encode(iv)
dataEncoded = b64encode(cipher.encrypt(padded_plain_text.encode("utf8")))
return b64encode(dataEncoded+':'.encode("utf8")+ivEncoded)
							

								decrypt: function (cipher, ciphertext, key, cfg) {
    // Apply config defaults
    cfg = this.cfg.extend(cfg);

    // Convert string to CipherParams
    ciphertext = this._parse(ciphertext, cfg.format);

    // Decrypt
    var plaintext = cipher.createDecryptor(key, cfg).finalize(ciphertext.ciphertext);

    return plaintext;
}
							

								static function decrypt($key, $data) {
     $data = base64_decode($data);
     $parts = explode(':', $data); //Separate Encrypted data from iv.
     $encrypted = $parts[0];
     $iv = $parts[1];
     //$ivlen = openssl_cipher_iv_length('AES-128-CBC');
     //$iv = openssl_random_pseudo_bytes($ivlen);
     $decryptedData = openssl_decrypt(base64_decode($encrypted), 'aes-128-cbc', AesCipher::fixKey($key), OPENSSL_RAW_DATA, base64_decode($iv));
     return $decryptedData;
}
							

								static function decrypt($key, $data) {
   $data = base64_decode($data);
   $parts = explode(':', $data); //Separate Encrypted data from iv.
   $encrypted = $parts[0];
   $iv = $parts[1];
   //$ivlen = openssl_cipher_iv_length('AES-128-CBC');
   //$iv = openssl_random_pseudo_bytes($ivlen);
   $decryptedData = openssl_decrypt(base64_decode($encrypted), 'aes-128-cbc', AesCipher::fixKey($key), OPENSSL_RAW_DATA, base64_decode($iv));
   return $decryptedData;
}
							

								Imports AESCrypto.vb
Dim originalString As String = "Este es el texto a procesar"
originalString = originalString.Replace("%25", "%").Replace("%20", " ").Replace("%2B", "+").Replace("%3D", "=").Replace("%2F", "/")
Dim key As String = "5DCC67393750523CD165F17E1EFADD21"
Dim decryptedString As String = AESCrypto.Decrypt(key, originalString)
							

								using AESCrypto.cs
string originalString ="Este es el texto a procesar";
string key = "5DCC67393750523CD165F17E1EFADD21";
string decryptedString = 
  AESCrypto.decrypt(key, originalString);
							

								def decrypt(self, enc):
enc = b64decode(enc)
dataArr = enc.split(":")
iv = b64decode(dataArr[1])
enc = b64decode(dataArr[0])
cipher = AES.new(self.key, AES.MODE_CBC, iv)
return self._unpadPKCS5(cipher.decrypt(enc)).decode('utf-8')
							

								def decrypt(self, enc):
enc = b64decode(enc)
dataArr = enc.split(b":")
iv = b64decode(dataArr[1])
enc = b64decode(dataArr[0])
cipher = AES.new(self.key.encode("utf8"), AES.MODE_CBC, iv)
return self._unpadPKCS5(cipher.decrypt(enc).decode('utf-8'))