Программисты, выручайте.., такой программы в интернете нету =(( |
DMUTPUU
Опытный юзверь
Группа: Заблокированные Сообщений: 103 Регистрация: 10.09.2007 Пользователь №: 494.424
Респектов: 5
| Подобная тема уже была, скажу сразу, но здесь не много иное совсем.. Нужна программка, которая работала бы по принципу Программы-транслита, то есть переводила бы текст туда и обратно, точнее меняла бы символы друг на друга по словарикам в обоих направлениях! НО! но... в этом та вся и начинка.. Меняла бы их не по "символ"-ическим значениям, а по значениям "Hex-редактор"-ским.. Объясню: **** В Hex-редакторе текст выглядет так: [HIDE][/HIDE] , а в текстовом виде, текст бы выглядел слейдующим образом: " !щ" (спереди 2 первых символа пробелы).. Для ЛЮБЫХ Транслит-программ эти самые первые 2 символа совершенно одинаковые, потомучто они не могут распознать их не в одной кодировке, и считают эти оба символа просто за "Пробелы".. но пробел выглядет в коде совсем не так, он разлогаетсо как "20".. а тут "20" и "1f" совершенно разные символы, и перевести их Транслит-Программами по словарикам не получитьсо с одного направления в другое, и обратно! они либо приведут всё к значениям "20", либо переводить документ не станут, и высветят соответствующую ошибку в приложении.. Вот в этом та и вопрос! Нужна программка для первода документов (самого обычного Текстового файла), которая меняла бы "символы" (значения) друг на друга и обратно подобным образом.. ( с пользовательскими словариками, и не консольная желательно бы, воопще не умею с ними обращитьсо, увы) в интернете искал, подобного не нашёл, либо я не умею пользоваться поисковиками, либо ввожу то чего не надо, вопщем запутался уже.. Подскажите пожалуйсто и Помогите кто сможет в решении возникшей проблемки..)) | |
| |
18.08.2008 - 10:43 |
Soloton
Грамотный
Группа: Наши Люди Сообщений: 292 Регистрация: 18.12.2005 Из: Невинномысск Пользователь №: 88.260
Респектов: 72
| Цитата | Quote(RusHacK @ 18.08.2008 - 10:43) Я с 0 начинаю считать | |
| |
18.08.2008 - 10:59 |
Soloton
Грамотный
Группа: Наши Люди Сообщений: 292 Регистрация: 18.12.2005 Из: Невинномысск Пользователь №: 88.260
Респектов: 72
| Цитата | Quote(RusHacK @ 18.08.2008 - 10:43) Если при декодировании словарь иной чем при кодировании, то декодирование не получится. Я так понимаю. По условию нужно заменить 1 символ исходного сообщения на несколько. При декодировании невозможно знать заренее какое количество символов брать для раскодировки. Т.е. если заменять все символы "а" на "ПыР", "М" на "-**9(" и "м" на "ПыР%-**9(", то при кодировании "Мама" получим "-**9(ПыРПыР%-**9(ПыР". Результат декодирования может быть и таким: "МааМа". Выходит, что словари нужно составить правильно, исключив подобные случаи, но это на совести конечного пользователя, как я понимаю. | |
| |
18.08.2008 - 16:40 |
DMUTPUU
Опытный юзверь
Группа: Заблокированные Сообщений: 103 Регистрация: 10.09.2007 Пользователь №: 494.424
Респектов: 5
| Цитата | 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кб ) Кол-во скачиваний:
C первой программкой немного разобрался! Файл загружает! Файл шифрует! Спасибо! ((но расшифровка по моиму бы тоже не помешала..) С программкой №2 воопще ноль понятий.. увы(( маленькие файлы не загружает, или загружает, но не показывает вид в зашифрованом варианте! не нашёл у программок словарики.. как же быть, если понадобиться оригенальный и не повторимый *Шефратор/Дешефратор.., текст которго можно будит *расшифровать только при наличии индивидуално-созданных словариков? =)) | |
| |
18.08.2008 - 18:44 |
RusHacK
Опытный юзверь
Группа: Пользователи Сообщений: 54 Регистрация: 12.08.2008 Пользователь №: 1.024.026
Респектов: 7
Предупреждений:
| Цитата | 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) не нашёл у программок словарики.. Читай выше. "Вобщем такой вот алгоритм". т.е. это пример, а не готовая программа. Что? Расстроились? А зря. Рас надеялись увидеть работающую программу значит завтра посмотрим её в бэта версии . | |
| |
18.08.2008 - 20:44 |
DMUTPUU
Опытный юзверь
Группа: Заблокированные Сообщений: 103 Регистрация: 10.09.2007 Пользователь №: 494.424
Респектов: 5
| Цитата | Quote(RusHacK @ 18.08.2008 - 18:47) Что? Расстроились? А зря. Рас надеялись увидеть работающую программу значит завтра посмотрим её в бэта версии . Вауу.. словарррики... мурр.... буду оч. оч. сильно ждать эту бетку)) | |
| |
18.08.2008 - 21:03 |
RusHacK
Опытный юзверь
Группа: Пользователи Сообщений: 54 Регистрация: 12.08.2008 Пользователь №: 1.024.026
Респектов: 7
Предупреждений:
| Сильно не пинайте Пока только шифрует. Шифрование пока по одному словарю (файл sl.dic). В словаре должно быть 256 строк (0-255). Пробуем, критикуем. Есть 2 варианта словаря 1. В словаре все слова одинаковой длины (f заменяем на ааа, j на bbb), при этом будет легче составлять словари и придумывать алгоритм дешифровки. 2.Слова разные. Трудность в написании словарей + Алгоритм. Присоединённые файлы
cryp.zip ( 219.42кб )
Кол-во скачиваний: 3 | |
| |
18.08.2008 - 21:41 |
DMUTPUU
Опытный юзверь
Группа: Заблокированные Сообщений: 103 Регистрация: 10.09.2007 Пользователь №: 494.424
Респектов: 5
| а мне етти понравился! а на счёт трансляции - он "а" перевёл в "йцн" (к примеру), посмотрел словарик, как он устроен я не понил, почаму поменял именно так? а 256 строк это предел? бош никак?(( | |
| |
19.08.2008 - 8:52 |
RusHacK
Опытный юзверь
Группа: Пользователи Сообщений: 54 Регистрация: 12.08.2008 Пользователь №: 1.024.026
Респектов: 7
Предупреждений:
| Цитата | 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 | |
| |
19.08.2008 - 17:19 |
DMUTPUU
Опытный юзверь
Группа: Заблокированные Сообщений: 103 Регистрация: 10.09.2007 Пользователь №: 494.424
Респектов: 5
| спасибо.. но я уже запутался совсем (( Тестировал программу He4yp Q, она работает без установки, так вот разок её запустил из папки, и все типерь ".bin" файлы по-умолчанию открываются с ней! папку переименовал для того чтобы такого больше не было, но файлы по прежнему пытаются отрываться с этой прогрммой, хотя папка переименнована, и соответственно эту уже папку не находят, и просят выбрать программу, с которой нужно открыть этот файл! как быть? | |
| |
19.08.2008 - 19:22 |
RusHacK
Опытный юзверь
Группа: Пользователи Сообщений: 54 Регистрация: 12.08.2008 Пользователь №: 1.024.026
Респектов: 7
Предупреждений:
| т.е. программа моя не нужна? | |
| |
|
|