day & night

Программисты, выручайте.., такой программы в интернете нету =((
Дата обновления: , перейти к новому сообщению
icon14
#1
DMUTPUU



Опытный юзверь
Group Icon

Группа: Заблокированные
Сообщений: 103
Регистрация: 10.09.2007
Пользователь №: 494.424


Респектов: 5
-----X----




Подобная тема уже была, скажу сразу, но здесь не много иное совсем.. Нужна программка, которая работала бы по принципу Программы-транслита, то есть переводила бы текст туда и обратно, точнее меняла бы символы друг на друга по словарикам в обоих направлениях! НО! но... в этом та вся и начинка.. Меняла бы их не по "символ"-ическим значениям, а по значениям "Hex-редактор"-ским..

Объясню:

**** В Hex-редакторе текст выглядет так:
[HIDE][/HIDE]
, а в текстовом виде, текст бы выглядел слейдующим образом: " !щ" (спереди 2 первых символа пробелы).. Для ЛЮБЫХ Транслит-программ эти самые первые 2 символа совершенно одинаковые, потомучто они не могут распознать их не в одной кодировке, и считают эти оба символа просто за "Пробелы".. но пробел выглядет в коде совсем не так, он разлогаетсо как "20".. а тут "20" и "1f" совершенно разные символы, и перевести их Транслит-Программами по словарикам не получитьсо с одного направления в другое, и обратно! они либо приведут всё к значениям "20", либо переводить документ не станут, и высветят соответствующую ошибку в приложении.. unsure.gif Вот в этом та и вопрос! Нужна программка для первода документов (самого обычного Текстового файла), которая меняла бы "символы" (значения) друг на друга и обратно подобным образом..

( unsure.gif с пользовательскими словариками, и не консольная желательно бы, воопще не умею с ними обращитьсо, увы)

в интернете искал, подобного не нашёл, либо я не умею пользоваться поисковиками, либо ввожу то чего не надо, вопщем запутался уже.. Подскажите пожалуйсто и Помогите кто сможет в решении возникшей проблемки..))
User is offline
Go topGo end

Ответов(10 - 19)
icon10 15.08.2008 - 22:49
#11
KLUCHICK



Вечная память...
[SoftoRooMTeaM] Group Icon

Группа: Администраторы
Сообщений: 5.668
Регистрация: 15.03.2004
Из: The Ural federal district
Пользователь №: 326


Респектов: 3848
-----XXXXX




Цитата | Quote
в интернете искал, подобного не нашёл, либо я не умею пользоваться поисковиками, либо ввожу то чего не надо, вопщем запутался уже.. Подскажите пожалуйсто и Помогите кто сможет в решении возникшей проблемки..))


Искал плохо. Вот программа Trans 1.02
free smile.gif Твой софтовый форум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..))


Обработало пулей, нисколько не задумываясь... Попробуйте сами.
User is offline
Go topGo end
16.08.2008 - 1:13
#12
RusHacK



Опытный юзверь
**

Группа: Пользователи
Сообщений: 54
Регистрация: 12.08.2008
Пользователь №: 1.024.026


Респектов: 7
-----X----


Предупреждений:


Программа писалась на 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;


Вобщем такой вот алгоритм.
К сожалению не смог прикрепить откомпилированные программы (интернет медленный). В понедельник постараюсь с работы выложить.

Присоединённые файлы
Присоединённый файл  File.zip ( 118байт ) Кол-во скачиваний: 4
User is offline
Go topGo end
17.08.2008 - 16:43
#13
DMUTPUU



Опытный юзверь
Group Icon

Группа: Заблокированные
Сообщений: 103
Регистрация: 10.09.2007
Пользователь №: 494.424


Респектов: 5
-----X----




smile.gif Ждёмсик коипилированных в понедельник.. постарайся повалусто, очень прошу!))

ещё вот вопросик возник 1.. скажи только RusHack что это воопще возможно воплотить в реаль..

можно ли сделать подобный транслит, который бы работал с 256шт. словарями, при условии что каждый символ будет транслированн *послейдующим словарём? то есть вот например имеем документ, фраза слейдующая : "Адронный Клорайдер", всего значит 18 символов, вместе с пробелом, и значит из 256шт. словарей будут использованны только 18шт.! , с №1 по №18.. в каждом естественно свои замены и переводы.. схема конечно немного запутанней чем с одним словарём, но такое *Шифрование/Дешефрование станет ещё на много сложней для расшифровки..

