|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
Как зашифровать файл XOR-ом?
Как зашифровать файл XOR-ом?
Нужно зашифровать каждый байт файла. Код:
procedure TForm1.Button1Click(Sender: TObject); var f:file; i:byte; begin AssignFile(f,OpenDialog1.FileName); reset(f); while not eof(f) do read (f,i); //тут хорим байт по идее... writeln(f,i); кто поможет ? Последний раз редактировалось Admin, 23.05.2010 в 17:49. |
#2
|
||||
|
||||
Код:
//XOR алгоритм шифрования function C(Text : String):String; var key, longkey : string; i: integer; toto : char; begin longkey := ''; result := ''; toto := #0; key := 'qaz123wsx456edc789'; for i := 0 to (length(text) div length(key)) do longkey := longkey + key; for i := 1 to length(text) do begin toto := Chr((ord(text[i]) xor ord(longkey[i]))); // XOR алгоритм result := result + toto; end; end В начале был Бит, потом Байт и только потом появилось Слово... |
#3
|
|||
|
|||
Скорость хромает (.
делфа, паскаль для данных целей подходит неочень... да, к слову, про хор - шифрование я сам открывал тему, где, кстати, выкладывал код. Говори что думаешь, думай, что говоришь. (Шоссе 60) |
#4
|
|||
|
|||
NIch, это ты привел функцию шифрования строки, если не ошибаюсь ? Но ведь строка не файл.
|
#5
|
||||
|
||||
Смотри глубже...вот алгоритм XOR...
Цитата:
Код:
b := b1 xor key XOR стойкий тогда когда длина ключа приближается к длине сообщения... В начале был Бит, потом Байт и только потом появилось Слово... |
#6
|
||||
|
||||
Вопрос: зачем это все?
Или снова появится програ, которая шифpyет мега-стойким алгоритмом собственной сборки? И если длина ключа будет равна длине сообщения, то ключ нужно где-то хранить. И ясно что не в голове. |
#7
|
||||
|
||||
Цитата:
В начале был Бит, потом Байт и только потом появилось Слово... |