Advanced Encryption Base64 Decoded String

Hi there,

I have to send requests to a webservice and you find a result in the text variable. It is base64 encoded and whenever I enter the key and the plain text I get a Invalid AES Key Length error. When I use charToRaw the key length error disapears but than I get another error for the AES function.

library(base64enc)
library(digest)
key <- base64decode("ySLUCQaKstD6SCAr")
text <-"d1NWbZy4mv29MHh9ITnS5n6UU52hrJSWRhw8PZpfLekr3xMQ9vuq/bH6K4PtEG45QSPvsVxNquY7HYXVKtSU88/deCCOTvRP92fNoSpEjX9NT5/XIDLYzcDyzTKaKRTkQsIa3jf/BgHYN6sG3hKslQeRXw/LSjkU87fPC3u5E7LYOuTzwBGuR75YPSVoo0tNa78Z4VeqjYPpAJrxQUr0Q9aHz+WrsxWz0H1/ZFWnOXzltkdBoNtPNeBPX5/d+KnvBaA80bk+OfiZG5F2u3DXtZzYv+QoXMud4O+pW2Oij31remDTk9u0YCP5t+znjfyJlTvEa0DjrsntYADLhSUT1Eb77GE5hFQgHsO12H+B+tLrgdl9tG+R7fIe5UKzr0q82VOAhLTiAMi7LQRx6hUjFXV3gQV3EjyLmJziqtemH4zOh64lDU9ma3FE43BjkYC4pKFZP3vC7DldRXsnzlQGJVN2Bm0/OaI/sRA5VXTRnNllw3ILoIZk62mSFTfs6iJHmVIFTu69z5/xnan0XnfpvKdLQ4esNRMdPvunM+tzbZw1rSpNDgxiPGEW6I9eLMeSEXN8wM99jliiIG5NiAkYtcRtO48oNlMpQfmK7IdXjBBuvQFjirw7c63ylencyDVZoHUoIQZdO2NcKAmMDZXjFFTeSXf//hBrS1i6rddRiQvdUPUlct5Z4kDFa4J4I7+Z2hvkjdnBRfIpQt/vdvXWbdDY+cHh+VwWE6fjWM2CZkBnn6EByc6A4jOctXrfqZ2JN1s3HJJYRE6ejqW9cJAFAoZZzO+ksquA3El5dCLuw77VjUxUncBL8q8b5tzwhC2APsc8bwESjybCNXiC+i2zpqYmPERP8oY8a8/+bC4RhyiSPrrLnPVIFbFp7QtUzmRm4XIGg0O1Dyb6h0nRmS+IosURVkFgsvyY7ajWzAp9xNCebHpSidJT2nom1GrRav10vMla3KKz7JNU4Fs6jUI3g2w/jXhNl/86UEMFc6tz3ylNTR2JIbZC0/mkn0K0zx+2Vridz3+P5nhHDQypZiLfOEGp6crT/woVBgIrhT4C+DZyfRT0riAcFKr+koX39Pzf1i79tu6kpwmIL8BtrFAg5tQjPcDKimzInU6V4rMl5ISPHDUMhJPwKN/Kro/yRDZfHSoRb4rHITdXKs7dgWjoJtm5Ly76WVhwhuFEWEpIXwFeJdjwG5OQTHjUy4AvvMQhsUpZKi92U0yrS3v6ylrR61q014SIW9ECf8iO2dXJEMe7qs8l76JoJngo1BIwsPg3sWmPO1sYD9nG0BnkgUn5LD5s8QxJOSqHatXMDVuJ+zNUuiCXcBAJouxmmjPLTQJwBl8sAcfltReWKLPOKD6Q5T3m3devmqpYBuQUegI2y/c7zMBRycYvTo5HMLYEUnfEi4/b+IY2RX8ZZXqS329JyDqzQ3sdrefQ3joqb9p47tQ5JanetCBa7bzSSJoHzLjPgcTeE8jlDXjoO1ANpji8vlW1kggiYAZkV4bbX2mZ8PqsDyyfilAZ7/b0baVduurH/GAh4+9GtmGkuggfDj9+nMYvHxgOsA5TLCwN4FPEqoSdHx7f9+9H7JhVEZ0QuI1Fa9BmbQURvI8G3wn/qKWH8V8c68k2QUdmi+0GoyPP+z/beelI8+oc4kCyihJMu+AV9QnTjS/0q+Eej8uZPjegRwXu3YtX3s1sQnjGueDtPVr51kVxnaNptYNil65n5Rm+VXtvpdand5C4dI8m3eEMOJX3xr3tQA3Pa/fvVPqaFbQqVR2FcxOVQfLT1q7ZIt02XEZ8qdWVCSM0grxHmN9VBf0Vsz38+k6jxMtQDaZIlTmw4Pkb/M24sz4DqD72Ox0cQiWXJJZOy1sxLjWRTXXFoZswNhfy8vtzJvI7Nx9ijA0L87eRTcCFA2eOauYBUob0Fy+W3/GqstUgy9JtZOhRo6nHSg2lesNuWCaNfUj77k6KSU9mQBgJCP4/8PnhYCGMcgMC9PkjUAn2jzCPZM6WXvWPE1bl3GPGnU5JfmTb36TSAimGY4imkFenevAOObqeCLRhMDh7FpfRiLoK9xNt1Kd0GV8VmcYNnOKNpOvwzHbqKBrXt6p/fITRS9D3GVXC+buBdVcbtzci6TH2v+UNniB9zku+92FhcuQMy5iPQXkF0mBrvyh2+0XCYkDLsNfDccZQLiuicznTMCkYGVKUX8dyYBvfhW2uBamPSzfpzT5t4LbRe4kLmGw0rvqGCYAEKzeLk1WpPqz8hbvsrZY6r+bTiee/03SWI8VEonzt9AN3Y+P9aNUcAE7FN3q/qeFq/IUY+wEcPCq/46HDYu5HRH9Hxu1HErNRKWlsS9e771iXqDuwJ7uwf6aNc4XAscTX4xHTz/gnFUwCrdu4/goqTVqVV+/7bImSsVclGpNgu+NF0X4OhHPjf9u1WxKodSmUYboVYbP36Q+8knPxYQKix+4KlkGlMtzIfOQclKGVMEmMQlmlcaxJabdeOQOOkbyoi6muDI42EbyYAAG3UviE9LJep99HbRM4qmQS5YA6mnocsjB1n4aIhbRdjctmwQ4z+L3SIApjIIHdGi2BW6R7A0Uw3ABwzNlVz+uUETgDWkPzsb6fGZFpOs2CUWlFb4slJdmn8+4Q8/8949fh802K1J895cs1qQkHOET2PnXc/r7MxyZYVYovpny8F/wsPJ16G0HDwm7zV9CpFVpj3n95w+opGVrfe1TZHH2Yrnwx3xUMPqNyA9/idHh7Jl9/tdtm/buFfzShafPnONtaMwB2Xz+dZ+rkYjb2ax5GexVKl4f3gtOhUtUW85nVgcqJg3XCt+IOTCZE5DIl3gGPCYQxUfywSJxis50UEE9yIHkJg2k57OUsO4g/uSfqtCp9svhfajtgq6yGYgtH5U2dfvXhldPQJ8f/TNNoJs/dTmcCi2FlcHkoSOZyqwgeU8ECbbTd2S230HlhVPVgCXEyo/KAERFmBxq05h2yeMZzhNFZGVrA8XxDLmNfExICWvrwpaDhrkJQeDEMJsgJl0ntDQZpTovX7aH/CGgPHshEuSPwa5dpvznR0nMbQXCIskorz+ilLuRmtzgu+U6iDdpglbz/qtsYCEfjoPjSJsVXQztFhoIgUw4UeM66SviaGj3mPclIzGu2E2pRYsH+fRgNUtEwPtk6wfMPohVuyoZe3BPbfLNUfXDAo4eJLJY3hw4ByT8E904EcsjIrDZJxKAEtqi21DskWH9BW9HHsqTlkyJ64FNkXP8ftqSUhA7lMzaIWL+tCkbm2hY1jCpSAxW+nQA0eL43E3r44ALhOkT0Vy/iUiH7YMUQG/jXJ1thS33iCYUsBK7QN3bEtGZPBNyBGuGD0HXyDZN43r9/CBNG4NsKoq4NP8JslLnp84qZluP+ibU0SBRZljBJOSwg9FXnKSClywhhU48xiRkhj95SiNg1ZscMnYV/qfxWpaNV2wgoL3qGCMqVuaOhpwNZFs3k5/RaD5kuIEM1BcSpMAL0PkpI+Cs8Hl7+DVuHDIxvX5kENNmxK7AaXIlZsjqJNoT6PpXPzH4qDe6CItOy1shhyzGs4uP+MS3O8JL8MFo+uPDz+jCCJhD7s9lXa4AUrRxDCRK6xNWp0He4z1LQg9jwdW0dLk0pVHkjQTS5cFmSssz/vUZCzupVfo1k+4W094WRvkdvcWmIRwBH7ppsZCcteQU6jPiHjCSeyfvmo5m2NRvF+NQnM1mu+tDIcng5a3It8tbOLLqnQdZz0gFGqU6bEu3RGqeiuRASamuUvE1wLPa8bCLzLJlyGCH2fuQYbBb/f2Xk+RVLRnpgV2ua+9Srjz0nkG01Wr8eowPIqHR26pXLlwK/jDvK0FCWjv9HWPHVnQInxKeSt/fXtlDCqarvX4AjDP3VfnHdBMlxYOkHKFLW9e7Y+kcdWjlYX/McASS7vlVLY9qJwfYaNq+RgF/OtSr2y76L5AX8o7CtAefPzswpBbSwPk303GDB2Jhuxr49bwExZMjDTHcMKXMeCD52mlPs8Fq/r7C4oIVfg6iXkbsZabowZVyYI9jY76YBgJQTGIPAgMiNAqySKD1j89MbS4lv0+NyM4LbgcpPQM0RcLYzonuuQFGJRwKhnbkGexA7v90Du0by9XQUi2jHbQnoXT2XHjmJS9CwTqRlKM6StHu2ZFxXaCtPeEraVP3VrzNYnCZ3lpU0/NuhvEQ/qxy4wjlIt8iU8B7UdVCrMH8X5b0YyhnwQWudLojlfL0n72hjSdtURjlPia1YeCi1QGibsGKUg8ROvi12f9ABhKp4jxNdrUUIp4nbngDKJFhmDtfQi/UaM8LOoK0dKq30MYWy8zcVpOEri+Lb84ZkvuMWDwSS5xzunRdpE72g9dZBttrn93V4v96cixsA/vUkT259Ka7mkXKvCsQ22+UA5q2Ime4ZJssLVg2NI5E9GtqeE2b0qSGTuJ63YZeTph7/HHhHRAdpwsAN0+bbDctabVQAGtqHyJjrNn1eTpQALTqmSUDSh9BDPLxMyZuVNIqqthCg+ruA806bTgJDsf85BtvaoLPItLtYXqKdY7y7n/va9UjJy33MT3ob0f/1lMikYaSiDMxwqY/rvLZu0ngLYpfb6xfcU3wl1GGX5nsUzZ43nKIX50zNPdf8d1D1skHW32ZcQRmesL/q9Qz79qI2BNqJL6bX/PKF3Ka44RhUM5W+DN2r2fGRAq4UTkmr8M1fA3nCCmbEmjvgjHmdS2aDF2Irr0QPb5epoDnf4xMS6c1a/jUwGpJUUmI9uZsj3ltzsQmBOmbZmhzegDVHZh9hMz0ypYfhYKruh5I493yNC28FXycMOiyvqGBdlVZnjINvWhh/fofTV8k3xRZo7gNXbTE9vFJvKyxzzJqkPhlveKcb/fwozhKVg99f27718pSpI1Kqjnq6btmp1VquB6TIguMfW35tWx47YMSYHnclV7NopD6AV+kRn6ElDnElB0m5zBKjlS0AeyPY+7ZVNBWQPH4DzmByiEMJ8WjBCqmg1z20V2VFXJhusgMktoU4IOaGXjqiq79AvTtCOYUOTtDcE6AxlvKGqQ8YX3FV8vXvsNH7H3+hVXR5nuMbbUFcUfUUZI8G1/UTPrkOr+NG/drYibts7z/Bsyag0tjpaCDKSR6OZZn4cjUfU/6Tr5KEyVH8RCHDeAtxvI6zyFNi2BgQpiL86lcZLKdWni6xDYvHQRexKHcsf/4WMpX3tZktykPHKa5Fr/99kmk4QVHtqcK2Hd/zaWz4+ziJts7N13Tb0rDWh7fs6YqvnL5+gN/UupDHfNgmjdMjqpUOPlBJW0H0qjgEoCDwsqqVK2FcxkWpnF12rNft3y4uFbiLrguXH8ij6gBtqCN68VIvV3n5schWbFXLw6L6pVNBe2+f7YQ/eWC8fasVfy5en07xnVJxavc3YzbQRvxKgbmpvFcFydD1h1vUSjidgHYDXaW7CBnH7XpY/YV93Ikn4/nH3xgD6G4PJXMTer+Na5eSTzLfRfLqAsjO/LKImsAG/wz5gLv865ChftotrxDdmlvYGSHOLu+0NNQSjebRzjJSlxS4TdohfRn8dtojbNUZ3a5epDK9V07/xNQB5CtVMKJsnWZMt9MAijXecc3pLJiERs91/Wx/A1dLMvj3xm48nqrfGR5MOVrGCtDg+LHB1yjuNPOp8SfhYzzNZFQdwWO/uINmT2knzksYjWPDzNAfZnkdSRA4TA759eVbDqKmZrtaNYC2/OhQTdZ1SXsfjUjvTeIkY1mSTSha29711BLh2gyLfuayOTYmtgoglG9VQxiRwhllrEr2yrLLFlgjg+6JVcS39RAGGRf2Tqj9yVY6rIT5RB4BZA33ADUYq16ziVTQl+u5aUIO0XClgKRbTEnoPMgXMEY2n6hzmmAcqyw6qAn2t2P5veQaaJHJ4apib554AOg5ELZQ02DB57pF3kMJOu4vsju3tsXJb+M4ojk/DDNsdJmZUOqUBcnnhNsQ/RbPMLrfDPwqTfoQfonom3NqtkBvPS8NEb7TuesbHfu2vIfByMEvX4agkR/pk5hxY9pJ5NvoW0BPD6ZllFy3Gfh9hQ/U5uYOzhuHobMi/QWAod8a8CCMMvFGSeEprye5NU7PZb/HxqeoKg55v2Dzc+AI+98hdiu0ZAPKiRRZEfoGT61f5icGFMrnvPBW15VraoHfG7plDIquYtRobfdEEgGiccCjHYVydpG57Zy5g5ANcxusVrGt7Qpq22px9yBj229LYjXPNl8v5ey6eO7LD/hkpc0RESGHubbYCYYVo7Wke6qDnJVfFzPM03p3tvFCcePei7MSrMsIrl7yrNmsZ6yBGCFeoxFzRcet4LZRi9TWC6gs+KowJiM5VGk37lEPmbi0LeH4CSrPJOe2y+E23X65zNaHDChiEQi9d7HmUiHBZzeeiNxsB3nMZsvPm5zHJU0yNdiV/2SP/B7uDotWwY43uN2kPL40AyYC3Ez+w60wX3tzkqyze1B7jtIeRe+q9lN5XPfyrBw06cDhkcNptJ2TQQjoIGkO0FB/QhoydRBeVMX59xcwQT7Cn2Mn4/MEKCtjFlyhghUNjShofsyPWRcAPigksLhBCXIwTM3qd4ogPAI7K/NXdq/5vAIIKfiDBBU6BRPTCu+hMaAADnwYg5wBC47FQIkGzoCy4/RKxK1u0eVfJU3qx9pwA1uMlYDW7kBuq3mN/ijKqv6DTmQpyqF61MvkmF3ZEXZAjI+njEDQUmCu4ycWjLRv7LcPn+shxVdJRze/DwV2GraKIGDDD+ETDOAb4c8THWMYahtZ9sIonDIDUTCBOgkT8koBEXVe7arWf4Gg90Z5w15W0nVJS4d0yBAPb8rZxYzqOO9YKG5kXuflWvcope2ufoJNnBDqouVAFiiux0xlh1AgJJzTYcsl+T2bsbNmLl5OAZi0C+TiFdYjzwSgozCYclK+9PAWpMrnld6H3RBr7yY8U1AAV9HbgSc+0WYpNcCA7TMUR8Y7WiXMv55rEF/zj7tl4sPwcU2cMe4e1HJEF4pRlMMhZOgdRTWxsq+cAmncbK+ecnKpa8en2pOnbm2jRVGWPMF7LSW+1YEkOnrGuW5yknp0v8xK7MX57Ey3Pqgmm6aiWpBNJwG9ftEmobhca4b8LqWZWbgU0WmMlJ4jiPfZDsw+Z1lc58ljnPboRZtxyK9stk2NQaGN13nKTSTMf8C+6DmO53wDOP4ruG63o7tfRAV9dKPOeORvNfM1ThrXkw8rqIk33WXOo9cX/BOAOaRQDn4HkIuoo1YVsBfNyqAJGeVRpGe8/76dGqHgH/JGNZlLm8wbK70MAMY668cNkTCl1YRJ+btMoFHrswdYvZmDixwAx64ZUNPJRFQmukfZdQOKLW0z9gVgFvzBNYpbqCGdrYBGOvGuQ2XHnFhdd+DpdPGQRTC51BE8DtdYT57ZR3iOTa32V/PmuRUJQUlD0uT70E3NnDCvjFD17bH4x/rD/4EDiISDcFo2WGdCU1Bz0O27XIyD3VYbcgEbGKKMxXfWXqZ0zRjqfvPm6ul03b93BpCqQ2d19+3sNBHNASxnHjv+hi8QfZKJ3/dMz73f6n7Az4aR/2gVCd2a3SxZMlVn8JtpvMteMa3Ms+tLogJvpFBGthtn0YRvRt3hJTpP5+iQySxsP/x2qpTZRfEICbYn80LYFQL2LV9RRbYJFVdixjfzwMKW0tm9hmzeZgTSjLfiaqEE5z6xfnzePjGsKMAQwSON5ABLnoNTIhlZ9Gay0+QulpVoddEuy1QrOVPh5x380I7xnjqUoa9FnXR8nClu72xmai1FtYQ5ccr1hpb6K086dR1COC/AJi05ULWJ+uk6S9Igrgl90tUr5bj+IwfhjrAgR2jBd6EiD/CBKa/3wBq98iYCEXjpbe8cK1M1TK70u/+jYMTWxenL++a/Z5mORi+uW0EPaIeGRdzBsZLOZtkAk55m70VtVKkihslr0+jOEl3NodWItOq0Oh0ZKx/oTGOX+wa0ybUVNjH20uMfoXwOZLfUvBHZyshsq07E/wR/4v00EVswFauaJ33B8PwNahRMiZfnFU8sqahKlpOd1opX2Ams/cYh5RQ4hEKcTzYr+As75S5rqzwWsSgztwgbhJet04VL4U9YQSMbFop7ESKkoF579mnEseyyry1gZgsIOScNgfc2/B2uaVMdWBlhYKsB7KJMSD4uuvt9AuY2aBIkuWyuxWmkWNTh/jUFRQU5pfuGyJTm1DsD1ZY6ufb/lrmILQpfcGz/38J0SXEUZMf6wpToBMKmIsQSQDOA8BGGMll2MZmbQ8SpDQ5g+19AO6DsabNrOVobuh5r5EH13GRTD+/vTIPiFxWTJ8WZiZB0s9sbWH4zBVl2cAl+Ki3mCYrch+B9/Ie8UdVMcZaNCjFQA74VqUPpAof4Y4H3G7TN3lf4QLWSxsOFsDjP77w2skyLBkcEJSc4h/Wo/MkFfgxaC3UFjex31+hRUkh+zLIwSucXqhplBBOlVlY+qSPsDswZ6GQFS4BzNxRAf/YEVpbBXsy9U+wF4fCZCQOxaSc8Av0AjQCsNuYE4/6PRO1Od8te39KxKbFoPATRXb8YgUTE3tA4KQMRM3BQ0fz5Mt/ahXEZitmPYujSVADBHzgZaoQNRMfmN94EscSGB+kLWW7NnS7Vd9y7V4OTs3zqx3nUETGXacXnxi28xNNkHV3dizJL/T0xwoRBG/A8psG5S7gz8i9u9ZOiSqoYS3vdqNa6/GI+SwEXKEKBx/AiOR/hiCqR+gCI6qgRm4+P6abO/6az2SNT43y4U3X+H7ZIqh1NTSg63GKPDFnjZX/XKQ4yOnNbGw8uOohW4cLntyhKIuQZWhjFDQSsAPGk6vm0AuFXrILMVH5k5Lrtuq1h5xO0ZIEpyfszoz5I6ZLTisAe5f2Ul/A92GXggNxk88QlzC/I+HYpc+ERG0uKR24wiBPW7HJ7PfFOt4WBrbkWrrYah5ORiiw+zFNxwHyqu0njPYiUwvpdnsnEPpQbpeh1549yitN4HQj3syb+NL1A4Dd1KVP8Blqpf9Dlt9xSodlgFEE+lXQuBZZ1PfI7d98oBJGJy7BpddjAk153pxL1wauGbaOZpIDmuSpfGTVgBjduH/4p7x7BiBDmkbFwAQY3/CUbjhdvYHYOGQRLO5fnP01mnndxctO/+LeXa+mU/QyoBoSgv8iaoI7o/ooFukM8X0X07a7Wp1PvAP2Vrzj6by65TkcKLI4f48Y7lq+r57qj2w6rpZH3JJPDqUerxdtonX/bY0tWTNBqg5ISfgdpRCHe/bzaOWxUxk5EaqnaH0LOaKGCtO+f8ZAe5xtnQbXRIa4ndHxu2WQVUM7lINfZ8Uoj23Urv5LN15JXdh6DCQGmQwsDPOhB8S85pgRG6/WqHPZR/gUXssTbKoi8t9cx+Di//04RiAyQUJkVFCebO32ii7YcXifG12UGBVlkpdOd6nig+T9eo5UsUSWoB55AGhBEXH5Xh/vpJ86Lj5lXOfdcGuR/YBN0CI9GmEo6GVRfTAu3j35z7VGoJy0Hp3s6PPvS9SpxQW0jsCWtGhpsRDvTgXbk2u0oYXdB/TAUTosV1u+mgI5WKya0rimJeWy5a1jh5RyvWMfHHSr9X8HLYAUf6lB/QBtC/aCKxPeMCWB7H+pQk874Mmn8OhDLhxWbBpG4WKqXWikUqQmZCn+/mZYbYUP0HLUrn1JFSnZ8K4psFOMzkEj3Kc/rqxwJB6xss5ModYFaGFeGDQrz+/5oaIf2ELYLX25wLtK/C0/4WHljVs1HH8+vTIUYD1yLm/fW6rwkJlLVI78KPckt7sUI777xbZ2jvj7Whp0SJMhaLk/ITN6Ydx1/GWH4bzDN157q2FUdAAZzr4geB6r/IVotOP/rObM4cBU3yFVELz0e7zyXPQZQtJ+bR7HFuQZq2H5Wy3OlPal5bBIO5opmH9dYIcXAmhhhco+E8SQA+lubdaQUOIemQRR0iqNZgSlJvWMnDGXX1L0u8ATP/M52R2ev6NBjqjEGtRtVNurOlmQEAOwJJABVbM1d9Yc4E3GrXYoFnxEgl0IbNawAcLda7SXWgkz878eAaCx175iQGG4vFOraM0BYhWdBW1w3bhTVydWlk2wVPpTZsqjEKFQx3bDEIk9tP3N27uA0ga/W8UIVv52mUeu6Msfm175AwOD7pmd9l/eC28uZcybByWRtm/B/+baD6YBNZztk/uGC6WW88tBvI5eK7EMrQowEie+9DARr+ELnVB4G7Hobny2vzB0ANzKT6TWjcSfLJdxiGL/aRpTl0dvnehOiV4je4LJGlcnNljajBcaPY7ULiMCrrtggwYW4NVJtoQ3b9Cv9bXBQ8Gt/2eijQ8SPxCQr3bhxkB4U5BwbDYiW4g3M4ZKINt9mnMCaonwDe2O4agTPd7GaGsReROZlKCtTZ9BLdcjwKIjPaLdQudf9CGIZR0rDWb47NiWalIzboBgJor/wNhvJKEWGWpUj2EM0+0TUQ416/lDHoUoKNhWLPZBgmi4oAofD6JoYeUdhFvv3J9i/A/GCds5KN08+rAsgoWjX7G2J//QCnNitbdpADrmTxsleELeSwN0zRbXU0Si/Zy+PGUKZJmJEyW39/D+tw6qlUCHQMA3hKFMr4qKWbSNGnhWFsB+tVB/Dy1b18/kge/441p9kt9IBDndHQiWcb/Zjbjalj2PmkKVTrO3j6nzI3gVAWLSnrl6+2NfWLDNSooY0nx4ZMHeAytdQxnCyA+WUbzsudLa44v29SBxv7ULf977SoZcgLqlfm3cTKn9sQ1XkjrjpuBhRmSLtJa8iR5fnxhZVUhzAUafDhTiQkrK597y4doYzzRaq6lVbj+fSI1xNZ7eh7z59XG3q0sHan54CVNJ7Z3aNAcfU8djaV/IdyYfnkNHkp4mJ3IL7qzrhWfcilyq1DWfgjA/dmQTZXe41waHqmkxUh2BtzkMzf2PMIekPVCLC3RDH0j1ftFl6r/UStdRxlmw5uE+AH+Z1+XtdmS4CZvcQoUuoyGc3YTHnepY+CHaO7rVCShq32WPhbjTvD05+Yi3CudQMsfxTs5WwDdC7yfCpbxdZq1Coa44khgOdPbnbSmWQxcFMQOFYy0hNlR1f2n5HlGupwsdxAAIEe4g59/T+41Ro6JTxlRy8yXeLsJG+oy9AknyJ6yC8eikJYANTR7441wF6TcoPutMqPqjbRPcAH4TJLJYFnyHuvVe4secGe7f0a2HAdbraFhy6aAU8XvoAumMss51FrhJuj6huVYv12+2/zszqkwozVawoKKrko4/AGwXkxJnfuCZWBTopS2Eugv6WjVIlIcCFEjCqC8QE9/w2bWnnGBtxkPsN+IBloenDnGTOC5HR2zwvM2gnPAsk1fgDcNhChXjBKYSXABeSKgaNlFSB9kXVTpJJdo4aaKB+LwfXZs2nWt4Ti7f25HVT3+m3vwR9VkLACHbGIKg8BSpyC5DL9acC7sKx7rK2E0RTGE7jxdSk+Ht7oEZzALz8Kz7Wec0XFGy0HM3sFKEKHSB5PB6TNVFZtTox63bhzFY6w2zMcM0u7+zQrBibFjOD0i8tU2xS/AYSOo6ukWyyWjvSo8b/3iTd28R6kVOYlgvprGhnne6gfO5Y0Qqfc7iD7mDUIa/R/JOfL3yps0PHJy/HgnFBpuTRrCSlToNqR+edsNiL4dDwWhmzpIrcndPk6MggPuLX1QHYZpAsRwZj33eX148lNmPuA8bSo04QoHdzpahgrm14o7/YIcJHiT/3bTzdPG974XnhAFovWS5d5U9/H4jQT4DDC7iit19b9nUYc9LUBUJvF0VNPAVOUMnCb/KUzMEPED8toI7daxzSWyZlSJlB9HCnD23IjXwXgrrYk61xNwaHN1wGGF3jMknBKdpCrxYjnBX4J8/ViIFX064+O1Vux9hpzusyL8n1dJnB+8aCPUeBljRGQpId1iB+jGPeow324b2fKddA0O6L/MzulOCDpGBn+Z1Z5rUBsFXle9DSGuiAo3B4UrAZ7vJGxyYLxW1y8Gntwh4lr8yZMfauSnTPfdaFOixQ2iPc+fB5aOR83bcbtCakC6m+IuwaP1rPSl+qlp6YoBbsrSq+oYjMwD5h14BHL/h9NaAxxAVG+wwnz+KooOqxnYgIwXWjcd7gHtTraP6eKgWm84gTfApKY0dwoNqLxp60IWPfe/1U2sAERQKMKuzYdodqruo2NqXM6blH3QvjEUoU+YxJgK8iTlVc/xdY8VKDlcXhd7BqWjMTeE0rVaW3ZXwtYEK2frqmeXN9zSd+L1DEXFeVvwk+ZDNILQFjn7M8o9lbzEVowbvg0Ds4mQbz6nbUf1aM7OBdw0Pqm+I30lLJY7H8TCcINy0zYMSF+ciWq0ORCkrLPkF56lVbu6LebmuMyNYIfgtojr7v9ycVZ2SekjfsUV1/46ZzvoKquPpA0tJb/uOcioBAOyWvbMiMXScfK91o/6ukAqf9doySyBSGLwBQqNZAJwLyH9nQZV/kb/9FMi0KnR0lcU3rwpw7RY5HL6wdqRM/R6OsFWlovD6y/ueiPB3ke9aRzJA+mlorUbMKipUhP4APL3PPsRyooCTFRH9wkWdEyFzwPoiqH9KCy2gZT4lmglxoP2+eeyZtWH2OAAiYRXTPBbfZKHI8fh6+PQvC8b0gf9Yfpjae+j+MWccQce7uFLh0TH6ccFlw8a30xb1+G9pXs1ksvT3jimBs6R/s2gkSwehz5+YDKgzrCSmUx4ys9U+tMMxC9cnXsxlW3fp7tdHmqE3wZiOQgPG7IvMErUCcnSnv3/m+olCc8n1ZLGcGtkpQN47u2PTmGWnJiJ5zdcbfAkeqeuIOB6kmESB5WRKyeIEF6iJaLgX61sLNbYeLbSfN67gRs5ZDgEhINOU2P5St/gS13NZhXoGquKRsuDsj3EIr5HHWtYOytsMx/S/QRNAqWnWoBrw10ok9jlzVTKB2rBSQukw4orK280GYzk5EdiGUR5zcy3mAJ6tFkaMiwKYQYB9owsJKpsD8TlB0n4Rraqo6tXlTyRjhn0HmUwSjZ27HG1ItnXBkMToqhPQRelpFA4x7ncL1biXeJgbC9RRT9iSjjOvOJ4lerjZ0iWHtCmC8M/iMkVeKkNd0ShzHGFjgWn6Bsz9hr9xbn09ZfcZ0+qCgdSKoKDTozUSTCEttmGdZvqI2qvA4pTPexa/aZG8hedymhegOmaLT+3QwtWyFPx0Wd1rueYQsgBnAjijD8eIwvFd5VWnOmgE7bVmi6ZLZ4gtUyrYX2+cmUegfQ5Jyr6/ZXJF9Ma7or70Nu491nyUeI78AymuUgLUI/lO5Ckx3IDphR4TGY3ntg7OmDGCEAadjG2D5Da4Hm+TlIhxEn9wc1ZwssKauvUwC+vS2O6mrP16OuKyZSY+6bgXuOoOfLYOw8URlBSRZigWf69yjsIGCpzd/UZlFNl9VyCgmYsbAUl+u1rN1VZI+vcZ5AlEmTzb9yf4RdaK0DOyvBNbIebK3m9m4lBeWfbz2XYYMyOqpzMPt3QaF5Dzmd4eadH9fm0lUiW0CWUZoFq8MvdF9VWSVp+oGikV5JZV2NCLDOndeF/SGdcxBD4uWQQR86VtTqpjocdgQTQ3GBwaGbudOMU6JgjaK+08kIngh0EVC6iflN3X4T54uNVvbTklZMP3zSSxQ7nPxQJxvquX33CYktfWgRJhHaHavs1P+uGIcR4pXgJze5t4g79A3HK13VIjIDEzjG3YbZsgd73fzzu88cu3+6DSw8qGGfZyjhkFJgWl1NDqY30QZCLd1m4yy08T6HS/+1v9PlkcdhnzhaRo5gN8ght/wDDmfFycKvTIs6cvR37ctE5Mm9E++PeiN7+iow3O6sScfffgEoDeW9AWXw02V7ZIIu/q0BwEIBHE05DkKZQiMZXd+QpBNshafIsWz8Wtn5XVX8sRA89qbuqXViplYZsREWZ3mQRVHMZJT8PbHcLS3VoMTSagNvSnmezDzDPhxQUWDVI9gCOPlJG0ZWXF0BB/cmXwV4q/InB3AFH51WmgFZEB8i2mc+CQ3HsR4HW+XoQKHSqMrP6HKFdjC3XUsxxTLo34dLvsgsjuBlVsf+v9SRWyxRbryE7ATjLkXuolnCJ78TKiS8dOnYYmfBOg8oPX/sujuYL+mhgUS7scCrLrW3r9qHSZOvOGavogMMJEhG3LxrGvvu555tavFTkPrPwTxv5wPgnDaQOL69uO5MJxJKA3fF5F4TsWlU4fQc+SJa7D1mGHkCoz1OwIMDTLSgvPzN/BRX+LjRL2MUASByeEfCizzFzUJrIAa2XN4T7RrnKmFVx0y1eLoD3BnyITfB29ghjP4TYqT5i+bOnBXHgBLhKWvchEbhMGs69nd1ROMS5uJQvlZ0zT5v/mi1fZFgTQXManSxbHJH4oI7tqSY9niNOb1RPI4BHeeZCyquQF5X79rpegZbaGE3T87MbvufTOS22YPL5hUWtEuzwk3ucNBBbBxGsuduaDuGcM3R+7O1r3exAx5nfegNKqmG0RpY2UBao/upO4vCH9A1Aor2fzz1r1J3xWnPdef96NSJS4Un6O72H2PFvQX+6e23WRR9GTu9qaoJyV3rylfDWtf7DRrK9BBAnQ5G5qkXVHIwG7iGs4EG8YKiA0iB389Eott74ydn+FdxUDMULpgENl4706w+s61C2WyM4H9yBd+yBOLWcV0wPCTo1LMLvrZqRd3pcBQz1dNzvBSRoWF/AIDbZquvvMJgM9BJq98Nh6RaVHbsRfCaopuvUX7GKL38i5PeyrDzj0uvCo0tseuzYatw84vROWfaaiyTLxZNjQozbRFthyuWNfsC3U+MNrrqGEApQPi87BtcnxvlG5Il5O9jnvIWqe8Zvb3YjMZLBOwupWuGEZn7uutWLfSzd3n0I9MvXhmL4XhTPjdqSwQEAeDEwXqG1jtaydPuJMJ1Z8aR7MwVFObH1Z7w/y1fGtRPtT0yYDyHS8vPKOh/oL6Ml8MdTTbsGIlQorYHCNERee1o1z4mBVOHbZq27bW1qlBs+PS4Jf85+PgDeFFdPZ7rcbjmCGfhMcr6vy8wBbzAwVGUEt1+dyLwCFCxNhCvntJaS/+9Z5OZ52iJx20x52dF8guS4IY+n0ZGOlbYnP7fSJxt+q5RaGIzXU2hjUUQrnJXmIL4eF1xvdg4ND8Ur6TuKl1wtvDKO9u4wU88EPRsCtFqMLZt+yrf129wAsKKa+8KFzdjF4zxJw9uH4dHRtraUBzEG1pGYlu2PfGEFxpVVX20sXTjqG4NO+kvikzBF5UGrKibXVDUW6ShnBMCkuMHvAfv0LNJDHJxJ0hI1knsQf2gHyRZdA+vP7tXHqEsTcIa/kmFCFruRDF8r2qcIdQwtfPEh9TJE7qt8IHNqg0d5GQYkvV3+RPsfHK5gkHQTCiq0Q/d4mukrOnCnTWAaPpko+/9kCacXn1Dd0TdPlYN4Wpec0R11/s83fyDv6XywBFtX2lw50CHkzwPwrJGiQAOkm/8w2njhcBghVj4KMhH1uTI06N8baQ0KH/c+GZyN41nz+NRChFlGNP/Dg6RbRaoR4KCgIXpZfE0DdLPoiEqJBSGGhRnGB5ExHd/bp0hZQrMpzJwexVUQUk+UO07eGKP07f/HvIgo0hswIEKnf44RuHpDPcmdj6y8e9fi0azXDTeV+w54gegWbulzPe3RYPP2ntV/e6hvG06nUOW8IwRT0l7DPeH3a6btTsqAlWryVQjvw4CC1nJZn26sgOlZkxRFvYJ0GXNDDZp/Nb6m7ONLe/LLaL3ZIzqkDJ71j/taeW1LrZj7phBvFvu0saBvPezxAPNjAqsyKz1S6scVfRqcdAqQKxajkvBkNrdTdMExqqL/pZw7CAmpYOtNVDwRi+5brIfzbGl/TGdQDohRWwjARJ1hSGQR8G15srw5V8Pp6RvFLfeC3OAWsbddgqAgqwJo3V1IxI6Vr5kQ8CEi6rHcKa0Kp4JgFfqCO6QXuTxfxcikOrrhsuCJZ9sOIR5bwCyB2uG1F2RvDnqQTEaiMltuQs9E4cqKG8Ioa6OVsGfdgwfrlM4dlF25Buiepp6wauuSQPr+JhsKD4GiNEXD1b/7RkjCsavUruMadFFZBCLWDswvWVAqq6Q/d8fzZTm8YtOI+07y5EsOKXTum9ltrN63QRU/8UHDipWV9GmJcuTtgUvWYWk+1ydgIODR+TnUqFCfZ0L+LbJJwFkzaO8ppC9aLfToM6oX/bybxNP6Vl7Y0jDoWdzpG72Ur08MjQFmMkv4VRXTOT1TS2GhwGmWShKHW2yok/XW9NBFkZ/znFmQ5/innhxO4Hr6GnqL42X6foG2dh4A8dvV5C/XErsJaRPEZmV7DR/djVsHwLHBCXUsw1L4Efs5nyZkSvQ9oZwzmACRsLiB9EKl+zhdiAt/4HHe4umpkd3zcBRTwzbH4hpA/mOjPe6rkT40W6uIUhh7XOtLGh5WJWh7YL3wpCyyUYTtPgHXZ6y+2GCqJwQ85lOZm89V4jFKyhiXiluyC6JMjCSFl0oEcHJgfzwvUedqcaKpGnz7HXiYZefZmw7jEUuSGsS9y+niPAJCUpiJgasuiwIX1ojLEtz6+XnDeldLDwsMpt50wO2LDZBgnhEZ4GhSmzBAmbsqnjV35ehy6BKYlGtmMLYNo3TGlJQDWihL6ZfCub0oMuLL6SDlvAIYze0Gs+iczf96shesbVbhNunXHnkurtiJ249T0hfCNhUvNRSGyKoJrqS1iZDMeYgxxWMx4IBqTWfV+l0jgOAuRjidUmW4P9DC6i+gdUwTDaYCLuvHdpC9xCLO4Yqw94fVighfnKdEdG4Up55xIn/TiM7yN+nxf2LE5cwYaRbmWlRItv37rzK8pyjMC80gJ5SAIL+QcMIb16y54FFGSs2Es5sWn0wGzyadB484de1V0Iv/Lg068hlmSMTKdN8MoonGpRTw0iquZ6dKhAQuPrJki4SSEn7d+XW0ZmmrUQurZK9pYpOJSvtGJCdXW5DltK8u4SPiaY/RfydeOnQraU1D1FzTWGHezmDWR51vZO8yOWk5+qPHQ5EtHptKOPCeX/DkPVLWjnhUgbq7ggdJJZarzcO2upPHAo+Ohr24VfKR8/66sQt1YTvCwqHFRonPoRwGC2zE3ca2b+EerlNeKdRHBsMQI4Qdcse/RWDDzsVrlsw7uY/lV4GXpa4wlC29WlhMNJdNQRhkARvpNz4Vwur6PorJtvq1ww4wgLM7L2psAGXMDjcJaQ/5pQF2rxcsf5SahhZAqeVHn3QBmtzKyXoz8GMAHtMoFHH02U/dOg4QFlmZeVINyKowIVkuPVkLLFb1MC3Unwoa454dGIiTe5ibt6ofQXL2Oz7GoWYQvPC7OG9plagI4wiMTWo5k2AnflUb22QdskI/m1vHM9yuFYimfiCxAa2wdZPON4ixh7WGxBgPP8KKt4D8VMD4EVL0sa/4i+UrMVFONCNLmazpy1KL85pJC1OT1Ha6IQh0GhOVWghvsAQ7CxTFB9wbuE9YGHGB4C7GWhSDr5yQIVoWbehlISFArwpFbZnFUXOPktp6x6Un8h90BKnSMdM0knJS3rch6zSyB2S3RqyBt+JtLZ75wqHR7tud5EGwWW4TLayC9+ZfhIGVvlO4YzTUO7qStsDzGljqJwEjzr9n0IY4Z9qOwhISPl37J/MIyKPR7lTWImFw8lFkJ+ILWQQX6B2nfSS0vCwHmPTWLnxkCjkPMPH34POqlkGmGQ4bmh+oD33YcLHlc+KULyKFPfQGPtpDcEVDUfcYvwzqzSwvdM66uj/bfbVWAN4OBycim5qXBMyZl//qOqnFw/yfJdSfNUd6eIru9wjuN+mpq0WPwJyoumoZF0ZnmUaqTKpFqO797AoMpFRT+c5SYPrGEzhzPxqVTiPWYsXEZpD9QD/Qa9l1Csp5zGjepbVzlPVzN3xrW8H/+NMXp04/mFW2aYDZ7BgeucsQcwZPmg0pUZSBWQcqrj2wXb8N6vTUbXbYWTlcP7GrVnc1tAgNk7XEG/4UdHiCquLsuj/d+2bX6/KSxMiSyBREgSrnh10hObn3lVw7lbET/ICGwuRGkTSbc/vthG5YL1G5e49XWZIlLS7wPnK0Js6Dsmi7m6ERrGRv5ikvy/8zfLtV4tPgpTnJf6oZFP1qMgADgnN1cC7Tl+L7psc+TIfGvj6lg2v9lnQ5SwcDddOgT7Z0uxLhf85LjRqJXDYHF5ngZOcx+OA8mpKdoqwoKUTkj7HTIeGuV5RR01J3KtJkWWDiqdq9Siw4X57WPQa6lNxp+equPzHBxcIdxaZg6pqLJm8RlPpKhtkPQLbfPOYRJRzXn3SkFP1L8c60HR4lF2a3ItPLGg5gworssR9dbb5M8y7HpQKkDhi33a6gKc6doE8o+is3CuOW5IjEuyx1xPqEyHhUEIlkh2bKBvzbRsUOHyoF2Y2ZyLOczGso+aK2GxewD8pCc06Jd8vaFfviBkZ+QIgLR+JPoIZJQDFaGpWPtvwVlWrJ6PZFi+MW0/8R1eE5eKwv4vg5Ms+82maqON9fi/sn89b38Q74KG0lVcQlb8MmcnV9t2v4EavJTsNJfdye9410sm/FfCM+y1sgk9m+qFRE7thmaA1L45hLkarkVwHswDtCHfDnzQgo1FpsF5ixcEUV7ombcXfpBoQaXPQX0pCg/8TcKAdUUzFlPtd/t7WDxCIWCgjJFs/YIpOSt0k0qSXvex79yor5Bj7SFxq+PzFy2Xtt0jREvJTEH72XThX5G9UMWi4bERE7dSDlJUIKF5WcdS1nSFGXeZpdObrYyEMCCs/tZj/P9F+LR9EshEa5Vj6GHIdodHBe3cJp4zVNTTZHjYuU2LATYIF3jr/aeQm4Kh7L2bvWo7cbK0+bCsP8epYXl3ysfV1dWMsSuLhG5t2iBOsm1LYx9W4e51FWJJoUKI+ABSv2hwXUkcxcNImNiiH4L+09olEAhOmSFk0x62TV3ewMqPrwWAtCEBWlu9xoOkOr2XQWV0RLSovLnK/2IVUaUVh/R6SgdS60ClRgAGvuCMzird6UdGpDLx2ODoX+D/la3OGLYs5GZeealQdtvB2Sjs1ZN7eMEmLXxfIDbyg8PH+hVTPDVdUJtx15bgiOFUQNa/OJ4NuxN4RKDHacFfeAqQ7RzaPzZxjoceaAp7GwtMSD7/cr36f5rrrjVf0f75Dv15g1Hc7P2+KN+Aw4JDnwg7qavr4SyEhiWURqxoXR0ezENK4RMGLb5S2aCdrBeAId/WPf6KsdpcI6RypRAad6xx50Si5KRw4hbWoliFTwCq9Nes30XsSzC68BTJGgIP37MblkucWb1iIQ00+dEAve65Wcpz83lMh2YXNkzj247SrzacLZPvH4s3HidmON9mvY+9h1PuvHDGbzliOPrv399csCNVv/lkxFg0qa0jCW9Kj8VpqMWbnAbTI7Jyymn2FABsp4YU2Dmylu2MxIbGYrgg1r2YvjK6pUzhmLcImmpcr66nr5P9DFYtFsbr2yXq9OSZjxK9g1XpYBk5zQ1rgzg6yfcQ4dKe15u51taaX/HFNVdD7+Fqevc3TX6zttqLuAZAx6g2qtQYX7ArvaEHc/5gQwO4CvaRVF6cWC0BwPnk5FP42xfVQW2CcHTcLuijOW1QszpvwMpGJNYl4pfPA+RkkXHYtAfNZ/FNQ6KNj9077ZAGuPsNMloqedIG7TqaKWyUxHEOtj8HS3mOgFJpDo7PMrbUCkNI5FiCtKst7IQ/M89Po4UUXHTpqskvCUbl+Pdfk03Iglno2tPqnwezGYkawj0Ke2D/DLRK7gWk7+2LaFlqhSNEr8GYcnoNNynVxfqCZaYsJdZ0gYPC482Uw1gXFVvxJZv9qlzKrAaN6E7D0XjOpFtP/LIvCLMxks34N9S5sbPddkeSKQdBQREPO7J5bVlHOYBe6J+FfwWR7FBsrVFrkWg6mh7lb9iwEDeGlfe68TRWnw8HVs8A3mp5vMblg7BtQfaClLv3Wz1GMHISqM/rkGmVNH+0UPQRYgVHvqm0Ti1WNJ37DNhXHHIPwtZaKDre2XMVCGI+If2hCiaWLO8r3GTzBkh4bHIR06+BiW4tNRKtdaOeH519UP4v0pS81/f8pDWpnZscBvocxlOFeHG2GLfOMCORkyqlGQkWkC0J3ZX74nZiQ/8F16sH4gafcu2saHKf99yquDex9Gol58xOHk5Prm8HYc6BOhy/v+uRB0jbjHeBa5+h4I/czolGQ4WefoXrRMENawyKDFKf/JOjiUyRuChgTZGvv79Y9dsRvEtbuP/BrUOkuBdH5+PR3sWH/pkH34ToxEQnj+YOyb+jgZz3GDZfvuxDt4/am3wy89Bi7jG+A2g6rrQsX2BLNGQLnV56VgbfxY730uIwCFM/o6xbiI8uKG0q6BqM/vF6B5IBxAsLjVL6RaCjRXCRxm49giSo4OVJtpryAiu4+um4kDc/6ITuwTsSXywxWwRSIHc="