P.S.: ну или если с не 256шт. словариками, то с одним, который содержал бы в себе все 256)) схему писать не стану, уж больно обширной она получается, но при надобности отпишуся))
User is offline
Go topGo end
17.08.2008 - 17:37
#14
PILOTIX



Опытный юзверь
**

Группа: Пользователи
Сообщений: 142
Регистрация: 26.07.2008
Пользователь №: 999.570


Респектов: 8
-----X----


Предупреждений:


Пробовал откомпилить код, оно то откомпилилось а procedure TForm1.Button3Click(Sender: TObject); неработет....до него просто недоходит, так тож жду откомпилирование ехе, ради интереса smile.gif
User is offline
Go topGo end
17.08.2008 - 18:35
#15
DMUTPUU



Опытный юзверь
Group Icon

Группа: Заблокированные
Сообщений: 103
Регистрация: 10.09.2007
Пользователь №: 494.424


Респектов: 5
-----X----




Цитата | Quote(PILOTIX @ 17.08.2008 - 17:40)
...

smile.gif окей, и мы тоже!

ты бы разобраться бы ещё не помог? мой пост, чуть выше.. шариш в этом чё нить? =))
User is offline
Go topGo end
17.08.2008 - 18:46
#16
_Slava



Unregistered














весь топик не писал, извинюхи если повторюсь..на C# пол часа делов, + полчасика на касметику... ph34r.gif
Go topGo end
17.08.2008 - 22:58
#17
RusHacK



Опытный юзверь
**

Группа: Пользователи
Сообщений: 54
Регистрация: 12.08.2008
Пользователь №: 1.024.026


Респектов: 7
-----X----


Предупреждений:


Цитата | Quote(DMUTPUU @ 17.08.2008 - 16:46)
можно ли сделать подобный транслит, который бы работал с 256шт. словарями
*



Можно. Правда немного по другому алгоритму, но можно.
User is offline
Go topGo end
18.08.2008 - 8:19
#18
RusHacK



Опытный юзверь
**

Группа: Пользователи
Сообщений: 54
Регистрация: 12.08.2008
Пользователь №: 1.024.026


Респектов: 7
-----X----


Предупреждений:


Вобщем выкладываю обещанные файлы.

v1 - первая программа, которая работает с простыми(текстовыми) файлами.
V2 - вторая, которая работает с бинарными файлами.

! Важно ! Как видно из исходника, программа v1 заменяет только 6 букв (привет), а программа v2 - только 4 (1f 20 21 f9).



Присоединённые файлы
Присоединённый файл  v1.zip ( 212.04кб ) Кол-во скачиваний: 3
Присоединённый файл  v2.zip ( 213.05кб ) Кол-во скачиваний: 3
User is offline
Go topGo end
18.08.2008 - 9:53
#19
Soloton



Грамотный
Group Icon

Группа: Наши Люди
Сообщений: 292
Регистрация: 18.12.2005
Из: Невинномысск
Пользователь №: 88.260


Респектов: 72
-----X----




Пробую составить ТЗ своими словами.
1. Составить программу для кодирования/декодирования бинарных файлов.
2. Диапазон кодируемых символов -- от 0x0 до 0x255.
3. Словари задаются конечным пользователем.
4. Кодирование ведётся посимвольно. В зависимости от позиции вибирается словарь, из которого для замены символа выбирается группа символов.

Пример словаря:
0=Ша
1=Ры
2=zUx
...
255=RhГЧ

Вопросы:
1. Декодирование сильно зависит от правильного составленного словаря. Этот пункт непонятен.
2. Словари используются циклически, т.е. если фраза длиннее 255 символов, то на 256-м символе передём к 0-му словарю?
User is offline
Go topGo end
18.08.2008 - 10:40
#20
RusHacK



Опытный юзверь
**

Группа: Пользователи
Сообщений: 54
Регистрация: 12.08.2008
Пользователь №: 1.024.026


Респектов: 7
-----X----


Предупреждений:


Цитата | Quote(Soloton @ 18.08.2008 - 9:56)
1. Декодирование сильно зависит от правильного составленного словаря.
*


Если при декодировании словарь иной чем при кодировании, то декодирование не получится. Я так понимаю.
Цитата | Quote(Soloton @ 18.08.2008 - 9:56)
2. Словари используются циклически, т.е. если фраза длиннее 255 символов, то на 256-м символе передём к 0-му словарю?
*


Зачем? К первому.
User is offline
Go topGo end

Topic Options
Сейчас: 11.05.2024 - 10:52
Мобильная версия | Lite версия