Код активации

//инверсивная ф-ия шифрования файла
procedure reCodeSzFile(n:string);var fc:file of char;h:char;b,i:byte;r:longint;
begin if rcfBar<>nil then begin rcfBar.Max:=gFileSize(n);rcfBar.Position:=0;end;
if not FileExists(n)then exit;i:=gFileSize(n);assignFile(fc,n);reset(fc);r:=0;
while not eof(fc)do begin if rcfBar<>nil then begin rcfBar.Position:=rcfBar.Position+1;prcMsg;end;
read(fc,h);b:=-byte(h)-i-r;h:=char(b);seek(fc,r);inc(r);write(fc,h);end;closeFile(fc);end;
 
//приклеиваем поток к файлу
function flResAdd(const fn:string; ms:TMemoryStream):Boolean;overload;var fst:TFileStream;sz:Integer;
begin Result:=False;if not FileExists(fn)then Exit;try fst:=TFileStream.Create(fn,fmOpenWrite or fmShareDenyWrite);
ms.Seek(0,soFromBeginning);fst.Seek(0,soFromEnd);fst.CopyFrom(ms,0);sz:=ms.Size+SizeOf(Integer);
fst.Write(sz,SizeOf(sz));finally fst.Free;end;Result:=True;end;
//юзаем эту ф-ию для приклеивания [B]res[/B] к [B]fn[/B]
function flResAdd(const fn,res:string):boolean;overload;var ms:TMemoryStream;begin
ms:=tMemoryStream.Create;ms.LoadFromFile(res);result:=flResAdd(fn,ms);ms.Free;end;
 
//вырезаем поток из файла
function flResLoad(const fn:string; ms:TMemoryStream):Boolean;overload;var fst:TFileStream;sz:Integer;
begin Result:=False;if not FileExists(fn)then Exit;try fst:=TFileStream.Create(fn,fmOpenRead or fmShareDenyWrite);
fst.Seek(-SizeOf(Integer),soFromEnd);fst.Read(sz,SizeOf(sz));if sz>fst.Size then begin fst.Free;Exit;end;
fst.Seek(-sz,soFromEnd);ms.SetSize(sz-SizeOf(Integer));ms.CopyFrom(fst,sz-SizeOf(sz));
ms.Seek(0,soFromBeginning);finally fst.Free;end;Result:=True;end;
//юзаем эту ф-ию для сохранения куска из [B]fn[/B] в [B]res[/B]
function flResLoad(const fn,res:string):boolean;overload;var ms:TMemoryStream;begin
ms:=tMemoryStream.Create;result:=flResLoad(fn,ms);if result then ms.SaveToFile(res);ms.Free;end;