Цитата
Олег, я вижу ты тут самый разумный из всех
Далеко не самый. Здесь есть настоящие профи!
------------------
Вот что я тут написал:
Код
var
f,f1:file of byte;
i:longint;
fn:string;
b:byte;
begin
Write('‚ўҐ¤ЁвҐ Ё¬п иЁда㥬®Ј® д ©« '); readln(fn);
Assign(f,fn); {бўп§лў Ґ¬ д ©®ўго ЇҐаҐ¬Ґго б Ё¬ҐҐ¬ д ©« }
Reset(f);
Writeln('ўўҐ¤ЁвҐ Ё¬п д ©« , Є®в®ал© ¤® ᮧ¤ вм (нв® Ўг¤Ґв § иЁда®ў л© д ©«)');
readln(fn);
Assign(f1,fn);
rewrite(f1);
For i:=0 to filesize(f)-1 do
begin
seek(f,i); {ЇҐаҐ¬Ґй Ґ¬ гЄ § ⥫м д ©« i-л© н«Ґ¬Ґв}
read(f,b);{бзЁвлў Ґ¬ § 票Ґ}
{§¤Ґбм п Ґ ЇЁб «. §¤Ґбм ¤®«¦ Ўлвм ўлЎ®аЄ Ё§ Є®¤®ў®© в Ў«Ёжл}
write(f1,b);
end;
close(f); close(f1);
end.
Эта программа читает побитно EXE файл и записывает в другой (который окажется зашифрованным)
Я только не сдалал само шифрование. Вот почему:
Цитата
3.1. создать свою кодовую таблицу
Я-то еще только школу закончил, а вы наверно это проходили в универе.
Так вот, если я правитльно понял, то кодовая таблица имее следующий вид:
"код" - "на что его заменить"
....
Если так, то я доделаю, если не так, то скажите как надо делать кодовую таблицу.
Блок схему я на листочке нарисую, отсканирую и присоединю к сообщению.
kile сказал:Цитата
ксанка, какой же это шифр ...
А что это по вашему?
Если вы насчет того, что ксанка написала, то она сказала:
"Совсем запуталась".