Question

DELPHI的代码转换为C#的

function F_Inencrypt(sInput: string): string;stdcall;
Const
AllChar:string='abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789 ';
Var
sOutput :string;
iPin:byte;
A: Boolean;
begin
Result := '';
if sInput = '' Then
sOutput := ''
else
begin
A := False;
if Length(sInput) Mod 2 = 1 then
begin
A := True;
sInput := sInput + '_';
end;
for iPin:=1 to Length(sInput) do
begin
sOutput := sOutput+Char(Ord(sInput[iPin]) + 128);
end;
if A then sOutput := sOutput + '_';
end;
Result := PChar(Trim(sOutput));
end;
这个代码在delphi7下运行OK能返回值，我在C#里这样转换
public string F_Encrypt(string sInput)
{
string AllChar = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789";
string sOutput;
byte iPin;
Boolean A;
int len = 0;
sOutput = "";
if (sInput == "") sOutput = "";
else
{
A = false;
len = sInput.Length;
if (len % 2 == 1)
{
A = true;
sInput = sInput + "_";
}
for (iPin = 1; iPin <= len; iPin++)
{
sOutput = sOutput + (char)(sInput[iPin] + 128);
}
if (A == true)
{
sOutput = sOutput + "_";
}
}
return sOutput;
}
编译无报错，但是没次都提示超出索引，经排查，似乎是char的问题，

Answer 1

for (iPin = 1; iPin <= len; iPin++)

改成：
for (iPin = 0; iPin < len; iPin++)

C#中，字符串的索引是从0开始，不象Delphi是从1开始。

追问

谢谢您的回答，但是这样修改后，返回值不一样

追答

你把"baidu"变换后，会生成什么？

追问

这个函数是还原的，如果是把baidu 变换的话，在delphi里是生成“忉殇踹_”，然后可以用上面的函数可以还原成“baidu”

Answer 2

C# 并没有自带 chart 组件.
Nowindex:Integer;
Cantuo:boolean;
==>
int Nowindex;
boolean Cantuo;
打字不易，如满意，望采纳。