How can I encrypt with AES in C# then decrypt it on Perl?

Question

Here is my C# code. How could I decrypt this in Perl? Or I cannot decypt it in Perl due to OpenSSL?

RijndaelManaged RijndaelAlg = new RijndaelManaged();
FileStream fStream = File.Open(FileName, FileMode.OpenOrCreate);
byte[] initVectorBytes = Encoding.ASCII.GetBytes("11B2c3D4e5F6g7H8");
RijndaelAlg.IV = initVectorBytes;
string password = "11111111";
Rfc2898DeriveBytes key = new Rfc2898DeriveBytes(password, Encoding.ASCII.GetBytes("22222222"));
RijndaelAlg.Key = key.GetBytes(RijndaelAlg.KeySize / 8);
fStream = File.Open(FileName, FileMode.OpenOrCreate);
cStream = new CryptoStream(fStream, RijndaelAlg.CreateEncryptor(RijndaelAlg.Key, RijndaelAlg.IV), CryptoStreamMode.Write);
StreamWriter sWriter = new StreamWriter(cStream);
sWriter.Write(input);

sWriter.Close();
cStream.Close();
fStream.Close();

Many Thanks.

score 3 · Accepted Answer · answered Dec 22 '09 at 00:55

3

Take a look at Crypt::OpenSSL::AES.

Of course, your Perl code will need to get the right key somehow.

answered Dec 22 '09 at 00:55

Anon.

58,739
8
81
86

score 1 · Answer 2 · answered Dec 22 '09 at 00:57

1

Use Crypt::Rijndael if you use Rijndael/CBC. Or better describe your code.

answered Dec 22 '09 at 00:57

Alexandr Ciornii

7,346
1
25
29

How can I encrypt with AES in C# then decrypt it on Perl?

2 Answers2