Программа писалась на delphi
Версия 1
Переводит текстовые файлы
Попробуйте ввести слово "привет" и нажмите шифровать;
Code
procedure TForm1.Button1Click(Sender: TObject);
begin
OpenDialog1.Execute();
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
SaveDialog1.Execute();
Memo1.Lines.SaveToFile(SaveDialog1.FileName);
end;
procedure TForm1.Button3Click(Sender: TObject);
var
I,num: integer;
sh,itog,cod:string;
begin
itog:='';
cod:='';
sh:=Memo1.Text;
for I := 1 to Length(sh) do
begin
Num:=Ord(Sh[i]);//Возвращаем номер буквы
case Num of
239: cod:='пу';
240: cod:='ру';
232: cod:='ту';
226: cod:='ры';
229: cod:='шуры';
242: cod:='муры';
end;
itog:=itog+cod;
end;
Memo1.Clear;
Memo1.Text:=itog;
end;
procedure TForm1.Button3Click(Sender: TObject); - Кнопочка шифровки.
Версия 2
Переводит любые файлы
Попробуйте открыть файл "File"
Code
procedure TForm1.Button1Click(Sender: TObject);
var
f: file of byte;
b: Byte;
i:integer;
g:longint;
s,cod:string;
begin
OpenDialog1.Execute();
AssignFile(f,OpenDialog1.FileName);
Reset(f);
g:=Filesize(f);
for I := 0 to g-1 do
begin
Seek(f,i);
read(f,b);
case b of
31: cod:='C';
32: cod:='o';
33: cod:='o';
249: cod:='L';
end;
s:=s+cod;
end;
memo1.Clear;
memo1.Text:=s;
end;
Вобщем такой вот алгоритм.
К сожалению не смог прикрепить откомпилированные программы (интернет медленный). В понедельник постараюсь с работы выложить.
pap.mam.by
