ios - Perlと互換性のあるiOS CCCrypt

Question

http:// 応答の本文を暗号化するために、perl で以下を使用しています。

use Crypt::CBC;
my $cipher = Crypt::CBC->new(
                            -key    => 'testpasswordof32Charlength',
                            -cipher => "Crypt::OpenSSL::AES"
                            );


print $cipher->encrypt($data);

iOS では、以下を使用して暗号化を解除します。

- (NSData *)AES256DecryptWithKey:(NSString *)key {
    // 'key' should be 32 bytes for AES256, will be null-padded otherwise
    char keyPtr[kCCKeySizeAES256+1]; // room for terminator (unused)
    bzero(keyPtr, sizeof(keyPtr)); // fill with zeroes (for padding)

    // fetch key data
    [key getCString:keyPtr maxLength:sizeof(keyPtr) encoding:NSUTF8StringEncoding];

    NSUInteger dataLength = [self length];

    //See the doc: For block ciphers, the output size will always be less than or
    //equal to the input size plus the size of one block.
    //That's why we need to add the size of one block here
    size_t bufferSize = dataLength + kCCBlockSizeAES128;
    void *buffer = malloc(bufferSize);

    size_t numBytesDecrypted = 0;
    CCCryptorStatus cryptStatus = CCCrypt(kCCDecrypt, kCCAlgorithmAES128, kCCOptionPKCS7Padding,
                                          keyPtr, kCCKeySizeAES256,
                                          NULL /* initialization vector (optional) */,
                                          [self bytes], dataLength, /* input */
                                          buffer, bufferSize, /* output */
                                          &numBytesDecrypted);

    if (cryptStatus == kCCSuccess) {
        //the returned NSData takes ownership of the buffer and will free it on deallocation
        return [NSData dataWithBytesNoCopy:buffer length:numBytesDecrypted];
    }

    free(buffer); //free the buffer;
    return nil;
}

次に、サーバーで perl ルーチンを呼び出すために次のようにします。

NSData *receivedData = [NSURLConnection
                                sendSynchronousRequest:theRequest
                                returningResponse:&theResponse
                                error:&theError];

[receivedData AES256DecryptWithKey:@"testpasswordof32Charlength"];

receivedData NSData にガベージが表示されます...理由は何ですか? 私はおそらく単純な何かを欠いています.（復号化では単純ではありません）..を使用して、iOSでCBCを使用していることを確認しましたkCCOptionPKCS7Padding。何か案は？

（私の残っているわずかな）髪を引っ張る！