1

私はこの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に変換できますか?

4

1 に答える 1

3

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
于 2012-05-09T08:34:42.380 に答える