из pascal в c#

[d3[Z.oRg]]

Шифр Гронсфельда
http://www.cyberforum.ru/pascal/thread33245.html
по ссылке реализовано на паскале. но после него C# как снег на голову с его кривой реализацией некоторых функций аля ord и chr (понятно что надо привыкнуть) и объявлением функций

function GronsfeldEncipher(toCode, K: string): string;
var i, T, _T: integer;
begin
  for i := 1 to length(toCode) do begin
    _T := ord(toCode[ i ]);
 
    T := (Ord(toCode[ i ])
 
      +
      (Ord(K[(pred(i) mod length(K)) + 1]) - Ord('0'))
 
         );
 
    if T >= 256 then dec(T, 256);
    toCode[ i ] := Chr(T);
  end;
  GronsfeldEncipher := toCode;
end;
 
 
function GronsfeldDecipher(toDecode, K: string): string;
var i, T: integer;
begin
  for i := 1 to length(toDecode) do begin
    T := (Ord(toDecode[i])
 
      -
      (Ord(K[(pred(i) mod length(K)) + 1]) - Ord('0'))
 
         );
    if T < 0 then Inc(T, 256);
    toDecode[ i ] := Chr(T);
  end;
  GronsfeldDecipher := toDecode;
end;
 
var
  s: string;
 
begin
  s := GronsfeldEncipher('INFORMATION', '2178');
  writeln(s);
  writeln('s = ', GronsfeldDecipher(s, '2178'));
end.

орд получился как (int)tocode[i], а мод - %
перегнать Chr и заставить его вменяемо работать не получилось. помогите пожалуйста

[veniside]

А не проще ли работать с байтами, чем так измываться над юникодными строками?

[b2soft]

Юникод - не мазохист ведь =)))

Правильно товарисч сказал. Работайте с байтами. Проще будет. гугл в помосч

[d3[Z.oRg]]

toCode[ i ] := Chr(T);
toCode[ i ] = (char)T; - должно быть так, но получается какая-то нелепая ошибка при компиляции. завтра могу закинуть то что получилось, сегодня скопировал не тот проект на флешку :\
и возвращаемое значение тогда должно быть в функциях как
return toCode/toDecode ?

[d3[Z.oRg]]

собственно вот что получается

using System;
namespace Gronsfeld
{
    class encode_decode
    {   
        //ecn_START
        public string GronsfeldEncipher(string toCode, string K)
        {
            //string toCode = null;
           
                for (int i=1; i<toCode.Length; i++)
                {

                  int _T = (int)(toCode[ i ]);
 
                   int T = (int)(((toCode[ i ]) + (int)(K[((i-1) % (K.Length)) + 1]) - (int)('0')));
 
                if (T >= 256) 
                    T-= 256;
                toCode[i] = char(T);

                }
         return toCode;
        }//enc_END
    
        //dec_START
        public string GronsfeldDecipher(string toDecode, string K)
        {
                       
                for (int i=1; i<toDecode.Length; i++)
                {

                int T = (int)(((toDecode[i]) - (int)(K[((i-1) % (K.Length)) + 1]) - (int)('0')));
                if (T < 0)
                    T+=256;
                toDecode[i] = char(T);

                 }
        return toDecode;
        }//dec_END



        static void Main()
        {
            Console.WriteLine("Hello World!");
            string a = "hello";
            string b = "qwe";
             string s = GronsfeldEncipher(a, b);
            Console.WriteLine(s);

            Console.WriteLine("Press any key to exit.");
            Console.ReadKey();


        }
    }
}

c:\users\d3zorg\documents\visual studio 2010\Projects\ConsoleApplication1\C onsoleApplication1\Program.cs(21,33 ): ошибка CS1525: Недопустимый элемент "char" в выражении
c:\users\d3zorg\documents\visual studio 2010\Projects\ConsoleApplication1\C onsoleApplication1\Program.cs(36,35 ): ошибка CS1525: Недопустимый элемент "char" в выражении
c:\users\d3zorg\documents\visual studio 2010\Projects\ConsoleApplication1\C onsoleApplication1\Program.cs(48,25 ): ошибка CS0120: Для нестатического поля, метода или свойства "Gronsfeld.encode_decode.GronsfeldE ncipher(string, string)" требуется ссылка на объект
c:\users\d3zorg\documents\visual studio 2010\Projects\ConsoleApplication1\C onsoleApplication1\Program.cs(8,23) : (Связанное местоположение)

[Serge_Bliznykov]

1) посмотрите тему С# HexToStr - там, думаю, найдёте немало полезных в данной задаче трюков.

2) какая цель написания Вами данного кода?
И почему в основной программе не вызывается функция расшифровки ?!

3) при данном алгоритме шифрования легко получаются не буквенно-цифровые коды (т.е. их отображение напрямую может зависеть от используемой таблицы символов), т.е. в консоле, при выводе зашифрованного текста легко получить "непечатные" символы. Это Вас не пугает?

[d3[Z.oRg]]

Сообщение от Serge_Bliznykov

1) посмотрите тему С# HexToStr - там, думаю, найдёте немало полезных в данной задаче трюков.

2) какая цель написания Вами данного кода?
И почему в основной программе не вызывается функция расшифровки ?!

3) при данном алгоритме шифрования легко получаются не буквенно-цифровые коды (т.е. их отображение напрямую может зависеть от используемой таблицы символов), т.е. в консоле, при выводе зашифрованного текста легко получить "непечатные" символы. Это Вас не пугает?

1) ни о чем
2) цель - чтобы алгоритм работал, а то что нету функции дешифрации так это не проблема, уже вызвали как отладили
3) в оригинале использовались только цифровой ключ, с символьными я уже поигрался, вышло очень интересно, но это уже другая история.
если кому интересно то вот голый рабочий вариант без извращений

using System;
namespace Gronsfeld
{
    static class encode_decode
    {
        //ecn_START
        public static string GronsfeldEncipher(string toCode, string K)
        {
            //string toCode = null;
            string result="";
            for (int i = 0; i < toCode.Length; i++)
            {
 
                int _T = (int)(toCode[i]);
 
                int T = (int)toCode[i] + ((int)(K[((i) % (K.Length)) ]) - (int)('0'));
 
                if (T >= 256)
                    T -= 256;
                
 
                result += (char)T;
                
            }
            return result;
        }//enc_END
 
        //dec_START
        public static string GronsfeldDecipher(string toDecode, string K)
        {
            string result="";
 
            for (int i = 0; i < toDecode.Length; i++)
            {
 
                int T = (int)(toDecode[i]) - ((int)(K[((i) % (K.Length))]) - (int)('0'));
                if (T < 0)
                    T += 256;
                
                result += (char)T;
                
 
            }
            return result;
        }//dec_END
 
 
 
        static void Main()
        {
            Console.WriteLine("Hello World!");
            string a = "hello";
            string b = "666";
            string s = GronsfeldEncipher(a, b);
            Console.WriteLine(s);
            string d = GronsfeldDecipher(s, b);
            Console.WriteLine(d);
            Console.WriteLine("Press any key to exit.");
            Console.ReadKey();
 
 
        }
    }
}

[Serge_Bliznykov]

то вот голый рабочий вариант ...

значит задача решена. ну и славно.

int _T = (int)(toCode[i]);

эта строчка абсолютно не нужна! И в коде на Pascal, ни в коде на C#!!
Уберите её совсем.


___________________________
ДОБАВЛЕНО

1) ни о чем

ни о чём, говорите... и задача уже решена? А если в строке есть русские буквы? Всё нормально работает?
Или это неважно?