Создание программы для запароливания файлов

[шолku]

Если дописать:

BOX.Files := TStrings.Create;
BOX.Files.Add('');

Всё равно ошибка. Как нужно инициализовать BOX.Files ?

[Speeker]

Пришли ипример

[-=DeS=-]

Сообщение от Сильванович Михаил

К примеру берется какое-то слово в качестве ключа и весь текст файла с
помощью XOR перебивается им (восстановить файл можно только зная ключ).
Если проще, то так:
Dest[i]:=Source[i] xor key[j];

//-------------------------------------------------
Не обязательно знать ключ...

var
i:integer;
s1,s2,s3,s4,s5,s6:char;
s:string;
begin
s1:='символ';
s2:='символ';
s3:='символ';
s4:='символ';
s5:='символ';
s6:='символ';
for i:=33 to 255 do begin
s:=chr(ord(s1) xor i)+chr(ord(s2) xor i)+chr(ord(s3) xor i)+chr(ord(s4) xor i)+
chr(ord(s5) xor i)+chr(ord(s6) xor i)+' '+IntToStr(i);
listBox1.Items.Add(s);
end;
end;

[SuperVisor]

Сообщение от шолku

Если дописать:

BOX.Files := TStrings.Create;
BOX.Files.Add('');

Всё равно ошибка. Как нужно инициализовать BOX.Files ?

Что он на это пишет?

Сообщение от шолku

Т.е. есть возможность им воспользоваться. Нужно придумать способ прятать этот файл куда-нибудь пока юзер с ним работает. Или ещё что-то, чтобы никто не знал откуда открывается пароли.doc, или хотябы ничего с ним сделать не смог.

Как файл открываешь? Как из prd достаешь? Напиши конкретней, разберемся.

[Snake_B]

 
Function RandomGen(Password: string): integer;
var 
j, cyrcleCounter: byte;
begin 
Result:=0; 
cyrcleCounter:=CharCounter;
for j:= 0 to length(Password)-2 do begin
    Inc(sum, Integer(password[cyrcleCounter]));
    if cyrcleCounter=length(Password) then cyrcleCounter:=0;
    inc(cyrcleCounter); end; 
inc(CharCounter);
if CharCounter=length(Password) then CharCounter:=1;
if sum>255 then 
    Result:= sum mod 255 
  else 
    Result:=sum; 
end;

procedure coderpass(Password: string);
var 
Filen1, Filen2: file; bt: byte; temp: integer;  
begin 
CharCounter:=1; Sum:=0;
AssignFile(FileN1, 'Кодируемый'); Reset(FileN1, 1); 
AssignFile(FileN2, 'Зашифрованный'); System.Rewrite( FileN2, 1); 
While not Eof(FileN1) do begin 
   BlockRead(FileN1, bt, 1);
   temp:=bt-randomGen(Password); 
       if temp<0 then 
           bt:=Byte(temp+256) 
        else 
           bt:=Byte(Temp); 
   Blockwrite(FileN2, bt, 1); end; 
CloseFile(FileN1); CloseFile(FileN2); end;
 
procedure decoderpass(Password: string);
var 
Filen1, Filen2: file; bt: byte; temp:integer;
begin
CharCounter:=1; Sum:=0;
AssignFile(FileN1, 'Расшифрованный'); System.Rewrite(FileN1, 1); 
AssignFile(FileN2, 'Зашифрованный'); Reset(FileN2, 1); 
While not Eof(FileN2) do begin BlockRead(FileN2, bt, 1);
      temp:=bt+RandomGen(Password); 
         if temp>255 then 
            bt:=Byte(temp-256) 
         else 
            bt:=Byte(Temp);
      Blockwrite(FileN1, bt, 1); end; 
CloseFile(FileN1); CloseFile(FileN2); end;

Вот... шифрование псевдослучайной последовательностью....
Пароль хранить не надо, файлы ни какие не появляются...
Если пароль не верный, то просто белиберда получится в расшифрованном файле... Пароль ни где не хранится -> потерял, извини.
Можно перебором подобрать, скорее всего, но... взломать то всё что угодно можно... вопрос будет ли оно так кому то надо.
P.S. Переделывал из своего старого кода... может сразу и не заработать... не проверял