доброе время суток, есть задача: дан код написаный на C# необходимо тоже самое сделать на Delphi
private static string cryptString(string sIn, int nLength)
{
string s;
int nChar, nShift, i;
s = sIn;
nShift = 0;
char[] inputString = s.ToCharArray();
for (int r = 0; r < s.Length; r++)
{
nShift = nShift + (int)inputString[r];
}
while (sIn.Length < nLength)
sIn = sIn + sIn;
i = 0;
s = "";
char[] outString = sIn.ToCharArray();
while (i < nLength)
{
nChar = (int)outString[i];
nShift = nShift + nChar;
nChar = nChar * i + nShift;
nChar = nChar % 96 + 32;
s = s + Convert.ToChar(nChar);
i = i + 1;
}
return s;
}
Данный код шифрует строку данных.
Может кто-то знает как реализовать сей метод на Delphi.