2

JSON Web サービスからの応答を読み取って復号化する VB.Net アプリを作成しています。私は秘密のパスフレーズを持っており、オンラインの復号化ツールなどを使用して問題なく暗号化された文字列を復号化できます。ただし、VB.Net でコードを記述する方法をまだ理解できていません。

以下は、JSON Web サービスから返される暗号化された文字列の例です。

CMc5uJdkccbwzT2EgWri+VFrgDGeAqWPx4W/+xgCLl9hiUzrQuTf/hNo9AP3aWmT+vQcH0yQxq6eRA9PafD+XCD3bYhiNjlSgjSefN3gkWinuj2d7sGFhVyjk75b+vM/RLUd9QgxjM4NgEgBHbXJjS3LEavblRXmXvtAvvx8ON+TE4I/8TpxoUsqKGahIBPWuXxRGlRHQmIqg1KOT61qVH9Vj/6A9yGFWH8m+IQKFHA+ZZ6dmkfnkd2vvq6eLPus/zs2l6uP2dnwupkdeB5XbEibRqK7KVJF9Bj+S6RFyqE4VfCD0ouMjQjLU7zcYvNGogUUwqrsecQ7aybJcptSMl572M4wCrEJ5zFveZHIfk7nocEXDxrmre5pw7X95Gj/d2Tpy0Gfe927/JT+fCv7YIitZXFyjLckCv4QtAMFxeZaA2YPNOBWKLoRlZfCczKuPT1IGj4FONVwdYWrb0nijRvvXBQCwfegXBgI7h3CU4Z+mSbChYQrNcHgZim0E608IVkeO3xyQyAj4KtnVXMU2fljP+2FxR8swsEUdhT/9fD6NFMrNA6y78InnLBokK4Sp/wnok55SqlPDeJcWeaXsK+4ih2ZvxwdoRSLo5vR9Me90Wlh7MUhZAs0LB+hBs+lVWwJfKbQgXRRIvZIIBiBHGQyQDSrfSMmXep9RnCdF5o+J/aXIEiL0SMGymvL2wyW6l9hBRw9ffRB6wLROfYUgUNUTZNJIoVX5NXzRizB6U62+vOajMYWwAJ0tVvvmAtqJ9hL3QGHYvL1jRl9t+xyksKaEoTMNXWSh3M+/2CIRxU8rZt4YrM1droN1xvan9x/f/KRJFn90dcYc1FGrhzaV4R1QoybJb4SaCn44GK+imfyQQbm92oqQVrLEtbUQrcX34kUgXZKMIXbCF7pcxwA9t44jL1vGxPzzhag0D2OIOL5PbxIxTucPm3Nq+BZxNZPX1Zqp1H7A0+fVFRw4VTb70yd5BvQEBQVA+jk1snBqiMF1zKo6vga5IUjwT+p9ibiSpFOewa8a7vlLUzbzz/NtK56h1+Q7hBZC5Bnb3ImAXfeaIWjd82gl8CSy+cvAChbA6AgiK4sgkqIGNl8MY4uhp1xx3sf5tZADYgeIMKdzsze0yzLJk9aZi7P3gAJTzQsM1zc1t6GW8dRUtOLs5puKmEhwIbY/aSYACklPILy3vOatTdWE0Pmgs8YxCUh0ssTwYUtaIbPI39BnXhKwS6mUqaXEkbUsEmQWShhBMjYln83uW8PgVEN1GTa2VgRhUQPW+Caps3vHCcCOdo4Y6qoQvOwF6GavSSki+zuRVh5eGyLT6gpVQgy1qzgDn7sQ5wAfQUFETQIpmK+Mc0VIh9bp0HiI3oYn3mbRVzAkxY46pr5zr3iafzQpPbXdZIILuYUQy4TkKOiCPtFGAdvhedR+E0vJ6f9iw4plnADPO9b+B8ku31gi0fPp621Z2fMwaePLQ9KNVZizS/fZd2Jl4q2K4VAzPCNGGmDnurnMJYmRfmL8ydJc8qZg+nYeN8jrdVU7vJ0t8VG7mlaV8wjvfxKqI5U5lb+Oqce2QGQPW9XSCXtaW7AQ1uZaa3my2PNyyFZm20L7tHEgTFteVLMdEB9r7NdHllLsoj0BBGGKpmLCPRFLJ7MMikmWbjaOdNfeVEMzsTeyTVtwwDiO/GgWlew3rQ4WrxffIncSM/YER7FIsaiUUXkfar7FRCdoH7UiDTMrr19BjK7m2VWlePlsPClS5TXFebFRQKgWUMfjVsyI99aN5xi7Jvlenh4HgdaeCup0L4nfPs9HqVJqC8Y2p2aR2k9+itLZxlQbtLoyTJpfpLxPNi+VFdjhQt7NXmr8TraKBMbCsvLrRcnMh5s00eATcdHJ0nuW+5Bmp7XmbyKXSKawFrQ73+Nrc4ttMW4A1NMywe17kvgI9jXALCxj2YU/hVUFL5sP3g6zoIRGT/rK0DXGYHjfcZG/infHePqCfU80hUUEugLbviNS81RJDLjEh25tx93bWULRRuSVRppBcvJCjyv/uVI3cLUo2un6L2ZhEop9ZcfPq7YoifSlY125M/n43GcjHd0WaC8YWbHe3L2FYtwwUeW/sKgVJl8tU8p9e+Aw7Y4CESX7C+f0DzYY+wfVOCc4HnGV1MieWFzFQIRL5iPJ/XOqpSfAgQP2cA+OztvgeB7uwNIOINXejrHezaM8bkVwlewC9uDf/zNA5uS7JTZtUWNzmUX2LuYVCwu6eZxilBjFBCG/M8fZWVs32CSbw80OrB+/kyo7hfGkYwu5BSV4HU4q3iaooaTFwTAN6yXiuoUrLVnc8yTGotsxHxeee9hEdDYKc/Z37MdG3tGWZrL9KxNTldWJGAkUfVg2rEaf4pwpuBS/LIiA3J0p/70MPDjiYYJ9oOYtRq1iNyFOus73rxO+NXP06xeY8yD+IN2gBhiVQQ8xzRN6orbJP5zikFvcgNXi4SrVvGlb/M7G5X7VFlzJU4gp6J9sxC9ctDUmour6nGxlaGUZ1FpATc7Iy4RqJrObi3Kh/zuIbMtrncCWw/K5bIbYOlg6/hhFqqNaCA0Nv0lIxy9tryBfbIMF4NLYZDFXID9s9KLRaccB6VnpTlEOc3snDKxWmXpH9cIqCX2oxuFxqLS4RN1f+NZ5tNFRv61Iq3z2ecQwtPKYWRd3XQgjjwn7jdL9jRrqFo8ZYGU9GF6HxuJmtitf2m3xcL5CQEyVtkGFJKJN+Ts1No5wSoYgTPzj+ZMGxrvrITXvnesahL/cFcWqr2X6GYJkFfTWIa5w2RwstBYJe9A1EOdTBxxmA/uaWlREtiaG24MsuCneCrL2FqoQwgfqhuB3qH07H2gIaTRbmHuwCk/DrYEs7YhJstb/SyQibtQA3NGc/V6QLy5cqH7hKSCa6+8tM+30VYOsfdYWaqoJfQcetKUWgSBrV2RJbFU+BdS2qy3KiI8rd+Q8W+KNLeQWr9xSpVL2tVsF8o0ks8tcwTv6yqehJtTwktxqIT6ys8Sd+M3t9Wsz5Aq4ot28AJ3obK2/k37YJvDsgwrNgNaJ3Z3/Ij501ZbMV1mJvbRMdomunIt0eI587l9vgWkJTl/TfUgg2nI/zaYG5yaHKm+BefdsCDQgtYjko0DGgBuk8a0TVkuBK45Rixpg/38s8OW6GYg2uQ8PP6Zi3tvYHmwFxj6e5BHfRhWyrc2LeDAT9eDPtpu8OWk1EZl2hmmETvD54tA3N27HlQg9IwUng60nNUoqzo8JHLIPG4OVrtuF3B5bE7m4ZGEe0NXU4MAGK/tNMyEX9FlYFBr4C+3xb1nnaLjE1Hwq/sS4nhePH2HHcFBvwI2owWxhNHrUSifY/HY4A9aA2L365cctJyHv7DyGz+xcWBc2Mf7LiMmmmlx+uCO74TM6aURXw7tcgA8AukhcPvFW9D5wPgHtFPdINMCoHKOIr61rElf7UHPlOa9LMOSmOX72D8MWewNo61bDkWW59z0glFaOo4STjOGyby4HdUjm/ZnPRiW9HDbCBmSBGE4xEVajyv96ZIKPHessJJhXc9yIeW4Be+Ca2x+vdjOpBIlYct9llqa3BrqlT1q7xKSRlY7XGa13PXtikosZWaspoyWy0ETe/zLvKUK23W8+RHs2b9s5oG92lWwh/nBV9REZcTLFwxd+9esNcaLISY1Lw0rijjCUxUW6L+XdsnvyQpP9ZyQo0r0EfhXhW1z52D+7cQ7JIbKqYjAWxTKgJLF64/NfYPhtqb4xI7tnjxcNqxyMlldAGcdce2oGyVBDpTHXdeB9a90yJUe2pLLGU2bFHd9FH3jWJwg/prT65tZlmNzNVO4tNg3e0BKeM6MTH2yaWwMOqtoWGAJTEPtK6MZZ6o6YYpK2NBzTMNRUHC0xFeuIokaMoqaiLsF2zPnp8PCUlzwkZss63m6VvRCOwgMCkFIFCUXNYi7WpjapociTTBbVlUyTuFPtMyk1HejhXwCuywCc0bglM1D5BT0mQ/BxJSJC8y1JVPKyUPtys0XDgtaRhoSKGLfO+VFbmIRkzFuj7aqGwa51wTBWQ8IRlFHD0U+nbcFOU7B9k4fHZa3PDByiE+82tAiBvIuVBUZXgyF08LyChR46a1HjRWna5setsDkaIDmeeErp8tmnOm5/PPKRFeGps3yDx6xcGwZATMjiPE14PEvKKmfNTs12CAR6thPW+/zCc5YJS1WUVs/1fnmZL8X+t60A1D0af95XuFYg6SWkul50SFpbPpCgL++0GOMcbABT5A1kqAce9WYGv9IL03kDbXQ/rZS9vgNit4ZDi1vOSHS5tbdGabr1SumiJgkb58S0cZ8+lpz8G1vr7mWwfdQcO+bA5o0VCUWoPnkWP8VCVu5o9k4hSTAptQ//6aHL3HF6FmEs+olYSr/9JPOgjxELbmHW47CqWypIbB9Lbr67FITWTxPFGqPQ+1/8BqMglg2/Pim69z2vAxLDQjS2NE0oM6fmq9xkSfErOWrduWSHRAGJMQ/3/qDWN0twvBPY9tMswIDHtMDZJzX8OMl2yd5KXPHqHzBvLnZ167C3NuV7OjxqjacjqawCem9df7fSiADJc+spSwC6fCHCAa05+8xtiHv6Xnm4ANvHRJ3rMLEhZU+JRxY/gJOj8ypiS1Scz1PrJWS9iTpzuuH1Fk/bz17cqpHcAWRyA3C11gz7fHLIXHW+zvXE18iCsbqL+oBcg1qLfxetAFV6ctNjaHGVcfhrvEEB0cFRYjnkG1JveFeXTaYUjB3AEP9+aKCScqPJ5Nme/kdPTlY5WQP3h5dWxmX9qO/LdQbxiFZBYUofQioCryWNvo6c/05QqSJZGydKprtRiMtORPilxXHm2rFFsszV4+4pCMTolRprVT/++SWX8DKFOf3LgeRPQTg+Y/OqpjRgeWZw5UhMI7nYCHQBoA2LkPsVQdZZvvksE9ziWumq4PkI9R36uMIY5iGXF92+0UV9LcMjMoOhseMjhYvfyi6IebQayAk5Tgh+vPjeadRHyMX9mlY5z6Gz584d8cGBlF+n4C00c3pY1csrBRJxgV1O6a3KEi6i5Eq+wWXF91hyxbaB5lHNDjmgLFxX4+JVq2ikiZfl69e1KgrTjhmCRou2p7urJ36XB3G6ipHg5Uk2VCyf18bGxr0cG+Oi3CoKB+lY9oNLCvNm8Ejw+vRQHBQfhB/k3Y279nvUXjb8iMHFpd0s0sOJXy+3YfSnogqt4slpsuBkJmW65ta59NFLkQK4jY+qdOF45JRbXFVzM2XuFgCykCA2++Di5mSij8HWPRJZ+maAvCc5GCwPqCKnn6IxhmGyvXytTTkfE9ysKOKcnurylum48tunCsQdvMxdKa8Mv2SXs9n7iCWXBjEGSy2oVgPxe6bHQScaknBeFckL/4XGAkkmv7k2SKkVxaDUsKH0d6qxHyPiP6igui0KUmPPl7tfTgqNlMPRFWtAc9P5l/+JzXMrIBSytamM/t7VZFvl1YTgLvi8G/oZUwCZs887ITurWQftvZjjYO/8Ff+jvxAZGljKJZwL1EUjLA6/wiZDEFyJ71/vh1bEzRte86cn6jMiywMvb8EUtblGVki2sLlo8hBC5/ddxTyogRICygAExsp3moDD3zDn91nOkAzmV0g6tya037yo1448Rl6Jb3SwAx66M+fL54c15fkKXrJWBivIBW1v5pia6gxIRNJbCqjnuqd6oOrmA2N1B36oFuA3bbPhHhWDyCqySGc2k89MkBaO4lZGYWLiLy+1iuVxdO5HRdBWh3vPx6QxlvTe+r3JunmAe15aWK9h2k+BTfT7xMQZWMCoXOZ1p45CoaC8vN2pZuolrLv1d2D5UIM9pGwduOpej0ppCWm0sAeIxbdWEGSTSCNdDK4nDzsiGpdt++1arHiWShrn0AcLQv95YG8elsD2qk9+9cSmddytp1MZFL1baaz4TiPDYDfTvr6wFlNWmx57xvo6zhqsE00Z2BoLFFMw5G7ZCBSnV+V91UQYtZpfdFFpU7gjGlkzMONAGrVUFeM+yLmstrAEltDDj0xLONrYplpQwW8xUGhP5id8aiNavMDyaV4CF4Ct16EcICXGhyMjAAQOEbnLtdYMAPoZ9klF2wXpwWmzdtata3s4lULb3fCZUhBRLAh1EFp2LMvKoriQxoe+CfrHv7omyLeFe1mbpogDLHz9KYFmGDCiSPnZS0ids9IlmV2Q78Xh9BGwQcgQ6w1fL4Taki5kgEv/BPAVTrlhLChLr0Q6/FeCdtEoM00C8TpXci2QIH9y/BCnjijy2jnb4qerGlVgPNqH+Iw5I7NihauVlEQaiGwOROPijaCY21T3NTeBLpSOX6OU1Pj4L4XBj5pD26sW2tUbPUTcpdSRB1dFvPVerAiduYsWabbP3IUENDOZa53h+4cwUOGuNZnbKz/VXQ+wFDw5XkEj8dJZWDB8WymvfKstwN+eTvVpDUroMJMlWrOv8ZnmNjUVMqqe5g4oJ8PWJQCgS29/I5UIgIcR4f347XY2m4Ybv9BLj8VOwIDv1VBdHYLqvS9USnOAiuosK2TPWEtaUPxbtuHZOz283D+El95y4IqInUw4NVmoFL9SpGCS1Inc1K6InGRKB8+EJjNEzxuwbEzv9h/lsIKy+ezfiTVTihu2mFMKktDvDXKFcryksZTEK7BxH3wBJuL1wyHaYXuX4mXxLAetp9KJAg+CgoZn2CqK0U7EnXotYqjShQXbxKw8EvBOuYBdA2ij13fv9NUpUG8mGksGHwHLwHynrQ506V7ucPUwoxnBjUOaIQwfp2k7fwHY7yXMeS+HlWhkyt5bjt7WGzFPY1QGqMphOgvMYzlK+0KCowqsfoB1wEhamDHqA1mkAVpo23lEfr6z72yF9302VTLfyKCZdehl3JguSAO+9SwYObs1ESdK3Ylsh+kkxLCmYZX5IfV4TEsQnzr8D8Mtj1jcl88JyQcDPDZ+NZFQuWTR1r3kpzfvEYOUYX+2uhkhzw6E/o5zIHtvxjcg82v6QQEcaAJyazo3wum0RBGVAKyv07GdvFUgsFwZu19oajxJ5Pkw+lJ9fhCT/8VRrlZCdbmmudr5refshuOGJP2D+4+4tv2EBt5tcKVYmLbdM/iyxk8ZdRA6xahl7xU/q59FHCxA3G0SnUk53pvqkgLBSmbaI0bmtipvyGSimmc6JDsAh3mc1RuPaZJcGuuMDJyX3tALq+vYxcpN/kNBkRSoWR7P6wyAnECSUC4+rgITCLRYlMRn/7DbFveAVinuNdlx7MAESKJxlS9ae9zBZeqcow57D6HtkeOn80sJ9RhEM8xrFjYJZzXvypMeLMngY8T3ugFY+W/iyYJL0ErOC2CzOa2c9+PpKpQWlmzAdxOUVc3vX0IC9VziRtJ3fI+/y8mWZwIsc7tSWn9xGcVNBdJNf0df4vWF+4BR4tyj5XYXJTSJvBbSrKp+sd/FCz4bOA4tuQ6wDUHORmuL4EXDejf9VWA6r/ZFPbNkjFB7NEe13oTrYjD+LI43YiIEVil682w5xPL2+d2J5RZBTwMCup/KqLCaPYUtp/iH3VZev69A8yUx3UbjFwSvTsvopSRacMIZB8uZgvJfE3IA6n7q7itrp16CFCvelkdoaiNsOblyMyU48SbC9UcLkDmlSreZMNOp1TxEUCT/Mi3IQTP7+crCm0x+brVfOYJDoUz0qtziH2abmQq9f6Eyr+Ktlz/DyTBp+MUenN6I5diGySdqE2Ck34UDbPqvzeQQAXDnRPaDb+YUx9ShN9yMZjX+7Wz9RBCh1R92ekFU5RtmwgySjK0ktBYNrKhDCjQejMP9Roa0rzEVNdpas9nkTWZmtEU89yq15u6eT/Lj97EhyKB97liVOnIFisUNkoUs8TYf+/un81/z0Ss+0rqIri7t/SwC1/QHySAIuwverin19NHfln6TXGvMRHQllK9LL/b+BkyE4bJafxC8tnJZNRRsajA7QBL1LTQh+3XyM7gQ1gLJDoK14gzIDoUkvVCwX66If3Sn9IpTwMtFzZyoRPf+yVBb45kbe/eWVfVSZ5AmnbI+fzX39cBQj4IO51MLxHtrUKAyy+jy/74aLkPQexXJjm9aP8dSeY6rhdtNusDkEe3aRDzdS8UtwvY3mXZlEv13Bg09A723e5qkWBqW1pmaoUFh6zG7KThfl52nq0vgNqWLSbVkMPJosSJ1Wd4K2RjF3mkNbYnuVr4qnYiU8mg1gI2f6H+tBImLvp8sv00+s5cRxyj594C6TgfFzfbuWHB7xce+Ng/5OCraAnjpL7sNqCABpE9P37yUXQStKN+KMCtj3MFfcRyGEqxg7qBqD2C5phtwUJz7UMych8BzOwzwKkH+0TJwLbmgxOyZGUvMIIVfUQf83PuyYFKY1zyqoMr06g2SfCbGbah89R+r5Nl9n/0ky2zLp9dKOiXxv/M2qzDEurBRVuvsnG4r7f2Wdq55RdqwsQjFPXiOFpxV1tX8P+LRD+24UtPeeXgRhM7cz48huNORQNvHQild1Bw6gDMxa7VutVMnZIgvge/EnRBlnOzu3QU8frYYKv9IkaWvoQ2Msr/uMK+7kganmhKAqoJiiRjA3Esrgy8KwfRKVzxMP8JB4K5M/riI4f7NFQeNLYXIWHQcfswm0+v8rXFGhMbvrQxMYq9k9ZDyN5HWZZs4MWkHyEhidqAGtnrVbHxgfI448FancR+doXaJPF3ROiKkyjJpHw16ceTAvpkfuYvSxos0HLADgE1GdCxRLnxJpbaF5WYOdmKzpgRGg3lTlQ5Vp/TUtMtOR+VYyGCXSrdo87MYeamyhBsavizjo8dE1S+EBeTlXKgzXvvzWAuWVgUxtJKMQA7u6/QEqaZq6U200+pyoy/jt4p2JZPzQJ7YCpdvIWwEZGQWBIM1Gd6qFUiG2dqncI4tV2V7TpRlPziG6bJIACcWnLaU2E34hgcDxt0M79JGX477RbNTKTgtYDtfjeenJklrV9aVl9SHmLtKpvEZ2q1oLbrxSQ5SolJms7OMIf8EGn19U8O6LtiajxKXhI2p0+xLOEJC3YDz7eNudhNIBGodiSlQEh1gQuYQCa7nBHEYtgUpz1QwXYwXP4VfdXq3fLqTUiNkc/Gz228OHfoLdLV1qwXoQV+bhlThNT7Hfftr/kJ7OI2dNAJuRYw+hQp7e/jrNdQg49nHnBjHAzl5wJYPC2SD32B7A0Eq202hVCGJ1Q15qZT1vf3abybdYPybS8mUzbDdyrj9BoSlnborboIxaVyax8bdB7e/EvURaIEAwgannHgg9svVHY6o0i0Bvzw9XOqZ/fot5c3UFGAowSqDOR2IrV3FDsMHYGR/gleUHSOekccqmozjqhWPtCupXsP+LZeIegbOI7unGC63UlS3IBxC6ZGVqJ/2H9IR/FAJMVrXQ8SFeg/I0hlX2bSZ2QSM4tJrwVCOBzTr6gYdcKo4awgsC/1bzpj275l8B7uZHUGb3+QKPQx7hAGb/B3HW6Aifvfmk6PYXYzdu1Rjhynb0PmfRqtiUrxghB03MPReJ51mUBA+ontmDdO4eAIHVBWQ7bxu1GSaEnBKIC+GnsvAuNbACl5FSO1FwB4khcwmPUQuAay1IAT3NgGBpgGU4mbrEt9v4mJZPbm67mYrUz614jCnWjM4oelGEJjyr1qspHtOjgTdE7vPOU2cIHgT22cSSoL0Y9NRWyrdYZSyEqR0ocjWlwwciPpNeqksecf4BGJ41itJd/w35CJgC6W3u1CBrjdYnfj2kg7+cmu5ozvVzVuOkgy85RjLABNvYBd3/JcTyOitDasKBtU7vNLmUwmSdmu8tJ4TyAcxbX7+6uSyCLoMq8sMFmxVQwUtxmiiPnknygLUbOU1DMM1KdHrSsR1/DxQnlnkaaBtTGC8knHetHwiAbX7w9EXYa4vSm4i6hgQx3MJvu/tVD2bRX+hiEqJ89gJ/2H0EA/UOnmAbHR5pdqgZSm+4xHpthzbxcLSsM+vyEfMSK3v/tN9umaB1w1jjJ00rpa7GEprlNN2SBEz0Voyvepb1PVP4X3DgXXazcNS2QAdKw/fHWHR0IFQO4pO/7mJCVmp72IB6OfRq2E9nxJNkSJUVTwUJrRNYwC+zc/6Ur4AB49bRy3Vl8Z5OOXYuI0jGNoa2n/NE7+6CDhndeJjYhCqogQmU0j2XqP+A8EnHwPcMpj+Q7/+f+rwIDEE0hzx8Ja/gH5BCFWG14KHGoo3di+oufYNx2E1L6lvBfUTi3DyUWkPOH3P/tDPMLodYtP75KZXon76Rrmuxgze9XUlZZSoC8D/BIMf3+gzyDC646S54vltAg4TtBiooxQ8WXfiFK8RtYUP6oRi0OH8zSTR0oxx6OMxLTNjgSEZViGEf8yKXZq8bnV1iEJelBfFEZdKpdJnthWXEpEoTYob4FlBD3VhYYquEeN+bzy1zijQ8DkYjblxrhZuPawlwN+BGCrmVxUcLn+R7xiq2BmT0/dPyDv6PD3gfMFa93OpoJzUoUropDHw04P23sqW37JaufQvNO4I1BwdAf9jFt6KOnmk2g2jLgd0heAv7PXMCDHdXzH2fZuDK8Oro1/XmHuPLDo1UE+DGxVV9rUUY7S/yau6EWGKFyme6GVcfKbQpcjmYPTXTH5Ri0sfsnNNgjI5Bzbf2GVxSo3Jhq3Mgle+5h6tjj1AQN1UWBju5b5WM3Jdp1DVCqwWpGiN1655JJRUdeu7N9UqmMqt+JtXWjm2Nj02Gh7z5F3p4KFHS83DHXmYlpKeGbnFZdzTQrdLZ6f6cmjC0+c2LvyQbcukorRKFD///QRIn7Umjx01yZJyTMa1FpQ2dhO2z90ofqwfybfXGZdwsRM/Ky1POj/aBXeEDzTQ8GP4QM+20IO2KdcBNSUdo514Yaequ78yWFmSGtUcO0Rt9gjFTNCMmdRzAIkCiw3xhgOza4y+hB+fU0Fs1ncl+6baP8lcL51Jv7EnGXCoADypHkoH4J+BqV1JuqqhcM8/yhl6QUboG1T4KjbF88f9pRNh3f+2PcViIpya8OzivXSx48XWjVp6RlZyFHCAaXhSsjZ4WllFGw4ZpyOdI1ShYrIFZ5/jbmrSc6ssnpa7CEU9PnH0HD/vHSAhMiKBMqQiYWS0cO4+8a8VEpAh727gx8AQe4GQ5Niz9kamwkxaDCtbLWj/Seof43DngutVTCCaMvq7Edna9/JDkJtZ5LpJGqBU5xz83QQWJ0dLEL+xhtMYIPKDM9b5rTij/plvc1ylzDbNSX+j1+QA8dSde2dkSW7CjcxwLQtZkmZs9eT2cqA7obgB88nSyyY07m4HrNNQ0xPFJqfXS/2CAl+AlDMfDZEtINL1r3nvvYWv8wkDIdaVLTpeYoxOWk7BMwN6qLRyyI53T7KMY69Ioud6xIN4/622oAuFw7N2SvNoeAbYDiKxFg3d/PIpUzX96tYKRLDFczWVW5pUd+wV4otKXOWzQD4Lnoh8fJ2lMXJib0aZRT9Hz/QCyk5SXRgboq+Jad60h3xWbPaiX7ZlPeGfkqgHje0WX3fB+wb8Uw05GzZMOiXtHYAHBk8UcDjFrWSSfMLI0NdK1RY/N0byvRPskDWZw15a14Aksp/aekTBc4rLeUkG8t3TSVyTJgTAzNCmcRVYp8GGBFtxw/1BxHyDT4JfkcpuSbCicMQMWuYyKrDFX7yva2VA/zQ7T42yfasY6634kla/iKz2lra3/LiQdGA9kk3Wjh9kncYicEpG8Yy/FMsxTw+tUAuEUjokdPVxeZWugrY6FaGq47uzWwhujXzwn+3IhiqJmVya1ZTKuwzhwpllA7yoVNHmwdy4c+c+/z5A4WgOkzjplyf8bCmgySoqHrtaeymGBRm9axIJQznaCJtlzUT4BYvrNs7CKauXlRhN+iwYC2VQM2LyGC0Mp1AtjsHgC9LYe9DDvOoX6aCZgqUPda1Ejq8XjYNuz7R0Hoz0UYuRzQjxr1uq/an4Nf8pe/ns9JuR0ajLIJQHWGZswPUYZl/83xTrDYs0+9Qr3690pvmmV4X2BSQdAcyyy+MPCNQHeZSam1bewqg4B6DJf/lEkM1N2W8RXrmLZbFu6Cg50Nh8mX8mnpWwNx82YpeF9tSCOymHHT2m3pvHrBBHg6AgNxgdnGtmaUfjz/E8aaBiOD89p6I7W82xgOJU0WBaOLE4m2mZ5ZVsoHLl4L0bopoEIktr7twBRLomO8Qq7niVrOC2oaolg7F1VOPTQ26W00v2Afj+t6m0sraD7oNKwboiHpOcmF4BiKlNWvDHWNcTGjP37UpKS5oHz8s/m6/PkKJbXaXr4YLByvRLsGtRvmtiQ77dT1iPcAurf/EiWu4YH0PH/G0god/YopEWKsf6egmYgo05Xp+2bR+t6zoF95bTFJRcgfDQlIBgGpXmZdqFpsA7PJnGDq6kcHzOZOeA+SlOXPGnzZ+Kbv6a4ZMfJ9BL4S+R01k63Ucaty96RSYsfEa8XnnMPRC0MV1wBSLX7sOFFDgi6K/5lgsLKeTVS5V/YPHORAcXCzvXmrbcKxv9GXAv/EFD60IImVdhR+ksDq/e8E0pzuRWYzOwaJLxhMbrKe5KZNtuURVJ8nkm67qghhMnzZgWemdUI76B+kWPE9YxVoKD4OrFdqAFoQftAwZq24538K63HgSpuSPsyI75MEIwY6LQHeJVDLb+cL60uYsEfspl07rqKyWOrnx4hPkkQZuZdyIEOR7J8h7J1/DzjGsFU/9jz1XE/+r4EPtk3rKGb/6BHAW+6DDr3BjQhJ1dJQyikcXXVwZ/p6CUgiwrWikdqePiYEZuDgaGWvQnD1lYh6fqeRkYI0VaqmwZLPKnU8a6Go59AfBKaA88x2eTCcc0a2R7sN7ctJdvG8puU+9PB2L3CWWceDefKHLPLWw3Pg3I33s3uzHpu+KbdYcKBgfqxCvu+XrZNQPUfWeXW3sW7w6wsXZqihbIibmEZcq2i1hDK+ZFryNtHiwDcxlQQ4IXwbhRpNG0D4C/pN+dqQPGLLM5MX2Fkn/x1P0gInUbmgvEunFwxfheI0F1pYkGul+wbWOnPmkA68q443WssdfxtM1HeR+5PnwOK+n5x7qUqZLw6OhQ9etbZ12lNYCw5hpaA2Z50IhQ3YNWI5CZ9mImxY8bWIGeb/Uy1hFo5P0OwdFWpkv/jK+GQp9+GVT7Rq3VIKLYcUZk/UC1Pi3a+nJnd0NXlYAoUd63nma05DWjO/mAx5SyrGqLk5ETuU0RCBS9JuOFqToq8mIx/Iu3YtZE7vyRGBuSP/PaHFzwdqzXEsQFgW+BS8AeFsNtlNduL3YukUT4MAMe/AwnxQ5KNc+S2Ke1WGUG3KOPUXN86N5jVEXE2V07B2VoZnkZS9OBe+/+sYWDMu95zptIWgcy+XiNTV6YgVeKsGdp3uPscpXWqBLjDKW3W0/oKLqzlybBwI7ozrm1zN4ezUBiC1C/qOxrHvhpYMHbFjiiqatWr+6SJj79NUczxaP7Lox4TnmFmZpCi4ohAMIflcz1tpq6T6eyvQkWzh2AbTjYN5etnp0XrB/LxJ5koUceZg94RMePHJuP+YRojuFNSuqAY7Q1WFwkvS6CDIiXa+aBz94eUNgr0aO0ik0KsL0SQxJ33nDTy1VjZblpg5o7Zf4umYLXkoS3J9sHqfIDcRff9fT/97wHQfWFhFVQ4CehANHyyPvXVn0TeFGnJLva4yMFkMxIwEznEMHYtvrs8NQiZr5k9uchGpPHISF7eX6QZVBWIBSKYLTdzsVELIRO6pQXRWaBgYYn4z+91x0Yf1pi5pFRizgkRxX1MlGY/i4l21vuF8NLFkc4sMxrtY1Hjc1h+wUmCnlYD88IGzEw7dWjO1/5iQReHJXxXEbIw0nAOKFBV7U8J07KIO9tcnHMmioTH7zj931TPh3Lkp3Ka38AAaKTMAPZgZw02cZ99xHFfPUI2yLq2LYo+DKzBY4d7Dyy9aW5Wn1Iglmm+O0CRAo2vR4Sxm3uw8Hvdvz9n1cbPGrmuxVO6X7zhG/x4zKPZz1A/MHrwyqaZueR5dGS0sHrOiQ8NxFC+cCGfzKkHlq4vmrIQoj1o+OxbYOj0BkyXIQjmIYRuMX2/uNPtbvrK1/jG78Wu74hHZpde8pRcemuhJ8VO2ttiiCIuEcs4g6/kuz7KIMurhsKj4J+5xR2RpFGKaqeQHYTxOB/UW08t02+PSIpZWRHFXogj7FOklpJq0Jo8k/BFoovZVWKzN0eFrV0lmcnquXkbTHtN4kptq1FYZybdyqj5B4n1XWqxgim3WZkUKJlpe8YPYt+1A+UKhRlMinvZXxnJxT6LXkVWNUdkz+6tVCHUY8Gz2YNV/JwQUYrc8DAsWELXDcHmNrHnFcfH5KdLEX/TfXw8s7mJzNe5war1EaLaCEAWyeuYPp0fMrIoIUU/muqwTmCbvGd6EcQD8QsfI438IGcyEQrQ+HseImHGfvDQiwVFfmc2rqLIf6Vm9J4D1W1EP/fKQnjT+CT9EIjoTAmBaW3dyfdefIUdCtQSbiqe+a9gcqQkWNguEuIJ/VwH9qm0tzZrldTDPayhts0NIxHY+AGjD9P8tIEeWX2QqHXRfJFQ6Mb30LULziwpEYCNvXQSO0c3FO2h5rmqK2xnYNm0X1ajyyv44dJFXUsWzbC/J/gP6BvnNUCkuSDRyOyFJrvMpKsE/SBSd6qhZO1HMxIdtjATdp0SMKJQMLJpCTOfVPP39KYp/YZoDdECx0wGdq/ksRtbl2RVIlatfLTG9FsbiZGMHbrToJczFO6iN6w2Dsptv/CHG8ZL7j2j1B7wkMajwLxDntRwxwSywx8+RFbNs4Naf9pmwtwqBOdDsh5Q0hKsvxcZVa+Aa+e9G4RWkRAE7nnSLd7fDV1EwyJc6ScP2WYF/s5RQPvdLJoGKAkgpCOwfeLaKzetyu4hUJDbs8ob8H6sPk+gVp5ZcoiEZG18f/gtXUqpZJE37f4qlIIRllwY6OMnUpWwKzRQ69HxRa0MZxvnWmrK1yVyaqYsB4RkZvkBJlnINmdAplKlXeeRqCjYze9VnIyhxCl+prYRDSX4xFZaVswce3OoaKezzToyqdmIDAx/J2PCpupXFYIxIJQxe5HpXBdI1JnnRmP6bUshCO3qK9q+Jxs0Ch2E7alsqOCPdsn/knvG06VYXEcRkbztP+am9hA3DgquETplscCEOykPKzKoa8ryUOa5f3q7B6PGEaRdTwSeqsgjtgrirDbTcAbF3n0LRe7mZA8/qWwOITnCzZyqr0wR6/qj/xwFzDdMJieP286AkneApyBJIkdAsq5aKagUkT4YNRZrCWngk3G2zs4CfSDx2EK1ZzIVGQijVOXpUAvCvJ6yNLTquustQ8ABJHCRe5IiEf7Qp0mzTBkttrwVogOXTz9xc8KMrdXJxyhiEgwRQ6dPPhXJSAgpDukJPgPOzWxIle/KdPo1tHKaoSeDX9AVucFavH/Guja90zoyRsTf51D/RmLt66ISlYuFp1RC0UmDmDRwxNxj4OaTlNIQn1UTxJm0VUPizVniVKhl8B76xnXO4CDxhm7GLOOvJ6hnuP23HaJ4NDRNc4oEMGbJ+pMI6eUz2lS71A0km5AyuhqynOW5C4Azc/5RqOvN+08VWOcZopvjPjnQ64eiUxR4xsElcRF1IcU4gS88odd+x6hg6ix7u9cdC4Zo3qtm39IlGN8QpmrdftAZ9wRoWm+X5JSnFZ896R2M9nAcNUJooogc2HCQF4ZSpitAgUqL4BbwNqLZw701y+YoT6Ne5zYVArfrUClacW3GKXdBqc8bnThKCh/RykKScKLnC9kw0w2EWZ7tWh3vMvMrX6il3a+NY+IPXnmogF06KtCemjrjh75NEx1ByZKHFSfN5pNeKFQJQ69g6565rCoA6M1kMCkuagzj1WpveYoJrRb2rQl/Fo1PnS3++Z66ue9FpDHWINSRY2f2UQA29Jtofu5ZYKD1iupAzASADDjIwKf1ni3BvN+aR+GibW8IALL/dewvlDskJd6x8R9rf3UBo8SfFolF2pWT6jXyD0x/OmNHxLUHBD1oGdjpBBeQDmdIzYJGNwTCZqAT2aytAv2rPH6P/anGlsZgxtvf8uapc3sn2CyoXxmDF4D7DAtdL/MA==

