18.07.2002 9:27:23Шифрование\кодирование Ответов: 1
Elephantik
Есть текстовый файл,который нужно закодировать и раскодировать, готовая программа не подайдет, нужен код для дальнейшего использования. Помогите. Спасибо.
 
Ответы:
18.07.2002 11:27:03kure
Можно воспользоваться COM от Microsoft
http://www.cryptopro.ru/CryptoPro/pki/capicom.asp
В примерах вместе с дистрибутивом есть функции на VB, VBScript.
Довольно просто.

Sub EnvelopFile (InFile, OutFile)
Dim EnvelopedData
Dim Content
Dim Message

Set EnvelopedData = CreateObject("CAPICOM.EnvelopedData")
LoadFile InFile, Content
EnvelopedData.Content = Content
Message = EnvelopedData.Encrypt
SaveFile OutFile, Message
End Sub

В разделе "Использование" http://www.cryptopro.ru/CryptoPro/products/csp4.asp лежат исходники использования CryptoAPI 2.0. Там есть примеры шифрования.