aave

Утилита для расчёта XOR массива байтов

5 Сентябрь 2020 Published in Приложения

Предалагется маленькая утилита, которая выполняет только одну функцию – объединение по XOR массива байтов.

Вводить массив можно в любом формате с любым разделителем, главное чтобы числа были в 16-ном формате.

Скачать утилиту можно по ссылке ниже. Для запуска приложения необходима среда .NET 4.5.1.

Часто в приложении бывает необходимо использовать объёмные ресурсы, например, динамические библиотеки. Их можно включить в ресурсы приложения в сжатом виде. .NET имеет встроенный архиватор GZip. Его можно использовать, например, так:

''' 
''' Проверяет наличие необходимых DLL в текущей директории и при отсутствии создаёт.
''' 
Private Sub CheckDlls()
    Dim dlls As New Dictionary(Of String, Byte()) From {
        {"myLib1.dll", My.Resources.myLib1},
        {"myLib2.dll", My.Resources.myLib2}
    }
    For Each dll In dlls
        If (Not IO.File.Exists(dll.Key)) Then
            Using compressed As New IO.MemoryStream(dll.Value),
            gzStm As New IO.Compression.GZipStream(compressed, IO.Compression.CompressionMode.Decompress),
            decompressed As IO.FileStream = IO.File.Create(dll.Key)

                gzStm.CopyTo(decompressed)

            End Using
        End If
    Next

End Sub

В C# есть оператор, который возвращает размер типа, занимаемый в памяти:

sizeof(float)

Его аналог в VB.NET:

Marshal.SizeOf(GetType(Single))

Чтобы сделать сортируемую наблюдаемую коллекцию в WPF, можно создать методы расширения для типа ObservableCollection:

Imports System.Collections.ObjectModel
Imports System.Runtime.CompilerServices

Module ObservableCollectionExtensions

    <Extension>
    Public Sub Sort(Of T)(ByRef collection As ObservableCollection(Of T), comparison As Comparison(Of T))
        Dim sortableList = New List(Of T)(collection)
        sortableList.Sort(comparison)
        For i As Integer = 0 To sortableList.Count - 1
            collection.Move(collection.IndexOf(sortableList(i)), i)
        Next
    End Sub


 <Extension>
    Public Sub Sort(Of T As IComparable)(ByRef collection As ObservableCollection(Of T))
        If (collection.Count > 1) Then
            Dim sortableList As New List(Of T)(collection)
            Dim comp As Comparison(Of T) = Function(a, b) a.CompareTo(b)
            sortableList.Sort(comp)
            For i As Integer = 0 To sortableList.Count - 1
                collection.Move(collection.IndexOf(sortableList(i)), i)
            Next
        End If
    End Sub

End Module

Использование:

    MyCollection.Sort(Function(a, b) a.CompareTo(b))

или просто:

    MyCollection.Sort()

'''

''' Проверяет наличие необходимых DLL в текущей директории и при отсутствии создаёт. '''

Private Sub CheckDlls() Dim dlls As New Dictionary(Of String, Byte()) From { {"myLib1.dll", My.Resources.myLib1}, {"myLib2.dll", My.Resources.myLib2} } For Each dll In dlls If (Not IO.File.Exists(dll.Key)) Then Using compressed As New IO.MemoryStream(dll.Value), gzStm As New IO.Compression.GZipStream(compressed, IO.Compression.CompressionMode.Decompress), decompressed As IO.FileStream = IO.File.Create(dll.Key) gzStm.CopyTo(decompressed) End Using End If Next End Sub