鍵:

d40da16b8bc6b5e33ef3ae5f704edb2b

Rinjdael-128 暗号化であり、文字列を Base64 でデコードする必要があることはわかっています。VB.Netでそれを行うためのコードを理解できないようです。私はオンラインで多くの例を試しましたが、期待した結果が得られません。期待されるのは JSON であり、JSON 形式の文字列である必要があります。

これは、惨めに失敗した私の最新の試みです。

Dim rmt As RijndaelManaged = New RijndaelManaged()

   Using rmt
       rmt.KeySize = 128
       rmt.Mode = CipherMode.CBC
       rmt.Padding = PaddingMode.ISO10126

       Dim ciphertext() As Byte = Convert.FromBase64String(json)

       Dim plaintext() As Byte = rmt.CreateDecryptor(Convert.FromBase64String(key), System.Text.Encoding.ASCII.GetBytes(InitialVector)).TransformFinalBlock(ciphertext, 0, ciphertext.Length)

       Dim decryptedtext As String = System.Text.Encoding.UTF8.GetString(plaintext)
                        Console.WriteLine(decryptedtext)
   End Using

誰でも提供できる洞察や助けをいただければ幸いです。

ありがとう

4

2 に答える 2

0

答えは、ほとんどの場合、(文字) エンコーディングほど暗号化ではなく、IV とパディングがどのように適用されるかを知ることです。キーのエンコーディングと IV を修正し、正しいパディングを使用すると、メッセージは復号化されます。

