Форум: "Начинающим";
Текущий архив: 2006.07.02;
Скачать: [xml.tar.bz2];
Вниз
Помогите не знаю как сделать! Найти похожие ветки
← →
Старый пляж (2006-06-12 14:34) [0]Првет! У меня есть прога, которая использует файл. Мне нужно что бы его не могли просматривать. Я знаю что можно его зжать Winrar`ом и поставить пароль. Но как зделать так что бы программа могла его прочитать?
Для загрузки я использую такой код:ini := TIniFile.Create(ExtractFilePath(ParamStr(0))+"q.rar\q.ini");
← →
Sasha:) (2006-06-12 14:37) [1]Сорри вот код: ini := TIniFile.Create(ExtractFilePath(ParamStr(0))+"q.ini");
← →
unknown © (2006-06-12 14:50) [2]Зачем гаг-ы? Можно просто зашифровать файл.
Хотя, смысла особого нет, разве что "защита от дурака"
← →
Старый пляж (2006-06-12 17:08) [3]Я делаю программу для эказмена по ИВТ, мне очень нужно зашифровать файл, и потом что бы его смогла прочитать программа.Мне подойдёт любой эффективный способ!
← →
Prohodil Mimo © (2006-06-12 17:18) [4]используй типизированый файл и сам шифруй инфу. всё-равно вскроют :о)
← →
Другой (2006-06-12 17:21) [5]ExtractFilePath(ParamStr(0))
может не проканать - на длинных путях и с пробелами.
← →
parovoZZ © (2006-06-12 17:27) [6]Я вообще не понимаю, зачем делать текстовый ini? Если надо покрутить настройки - можно в проге реализовать.
А по сабжу я делаю примерно так:procedure TForm1.LoadSettings;
type
TSize = packed record
Size : WindowPlacement;
splt : word;
end;
var
Size : TSize;
f : file;
begin
{$I-}
AssignFile (f, "DATA\Config.ini");
Reset (f, 1);
if IOResult <> 0 then exit;
FillChar (Size, SizeOf (Size), 0);
try
BlockRead (F, Size, SizeOf (TSize));
finally
CloseFile (f);
end;
{$I+}
SetWindowPlacement (Form.Handle, @Size.Size);
TrVPnL.Width := Size.splt;
end;
procedure TForm1.SaveSettings;
type
TSize = packed record
Size : WindowPlacement;
splt : word;
end;
var
Size : TSize;
f : file;
begin
{$I-}
AssignFile (F, "DATA\Config.INI");
Rewrite (F, 1);
if IOResult <> 0 then exit;
FillChar (size, SizeOf(Size), 0);
GetWindowPlacement (Form.Handle, @Size.Size);
Size.splt := TrVPnl.Width;
try
BlockWrite (F, Size, SizeOf (TSize));
Finally
CloseFile (F);
end;
{$I+}
end;
Открывается любым блокнотом, но прочитать ниЗЗя.
← →
Старый пляж (2006-06-12 17:55) [7]А можно ли как нибудь открыть зашифрованный Winrar`ом файл.
← →
AlexanderMS © (2006-06-12 19:20) [8]
> А можно ли как нибудь открыть зашифрованный Winrar`ом файл.
Конечно можно! С помощью Winrar"а! :))
← →
Rial © (2006-06-12 19:30) [9]Можно такскать с собой UnRAR.exe, работая их с помощью командной строки,
а потом - читать из этого файла.
Основной недостаток этого способа в том, что файл некоторое время
будет находиться на диске в незашифрованном виде.
Поэтому пиши не в текстовый файл и кодируй своим алгоритмом.
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.07.02;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.012 c
