vb.net - Delphi 到 VBNet 代码转换（如何？）

Question

我有这个德尔福代码：

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