VPF::Определить зашифрован файл или нет.

NUCLEuS

Дата 13.7.2005, 15:44 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 45
Регистрация: 12.7.2005

Репутация: нет
Всего: нет

Illusion Dolphin

Только вот чуток не так, тот файл который у тебя считается зашифрованным, у меня расшифрованный, типа такого |||CRPTF|||| , вобщем как у тебя в зашифрованном, а вот в зашифрованном файле слова типа CRPTF вообще нет ;) Пожалуйста модифицируй функции, буду бесконечно благодарен smile

Guest

Дата 14.7.2005, 09:18 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Цитата(Illusion @ 13.7.2005, 10:01)

гмЪ... Искать в файле незашифрованную строку это конечно прикольно.... особено если файл на пару гигов окажется ;)

Зачем искать во всём файле ? Названия колонок идут в самом начале файла...
Вероятность того, что Surname попадётся вначале файла после шифрации практически равна нулю...

NUCLEuS

Дата 14.7.2005, 09:55 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 45
Регистрация: 12.7.2005

Репутация: нет
Всего: нет

Короче, чтобы не парить вам мозги, я приаттачил файл базы, он весит 234 байт, посмотрите что можно сделать, пожалуйста smile

Предпологается что в зашифрованном варианте Surname вообще не будет smile

Присоединённый файл ( Кол-во скачиваний: 6 )

Telephones.dat 0,23 Kb

_hunter

Дата 14.7.2005, 10:39 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98

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

--------------------

Tempora mutantur, et nos mutamur in illis...

NUCLEuS

Дата 14.7.2005, 11:31 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 45
Регистрация: 12.7.2005

Репутация: нет
Всего: нет

_hunter

Ок, можеш дать пример?

_hunter

Дата 14.7.2005, 11:49 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98

пирмер чего? как четыре байта ( или два ) сравнить? или как их прочитать?

--------------------

Tempora mutantur, et nos mutamur in illis...

NUCLEuS

Дата 14.7.2005, 12:10 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 45
Регистрация: 12.7.2005

Репутация: нет
Всего: нет

Как их прочитать...

HackMan

Дата 14.7.2005, 14:52 (ссылка)

(нет голосов)

Загрузка ...

Юзверь-программист

Профиль
Группа: Участник
Сообщений: 391
Регистрация: 18.6.2005
Где: .ua

Репутация: нет
Всего: 9

NUCLEuS

Код


  type
    a : array[1..4] of Char;

  var
    b : a;
    f : file of a;

begin
  AssignFile(f, 'Telephones.dat')  ;
  Read(f, b);
  CloseFile(f);
end;

В переменной b находятся первые четыре символа файла

Это сообщение отредактировал(а) HackMan - 15.7.2005, 22:35

--------------------

Завтра - это самый загруженный день недели smile

NUCLEuS

Дата 14.7.2005, 15:08 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 45
Регистрация: 12.7.2005

Репутация: нет
Всего: нет

Млин, ну дайте уже чё нить рабочее... HackMan не компилится твой код в Delphi 6. Никак. Поправь плизз чтобы и для делфи.

Illusion Dolphin

Дата 14.7.2005, 17:20 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

Репутация: 36
Всего: 63

Ну тогда вот так:

Код


function FileCrypted : boolean;
var
  fs : TFileStream;
  s : String;
begin
 Result:=false;
 try
  fs := TFileStream.Create('c:\telephones.dat',fmOpenRead);
 except
  exit;
 end;
 SetLength(S,500);  
 try
  fs.Read(s[1],500); //ищем в начале файла
 finally
  fs.Free;
 end;
 if pos(AnsiLowerCase('Surname'),AnsiLowerCase(S))>0 then
 Result:=false else Result:=true;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 if FileCrypted then ShowMessage('Crypted') else ShowMessage('фиг2!');
end;

--------------------

В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5

NUCLEuS

Дата 14.7.2005, 17:34 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 45
Регистрация: 12.7.2005

Репутация: нет
Всего: нет

Спасибо всем, особенно Illusion Dolphin, т.к. его последний способ реально работает !

Тема закрыта.

Это сообщение отредактировал(а) NUCLEuS - 14.7.2005, 17:39

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »