Перевод кода из VB.Net в C#

@PrAvalon · Регистрация: 27.10.2010

Студворк — интернет-сервис помощи студентам

Есть код на VB.Net позволяющий проводить шифрование и дешифровку файла.
Помогите пожалуйста адаптировать его к C#.
Моих познаний не хватает. Особенно не могу разобраться с использованием Xor

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Public Class Frm_Code
    Public Dlinna As Long
    Public Code As String = CShort(518.207)
    'Шифруем файл
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Code.Click
        Dim moytext As String
        Dlinna = Me.Txt_Kode.Text.Length
        FileOpen(1, Application.StartupPath & "\Acidn.fnp", OpenMode.Output)
        For i = 0 To Me.Dlinna - 1
            moytext = Me.Txt_Kode.Text.Substring(i, 1)
            Print(1, Asc(moytext) Xor Code)
        Next i
        FileClose(1)
    End Sub
    ' Дешифруем файл
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Scitat.Click
        Dim Decrypt As String = ""
        Dim Dannye As String = ""
        Dim Schet As Long
        FileOpen(1, Application.StartupPath & "\Acidn.fnp", OpenMode.Input)
        Do Until EOF(1)
            Input(1, Schet)
            Dannye = Chr(Schet Xor Code)
            Decrypt = Decrypt & Dannye
        Loop
        Me.Txt_Kode.Text = Decrypt
        FileClose(1)
    End Sub

@Unril · 22.12.2010, 09:24

C#
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
using Microsoft.VisualBasic;
using System;
using System.Collections;
using System.Collections.Generic;
using System.Data;
using System.Diagnostics;
public class Frm_Code
{
    public long Dlinna;
    public string Code = Convert.ToInt16(518.207);
    //Шифруем файл
    private void Button1_Click(System.Object sender, System.EventArgs e)
    {
        string moytext = null;
        Dlinna = this.Txt_Kode.Text.Length;
        FileSystem.FileOpen(1, Application.StartupPath + "\\Acidn.fnp", OpenMode.Output);
        for (i = 0; i <= this.Dlinna - 1; i++) {
            moytext = this.Txt_Kode.Text.Substring(i, 1);
            FileSystem.Print(1, Strings.Asc(moytext) ^ Code);
        }
        FileSystem.FileClose(1);
    }
    // Дешифруем файл
    private void Button2_Click(System.Object sender, System.EventArgs e)
    {
        string Decrypt = "";
        string Dannye = "";
        long Schet = 0;
        FileSystem.FileOpen(1, Application.StartupPath + "\\Acidn.fnp", OpenMode.Input);
        while (!(FileSystem.EOF(1))) {
            FileSystem.Input(1, ref Schet);
            Dannye = Strings.Chr(Schet ^ Code);
            Decrypt = Decrypt + Dannye;
        }
        this.Txt_Kode.Text = Decrypt;
        FileSystem.FileClose(1);
    }
}

Вообще, есть такая штука: .net code converter.

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! */ #include <iostream> #include <stack> #include <cctype>. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

Перевод кода из VB.Net в C#

Решение