Расшифровка файла на delphi

[asterisk]

Всем привет. Есть текстовый файл зашифрованный функцией

Код: [Выделить]

unit UTextCrupt;

interface

function TextCrupt(const Value:String):String;

implementation

function TextCrupt(const Value:String):String;
var
  CharIndex : integer;
begin
  Result := Value;
  for CharIndex := 1 to Length(Value) do
    Result[CharIndex] := chr(not(ord(Value[CharIndex])));
end;

end.
 Подскажите, как расшифровать. Если не трудно, по подробнее.

[SergeyIT]

Попробуй этой же функцией и восстановить

[Señor_Gaga]

 Result[CharIndex] := chr(not(ord(Value[CharIndex])));

no org - это фактически xor

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

[asterisk]

Спасибо за ответы. Но я в дельфи полный 0. Допустим, есть диалог с выбором файла и кнопкой расшифровать, что писать в обработчик кнопки чтобы файл расшифровался и результат сохранился в этот же каталог.

[Sly_tom_cat]

О каком ключе тут речь?

От символа берется его числовое значение (ord)
Результат инвертируется (not)
Результат инверсии преобразовывается в символ(chr).

Это преобразование - обратимое - то что зашифровано этой функцией ей же и расшифруется.


По сути - обычная таблица перестановки символов - этот не шифр а туфта - дайте мне пяток сообщений (осмысленных, типа писем), и я за полчаса вам скажу что там написано даже если не знаю структуру преобразования одного кода в другой.

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

я в дельфи полный 0.

Интересно как тогда объяснять?

[asterisk]

Sly_tom_cat, Хотя бы пример применения этой функции для преобрахования файла в читабельный формат покажите. Буду вникать.

[Señor_Gaga]

Спасибо за ответы. Но я в дельфи полный 0. Допустим, есть диалог с выбором файла и кнопкой расшифровать, что писать в обработчик кнопки чтобы файл расшифровался и результат сохранился в этот же каталог.

  for CharIndex := 1 to Length(Value) do
    Result[CharIndex] := chr(not(ord(Value[CharIndex])))

В этом цикле должен быть генератор случайных чисел,
каждое следующее число используется для следующего символа, который шифруется по xor
Начальное число генератора можно ввести к примеру из формы.
Вам нужно разобраться в существе вопроса.
Вот хорошая статья с примером реального генератора на С++
http://iguania.ru/stati-po-programmirovaniiu/generatsiya-sluchaynich-chisel.html

Приведенные в нем схемы легко переводятся на C  и  C#

[SergeyIT]

Señor_Gaga,
Ты вообще о чем?

[Gekko]

У меня простой вопрос, а разве Делфи есть под Linuxом вообще и в Ubuntu в частности?

[SergeyIT]

Дельфи вездесущ 

[Señor_Gaga]

У меня простой вопрос, а разве Делфи есть под Linuxом вообще и в Ubuntu в частности?

Аналог в Ubuntu - Lazarus и Kylix
Последний не знаю в каком состоянии
Лазарус вполне приличный, но поддерживает только Паскаль.
Пользователь решил продолжить мысль 19 Октября 2012, 15:58:44:

Señor_Gaga,
Ты вообще о чем?

Про метод шифрования по исключающему ИЛИ
Потом в дельфи не тольо Паскаль поддерживается, но С и С#

ТС надо бы руку набить на консольных приложениях, потом на формы переходить.
Хотя если он студент и делает контрольную работу,
то ему лучше сюда: http://www.cyberforum.ru/

[Sly_tom_cat]

Señor_Gaga, прочитайте первое сообщение, человек спрашивает как "расшифровать" текст "зашифрованный" конкретной функцией.

То что это ни разу не шифр, а фигня на посном масле, - вроде всем понятно, вы предлагаете ключ встроить ксор и т.п. Но это не то о чем ТС спрашивает... чуточку не то...

[SergeyIT]

Потом в дельфи не тольо Паскаль поддерживается, но С и С#

Учи матчасть http://ru.wikipedia.org/wiki/Delphi - язык программирования

[Señor_Gaga]

Señor_Gaga, прочитайте первое сообщение, человек спрашивает как "расшифровать" текст "зашифрованный" конкретной функцией.

То что это ни разу не шифр, а фигня на посном масле, - вроде всем понятно, вы предлагаете ключ встроить ксор и т.п. Но это не то о чем ТС спрашивает... чуточку не то...

В приведенной ТС функции примененной для шифрования есть строка

Код: [Выделить]

Result[CharIndex] := chr(not(ord(Value[CharIndex])));
По логике каждый символ шифруется сам собой по исключающему ИЛИ

Это не шифратор, а полная лажа. Хотя файл будет зашифрован, но криптостойкость его нулевая.
Ему сразу ответили, что для расшифровки надо еще раз применить эту же функцию.

Для хорошей криптостойкости, надо применять XOR но использовать случайные числа.
Что далее и предлагалось ТС, который видимо в программировании новичек, и не понял.
Пользователь решил продолжить мысль 19 Октября 2012, 16:49:17:

Потом в дельфи не тольо Паскаль поддерживается, но С и С#

Учи матчасть http://ru.wikipedia.org/wiki/Delphi - язык программирования

Я несколько лет в среде Дельфи писал на С#
Паскалями любыми не пользовался очень давно.

[Sly_tom_cat]

Señor_Gaga, речь вовсе не о плохом или хорошем шифре, а что нужно сделать ТС (расшифровать), не находите что вопрос не в том какой шифр лучше?

(Нажмите, чтобы показать/скрыть)

В приведенной ТС функции примененной для шифрования есть строка

Код: [Выделить]

Result[CharIndex] := chr(not(ord(Value[CharIndex])));
По логике каждый символ шифруется сам собой по исключающему ИЛИ

Неверно - нет там XOR есть инверсия (NOT)... Хотя если считать, что ключ - все единицы - то да это будет эквивалентно XOR. А кроме того если вы ксорите с клюем то ключ надо передавать/хранить/защищать. И кроме того, использование одного ключа для передачи всех сообщений - тоже не криптостойкий шифр - вскрывается на ура, по нескольким сообщениям. И если уже говорить о нормальном шифре, то лучше не изобретать велосипед, а взять готовые библиотеки. Т.к. велосипеды почти всегда получаются кривые и часто оказываются с криптойкостью на уровне того, что у ТС, т.е. никаком.