encoded<- base64decode(text)
aes <- AES(key,mode="CBC", encoded[1:8])
aes$decrypt(encoded[8:length(encoded)])
Error in AES(key, mode = "CBC", encoded[1:8]) : 
  AES only supports 16, 24 and 32 byte key
Error in aes$decrypt(encoded[8:length(encoded)]) : 
  Ciphertext length must be a multiple of 16 bytes

If you have a choice, try shortening this to 16 char

and/or this to 32.

Thanks, but this isn't possible. The company who owns the webservice give all the customers keys in this format. They provide me a example in vb.net and I have to do the same in R. I got the following information for the decryption:

Algorithm AES (Rijndael)
Key-Length 128 Bit
Block-Length 128 Bit
Modus CBC
Padding PKCS7

Decryption process

  1. Decode the string Base64
  2. Separate initialization vector and data:
  • Initialization vector: the first 16 bytes
  • Data: the remaining bytes
  1. Decrypt the data

VB.net example:
Imports System.Security.Cryptography
Public Function AutoiDecryption(ByVal InputStr As String, ByVal CryptKey As String) As String
'Advanced Encryption Standard (Rijndael)
Dim AES As RijndaelManaged
Dim Buffer() As Byte
Dim EncryptedBytes() As Byte
Dim EncryptedBytesWithIV() As Byte
Dim IVBytes As Byte()

