Delphi 2009 - AnsiStrings + ShortString

procedure TfrmMain.btnExtractAllClick(Sender: TObject);
var
  SelData : TFileRecord;
  Data : Pointer;
  I : Integer;
  OutputFolder : AnsiString;
  OutputFile : AnsiString;
  Msg : TMsg;
begin
  If lvFileList.Items.Count = 0 Then Exit;
  //If Not(SelectDirectory('Select Output Folder','',OutputFolder)) Then Exit;
  OutputFolder := 'C:\Users\Administrator\Desktop\EFSoW\MRS Examples\Test Output\';
  pbDecompile.Min := 1;
  pbDecompile.Max := lvFileList.Items.Count;
  pbDecompile.Position := 1;
  For I := 0 To lvFileList.Items.Count - 1 Do
    begin
    SelData := PFileRecord(lvFileList.Items[I].Data)^;
    OutputFile := '';
    OutputFile := OutputFolder + SelData.Path;
    ForceDirectories(ExtractFilePath(String(OutputFile)));
    If ExtractFile(edArchive.Text,SelData,AES,RSASSA,Data) Then
      begin
      Try
        SaveBufferToFile(String(OutputFile),Data,SelData.UncompressedSize);
      Finally
        FreeMem(Data);
        Data := nil;
      end;
    end;
    pbDecompile.Position := I + 1;
    StatusBar.Panels[1].Text := Format('Extracting(%d/%d) - File: %s',[I + 1,lvFileList.Items.Count,SelData.Path]);
    If PeekMessage(Msg,0,0,0,PM_REMOVE) Then
      begin
      TranslateMessage(Msg);
      DispatchMessage(Msg);
    end;
  end;
  ShellExecute(0,'open',PChar(OutputFolder),'','',SW_SHOWNORMAL);
end;
 
function ExtractFile(const FileName: String; const FileData: TFileRecord; AES: TLbRijndael; RSASSA: TLbRSASSA; var Buffer: Pointer): Boolean;
var
  hFile : DWORD;
  BytesRead : DWORD;
  Header : THeader;
begin
  Result := False;
  hFile := CreateFile(PWChar(FileName),GENERIC_READ,0,nil,OPEN_EXISTING,0,0);
  If hFile = INVALID_HANDLE_VALUE Then Exit;
  Try
    Header := GetHeader(hFile);
    If (Header.Magic <> Magic) Or (Header.NumberOfRecords = 0) Then Exit;
    AES.GenerateKey(Header.Key1);
    RSASSA.PublicKey.Passphrase := Header.Key2;
    SetFilePointer(hFile,FileData.AbsolutePosition,nil,FILE_BEGIN);
    Buffer := AllocMem(FileData.CompressedSize);
    If Buffer = nil Then Exit;
    Try
      If (Not(ReadFile(hFile,Buffer^,FileData.CompressedSize,BytesRead,nil))) Or (BytesRead <> FileData.CompressedSize) Then Exit;
      If Not(DecompressDecryptToBuffer(Buffer,BytesRead,AES,RSASSA,FileData.CompressionType,FileData)) Then Exit;
    Except
      If Buffer <> nil Then FreeMem(Buffer);
    end;
    Result := True;
  Finally
    CloseHandle(hFile);
  end;
end;
 
function GetHeader(hFile: DWORD): THeader;
var
  BytesRead : DWORD;
begin
  FillChar(Result,SizeOf(THeader),0);
  If hFile = INVALID_HANDLE_VALUE Then Exit;
  SetFilePointer(hFile,-(SizeOf(THeader)),nil,FILE_END);
  ReadFile(hFile,Result,SizeOf(THeader),BytesRead,nil);
  Decrypt(@Result,SizeOf(THeader),Magic);
end;
 
function DecompressDecryptToBuffer(var BufferIn: Pointer; var BufferSize: DWORD; AES: TLbRijndael; RSASSA: TLbRSASSA; CompressionType: TCompressionType; FileRecord: TFileRecord): Boolean;
var
  DataSize : DWORD;
  BufferOut: Pointer;
