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

Предполагается шифрация обычным 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