请教pascal转换翻译为C的代码的问题？

[迷死特兔]

下面两个pascal函数，想转换为c代码的，自己写了一下老是有问题，请教一下高手，如何转换翻译：

const
EDC1 = 11; // 常量
EDC2 = 22; // 常量

function Encrypt(S:String;Key:Word):String;
var
I,j:Integer;
begin
Result:=S;
for I:=1 to Length(S) do
begin
Result[I]:=char(byte(S[I]) xor (Key shr 8));
Key:=(byte(Result[I])+Key)*EDC1+EDC2
end;
S:=Result;
Result:='';
for I:=1 to Length(S) do
begin
j:=Integer(s[i]);
Result:=Result+Char(65+(j div 26))+Char(65+(j mod 26));
end;
end;


function Decrypt(S:String;Key:Word):String;
var
I,j:Integer;
begin
Result:='';
for I:=1 to (length(S) div 2) do
begin
j:=(Integer(S[2*i-1])-65)*26;
j:=j+(Integer(S[2*i])-65);
Result:=Result+Char(j);
end;
S:=Result;
for I:=1 to Length(S) do
begin
Result[I]:=Char(byte(S[I]) xor (Key shr 8));
Key:=(byte(S[I])+Key)*EDC1+EDC2;
end;
end;

[gzmhero]

#define EDC1 11
#define EDC2 22
void Encrypt(char *S,Word Key,int len,char *result)
{
int i;
byte j;
CopyMemory(result,S,len);
for(i=0;i<len;i++){
result[i]=S[i]^(Key>>8);
Key=(byte(result[i])+Key)*EDC1+EDC2;
}
CopyMemory(S,result,len);
for(i=0;i<len;i++){
j=S[i];
result[2*i]=65+(j/26);
result[2*i+1]=65+(j % 26);
}
}

void Decrypt(char *S,Word Key,int len,char *result)
{
int i;
byte j;
for(i=0;i<len/2;i++){
j=(S[2*i]-65)*26;
j+=S[2*i+1]-65;
result[i]=j;
}
CopyMemory(S,result,len);
for(i=0;i<len/2;i++){
result[i]=byte(S[i]^(Key>>8));
Key=(byte(S[i])+Key)*EDC1+EDC2;
}
}
c中没有String 类型，用char *,调用：
加密：
char result[100];
ZeroMemory(result,100);
Encrypt(Edit1->Text.c_str(),1000,Edit1->Text.Length(),result);
Label1->Caption=result;
解密：
char result[100];
ZeroMemory(result,100);
Decrypt(Label1->Caption.c_str(),1000,Label1->Caption.Length(),result);
Label2->Caption=result;

[madbo]

学习

[快乐老猫]

为什么要转C代码？按照API规范写成DLL函数就是了，也就是回避string，采用PChar类型传递字符串。字符串不可以用于函数返回值，字符串空间在调用端开辟和回收，字符串长度需要作为参数传递给函数。