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

Предполагается шифрация обычным xor'oм, с фиксированным ключём. Но чтобы не произошло ошибки когда незашифрованный файл покриптовался и результаты вывелись в DBGrid следует организовать такую проверку.

Но КАК определить покриптован файл или нет? Может сделать поиск по файлу в поиске допустим фамилии "Иванов" и если она есть - файл незашифрован, иначе - зашифрован. Может как то по другому.

Буду рад дельным советам. Спасибо.

структура файла известна? ты ее менять можеш?

Приведи пример незашифрованного файла.
В принципе, раз файл текстовый, то после каждой строчки должно идти что-то из #13 и #10 (или оба). Можно с ними что-нибудь замутить. Узнай, что именно говорит о конце строки. И, например, проверяй последние байты файла - если они #13#10 значит файл не зашифрован. Правда для этого еще одно важное условие должно быть - последяя строка тоже должна завершаться этими символами...

Ок, я придумал принцип, помогите с реализацией. Короче нужно найти в файле слово "Surname" если это слово там есть (а в незашифрованном оно полюбому есть т.к. это название колонки) то файл незашифрован. Я наверное небуду использовать хor а скорее всего TwoFish, и думаю в хэше слово "Surname" не попадётся ;) Как вам принцип ? А теперь помогите с реализацией, плизз...

...

Это сообщение отредактировал(а) Quadr0 - 15.7.2011, 00:38

ОК, только нужно Strs.Text
Добавлено @ 18:23
Ты меня опередил Только что сообщение поправил

Это сообщение отредактировал(а) NUCLEuS - 12.7.2005, 18:22

Буду благодарен если даш правильно работающий код

Это сообщение отредактировал(а) NUCLEuS - 12.7.2005, 18:41

...

Это сообщение отредактировал(а) Quadr0 - 15.7.2011, 00:39

Дело в том что в файле находится не чистая строка Surname а такая - ||Surname||
(посмотрел в нотпаде), причём подстановка этого значения ничего не даёт как и +#10+#13... Знаки что по бокам я написал условно, вообще это типа "квадратики" (+#10+#13)

Это сообщение отредактировал(а) NUCLEuS - 12.7.2005, 19:02

Требуется найти слово Surname в неизвестном потоке символов...

Ну мужики, помогите, а? Срочно нужно...
Добавлено @ 22:10
Кстати добавлять в файл ничего нельзя т.к. портится структура, так что нужно довольствоваться тем что есть...

Читай внимательно Quadr0

function Pos(Substr: string; S: string): Integer;

Pos Возвращает позицию (индекс) первого вхождения Substr в S. Если Substr нет в S, возвращается 0.
т.е. если pos('Surname', Strs.Text)=0 то твоего Surname нет в файле, а значит зашифровано

Мне кажется так буит

Код

procedure BtnClick; var   Strs: TStringList; i:integer; begin   Strs := TStringList.Create;   Strs.LoadFromFile('blablabla.txt');   for i:=0 to Strs.Count-1 do begin       if pos('Surname', Strs.Strings[i]) <> 0 then begin          ShowMessage('Зашифрован');          break;       end;   end;   FreeAndNil(Strs); end;

За синтаксические ошибки не ручаюсь.

Это сообщение отредактировал(а) Zlo - 12.7.2005, 23:34

гмЪ... Искать в файле незашифрованную строку это конечно прикольно.... особено если файл на пару гигов окажется ;)
NUCLEuS: вот тебе как вариант нормального обращения с файлами (мож пригодится ) А в твоём случае ты получишь обычный чистый фалй (0 битов) и будешь уверен что он зашифрован, +много разных неточностей.

Код

unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, crypt, StdCtrls; type   TCryptFileHeader = record   ID : string[5];   Version : byte;   Crypted : Boolean;   CryptedType : byte;   //и ещё можно по вкусу добавить   end;   const   TCryptFileHeaderID = 'CRPTF';   CryptFileTypeXOR = 1;   CryptFileTypeOther = 2; type   TForm1 = class(TForm)     Button1: TButton;     Button2: TButton;     Button3: TButton;     procedure Button3Click(Sender: TObject);     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.dfm} function CreateCryptFile: boolean; var   Header : TCryptFileHeader;   FS : TFileStream; begin  Result:=false;  try   FS := TFileStream.Create('c:\1.dat',fmOpenWrite or fmCreate);   Header.ID:=TCryptFileHeaderID;   Header.Version:=1;   Header.Crypted:=true;   Header.CryptedType:=CryptFileTypeXOR;   try    FS.Write(Header,SizeOf(Header));  // FS.Write(  дальше записываем сами данные   finally    FS.Free;   end;  except   exit;  end;  Result:=true; end; function CreateNOTCryptFile : boolean; var   Header : TCryptFileHeader;   FS : TFileStream; begin  Result:=false;  try   FS := TFileStream.Create('c:\1.dat',fmOpenWrite or fmCreate);   Header.ID:=TCryptFileHeaderID;   Header.Version:=1;   Header.Crypted:=false;   Header.CryptedType:=CryptFileTypeXOR;   try    FS.Write(Header,SizeOf(Header));    // FS.Write(  дальше записываем сами данные   finally    FS.Free;   end;  except   exit;  end;  Result:=true; end; function FileIsCrypt : boolean; var   Header : TCryptFileHeader;   FS : TFileStream; begin  Result:=false;  try   FS := TFileStream.Create('c:\1.dat',fmOpenRead);   FS.Seek(0,soBeginning) ;   FS.Read(Header,SizeOf(Header));   if Header.ID=TCryptFileHeaderID then Result:=Header.Crypted else Result:=false;  except   exit;  end;  FS.Free; end; procedure TForm1.Button3Click(Sender: TObject); begin  if FileIsCrypt then showmessage('Crypt') else Showmessage('Не-а ;)'); end; procedure TForm1.Button1Click(Sender: TObject); begin  CreateCryptFile; end; procedure TForm1.Button2Click(Sender: TObject); begin  CreateNOTCryptFile; end; end.

2Zlo не катит

2Illusion Dolphin

А твой катит, thanks

Это сообщение отредактировал(а) NUCLEuS - 13.7.2005, 15:34

Illusion Dolphin

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

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

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

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

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

Присоединённый файл ( Кол-во скачиваний: 6 )
 Telephones.dat 0,23 Kb

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

_hunter

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

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

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

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

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

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

Код

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;

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

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

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