Посоветуйте быстрый алгоритм шифровки/дешифровки

[|kerish|]

Посоветуйте быстрый алгоритм шифровки/дешифровки кроме XOR-а.

[_Мика_]

Вот...

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


Public Function EnDeCrypt(plaintxt As String, Password As String) As String

     Dim temp As Integer
     Dim a As Integer
     Dim b As Integer
     Dim cipherby As Byte
     Dim cipher As String

     'Èíèöèàëèçàöèÿ
     'Ñîçäàíèå êëþ÷à
     b = 0

     For a = 0 To 255
         b = b + 1
         If b > Len(Password) Then
             b = 1
         End If
         kep(a) = Asc(Mid$(Password, b, 1))
     Next a

     For a = 0 To 255
         s(a) = a
     Next a
     
     b = 0

     For a = 0 To 255
         b = (b + s(a) + kep(a)) Mod 256
         temp = s(a)
         s(a) = s(b)
         s(b) = temp
     Next a

     'Ïîáàéòíîå øèôðîâàíèå
     For a = 1 To Len(plaintxt)
         cipherby = EnDeCryptSingle(Asc(Mid$(plaintxt, a, 1)))
         cipher = cipher & Chr(cipherby)
     Next
     EnDeCrypt = cipher
End Function

Public Function EnDeCryptSingle(plainbyte As Byte) As Byte
     Dim i As Integer
     Dim j As Integer
     Dim temp As Integer
     Dim k As Integer
     Dim cipherby As Byte
     
     'Øèôðîâàíèå îäíîãî áàéòà
     i = (i + 1) Mod 256
     j = (j + s(i)) Mod 256
     temp = s(i)
     s(i) = s(j)
     s(j) = temp
     k = s((s(i) + s(j)) Mod 256)
     cipherby = plainbyte Xor k
     EnDeCryptSingle = cipherby
End Function


Пример

Msgbox EnDeCrypt(text1,"abcd")

[Павлуша]

Используй BlowFish.
А как перевести его в ВБ поищи в инете - я не помню.

[Sedge]

STFW
http://www.google.ru/search?hl=ru&q=vb% ... Google&lr=
http://userpages.umbc.edu/~mabzug1/cs/md5/md5.html

[|kerish|]

Sedge MD5 быстрый способ? Имеются ввиду тексты размером более 100 кб.

[|kerish|]

_Мика_ Спасибо я попробую этот алгоритм.

[hCORe]

Тссс... Там есть инструкция Xor!

[Sasha_karasov]

Есть Winapi функция еще для шифровки и на оборот, а если нужен алгоритм зайди на algolist.

[DidykDA]

Из курсовых заданий:
1) Чтобы зашифровать текст, записанный с помощью букв и знаков препинания, его можно переписать, заменив каждую букву непосредственно следующей за ней по алфавиту (буква я заменяется на а).

2)Один из простейших способов шифровки текста состоит в табличной замене каждого символа другим символом - его шифром.

[xenomorph]

RC4 один из самых быстрых из живущих AES.
vbkiev.ua

[Sasha_karasov]

Из курсовых заданий:
1) Чтобы зашифровать текст, записанный с помощью букв и знаков препинания, его можно переписать, заменив каждую букву непосредственно следующей за ней по алфавиту (буква я заменяется на а).

2)Один из простейших способов шифровки текста состоит в табличной замене каждого символа другим символом - его шифром.

алгоритм Цезарь

[|kerish|]

Sasha_karasov Алгоритм Chr(Asc(Mid(Text,a,1))+1)

[|kerish|]

Всем спасибо выбрал RC4.

[Andrew Sherd]

Ну, по сути, надежным считается реализация ГОСТ 28147-89 из категории симметриков...

Если нуно - где-то валялась библиотека с описанием для ВБ

[|kerish|]

Andrew Sherd Там где я использую алгоритм более важна скорость чем надежность.