Как правильно переписать код с perl на c#?

Question

[Константин Теплоухов]

Здравствуйте , есть код perl

my $aes = Crypt::AuthEnc::GCM->new ("AES", $key, $iv_bin);

my $plain_text = $aes->decrypt_add  ($data);
my $result_tag = $aes->decrypt_done ($tag);

Нашёл через гугл https://metacpan.org/pod/Crypt::AuthEnc::GCM

Начал искать под c# , и не нашёл не 1 рабочего примера , самое грустное что я даже не совсем понимаю , в perl где строки а где байты ... может у кого есть рабочая реализация на c# ?

Comments

[Василий Банников]

А ты можешь описать, что в этом коде происходит?

Answer 1

[Василий Банников]

Посмотри вот тут:
https://docs.microsoft.com/ru-ru/dotnet/api/system...

По твоему коду не ясно, что является строкой, а что байтами, ибо не показано, где инициализируется ключ и IV, но ключ и IV, скорее всего, байтовые.

$plain_text - строка
$result_tag, из того что я понял по документации - тебе не нужен.

Comments

[Константин Теплоухов]

вы фрилансите ? если есть вариант дайте контакты )

[Константин Теплоухов]

Сделал вот такой код но он не работает

public string Decrypt(string cipher, byte[] key, byte[] iv, byte[] tag)
        {
            byte[] content = Convert.FromBase64String(cipher);
            using var aes = new AesGcm(key);
            byte[] result = null;
            aes.Decrypt(iv, content, tag, null);
            return Encoding.UTF8.GetString(result);
        }

Можно ли узнать ваш контакт ? Я сума с этим perl,om сойду

[Василий Банников]

Константин Теплоухов, как именно не работает?

[Константин Теплоухов]

Василий Банников, Думаю будет лучше показать весь код который я пробую переписать и то что у меня есть . Возможно я просто ошибся до этого и поэтому не работает

Perl code

my $ITERATIONS = 10000;

#
# Example
#

my $pass = "mysecretpassword";
my $blob = "wM+CSmCIIlaofXHPxCRFqbcPvEDZESBYM1XdAE8VFanedCIXvDEEt15nhzdv1pqzkW0MCQDBA5T1W1/Ltg7lKBszkoJJ1PtVHOpTn/afhvLyIp2VBBV1Tuj4s8LGo2GM9KOHn1Hn5BC1YhjP56opGrJlsIT9qnuGYHT8EtA5IiHP4zB4fwgGqDhtX+QUJi4rdm+apXZ1DpRvDq5J+bCca2GHXzU5H57Esn3THPXev3RdlkmjhuXVjV8=";
my $iv   = "ejhZW94EsJZ049Sb/at0Xg==";
my $salt = "jgW3gi0eyPtXXguqMzi6uGyuR6m+lgQXw8onqivK5w0=";

#
# Start
#

my $blob_bin = decode_base64 ($blob);
my $iv_bin   = decode_base64 ($iv);
my $salt_bin = decode_base64 ($salt);

my $data = substr ($blob_bin,   0, 169);
my $tag  = substr ($blob_bin, 169,  16); # last 16 bytes make up the random tag

my $pbkdf2 = Crypt::PBKDF2->new
(
  hasher     => Crypt::PBKDF2->hasher_from_algorithm ('HMACSHA2', 256),
  iterations => $ITERATIONS
);

my $key = $pbkdf2->PBKDF2 ($salt_bin, $pass);

# AES GCM

my $aes = Crypt::AuthEnc::GCM->new ("AES", $key, $iv_bin);

my $plain_text = $aes->decrypt_add  ($data);
my $result_tag = $aes->decrypt_done ($tag);

if ($result_tag eq 1)
{
  print "Password found: '$pass'\n";

  exit (0);
}

exit (1);

И код который написал я

c#