begin
  Result := False;
  BufferOut := nil;
  DataSize := BufferSize;
  BufferSize := 0;
  If Not(VerifyAndDecrypt(BufferIn,DataSize,AES,RSASSA)) Then Exit;
  Try
    Case CompressionType Of
      ctNone:
        begin
        BufferSize := DataSize;
        BufferOut := AllocMem(BufferSize);
        Move(BufferIn^,BufferOut^,BufferSize);
      end;
      ctLZOX,
      ctLZOY: LZO.DecompressData(BufferIn,BufferOut,DataSize,FileRecord);
      ctUCL: UCL.DecompressData(BufferIn,BufferOut,DataSize,FileRecord);
      ctLZMA: LZMA.DecompressData(BufferIn,BufferOut,DataSize,FileRecord);
    end;
    If (DataSize = 0) Or (BufferOut = nil) Then Exit;
    If MurmurHash(BufferOut,DataSize) <> FileRecord.MurmurHash Then Exit;
    FreeMem(BufferIn);
    BufferIn := BufferOut;
    System.PByte(BufferIn)[DataSize] := 0;
    BufferSize := DataSize;
    Result := True;
  Except
    raise;
  end;
end;
 
function VerifyAndDecrypt(var Buffer: Pointer; var BufferSize: DWORD; AES: TLbRijndael; RSASSA: TLbRSASSA): Boolean;
var
  OutStream,
  KeyStream : TMemoryStream;
  KeySizes : Array[0..1] Of Byte;
  SigBuf : Array[0..127] Of Byte;
begin
  //Initialize Result
  Result := False;
  //Create streams for data
  OutStream := TMemoryStream.Create;
  KeyStream := TMemoryStream.Create;
  Try
    Move(System.PByte(Buffer)[BufferSize - SizeOf(KeySizes)],KeySizes[0],SizeOf(KeySizes));
    //Set the position to read the public key, then load it
    KeyStream.SetSize(KeySizes[1]);
    KeyStream.Write(System.PByte(Buffer)[BufferSize - KeySizes[1] - SizeOf(KeySizes)],KeySizes[1]);
    RSASSA.PublicKey.LoadFromStream(KeyStream);
    //Set the position to read the signature, then read it
    Move(System.PByte(Buffer)[BufferSize - KeySizes[0] - KeySizes[1] - SizeOf(KeySizes)],SigBuf[0],KeySizes[0]);
    RSASSA.Signature.CopyBuffer(SigBuf[0],KeySizes[0]);
    //Reset the size and position
    ReAllocMem(Buffer,BufferSize - KeySizes[0] - KeySizes[1] - SizeOf(KeySizes));
    //If we can't verify the stream then fail
    If Not(RSASSA.VerifyBuffer(Buffer^,BufferSize - KeySizes[0] - KeySizes[1] - SizeOf(KeySizes))) Then Exit;
    //Reset the stream and decrypt it to OutStream
    OutStream.SetSize(BufferSize - KeySizes[0] - KeySizes[1] - SizeOf(KeySizes));
    BufferSize := AES.DecryptBuffer(Buffer^,BufferSize - KeySizes[0] - KeySizes[1] - SizeOf(KeySizes),OutStream.Memory^);
    OutStream.SetSize(BufferSize);
    //Reset the stream and get the compressed filesize
    OutStream.Position := 0;
    BufferSize := OutStream.Size;
    //Decompress the stream to file
    OutStream.Read(Buffer^,BufferSize);
  Finally
    //Free the streams
    OutStream.Free;
    KeyStream.Free;
  end;
  //If we made it here it probably happened error free
  Result := True;
end;
 
function SaveBufferToFile(const FileOut: String; Buffer: Pointer; BufferSize: DWORD): Boolean;
var
  hFile,
  BytesWritten : DWORD;
begin
  Result := False;
  hFile := CreateFile(PChar(FileOut),GENERIC_WRITE,0,nil,OPEN_ALWAYS,0,0);
  If hFile = INVALID_HANDLE_VALUE Then Exit;
  Try
    If (WriteFile(hFile,Buffer^,BufferSize,BytesWritten,nil)) And (BytesWritten = BufferSize) Then
      begin
      SetEndOfFile(hFile);
      Result := True;
    end;
  Finally
    CloseHandle(hFile);
  end;
end;
                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177: