Запись эквивалентного кода на Паскале в код C #

Как правильно указал Дэвид Кроуэлл, AnsiChar - 1 байт. Поэтому вам нужно изменить это:

encryptedWord += Convert.ToChar(word[i] ^ (startKey >> 8));

в нечто подобное:

encryptedWord += (char)((byte)(word[i] ^ (startKey >> 8)) & 0xFF);

Кроме того, ваш код на С# довольно неэффективен. Я бы сделал это так:

public static string Encrypt(bool encrypt, string word, int startKey, int multKey, int addKey)
{
    try
    {
        StringBuilder encryptedWord = new StringBuilder(word.Length);
        for (int i = 0; i < word.Length; i++)
        {
            encryptedWord.Append((char)((byte)(word[i] ^ (startKey >> 8)) & 0xFF));
            if(encrypt)
                startKey = (((int)encryptedWord[i]) + startKey) * multKey + addKey;
            else
                startKey = (((int)word[i]) + startKey) * multKey + addKey;
        }
        return encryptedWord.ToString();
    }
    catch (Exception ex)
    {
        Console.WriteLine(ex.Message);
        throw;
    }    
}

Обновление Дэвид Хеффернан прав в своих двух комментариях:

Вздох. Еще один вопрос шифрования, который работает с строками, а не с байтовыми массивами.

а также

Основная проблема с этим кодом заключается в том, что он пытается массировать байтовые массивы в кодированные строки UTF-16. Я ценю, что код в вопросе делает то же самое, но это действительно суть дела.

Если word содержит некоторый символ со значением> 255, то результат, созданный кодом С#, будет отличаться от того, что будет производить код Pascal. Чтобы решить эту проблему, вам необходимо работать с байтовыми массивами. Что-то вроде этого должно преуспеть:

private static byte[] StringToBytes(string str)
{
    byte[] bytes = new byte[str.Length * sizeof(char)];
    System.Buffer.BlockCopy(str.ToCharArray(), 0, bytes, 0, bytes.Length);
    return bytes;
}

private static string BytesToString(byte[] bytes)
{
    char[] chars = new char[bytes.Length / sizeof(char)];
    System.Buffer.BlockCopy(bytes, 0, chars, 0, bytes.Length);
    return new string(chars);
}

public static string Encrypt(bool encrypt, string word, int startKey, int multKey, int addKey)
{
    try
    {
        byte[] source = StringToBytes(word);
        byte[] result = new byte[source.Length];
        for (int i = 0; i < source.Length; ++i)
        {
            result[i] = (byte)((word[i] ^ (startKey >> 8)) & 0xFF);
            if (encrypt)
                startKey = ((result[i]) + startKey) * multKey + addKey;
            else
                startKey = ((word[i]) + startKey) * multKey + addKey;
        }
        return BytesToString(result);
    }
    catch (Exception ex)
    {
        Console.WriteLine(ex.Message);
        throw;
    }
}

StringToBytes и BytesToString отсюда: Как получить согласованное байтовое представление строк в С# без ручного указания кодировки?

Pascal AnsiChar - это восьмибитовое значение. Возможно, разрешено любое недополнение или переполнение.

Вероятно, вы захотите написать код С# для использования байтовых массивов вместо символов и строк, поскольку символы С# равны 16 бит.

Если код зависит от работы переполнения/недоработки, использование байтов исправит его.

Код Delphi явно отключает проверку переполнения с помощью {$Q-}. Если вы убедитесь, что переполнение включено в Delphi, я ожидаю, что вы также получите ошибку переполнения.

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

С# предоставляет непроверенную опцию, позволяющую явно отключить проверку переполнения.

Однако, если у вас есть другие тонкие ошибки, это может привести к неправильным результатам. Поэтому убедитесь, что вы все еще тщательно проверяете его. (См. Ответ Сергея для семантического несоответствия в вашем преобразовании, которое почти наверняка нарушит реализацию).

Convert.ToChar() выдает исключение, когда значение, которое вы передаете, слишком велико для символа, тогда как в Pascal литье в AnsiChar просто AnsiChar значение. Также обратите внимание, что символ С# - 16 бит, тогда как в Pascal - 8 бит.

Вы можете избежать исключения и заставить свой код работать как код Pascal, маскируя верхние биты перед вызовом Convert.ToChar в обеих строках, которые добавляются в encryptedWord, например:

encryptedWord += Convert.ToChar((word[i] ^ (startKey >> 8)) & 0xff);

word[i] ^ (startKey >> 8)

будет оцениваться до 81867, что слишком велико для преобразования в char.

попробуй использовать

Char.Parse()

в то время как

Convert.ToChar()