public string password = "mysecretpassword";
        public string blob = "wM+CSmCIIlaofXHPxCRFqbcPvEDZESBYM1XdAE8VFanedCIXvDEEt15nhzdv1pqzkW0MCQDBA5T1W1/Ltg7lKBszkoJJ1PtVHOpTn/afhvLyIp2VBBV1Tuj4s8LGo2GM9KOHn1Hn5BC1YhjP56opGrJlsIT9qnuGYHT8EtA5IiHP4zB4fwgGqDhtX+QUJi4rdm+apXZ1DpRvDq5J+bCca2GHXzU5H57Esn3THPXev3RdlkmjhuXVjV8=";
        public string iv = "ejhZW94EsJZ049Sb/at0Xg==";
        public string salt = "jgW3gi0eyPtXXguqMzi6uGyuR6m+lgQXw8onqivK5w0=";

        private byte[] DecodeBase64(string value)
        {
            byte[] data = Convert.FromBase64String(value);
            return data;
        }
        private void Form1_Load(object sender, EventArgs e)
        {
            var blob_bin = DecodeBase64(blob);
            var iv_bin = DecodeBase64(iv);
            var salt_bin = DecodeBase64(salt);

            var data = Encoding.UTF8.GetString(blob_bin);
            data = data.Substring(0, 169);

            var tag = Encoding.UTF8.GetString(blob_bin);
            tag = tag.Substring(169, 16);


            byte[] key;

            using (var pbkdf2 = new Rfc2898DeriveBytes(
                    password,
                    salt_bin,
                    10000,
            HashAlgorithmName.SHA256))
            {
                key = pbkdf2.GetBytes(32);
            }
            string result = Decrypt(data, key,iv_bin,Encoding.UTF8.GetBytes(tag));
        }
        public string Decrypt(string cipher, byte[] key, byte[] iv, byte[] tag)
        {
            byte[] content = Convert.FromBase64String(cipher);
            using var aes = new AesGcm(key);
            byte[] result = null;
            aes.Decrypt(iv, content, tag, null);
            return Encoding.UTF8.GetString(result);
        }

[Константин Теплоухов]

Василий Банников, в данный момент ошибка что текст не равен base64 (или подобная формулировка , не селён в англ)

[Василий Банников]

Константин Теплоухов, тогда просто скопируй сюда текст ошибки

[Константин Теплоухов]

Василий Банников, The input is not a valid Base-64 string as it contains a non-base 64 character, more than two padding characters, or an illegal character among the padding characters
Ошибка в строке byte[] content = Convert.FromBase64String(cipher);

Я так понимаю я как-то не правильно получаю blob_bin

[Василий Банников]

Константин Теплоухов, да, вероятно так и есть. Хотя выглядит нормально

[Константин Теплоухов]

Василий Банников, планирую обратиться на хабр фриланс , можете подсказать сколько примерно $ предлагать за такое ? (или самим код переписать или мой починить)

[Василий Банников]

Константин Теплоухов, кажется, что пара тысяч - вполне ок цена. За час можно справиться.

Но в целом ваш код и так должен работать. Проблема где-то в тексте

[Константин Теплоухов]

Василий Банников, и если можете объясните вот этот момент , возможно тут ошибся . Это perl код

my $blob_bin = decode_base64 ($blob);
my $iv_bin   = decode_base64 ($iv);
my $salt_bin = decode_base64 ($salt);

my $data = substr ($blob_bin,   0, 169);
my $tag  = substr ($blob_bin, 169,  16); # last 16 bytes make up the random tag

Те он берёт строку $blob потом decode_base64 и получает массив байт $blob_bin а потом снова приводит массив байт в строку и получает только первые 169 символов ? я про эту строку my $data = substr ($blob_bin, 0, 169);
Просто мне кажется что я тут мог что-то напутать , так как у себя в c# я так и сделал

[Константин Теплоухов]

Василий Банников, вот тут и странность так как perl код работает с этим текстом :(