function Decrypt(const InString:string; StartKey,MultKey,AddKey:Integer): string;
var
 I : Byte;
begin
 Result := '';
 for I := 1 to Length(InString) do
 begin
   Result := Result + CHAR(Byte(InString[I]) xor (StartKey shr 8));
   StartKey := (Byte(InString[I]) + StartKey) * MultKey + AddKey;
 end;
end;
请同时会delphi和c#的高手帮忙解决啊!!!谁能把下面几行delphi代码弄成c#代码的???

解决方案 »

  1.   

    string Decrypt(const string StartKey,object MultKey,object,intAddKey)
    {
      byte i;
      object Result='-';
     for int i=1;i<InString.Length;i++)
    {
       Result := Result + CHAR(Byte(InString[I]) xor (StartKey shr 8));
       StartKey := (Byte(InString[I]) + StartKey) * MultKey + AddKey;
    }
      

  2.   

    private string Decrypt(string InString, int StartKey,int MultKey,int AddKey)
    {
       char Result = '';
       for(int I = 1; I < InString.Length(); I++)
       {
            Result += Convert.ToChar(InString[I] ^ (StartKey & 8));
            StartKey += (InString[I] + StartKey) * MultKey + AddKey;
       }
    }大概如此了.
      

  3.   

    private string Decrypt(string InString, int StartKey,int MultKey,int AddKey)
    {
    string Result ="";
    for(int I = 1; I < InString.Length; I++)
             {
    Result += Convert.ToChar(InString[I] ^ (StartKey & 8));
    StartKey= (InString[I] + StartKey) * MultKey + AddKey;
    }
    return Result;
    }