Function Dec2Bin(ByVal x As Integer) As String
Dim t As Integer, r As String
r = "": t = x
While t >= 2
r = Trim(Str(t Mod 2)) + r
t = t \ 2
Wend
Dec2Bin = Trim(Str(t)) + r
End Function
Sub test()
MsgBox Dec2Bin(35)
End Sub
1)Шифр Цезаря<span> один из наиболее древнейших известных </span>шифров<span>. Схема шифрования очень проста - используется сдвиг буквы алфавита на фиксированное число позиций. Используемое преобразование обычно обозначают как ROTN, где N - сдвиг, ROT - сокращение от слова ROTATE, в данном случае "циклический сдвиг".
2)</span>ШИФР АТБАШ
Один из наиболее простых способов шифрования. Первая буква алфавита заменяется на последнюю, вторая – на предпоследнюю и т.д.
<span>Пример: « SCIENCE » = HXRVMXV
</span>3) КНИЖНЫЙ ШИФР
<span>В таком шифре ключом является некая книга, имеющаяся и у отправителя и у получателя. В шифре обозначается страница книги и строка, первое слово которой и является разгадкой. Дешифровка невозможна, если книги у отправителя и корреспондента разных годов издания и выпуска. Книги обязательно должны быть идентичными.
</span>
Ну и так далее, существует много интересных шифров, можете сами поискать в интернете
При использовании 65536 цветов для хранения одной точки изображения необходимо log(2)65536 = 16 бит = 2 байта.
Объем переданного файла = 14400*3*60 бит = 14400*3*60/8 байт = 324 000 байт
Количество точек изображения = 324 000 / 2 = 162 000
Размер изображения может быть, например, 810*200 или 400*405