| Вопрос: Алгоритм RSA | Добавлено: 29.04.04 03:24 |
Автор вопроса:  S_Serg
|
|
Может кто видел примеры кода (можно и не на basic): 1. Шифрование по алгоритму RSA; 2. Электронная подпись по алгоритму RSA. Благодарю. |
| Ответы | Всего ответов: 6 |
|
Номер ответа: 1 Автор ответа: SHDZ ICQ: 209382104 Вопросов: 39 Ответов: 244 |
Профиль | | #1 | Добавлено: 29.04.04 10:01 |
|
Есть пример вычисления контрольной суммы по CRC32 |
||
|
Номер ответа: 2 Автор ответа:  User Unknown Вечный Юзер! ICQ: uu@jabber.cz Вопросов: 120 Ответов: 3302 |
Профиль | | #2 | Добавлено: 29.04.04 10:05 |
|
Есть RC4. Public Function RC4(ByVal Expression As String, ByVal Password As String) As String On Error Resume Next Dim RB(0 To 255) As Integer, X As Long, Y As Long, Z As Long, Key() As Byte, ByteArray() As Byte, Temp As Byte If Len(Password) = 0 Then Exit Function End If If Len(Expression) = 0 Then Exit Function End If If Len(Password) > 256 Then Key() = StrConv(Left$(Password, 256), vbFromUnicode) Else Key() = StrConv(Password, vbFromUnicode) End If For X = 0 To 255 RB(X) = X Next X X = 0 Y = 0 Z = 0 For X = 0 To 255 Y = (Y + RB(X) + Key(X Mod Len(Password))) Mod 256 Temp = RB(X) RB(X) = RB(Y) RB(Y) = Temp Next X X = 0 Y = 0 Z = 0 ByteArray() = StrConv(Expression, vbFromUnicode) For X = 0 To Len(Expression) Y = (Y + 1) Mod 256 Z = (Z + RB(Y)) Mod 256 Temp = RB(Y) RB(Y) = RB(Z) RB(Z) = Temp ByteArray(X) = ByteArray(X) Xor (RB((RB(Y) + RB(Z)) Mod 256)) Next X RC4 = StrConv(ByteArray, vbUnicode) End Function |
||
|
Номер ответа: 3 Автор ответа: S_Serg Вопросов: 9 Ответов: 25 |
Профиль | | #3 | Добавлено: 01.05.04 02:46 |
|
Благодарю за ответы! И действительно, среди русских ресурсов найти этот алгоритм видимо нереально... Если кого эта тема заинтересует, вот ссылка на исходники библиотеки, реализующей длинную арифметику (там RSA алгоритм в качестве теста приведён): http://www.di-mgt.com.au/src/BigDigits.zip Правда исходники на C. |
||
|
Номер ответа: 4 Автор ответа:  SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #4 | Добавлено: 02.05.04 17:27 |
|
Почитай хорошую книгу по криптографии, например Брюс Шнайер. Если разберешься с математикой, с кодингом проблем уже не возникнет. |
||
|
Номер ответа: 5 Автор ответа: ПавелАдминистратор ICQ: 326066673 Вопросов: 368 Ответов: 5968 |
Web-сайт: Профиль | | #5 | Добавлено: 02.05.04 17:30 |
Плиз, название книги напиши... Я тоже что-нть подобное почитать хочу  |
||
|
Номер ответа: 6 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #6 | Добавлено: 07.05.04 23:42 |
|
Прикладная криптография |
||
Страница: 1 |