求一段dephi转c#的代码

[LWWL]

function DenCrypt(Str: string; Key: string): string;
var
X, Y: integer;
a: Byte;
begin
if Key = '' then
Key := 'LW';
Y := 1;
for X := 1 to Length(Str) do begin
a := (Ord(Str[X]) and $0F) xor (Ord(Key[Y]) and $0F);
Str[X] := Char((Ord(Str[X]) and $F0) + a);
inc(Y);
if Y > Length(Key) then Y := 1;
end;
result := Str;
end;

[csjtxy]

沙发

[steal8275756]

public string DenCrypt(string str, string key)
{
    int y;
    Byte a;
    string result;
    if(key == string.Empty)
    {
        key = "LW";
        y = 1;
    }
    
    for(int i = 0; i < str.Length; i++)
    {
        //a := (Ord(Str[X]) and $0F) xor (Ord(Key[Y]) and $0F); 不懂
        //Str[X] := Char((Ord(Str[X]) and $F0) + a); 不懂
        //inc(Y); 不懂
        if (y > key.Length) 
            y = 1; 
    }

    retrun result;
}

[csjtxy]

public string DenCrypt(string str, string key)
{
int x;
int y;
byte and;

if(key=="")
{
key = "LW";
}
y = 1;


for (x = 1; x <= sizeof(str); )
{
a=(Ord(str) and $OF) xof(Ord(key) and $OF);
str=char((Ord(str) and $FO) +a);
inc(y);

if(y>sizeof(key)
then y=1);

}
return str;
}

[bomdy]

public string DenCrypt(string str, string key)
{
    int y = 0;
    byte a;
    string result = "";

    if(key == string.Empty)
        key = "LW";
    
    for(int x = 0; x < str.Length; x++)
    {
        a = ((byte)str[x] & 0x0F) ^ ((byte)key[y] & 0x0F);
        result += (char)(((byte)str[x] & 0xF0) + a);

        y++;
        if (y >= key.Length) 
            y = 0; 
    }

    retrun result;
}

[JaggerLee]

楼上不知是否正解

[LWWL]

楼上的代码编译不过去啊

[LWWL]

a = ((byte)str[x] & 0x0F) ^ ((byte)key[y] & 0x0F);
就这段

[LWWL]

byte a 改成 int a 就行了
谢谢

[zzxap]

public string DenCrypt(string str, string key)
{
int y = 0;
int a;
string result = "";

if(key == string.Empty)
key = "LW";

for(int x = 0; x < str.Length; x++)
{
a = ((byte)str[x] & 0x0F) ^ ((byte)key[y] & 0x0F);
result += (char)(((byte)str[x] & 0xF0) + a);

y++;
if (y >= key.Length)
y = 0;
}

retrun result;
}