Простые задчки на файлы, просьба помочь Опции

[Retabol]

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

[Altair]

Олег, я вижу ты тут самый разумный из всех

Далеко не самый. Здесь есть настоящие профи!

------------------
Вот что я тут написал:

Код

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 сказал:

ксанка, какой же это шифр ...

А что это по вашему?
Если вы насчет того, что ксанка написала, то она сказала:
"Совсем запуталась".

Сообщение отредактировано: Oleg_Z - 28.05.2004 14:55

[Altair]

Окей, ребят, всем большое спасибо за помощь.
С первой задачей перебьюсь, покажу только вторую...

Нет, стой.
Скажи что надо упростить и мы упростим. Эта не та задача, в которой нельзя ничего упростить.

[Retabol]

такое понятие как "inc" мы вообще не используем.
и еще, если не сложно, подпиши комментарии в программе, а то я не очень разобрался в смысле...

[Altair]

такое понятие как "inc" мы вообще не используем.

Да inc это просто увеличение значения переменной.

Код

 
var
f,t:text;
i:longint;
fn,s:string;

begin
write('‚ўҐ¤ЁвҐ Ё¬п д ©« :'); readln(fn);
Assign(f,fn);  {связываем переменую f с введенным именем}
reset(f); {отркрываем файл}
write('ўўҐ¤ЁвҐ Ё¬п ЌЋ‚ЋѓЋ д ©« :'); readln(fn);
Assign(t,fn); rewrite(f); {тоже связываем переменную и открываем файл}
while not EOF(F) do {пока нет конца файла повторять:}
begin
inc(i); {увеличить i  на единицу}
readln(f,fn); {прочитать строку из файла}
s:=''; {"обнулить строку"}
str(i,s);{переводим i (длинное целое) в строку, используя процедуру str}
s:=s+' '+fn; {добавляем к строке, строку с номером}
end;
Close(f); Close(t); {close all file}
Writeln('ўбҐ ᤥ« ­­®!');
end.

[Altair]

Ой, а ничего, что я комент написал в кодировке win, а прога в кодировке дос?
Кодировка дос у проги, чтобы ты из турбо Паскаля открыл сохраненный файл, и он нормально читался.

[Ксанка]

kile смешно тебе...посоветовал бы что-нибудь по этому поводу... <_<

[Ксанка]

Ой, Олег, спасибо тебе, чмооооки) Как хорошо, когда есть такие хорошие отзывчивые люди, спасибоспасибоспасибо! [IMG]http://smilies.jeeptalk.org/otn/love/kotc.gif[/IMG]

[Ксанка]

Олег, да, забыла сказать, что кодовую таблицу нужно сделать именно так, как ты написал, спасииибо тебе за все

[Retabol]

Присоединяюсь к Ксанке!
Спасибо всем за помощь. Задачи я показал, все ок!

[Altair]

Вот первая реализация кодовой таблицы - просто смещаем код.

Код

{ Є®¤®ўго в Ў«Ёжг ¬®¦­® ॠ«Ё§®ў вм ­ҐбЄ®«мЄЁ¬Ё бЇ®б®Ў ¬Ё.
 ¬л ў®§м¬Ґ¬ Їа®б⥩訩 бЇ®б®Ў - § ¬Ґ­пҐ¬ бзЁв ­­л© Є®¤ Ї® д®а¬г«Ґ
 ¤«п Є®¤®ў ®в 0 ¤® 250 - new_kod=kod+5
 ¤«п ®бв «м­ле, ®бв ў«пҐ¬ Є Є Ґбвм.  в.Ґ. Їа®б⮠ᬥ饭ЁҐ.
 Њ®¦­® ॠ«Ё§®ў вм Є®¤®ўго в Ў«ЁжҐ ў ўЁ¤Ґ д ©« -Є«оз .
}


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);{бзЁвлў Ґ¬ §­ зҐ­ЁҐ}
 {§¤Ґбм п ­Ґ ­ ЇЁб «. §¤Ґбм ¤®«¦­  Ўлвм ўлЎ®аЄ  Ё§ Є®¤®ў®© в Ў«Ёжл}
 If b<250 then b:=b+5;
 write(f1,b);
end;
close(f); close(f1);
end.

Вот покруче, эта прога использует файл-ключ. Для примера, я присоединил файл-ключ к этому сообщению.

Код

{  н⮠ॠ«Ё§ жЁп д ©« -Є«оз , Є®в®ал© гбв஥­ б«Ґ¤. ®Ўа §®¬:
­®¬Ґа_Ї®§ЁжЁЁ_ў_д ©«Ґ_Є«озҐ  - §­ зҐ­ЁҐ_§ ¬Ґ­пҐ¬®Ј® бЁ¬ў®« .
}

var
CodeFile:file of byte;
f,f1:file of byte;
i:longint;
fn:string;
b:byte;
begin
Assign(CodeFile,'KODTABL.DAT');
{$F-} reset(CodeFile); {$F+}
If IoResult<>0 then HALT; {Ґб«Ё ­Ґ ­ ©¤Ґ­ Є«оз-д ©«, в® § ўҐаиЁвм а Ў®вг}

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);{бзЁвлў Ґ¬ §­ зҐ­ЁҐ}
 Seek(CodeFile,b);
 Read(f,b);
 write(f1,b);
end;
close(f); close(f1);
end.

Ой, Олег, спасибо тебе, чмооооки

Да, я что, я ничего ...

Сообщение отредактировано: Oleg_Z - 31.05.2004 13:36