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

Ответов(20 - 29)
18.08.2008 - 10:43
#21
Soloton



Грамотный
Group Icon

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


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




Цитата | Quote(RusHacK @ 18.08.2008 - 10:43)
Зачем? К первому.
*

smile.gif Я с 0 начинаю считать
User is offline
Go topGo end
18.08.2008 - 10:59
#22
Soloton



Грамотный
Group Icon

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


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




Цитата | Quote(RusHacK @ 18.08.2008 - 10:43)
Если при декодировании словарь иной чем при кодировании, то декодирование не получится. Я так понимаю.
*

По условию нужно заменить 1 символ исходного сообщения на несколько. При декодировании невозможно знать заренее какое количество символов брать для раскодировки.
Т.е. если заменять все символы "а" на "ПыР", "М" на "-**9(" и "м" на "ПыР%-**9(", то при кодировании "Мама" получим "-**9(ПыРПыР%-**9(ПыР". Результат декодирования может быть и таким: "МааМа".
Выходит, что словари нужно составить правильно, исключив подобные случаи, но это на совести конечного пользователя, как я понимаю.
User is offline
Go topGo end
18.08.2008 - 16:40
#23
DMUTPUU



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

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


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




Цитата | Quote(RusHacK @ 16.08.2008 - 1:16)
Программа писалась на 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;


Вобщем такой вот алгоритм.

Присоединённые файлы
  v1.zip ( 212.04кб ) Кол-во скачиваний:
  v2.zip ( 213.05кб ) Кол-во скачиваний:
*


smile.gif C первой программкой немного разобрался! Файл загружает! Файл шифрует! Спасибо! ((но расшифровка по моиму бы тоже не помешала..)
С программкой №2 воопще ноль понятий.. увы(( маленькие файлы не загружает, или загружает, но не показывает вид в зашифрованом варианте!

sad.gif не нашёл у программок словарики.. как же быть, если понадобиться оригенальный и не повторимый *Шефратор/Дешефратор.., текст которго можно будит *расшифровать только при наличии индивидуално-созданных словариков? =))
User is offline
Go topGo end
18.08.2008 - 18:44
#24
RusHacK



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

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


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


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


Цитата | Quote(DMUTPUU @ 18.08.2008 - 16:43)
маленькие файлы не загружает, или загружает, но не показывает вид в зашифрованом варианте!
*


Правильно, загружает но не показывает. В программе забито только 4 символа которые она может шифровать.

Code

case b of
  31: cod:='C';
  32: cod:='o';
  33: cod:='o';
  249: cod:='L';
 end;


Цитата | Quote(DMUTPUU @ 18.08.2008 - 16:43)
не нашёл у программок словарики..
*


Читай выше. "Вобщем такой вот алгоритм".
т.е. это пример, а не готовая программа.

Что? Расстроились? А зря. Рас надеялись увидеть работающую программу значит завтра посмотрим её в бэта версии smile.gif .
User is offline
Go topGo end
18.08.2008 - 20:44
#25
DMUTPUU



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

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


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




Цитата | Quote(RusHacK @ 18.08.2008 - 18:47)
Что? Расстроились? А зря. Рас надеялись увидеть работающую программу значит завтра посмотрим её в бэта версии smile.gif .
*


laugh.gif Вауу.. словарррики... мурр.... буду оч. оч. сильно ждать эту бетку))
User is offline
Go topGo end
18.08.2008 - 21:03
#26
RusHacK



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

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


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


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


Сильно не пинайте smile.gif
Пока только шифрует. Шифрование пока по одному словарю (файл sl.dic). В словаре должно быть 256 строк (0-255).
Пробуем, критикуем.

Есть 2 варианта словаря
1. В словаре все слова одинаковой длины (f заменяем на ааа, j на bbb), при этом будет легче составлять словари и придумывать алгоритм дешифровки.
2.Слова разные. Трудность в написании словарей + Алгоритм.

Присоединённые файлы
Присоединённый файл  cryp.zip ( 219.42кб ) Кол-во скачиваний: 3
User is offline
Go topGo end
18.08.2008 - 21:41
#27
DMUTPUU



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

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


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




cool.gif а мне етти понравился! а на счёт трансляции - он "а" перевёл в "йцн" (к примеру), посмотрел словарик, как он устроен я не понил, почаму поменял именно так? ph34r.gif а 256 строк это предел? бош никак?((
User is offline
Go topGo end
19.08.2008 - 8:52
#28
RusHacK



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

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


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


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


Цитата | Quote(DMUTPUU @ 18.08.2008 - 21:44)
а 256 строк это предел? бош никак?
*



255 - это количество символов которые могут встречаться в бинарном файле (00 - FF). Больше то куда? а вот словарей у тебя может быть много.

--------

DMUTPUU, что со словарями? Их (слова) будем одинаковой длины делать или разной? Если напишешь словарик, выложи ждесь. Ок'?

Кстати, словарик состоит из 255 слов, к примеру, имеем символ в бинарном файле с кодом 00, т.е. если я хочу заменить его на друго символ, то в первую строку словарика пишу слово которое будет заменять данный символ с кодом 00.

К примеру мы хотим, что бы знак "=" заменялся на слово "равно".
Смотрим таблицу ASCII и находим знак "=", ага, в HEX кодировке символ выглядит как 0x3D. Переводим в десятичное значение, получается 61. Открываем словарик, переходим к строчке 61 и пишем слово "равно"

Тестируем программу:
Открываем ниже прикреплённый бинарный файл. Жмём "Шифровать". Можите посмотреть в HEX редакторе и убедиться что в файле символ "=" (0x3D)

Твой софтовый форум

Присоединённые файлы
Присоединённый файл  ravno.zip ( 117байт ) Кол-во скачиваний: 2
User is offline
Go topGo end
19.08.2008 - 17:19
#29
DMUTPUU



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

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


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




smile.gif спасибо.. но я уже запутался совсем (( Тестировал программу He4yp Q, она работает без установки, так вот разок её запустил из папки, и все типерь ".bin" файлы по-умолчанию открываются с ней! папку переименовал для того чтобы такого больше не было, но файлы по прежнему пытаются отрываться с этой прогрммой, хотя папка переименнована, и соответственно эту уже папку не находят, и просят выбрать программу, с которой нужно открыть этот файл! как быть?
User is offline
Go topGo end
19.08.2008 - 19:22
#30
RusHacK



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

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


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


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


т.е. программа моя не нужна?
User is offline
Go topGo end

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