Задача на файлы

[Arturko]

Начали проходить тему файлы, вот задали написать вот такую задачку:

Составить программу, которая расшифровывает файл sifr.pas, если известен ключ шифра, и записать рассшифрованное в файл new.pas.

Оперторов пока знаем не много, только основные, и я не представляю как её написать. Если кто-то может помочь, составте пожалуйста.

[Gorychev]

Что собой представляет клуч шифра? Как он должен работать?
И на файл sifr.pas было бы неплохо глянуть.

[knight]

Простой пример шифровки
с ключем pgpKey1

Применять построчно к файлу

//кодировать
strShifr := StrToStr(strText, pgpKey1);
//раскодировать также
strText := StrToStr(strShifr, pgpKey1);

unit libPgp;

interface

uses SysUtils;

const
  pgpKey1  = 'd363454623456234cbc23cdf523f453f5a52f5f345fddae4a2323432314cf5f'+
             'd363454623456234cbc23cdf523f453f5a52f5f345fddae4a2323432314cf5f'+
             'd363454623456234cbc23cdf523f453f5a52f5f345fddae4a2323432314cf5f'+
             'd363454623456234cbc23cdf523f453f5a52f5f345fddae4a2323432314cf5f';
  
  function CharToChar(ch: char; sh: byte; Key: string): char;
  function StrToStr(s: string; Key: string): string;


implementation



//  Шифрование символа в строке
function CharToChar(ch: char; sh: byte; Key: string): char;
var b: byte;
begin
  b := Ord(ch);
  Result := Chr(b xor StrToInt('$'+Key[sh]));
end;

//  Шифрование строки
function StrToStr(s: string; Key: string): string;
var i : integer;
    r : string;
begin
    r := '';
  for i := 1 to length(s) do
    r := r + CharToChar(s[i], i, Key);
  Result := r;
end;


begin
end.

[Arturko]

Сегодня уточнил что и как. Ключ придумать самому, можно взять какой-то уже известный (например шифр Цезаря), можно придумать вообще самому. Содержания файла sifr.pas нет, тоесть расшифровать нужно текст, а текст придумать любой самому. Ну текст я сам придумаю, мне бы пример, где расшивровывается одно любое предложение с любым ключём и записывается это в новый файл.

[Arturko]

knight нифига себе пример, как бы тут разобраться что и чего )) Какой тут шифр, как сдвигаются буквы ? И куда вставить вот это:

//кодировать
strShifr := StrToStr(strText, pgpKey1);
//раскодировать также
strText := StrToStr(strShifr, pgpKey1);

[knight]

Глянь здесь.. Там много всяких шифров. Шифр Цезаря тоже есть

[knight]

Сообщение от Arturko

knight нифига себе пример, как бы тут разобраться что и чего )) Какой тут шифр, как сдвигаются буквы ? И куда вставить вот это:

Обычное XOR шифрование. Никакого сдвига здесь не происходит. Происходит наложение очередного кода символа ключа на очередной код символа строки. Прикол XOR в том, что если дважды наложить один и тот же код, то получится опять расшифрованный результат.

CharToChar(
ch: char; - символ для кодирования
sh: byte; - номер символа в строке
Key: string) - ключевая строка (можно указать pgpKey1)
: char; - на выходе шифрованноый код


// Шифрование строки
function StrToStr(
s: string; - строка для шифрования
Key: string) - ключевая строка (можно указать pgpKey1)
: string; - зашифрованная строка

[Arturko]

Вот, например Цезарь:

program job1_caesar;
uses crt;
var a,b,c:string;
i,j,k,d:integer;
begin
clrscr;
writeln(‘Enter text for coding');
readln(a);
writeln('Enter key');
readln(d);
c:='';
b:=' abcdefghijklmnopqrstuvwxyz';
for i:=1 to length(a) do
for j:=1 to length(b) do
begin
k:=(j+d) mod 25;
if a[i]=b[j] then c:=c+b[k];
end;
writeln(c);
readkey;
end.

Зашифровка текста, текст я ввожу сам, потом просит ключ ввести, что вводить не понимаю. Только надо как-то изменить, что бы сразу был зашифрованный текст (в каком - то документе) и что бы сразу он его прочитал, расшифровывл используя ключ, и записал в новый файл. Как это можно сделать ?