Delphi到VBNet代碼轉換（如何？）

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