Выбор алгоритма шифрования

[Maitris]

Добрый день господа!
Наступил такой момент, что мне понадобилось применить шифрование в одном из своих проэктов, но не в целях защиты данных, а в целях защиты от бота-анализатора на сервере
Посоветуйте, что выбрать. Нужно чтобы было в стандартных средствах vb, и минимально ресурсов задействовало.
Может быть Base64? И как использовать.

[GSerg]

Что шифровать?

[Maitris]

Текст.

[Amed]

Не очень понятно. Можно конкретный пример, что будет анализировать бот?

З.Ы. пример, исходник и даже готовый модуль для работы с base64 лежит на www.planet-source-code.com

[Maitris]

Amed
Ключевые слова. Ничего более. Любая абракадабра подойдет, главное чтобы потом можно было привести это в нормальный вид
А есть что-нибудь встроенное в VB? Размер критичен.

[Antonariy]

Оставляешь первую и последнюю буквы в слове прежними, а остальные перемешиваешь
И смысл не теряется, и бот обломится.

[Maitris]

Antonariy

главное чтобы потом можно было привести это в нормальный вид

Мне нужен известный аглоритм, а не каша буковок

[tyomitch]

Осспади, а прибавить единицу к каждому символу подойдёт?
Вся реализация -- цикл из трёх строк.

[Maitris]

tyomitch, Это же в два раза увеличит размер данных! Нет, не подойдет.

В общем я так понял никаких встроенных средств в vb для шифрования строк нет, это так?

[GSerg]

Maitris, ты знаешь, +1 и &1 - это разные вещи...

[Денис Победря]

Прибавляем к коду каждого символа еденицу, если код символа уже 255, то делаем его равным нулю. Обратно аналогично

[Maitris]

GSerg, Я подумал он советует использовать еденицу в качестве сплиттера Тогда подойдет.

[Maitris]

Если кому надо:

Код: Выделить всё


        Private Function Crypt(strText As String) As String
Dim strTemp As String
Dim i As Integer, j As Integer

    For i = 1 To Len(strText)
j = Asc(Mid(strText, i, 1))
  If j < 255 Then
strTemp = strTemp & Chr(j - 1)
  Else
strTemp = strTemp & Chr(255)
  End If
    Next i
Crypt = strTemp
        End Function


[Twister]

Это простейший алгоритм. Можно придумать еще тыщу подобных (по сложности реализации) алгоритмов, которые не будут увеличивать объем выходной информации. Если для тебя критична скорость в столь нелегком деле запутывания бота, то достаточно просто "перевернуть" строку (или массив байт, что там у тебя). Можно менять местами два рядомстоящих символа. Да мало ли что можно придумать...

[tyomitch]

Если кому надо:

Код: Выделить всё

        Private Function Crypt(strText As String) As String
Dim strTemp As String
Dim i As Integer, j As Integer

    For i = 1 To Len(strText)
j = Asc(Mid(strText, i, 1))
  If j < 255 Then
strTemp = strTemp & Chr(j - 1)
  Else
strTemp = strTemp & Chr(255)
  End If
    Next i
Crypt = strTemp
        End Function


Ну и куда этот код переведёт Chr(0) и Chr(255), соответственно?

[GSerg]

Форматирование функции особенно рулит

А сам код ужасен.
Надо либо так

Код: Выделить всё

dim b() as byte, i as long

b=strconv(strText,vbfromunicode)
for i=lbound(b) to ubound(b)
  b(i)=(b(i)+1) mod 256
next
Crypt=strconv(b,vbunicode)


, либо так

Код: Выделить всё

dim i as long

Crypt=strText
for i=1 to len(crypt)
  mid$(crypt,i,1)=chr$((asc(mid$(strtext,i,1))+1) mod 256)
next


.

[Maitris]

А сам код ужасен.

Как зло. Может и ужасен, но тем не менее работоспособен.
А что за ахтунг был? Повисает, обновляю, там три копии поста моего.
Нет кнопки удалить. Обновляю - появилась. Жму, подтверждение. "Вы можете удалять только свои посты". Возвращаюсь, еще раз жму удалить. "Тема к которой вы ...." не существует".

[tyomitch]

А сам код ужасен.

Как зло. Может и ужасен, но тем не менее работоспособен.

Не-а. Я уже указал на баг.

[Maitris]

tyomitch
Ну так chr(0) это пустая строка, а chr(255) как был "я" так им и останется Я просто не придумал во что его можно перевести, если chr(0) это ничего.

[Amed]

Maitris, а обратно 255 переводить в 254 или в 255?

[tyomitch]

Ну так chr(0) это пустая строка

Ага, а Chr(0) & Chr(0) & Chr(0) & Chr(0) & Chr(0) -- это пустая строка из пяти символов? Или пять пустых строк, склеенные вместе?

[Maitris]

Или пять пустых строк, склеенные вместе?

Странно... У меня получается пустая строка (Len=0)
Добавление: в текстбоксе. Если в стринг загонять - то 5. Просвяти тогда что это? Лайн-брейк?

Добавление N2:
И правда, поиск рулит

Chr$(0), он же vbNullChar - символ, но не имеющий знака...

Терминатор строки для использования в Api значит. Кул.

[Amed]

Это нулевой символ
Файл тоже может быть забит 100 килобайтами нулей, к примеру. Но от этого он не станет пустым.

А как текстбокс нарисует нулевой символ? Это же не нолик

[Maitris]

Amed
Я думал .Text textbox'а это точно такой же стринг, получается он фильтрует этот символ? Я же присваиваю его, а он не только не отображается, но и не считается по длине!

[Twister]

Странно... У меня получается пустая строка (Len=0)

А по какому принципу вычисляется длинна строки? Считаются все сиволы по порядку начиная от начала строки до первого попавшегося нуль-символа. Естественно, что как строка, этот набор байт будет иметь нулевую длинну.

[Maitris]

Twister
Тогда понятно
GSerg
Первый вариант не понимает символы кириллицы.

[Amed]

Легко проверить.

Код: Выделить всё

Dim str As String, str2 As String

str = Chr(0) + "тратата" + Chr(0)
str2 = "тратата" + Chr(0)

Text1.Text = str
Debug.Print "Какая длина? " & Len(str) & vbCrLf & "Какая длина? " & Len(Text1.Text)
Text1.Text = str2
Debug.Print "А теперь? " & Len(str2) & vbCrLf & "А теперь? " & Len(Text1.Text)

Text в TextBox оканчивается на \0 = Chr(0).

Добавлено чуть позже:
Twister, в String'е длина не так вычисляется. Она хранится в отдельных байтах. Зацени пример

[tyomitch]

Странно... У меня получается пустая строка (Len=0)

А по какому принципу вычисляется длинна строки? Считаются все сиволы по порядку начиная от начала строки до первого попавшегося нуль-символа. Естественно, что как строка, этот набор байт будет иметь нулевую длинну.

Это только в текстбоксе так. В стринге длина хранится отдельно, что позволяет склеить вместе пять пустых строк

[Twister]

Это только в текстбоксе так. В стринге длина хранится отдельно, что позволяет склеить вместе пять пустых строк

Да, без сомнения в VB строка и массив байт не одно и то же.

[tyomitch]

в VB строка и массив байт намного ближе друг к другу, чем в Сях, где Chr(0) -- ограничитель