Как зашифровать XOR-ом так чтобы ключ был более 256 символов?

@xAmL · Регистрация: 14.10.2015

Как зашифровать данные методом XOR так чтобы ключ был более 256 символов? Напишите пожалуйста кодом.

Добавлено через 5 минут
вот фрагмент годом которым производиться шифровка

VB.NET

 For i As Long = 1 To Len(y)
            Dim ass As String = Asc(Mid(y, i, 1))
            Dim ai As Long = KeyChar Xor ass
            crypt = crypt & Chr(ai)
            Label2.Text = Val(Label2.Text) + 1
            Me.Refresh()
            Application.DoEvents()
        Next

SoftIce · 10.01.2016, 00:51

Не по теме:

Сообщение от xAmL

Dim ass

:jokingly:

@OwenGlendower · 10.01.2016, 01:54

xAmL, как-то так можно. Одно условие - в тексте не должно быть комбинируемых символов и суррогатов. Не уверен что с ними это сработает. Но если ограничиться обычным текстом, то должно работать

VB.NET

Function XorText(text As String, key As String) As String
    Dim sb As New StringBuilder(text)
    For I=0 To text.Length-1
        sb(I) = ChrW(AscW(text(I)) Xor AscW(key(I Mod key.Length)))
    Next
    Return sb.ToString()
End Function

SoftIce
	10.01.2016, 00:51 #2
	Не по теме: Сообщение от xAmL Dim ass :jokingly: 0

Опции темы