Написание шифрующей программы.

[Natali_1988ant]

«Написание шифрующей программы» Студент самостоятельно выбирает метод шифрования, изучает его и создает программу, в которой реализуется данный метод.
Шифрование:
А). Подстановка.
Б). Перестановка.
В). Гаммирование.
Г). Аналитические преобразования.
Д). Комбинированные.
Минимальные требования: в программе должно быть реализовано шифрование текста, вводимого пользователем.
Очень жду, помогитее)

[Казанский]

Вариант http://www.cyberforum.ru/ms-excel/thread413490.html

[doober]

В). Гаммирование.
Самое простое.

Function Encrypt(Stroka As String)
 Dim letter As String, obsh As String
obsh = ""
For i = 1 To Len(Stroka)
    letter = Mid(Stroka, i, 1)
    r = Asc(letter) Xor CInt(9999 * Sin(3 * i))
  obsh = obsh & r & " "
Next
   Encrypt = Mid(obsh, 1, Len(obsh) - 1)
End Function

[Natali_1988ant]

спсибо большое, а это какой ЯП?

[R Dmitry]

Public Function codepass(st As String)
Dim i
For i = 1 To Len(st)
codepass = codepass & Format((Asc(Mid(st, i, 1)) + 2) * 2 + i + Len(st), "00000")
Next
codepass = StrReverse(codepass)
End Function

Public Function decodePass(st As String)
Dim i&, x&
st = StrReverse(st)
For i = 1 To Len(st) Step 5
x = x + 1
decodePass = decodePass & Chr((CLng(Mid(st, i, 5)) - x - (Len(st) / 5)) / 2 - 2)
Next
End Function

Наверное Д)