Subversion Repositories decoder

Rev

Rev 4 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 4 Rev 5
Line 25... Line 25...
25 
interface
 25 
interface
26 
 
 26 
 
27 
uses Windows, SysUtils, Classes, CRC;
 27 
uses Windows, SysUtils, Classes, CRC;
28 
 
 28 
 
29 
type
 29 
type
30 
  Binary         = String;  // LongString with Binary Contens
 30 
  Binary         = AnsiString;  // LongString with Binary Contents
31 
{$IFNDEF VER_D4H}
 31 
{$IFNDEF VER_D4H}
32 
  LongWord       = type Integer;
 32 
  LongWord       = type Integer;
33 
{$ENDIF}
 33 
{$ENDIF}
34 
  PLongWord      = ^LongWord;
 34 
  PLongWord      = ^LongWord;
35 
  PByte          = ^Byte;
 35 
  PByte          = ^Byte;
Line 369... Line 369...
369 
  Value := '';
 369 
  Value := '';
370 
end;
 370 
end;
371 
 
 371 
 
372 
procedure ProtectBinary(var Value: Binary);
 372 
procedure ProtectBinary(var Value: Binary);
373 
begin
 373 
begin
374 
  UniqueString(String(Value));
 374 
  UniqueString(AnsiString(Value));
375 
  ProtectBuffer(Pointer(Value)^, Length(Value));
 375 
  ProtectBuffer(Pointer(Value)^, Length(Value));
376 
  Value := '';
 376 
  Value := '';
377 
end;
 377 
end;
378 
 
 378 
 
379 
procedure ProtectStream(Stream: TStream; Size: Integer = 0);
 379 
procedure ProtectStream(Stream: TStream; Size: Integer = 0);