Question

我有这个Delphi代码：

function EnDeCrypt(const Value : String) : String;
var
CharIndex : integer;
begin
    Result := Value;
    for CharIndex := 1 to Length(Value) do
    Result[CharIndex] := chr(not(ord(Value[CharIndex])));
end;

如何将其翻译成.Net？

Answer 1

如果RRUZ提供的功能（现已删除）确实是您想要的功能（而且我对编码问题仍持怀疑态度），那么您可以这样写：

Private Function EnDeCrypt(ByVal Value As String) As String

    Dim transformed = Encoding.Unicode.GetBytes(Value).Select( _
        Function(item) Not item)
    Return Encoding.Unicode.GetString(transformed.ToArray())

End Function

Delphi到VBNet代码转换（如何？）

1 个答案: