l55boots.pas

Delphi Source for work with Siemens Mobile phones

//Business application is forbidden.
//Punishment - unavoidable crack and propagation on everything inet.
unit l55boots;

{ $ DEFINE DEBUGLDR}

interface
uses Windows,SysUtils, ComPort, CryptEEP, HexUtils;

const
 MA50 = 0;
 MA51 = 1;
 MA55 = 2;
 MC55 = 3;
 MM55 = 4;
 MS55 = 5;
 MSL55 = 6;
 MA60 = 7;
 MA65 = 8;
 MMC60 = 9;
 MA70 = 10;
 MA75 = 11;
 MAX75 = 12; //MC110 = 12;
 MCF62 = 13;
 MSX1 = 14;
 MMAX = MSX1;

   tFFBase = 0;
   tFFSize = 1;
   tBCBase = 2;
   tBCSize = 3;
   tEEBase = 4;
   tEESize = 5;
   tLGBase = 6;
   tLGSize = 7;
   tT9Base = 8;
   tT9Size = 9;
   tESBase = 10;
   tESSize = 11;
   tFSBase = 12;
   tFSSize = 13;
   tFBBase = 14;
   tFBSize = 15;
   tFCBase = 16;
   tFCSize = 17;
   tFLSize = 18;

   nFullFlash = 0;
   nBootCore = 1;
   nEEPROM = 2;
   nLGPack = 3;
   nT9 = 4;
   nEE_FS = 5;
   nFFS = 6;
   nFFS_B = 7;
   nFFS_C = 8;
   nManual = 9;

{ BOOT_OK = $4B4F; // Ok
 BOOT_UC = $4355; // Unknown Command
 BOOT_AF = $4651; // Address is too Far
 BOOT_EF = $4645; // Entry not Found
}
type
 TBootType = (Boot_Normal,Boot_BCoreBag,Boot_BootKey, Boot_swup);
 tTabFlash = packed record
   FlashBase  : dword;
   FullSize   : dword;
   BCOREBase  : dword;
   BCORESize  : dword;
   EEPROMBase : dword;
   EEPROMSize : dword;
   LGPackBase : dword;
   LGPackSize : dword;
   T9Base : dword;
   T9Size : dword;
   FlashSize : dword;
 end;
 tEraseBlkRegs = packed record
   NumN  : word; // number of identical-size erase blocks +1
   SizeN : word; // region erase block(s) size are z x 256 bytes
 end;
 tCFI = packed record
   FlashSizeN  : word; // 搉