Const IV_LENGTH As Integer = 16
Const KEY_SIZE As Integer = 128
Try
'Base64 decryption
EncryptedBytesWithIV = Convert.FromBase64String(InputStr)
'Separate initialization vector and data
IVBytes = New Byte(IV_LENGTH - 1) {}
EncryptedBytes = New Byte(EncryptedBytesWithIV.Length - IVBytes.Length - 1) {}
Array.Copy(EncryptedBytesWithIV, 0, IVBytes, 0, IVBytes.Length)
Array.Copy(EncryptedBytesWithIV, IVBytes.Length, EncryptedBytes, 0, EncryptedBytes.Length)
'InitializeCrypto Provider
AES = New RijndaelManaged
AES.Mode = CipherMode.CBC
AES.KeySize = KEY_SIZE
AES.BlockSize = KEY_SIZE
AES.Padding = PaddingMode.PKCS7
AES.Key = System.Text.Encoding.Default.GetBytes(CryptKey)
AES.IV = IVBytes
'Data Decryption
Buffer = AES.CreateDecryptor().TransformFinalBlock(EncryptedBytes, 0, EncryptedBytes.Length)
CompanyDecryption = System.Text.Encoding.UTF8.GetString(Buffer)
Catch ex As Exception
CompanyDecryption = ""
End Try
End Function

It appears that your initialization vector is 17 bytes, not 16 and the remaining bytes are not a multiple of 16. Check that you are using the right string as an argument; it should be at least 32 bytes.

Thanks for your answer, but I don't think it has something to do with the string. Because online I get a result when I use Online Tool for AES Encryption and Decryption...

I'm unable to identify the reason that the results are different for the two programs without knowing the details of the online tool and/or the target API.

You will want to replace your credentials if they were not simply for the test because the secret key has now been made public.