この回答は、プレーンテキストを取得できたコメントの提案を多かれ少なかれ要約しています。最も重要なことは、キーが base64 ではなく 16 進数であったことです。

于 2012-05-31T00:12:19.183 に答える
0

私はずっと前にこのdllを構築しました。Rijndael の復号化に使用できます。これで問題が解決することを願っています:

Imports Microsoft.VisualBasic
Imports System.Security.Cryptography
Imports System.IO
Imports System.Text
Imports Microsoft.Win32

Public Class GateKeeper


    Public Function Decipher(ByVal vstrStringToBeDecrypted As String, ByVal vstrDecryptionKey As String) As String

        Dim bytDataToBeDecrypted() As Byte
        Dim bytTemp() As Byte
        Dim bytIV() As Byte = {121, 241, 10, 1, 132, 74, 11, 39, 255, 91, 45, 78, 14, 211, 22, 62}
        Dim objRijndaelManaged As New RijndaelManaged
        Dim objMemoryStream As MemoryStream
        Dim objCryptoStream As CryptoStream
        Dim bytDecryptionKey() As Byte

        Dim intLength As Integer
        Dim intRemaining As Integer
        Dim intCtr As Integer
        Dim strReturnString As String = String.Empty
        Dim achrCharacterArray() As Char
        Dim intIndex As Integer
        Dim StripNullCharactersFunc As New StringHandler

        bytDataToBeDecrypted = Convert.FromBase64String(vstrStringToBeDecrypted)

        intLength = Len(vstrDecryptionKey)


        If intLength >= 32 Then
            vstrDecryptionKey = Strings.Left(vstrDecryptionKey, 32)
        Else
            intLength = Len(vstrDecryptionKey)
            intRemaining = 32 - intLength
            vstrDecryptionKey = vstrDecryptionKey & Strings.StrDup(intRemaining, "X")
        End If

        bytDecryptionKey = Encoding.ASCII.GetBytes(vstrDecryptionKey.ToCharArray)

        ReDim bytTemp(bytDataToBeDecrypted.Length)

        objMemoryStream = New MemoryStream(bytDataToBeDecrypted)

        Try

            objCryptoStream = New CryptoStream(objMemoryStream, _
               objRijndaelManaged.CreateDecryptor(bytDecryptionKey, bytIV), _
               CryptoStreamMode.Read)

            objCryptoStream.Read(bytTemp, 0, bytTemp.Length)

            objCryptoStream.FlushFinalBlock()
            objMemoryStream.Close()
            objCryptoStream.Close()

        Catch

        End Try

        Return StripNullCharactersFunc.StripNullCharacters(Encoding.ASCII.GetString(bytTemp))

    End Function

End Class



Imports Microsoft.VisualBasic
Imports System.Text.RegularExpressions

Public Class StringHandler

    'lets get rid oof spaces
    Public Function StripNullCharacters(ByVal vstrStringWithNulls As String) As String
        'This function removes spaces from strings

        Dim intPosition As Integer
        Dim strStringWithOutNulls As String

        intPosition = 1
        strStringWithOutNulls = vstrStringWithNulls

        Do While intPosition > 0
            intPosition = InStr(intPosition, vstrStringWithNulls, vbNullChar)

            If intPosition > 0 Then
                strStringWithOutNulls = Left$(strStringWithOutNulls, intPosition - 1) & _
                                  Right$(strStringWithOutNulls, Len(strStringWithOutNulls) - intPosition)
            End If

            If intPosition > strStringWithOutNulls.Length Then
                Exit Do
            End If
        Loop

        Return strStringWithOutNulls

    End Function

End Class
于 2012-05-31T02:05:33.303 に答える