( Вход | Регистрация | Поиск )
Программисты, выручайте.., такой программы в интернете нету =((
Стандартный · [ Линейный ]
Дата обновления: 02.10.2008 - 22:49, перейти к новому сообщению
Подобная тема уже была, скажу сразу, но здесь не много иное совсем.. Нужна программка, которая работала бы по принципу Программы-транслита, то есть переводила бы текст туда и обратно, точнее меняла бы символы друг на друга по словарикам в обоих направлениях! НО! но... в этом та вся и начинка.. Меняла бы их не по "символ"-ическим значениям, а по значениям "Hex-редактор"-ским..
Объясню:
**** В Hex-редакторе текст выглядет так:
[HIDE][/HIDE]
, а в текстовом виде, текст бы выглядел слейдующим образом: " !щ" (спереди 2 первых символа пробелы).. Для ЛЮБЫХ Транслит-программ эти самые первые 2 символа совершенно одинаковые, потомучто они не могут распознать их не в одной кодировке, и считают эти оба символа просто за "Пробелы".. но пробел выглядет в коде совсем не так, он разлогаетсо как "20".. а тут "20" и "1f" совершенно разные символы, и перевести их Транслит-Программами по словарикам не получитьсо с одного направления в другое, и обратно! они либо приведут всё к значениям "20", либо переводить документ не станут, и высветят соответствующую ошибку в приложении..
Вот в этом та и вопрос! Нужна программка для первода документов (самого обычного Текстового файла), которая меняла бы "символы" (значения) друг на друга и обратно подобным образом..
( с пользовательскими словариками, и не консольная желательно бы, воопще не умею с ними обращитьсо, увы)
в интернете искал, подобного не нашёл, либо я не умею пользоваться поисковиками, либо ввожу то чего не надо, вопщем запутался уже.. Подскажите пожалуйсто и Помогите кто сможет в решении возникшей проблемки..))
Объясню:
**** В Hex-редакторе текст выглядет так:
[HIDE][/HIDE]
, а в текстовом виде, текст бы выглядел слейдующим образом: " !щ" (спереди 2 первых символа пробелы).. Для ЛЮБЫХ Транслит-программ эти самые первые 2 символа совершенно одинаковые, потомучто они не могут распознать их не в одной кодировке, и считают эти оба символа просто за "Пробелы".. но пробел выглядет в коде совсем не так, он разлогаетсо как "20".. а тут "20" и "1f" совершенно разные символы, и перевести их Транслит-Программами по словарикам не получитьсо с одного направления в другое, и обратно! они либо приведут всё к значениям "20", либо переводить документ не станут, и высветят соответствующую ошибку в приложении..
Вот в этом та и вопрос! Нужна программка для первода документов (самого обычного Текстового файла), которая меняла бы "символы" (значения) друг на друга и обратно подобным образом.. (
с пользовательскими словариками, и не консольная желательно бы, воопще не умею с ними обращитьсо, увы)в интернете искал, подобного не нашёл, либо я не умею пользоваться поисковиками, либо ввожу то чего не надо, вопщем запутался уже.. Подскажите пожалуйсто и Помогите кто сможет в решении возникшей проблемки..))
Ответов(10 - 19)
Цитата | Quote
в интернете искал, подобного не нашёл, либо я не умею пользоваться поисковиками, либо ввожу то чего не надо, вопщем запутался уже.. Подскажите пожалуйсто и Помогите кто сможет в решении возникшей проблемки..))
Искал плохо. Вот программа Trans 1.02
free
pap.mam.by
Результат транслита квотированного выше текста
v internete iskal, podobnogo ne nashyel, libo ya ne umeyu pol'zovat'sya poiskovikami,
libo vvozhu to chego ne nado, vopschem zaputalsya uzhe.. Podskazhite pozhaluysto i
Pomogite kto smozhet v reshenii voznikshey problemki..))
Обработало пулей, нисколько не задумываясь... Попробуйте сами.
Программа писалась на delphi
Версия 1
Переводит текстовые файлы
Попробуйте ввести слово "привет" и нажмите шифровать;
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"
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;
Вобщем такой вот алгоритм.
К сожалению не смог прикрепить откомпилированные программы (интернет медленный). В понедельник постараюсь с работы выложить.
Версия 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;
Вобщем такой вот алгоритм.
К сожалению не смог прикрепить откомпилированные программы (интернет медленный). В понедельник постараюсь с работы выложить.
Ждёмсик коипилированных в понедельник.. постарайся повалусто, очень прошу!))ещё вот вопросик возник 1.. скажи только RusHack что это воопще возможно воплотить в реаль..
можно ли сделать подобный транслит, который бы работал с 256шт. словарями, при условии что каждый символ будет транслированн *послейдующим словарём? то есть вот например имеем документ, фраза слейдующая : "Адронный Клорайдер", всего значит 18 символов, вместе с пробелом, и значит из 256шт. словарей будут использованны только 18шт.! , с №1 по №18.. в каждом естественно свои замены и переводы.. схема конечно немного запутанней чем с одним словарём, но такое *Шифрование/Дешефрование станет ещё на много сложней для расшифровки..
P.S.: ну или если с не 256шт. словариками, то с одним, который содержал бы в себе все 256)) схему писать не стану, уж больно обширной она получается, но при надобности отпишуся))
Пробовал откомпилить код, оно то откомпилилось а procedure TForm1.Button3Click(Sender: TObject); неработет....до него просто недоходит, так тож жду откомпилирование ехе, ради интереса
Цитата | Quote(PILOTIX @ 17.08.2008 - 17:40)
...
окей, и мы тоже!ты бы разобраться бы ещё не помог? мой пост, чуть выше.. шариш в этом чё нить? =))
Вобщем выкладываю обещанные файлы.
v1 - первая программа, которая работает с простыми(текстовыми) файлами.
V2 - вторая, которая работает с бинарными файлами.
! Важно ! Как видно из исходника, программа v1 заменяет только 6 букв (привет), а программа v2 - только 4 (1f 20 21 f9).
v1 - первая программа, которая работает с простыми(текстовыми) файлами.
V2 - вторая, которая работает с бинарными файлами.
! Важно ! Как видно из исходника, программа v1 заменяет только 6 букв (привет), а программа v2 - только 4 (1f 20 21 f9).
Пробую составить ТЗ своими словами.
1. Составить программу для кодирования/декодирования бинарных файлов.
2. Диапазон кодируемых символов -- от 0x0 до 0x255.
3. Словари задаются конечным пользователем.
4. Кодирование ведётся посимвольно. В зависимости от позиции вибирается словарь, из которого для замены символа выбирается группа символов.
Пример словаря:
0=Ша
1=Ры
2=zUx
...
255=RhГЧ
Вопросы:
1. Декодирование сильно зависит от правильного составленного словаря. Этот пункт непонятен.
2. Словари используются циклически, т.е. если фраза длиннее 255 символов, то на 256-м символе передём к 0-му словарю?
1. Составить программу для кодирования/декодирования бинарных файлов.
2. Диапазон кодируемых символов -- от 0x0 до 0x255.
3. Словари задаются конечным пользователем.
4. Кодирование ведётся посимвольно. В зависимости от позиции вибирается словарь, из которого для замены символа выбирается группа символов.
Пример словаря:
0=Ша
1=Ры
2=zUx
...
255=RhГЧ
Вопросы:
1. Декодирование сильно зависит от правильного составленного словаря. Этот пункт непонятен.
2. Словари используются циклически, т.е. если фраза длиннее 255 символов, то на 256-м символе передём к 0-му словарю?
Цитата | Quote(Soloton @ 18.08.2008 - 9:56)
Если при декодировании словарь иной чем при кодировании, то декодирование не получится. Я так понимаю.
Цитата | Quote(Soloton @ 18.08.2008 - 9:56)
2. Словари используются циклически, т.е. если фраза длиннее 255 символов, то на 256-м символе передём к 0-му словарю?
Зачем? К первому.
SoftoRooM © 2004-2024