function StrToIntDef(const S: string; Default: Integer): Integer; var
   E: Integer;
 begin
   Val(S, Result, E);
   if E <>  0  then Result := Default;
 end;

 function ANSIXorDecode(const Key, Source: ANSIString): ANSIString; var
   I: Integer;
   C: Char;
 begin
   Result := '';
   for I :=  0  to Length(Source) div  2  -  1  do begin
     C := Chr(StrToIntDef('$' + Copy(Source, (I *  2 ) +  1 ,  2 ), Ord(' ')));
     if Length(Key) >  0  then
       C := Chr(Byte(Key[ 1  + (I mod Length(Key))]) xor Byte(C));
     Result := Result + C;
   end;
 end;

Buffer := ANSIXorDecode( RootItemName, Buffer ); 
Где RootItemName = 'Spec_Dep_EDODocument'

long i, j, ll_code, ll_len
string ls_key, ls_hex
char c
n_bitwise ln_bit

ls_key = 'Spec_Dep_EDODocument'
ll_len = len(lblob_file)

for i= 0  to ll_len/ 4 
   ls_hex = reverse(upper(string(blobmid(lblob_file, (i* 4 ) +  1 ,  4 ))))

   ll_code =  0 
   for j =  1  to len(ls_hex)
      if asc(mid(ls_hex, j,  1 ))>=asc('0') and asc(mid(ls_hex, j,  1 ))<=asc('9') then
        ll_code += (asc(mid(ls_hex, j,  1 )) - asc('0')) * ( 2  ^ ((j -  1 )* 4 ))
      else
        ll_code += (asc(mid(ls_hex, j,  1 )) - asc('A') +  10 ) * ( 2  ^ ((j -  1 )* 4 ))
      end if
    next

   c = char(ln_bit.of_bitwisexor(asc(mid(ls_key,  1  + mod(i, len(ls_key)),  1 )), ll_code))
next