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 AES Encryption and Decryption Online Tool...

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.

This topic was automatically closed 21 days after the last reply. New replies are no longer allowed.

If you have a query related to it or one of the replies, start a new topic and refer back with a link.

@Tropoj Your issue is likely fixed now. The digest::AES() function did not support padding until today. I've added PKCS7 padding to "CBC" mode, which it looks like that's exactly what you needed. The updated version of {digest} is now on CRAN and this should work.

1 Like