x64dbg
/
btparser
mirror of https://github.com/x64dbg/btparser
1
0
Fork 0
Code Releases Activity
btparser/cparser/tests/CAPTemplate.bt

1292 lines
38 KiB
Plaintext
Raw Normal View History

initial commit (lexer working for very very simple files)
2016-06-05 06:00:36 +08:00
//-----------------------------------
//--- 010 Editor v5.0 Binary Template
//
// File: CAPTemplate.bt
// Author: Agus Purwanto
// Revision: 1.0
// Purpose: a template for parsing java card CAP file.
// Define structures used in CAP files
//enum used for compression format
local ushort method_offsets[256];
local ushort method_codesize[256];
local uint64 tail_index = 0;
local uint64 head_index = 0;
void queue_push_method(ushort offset, ushort codesize) {
method_offsets[tail_index] = offset;
method_codesize[tail_index] = codesize;
tail_index ++;
}
uint queue_pop_method() {
if(head_index != tail_index) {
head_index ++;
return 1;
} else {
return 0;
}
}
uint queue_peek_method() {
if(head_index != tail_index) {
return 1;
} else {
return 0;
}
}
typedef enum <short> {
COMP_STORED = 0,
COMP_SHRUNK = 1,
COMP_REDUCED1 = 2,
COMP_REDUCED2 = 3,
COMP_REDUCED3 = 4,
COMP_REDUCED4 = 5,
COMP_IMPLODED = 6,
COMP_TOKEN = 7,
COMP_DEFLATE = 8,
COMP_DEFLATE64 = 9
} COMPTYPE;
typedef enum <uchar> { //javacard list of supported opcode
aaload = 0x24,
aastore = 0x37,
aconst_null = 0x01,
aload = 0x15,
aload_0 = 0x18,
aload_1 = 0x19,
aload_2 = 0x1a,
aload_3 = 0x1b,
anewarray = 0x91,
areturn = 0x77,
arraylength = 0x92,
astore = 0x28,
astore_0 = 0x2b,
astore_1 = 0x2c,
astore_2 = 0x2d,
astore_3 = 0x2e,
athrow = 0x93,
baload = 0x25,
bastore = 0x38,
bipush = 0x12,
bspush = 0x10,
checkcast = 0x94,
dup = 0x3d,
dup_x = 0x3f,
dup2 = 0x3e,
getfield_a = 0x83,
getfield_b = 0x84,
getfield_s = 0x85,
getfield_i = 0x86,
getfield_a_this = 0xad,
getfield_b_this = 0xae,
getfield_s_this = 0xaf,
getfield_i_this = 0xb0,
getfield_a_w = 0xa9,
getfield_b_w = 0xaa,
getfield_s_w = 0xab,
getfield_i_w = 0xac,
getstatic_a = 0x7b,
getstatic_b = 0x7c,
getstatic_s = 0x7d,
getstatic_i = 0x7e,
goto = 0x70,
goto_w = 0xa8,
i2b = 0x5d,
i2s = 0x5e,
iadd = 0x42,
iaload = 0x27,
iand = 0x54,
iastore = 0x3a,
icmp = 0x5f,
iconst_m1 = 0x09,
iconst_0 = 0x0a,
iconst_1 = 0x0b,
iconst_2 = 0x0c,
iconst_3 = 0x0d,
iconst_4 = 0x0e,
iconst_5 = 0x0f,
idiv = 0x48,
if_acmpeq = 0x68,
if_acmpne = 0x69,
if_acmpeq_w = 0xa0,
if_acmpne_w = 0xa1,
if_scmpeq = 0x6a,
if_scmpne = 0x6b,
if_scmplt = 0x6c,
if_scmpge = 0x6d,
if_scmpgt = 0x6e,
if_scmple = 0x6f,
if_scmpeq_w = 0xa2,
if_scmpne_w = 0xa3,
if_scmplt_w = 0xa4,
if_scmpge_w = 0xa5,
if_scmpgt_w = 0xa6,
if_scmple_w = 0xa7,
ifeq = 0x60,
ifne = 0x61,
iflt = 0x62,
ifge = 0x63,
ifgt = 0x64,
ifle = 0x65,
ifeq_w = 0x98,
ifne_w = 0x99,
iflt_w = 0x9a,
ifge_w = 0x9b,
ifgt_w = 0x9c,
ifle_w = 0x9d,
ifnonnull = 0x67,
ifnonnull_w = 0x9f,
ifnull = 0x66,
ifnull_w = 0x9e,
iinc = 0x5a,
iinc_w = 0x97,
iipush = 0x14,
iload = 0x17,
iload_0 = 0x20,
iload_1 = 0x21,
iload_2 = 0x22,
iload_3 = 0x23,
ilookupswitch = 0x76,
imul = 0x46,
ineg = 0x4c,
instanceof = 0x95,
invokeinterface = 0x8e,
invokespecial = 0x8c,
invokestatic = 0x8d,
invokevirtual = 0x8b,
ior = 0x56,
irem = 0x4a,
ireturn = 0x79,
ishl = 0x4e,
ishr = 0x50,
istore = 0x2a,
istore_0 = 0x33,
istore_1 = 0x34,
istore_2 = 0x35,
istore_3 = 0x36,
isub = 0x44,
itableswitch = 0x74,
iushr = 0x52,
ixor = 0x58,
jsr = 0x71,
new = 0x8f,
newarray = 0x90,
nop = 0,
pop = 0x3b,
pop2 = 0x3c,
putfield_a = 0x87,
putfield_b = 0x88,
putfield_s = 0x89,
putfield_i = 0x8a,
putfield_a_this = 0xb5,
putfield_b_this = 0xb6,
putfield_s_this = 0xb7,
putfield_i_this = 0xb8,
putfield_a_w = 0xb1,
putfield_b_w = 0xb2,
putfield_s_w = 0xb3,
putfield_i_w = 0xb4,
putstatic_a = 0x7f,
putstatic_b = 0x80,
putstatic_s = 0x81,
putstatic_i = 0x82,
ret = 0x72,
Return = 0x7a,
s2b = 0x5b,
s2i = 0x5c,
sadd = 0x41,
saload = 0x46,
sand = 0x53,
sastore = 0x39,
sconst_m1 = 0x02,
sconst_0 = 0x03,
sconst_1 = 0x04,
sconst_2 = 0x05,
sconst_3 = 0x06,
sconst_4 = 0x07,
sconst_5 = 0x08,
sdiv = 0x47,
sinc = 0x59,
sinc_w = 0x96,
sipush = 0x13,
sload = 0x16,
sload_0 = 0x1c,
sload_1 = 0x1d,
sload_2 = 0x1e,
sload_3 = 0x1f,
slookupswitch = 0x75,
smul = 0x45,
sneg = 0x4b,
sor = 0x55,
srem = 0x49,
sreturn = 0x78,
sshl = 0x4d,
sshr = 0x4f,
sspush = 0x11,
sstore = 0x29,
sstore_0 = 0x2f,
sstore_1 = 0x30,
sstore_2 = 0x31,
sstore_3 = 0x32,
ssub = 0x43,
stableswitch = 0x73,
sushr = 0x51,
swap_x = 0x40,
sxor = 0x57
} JVCODE;
typedef struct {
char minor_version;
char major_version;
char AID_length;
if( AID_length > 0 )
char AID[ AID_length ];
} PACKAGE_INFO;
typedef struct {
char name_length;
if( name_length > 0 )
char name[ name_length ];
} PACKAGE_NAME_INFO;
typedef struct {
ushort image_size;
ushort array_init_count;
ushort array_init_size;
} STATIC_FIELD_SIZE_INFO;
typedef struct {
uchar component_tag;
ushort size;
uchar AID_length;
if( AID_length > 0 )
char AID[ AID_length ];
} CUSTOM_COMPONENT_INFO;
typedef struct {
char tag;
ushort size;
uint magic;
uchar minor_version;
uchar major_version;
uchar flags;
PACKAGE_INFO package;
PACKAGE_NAME_INFO package_name;
} HEADER_COMPONENT;
typedef struct {
uchar tag;
ushort size;
ushort component_sizes[12];
STATIC_FIELD_SIZE_INFO static_field_size;
uchar import_count;
uchar applet_count;
uchar custom_count;
if(custom_count > 0)
CUSTOM_COMPONENT_INFO custom_components[custom_count];
} DIRECTORY_COMPONENT;
typedef struct {
uchar AID_length;
if( AID_length > 0 )
char AID[ AID_length ];
ushort install_method_offset;
} APPLET_INFO;
typedef struct {
uchar tag;
ushort size;
uchar count;
if(count > 0)
APPLET_INFO applets[count] <optimize=false>;
} APPLET_COMPONENT;
typedef struct {
uchar tag;
ushort size;
uchar count;
if(count > 0)
PACKAGE_INFO packages[count] <optimize = false>;
} IMPORT_COMPONENT;
typedef struct {
uchar nibble_count;
if(nibble_count > 0)
uchar type[(nibble_count + 1) / 2];
} TYPE_DESCRIPTOR;
typedef struct {
if(ReadByte(FTell()) & 0x80) {
ushort internal_class_ref;
} else {
uchar package_token;
uchar class_token;
}
} CLASS_REF;
typedef struct {
uchar interface_name_length;
if(interface_name_length > 0)
uchar interface_name[interface_name_length];
} INTERFACE_NAME_INFO;
typedef struct {
CLASS_REF interface;
uchar count;
if(count > 0)
uchar index[count];
} IMPLEMENTED_INTERFACE_INFO;
typedef struct {
ushort remote_method_hash;
ushort signature_offset;
uchar virtual_method_token;
} REMOTE_METHOD_INFO;
typedef struct {
uchar tag;
CLASS_REF class_ref;
uchar padding;
} CONST_CLASSREF_INFO;
typedef struct {
uchar tag;
CLASS_REF class;
uchar token;
} CONST_INSTANCEFIELDREF_INFO;
typedef struct {
uchar tag;
CLASS_REF class;
uchar token;
} CONST_VIRTUALMETHODREF_INFO;
typedef struct {
uchar tag;
CLASS_REF class;
uchar token;
} CONST_SUPERMETHODREF_INFO;
typedef struct {
if(ReadByte( FTell() ) == 0) {
uchar padding;
ushort offset;
} else {
uchar package_token;
uchar class_token;
uchar token;
}
} STATIC_FIELD_REF;
typedef struct {
CLASS_REF class;
uchar token;
} INSTANCE_FIELD_REF;
typedef struct {
if(ReadByte( FTell() ) == 0) {
uchar padding;
ushort offset;
} else {
uchar package_token;
uchar class_token;
uchar token;
}
} STATIC_METHOD_REF;
typedef struct {
uchar tag;
STATIC_FIELD_REF static_field_ref;
} CONST_STATICFIELDREF_INFO;
typedef struct {
uchar tag;
STATIC_METHOD_REF static_method_ref;
} CONST_STATICMETHODREF_INFO;
typedef struct {
uchar remote_methods_count;
if(remote_methods_count > 0)
REMOTE_METHOD_INFO remote_methods[remote_methods_count] <optimize=false>;
uchar hash_modifier_length;
if(hash_modifier_length > 0)
uchar hash_modifier[hash_modifier_length] <optimize=false>;
uchar class_name_length;
if(class_name_length > 0)
uchar class_name[class_name_length] <optimize=false>;
uchar remote_interface_count;
if(remote_interface_count > 0)
CLASS_REF remote_interfaces[remote_interface_count] <optimize=false>;
} REMOTE_INTERFACE_INFO;
typedef struct {
//uchar bitfield;
uchar flags:4;
uchar interface_count:4;
CLASS_REF super_class_ref;
uchar declared_instance_size;
uchar first_reference_token;
uchar reference_count;
uchar public_method_table_base;
uchar public_method_table_count;
uchar package_method_table_base;
uchar package_method_table_count;
if(public_method_table_count > 0)
ushort public_virtual_method_table[public_method_table_count] <optimize=false>;
if(package_method_table_count > 0)
ushort package_virtual_method_table[package_method_table_count] <optimize=false>;
if(interface_count > 0 )
IMPLEMENTED_INTERFACE_INFO interfaces[interface_count] <optimize=false>;
if(flags & 0x2)
REMOTE_INTERFACE_INFO remote_interfaces;
} CLASS_INFO;
typedef struct {
//uchar bitfield;
uchar flags:4;
uchar interface_count:4;
if(interface_count > 0)
CLASS_REF super_interfaces[interface_count] <optimize=false>;
if(flags & 0x2)
INTERFACE_NAME_INFO interface_name;
} INTERFACE_INFO;
typedef struct {
uchar tag;
ushort size;
local uint64 start_index = FTell();
ushort signature_pool_length;
local uint64 sign_index = FTell();
if(signature_pool_length > 0) {
//uchar signature_pool[signature_pool_length];
while(FTell() < (sign_index+signature_pool_length)) {
TYPE_DESCRIPTOR descriptor;
}
}
//start_index = start_index + signature_pool_length + 2;
//start_index = FTell();
while(FTell() < (start_index+size)) {
if((ReadByte( FTell() ) & 0x80)) {
//FSkip( -1 );
INTERFACE_INFO interface;
} else {
//FSkip( -1 );
CLASS_INFO class;
}
}
} CLASS_COMPONENT;
typedef struct {
uchar type;
ushort count;
uchar values[count];
} ARRAY_INIT_INFO;
typedef struct {
uchar tag;
ushort size;
ushort image_size;
ushort reference_count;
ushort array_init_count;
if(array_init_count > 0)
ARRAY_INIT_INFO array_init[array_init_count] <optimize=false>;
ushort default_value_count;
ushort non_default_value_count;
if(non_default_value_count > 0)
uchar non_default_values[non_default_value_count] <optimize=false>;
} STATICFIELD_COMPONENT;
typedef struct {
uchar tag;
ushort size;
ushort byte_index_count;
uchar offsets_to_byte_indices[byte_index_count];
ushort byte2_index_count;
uchar offsets_to_byte2_indices[byte2_index_count];
} REFERENCELOC_COMPONENT;
typedef struct {
uchar tag;
ushort size;
uchar class_count;
struct {
ushort class_offset;
uchar static_field_count;
uchar static_method_count;
ushort static_field_offsets[static_field_count];
ushort static_method_offsets[static_method_count];
} class_exports[class_count] <optimize=false>;
} EXPORT_COMPONENT;
typedef struct {
ushort start_offset;
//ushort bitfield;
ushort stop_bit:1;
ushort active_length:15;
ushort handler_offset;
ushort catch_type_index;
} EXCEPTION_HANDLER_INFO;
typedef struct {
uchar flags:4;
uchar max_stack:4;
uchar nargs:4;
uchar max_locals:4;
} METHOD_HEADER_INFO;
typedef struct {
uchar flags:4;
uchar padding:4;
uchar max_stack;
uchar nargs;
uchar max_locals;
} EXTENDED_METHOD_HEADER_INFO;
typedef struct {
JVCODE opcode;
switch(opcode) {
case aaload:
case aastore : // 0x37,
case aconst_null : // 0x01, no operand
case aload_0 : // 0x18,
case aload_1 : // 0x19,
case aload_2 : // 0x1a,
case aload_3 : // 0x1b,
case areturn : // 0x77,
case arraylength : // 0x92,
case astore_0 : // 0x2b,
case astore_1 : // 0x2c,
case astore_2 : // 0x2d,
case astore_3 : // 0x2e,
case athrow : // 0x93,
case baload : // 0x25,
case bastore : // 0x38,
case dup : // 0x3d,
case dup2 : // 0x3e,
case i2b : // 0x5d,
case i2s : // 0x5e,
case iadd : // 0x42,
case iaload : // 0x27,
case iand : // 0x54,
case iastore : // 0x3a,
case icmp : // 0x5f,
case iconst_m1 : // 0x09,
case iconst_0 : // 0x0a,
case iconst_1 : // 0x0b,
case iconst_2 : // 0x0c,
case iconst_3 : // 0x0d,
case iconst_4 : // 0x0e,
case iconst_5 : // 0x0f,
case idiv : // 0x48,
case iload_0 : // 0x20,
case iload_1 : // 0x21,
case iload_2 : // 0x22,
case iload_3 : // 0x23,
case imul : // 0x46,
case ineg : // 0x4c,
case ior : // 0x56,
case irem : // 0x4a,
case ireturn : // 0x79,
case ishl : // 0x4e,
case ishr : // 0x50,
case istore_0 : // 0x33,
case istore_1 : // 0x34,
case istore_2 : // 0x35,
case istore_3 : // 0x36,
case isub : // 0x44,
case iushr : // 0x52,
case ixor : // 0x58,
case nop : // 0,
case pop : // 0x3b,
case pop2 : // 0x3c,
case Return : // 0x7a,
case s2b : // 0x5b,
case s2i : // 0x5c,
case sadd : // 0x41,
case saload : // 0x46,
case sand : // 0x53,
case sastore : // 0x39,
case sconst_m1 : // 0x02,
case sconst_0 : // 0x03,
case sconst_1 : // 0x04,
case sconst_2 : // 0x05,
case sconst_3 : // 0x06,
case sconst_4 : // 0x07,
case sconst_5 : // 0x08,
case sdiv : // 0x47,
case sload_0 : // 0x1c,
case sload_1 : // 0x1d,
case sload_2 : // 0x1e,
case sload_3 : // 0x1f,
case smul : // 0x45,
case sneg : // 0x4b,
case sor : // 0x55,
case srem : // 0x49,
case sreturn : // 0x78,
case sshl : // 0x4d,
case sshr : // 0x4f,
case sstore_0 : // 0x2f,
case sstore_1 : // 0x30,
case sstore_2 : // 0x31,
case sstore_3 : // 0x32,
case ssub : // 0x43,
case sushr : // 0x51,
case sxor : // 0x57
break;
case aload : // 0x15, //singl byte operand
case astore : // 0x28,
case bipush : // 0x12,
case bspush : // 0x10,
case dup_x : // 0x3f,
case getfield_a : // 0x83,
case getfield_b : // 0x84,
case getfield_s : // 0x85,
case getfield_i : // 0x86,
case getfield_a_this : // 0xad,
case getfield_b_this : // 0xae,
case getfield_s_this : // 0xaf,
case getfield_i_this : // 0xb0,
case goto : // 0x70,
case if_acmpeq : // 0x68,
case if_acmpne : // 0x69,
case if_scmpeq : // 0x6a,
case if_scmpne : // 0x6b,
case if_scmplt : // 0x6c,
case if_scmpge : // 0x6d,
case if_scmpgt : // 0x6e,
case if_scmple : // 0x6f,
case ifeq : // 0x60,
case ifne : // 0x61,
case iflt : // 0x62,
case ifge : // 0x63,
case ifgt : // 0x64,
case ifle : // 0x65,
case ifnonnull : // 0x67,
case ifnull : // 0x66,
case iload : // 0x17,
case istore : // 0x2a,
case newarray : // 0x90,
case putfield_a : // 0x87,
case putfield_b : // 0x88,
case putfield_s : // 0x89,
case putfield_i : // 0x8a,
case putfield_a_this : // 0xb5,
case putfield_b_this : // 0xb6,
case putfield_s_this : // 0xb7,
case putfield_i_this : // 0xb8,
case ret : // 0x72,
case sload : // 0x16,
case sstore : // 0x29,
case swap_x : // 0x40,
uchar operand1;
break;
case anewarray : // 0x91, //single short operand
case getfield_a_w : // 0xa9,
case getfield_b_w : // 0xaa,
case getfield_s_w : // 0xab,
case getfield_i_w : // 0xac,
case getstatic_a : // 0x7b,
case getstatic_b : // 0x7c,
case getstatic_s : // 0x7d,
case getstatic_i : // 0x7e,
case goto_w : // 0xa8,
case if_acmpeq_w : // 0xa0,
case if_acmpne_w : // 0xa1,
case if_scmpeq_w : // 0xa2,
case if_scmpne_w : // 0xa3,
case if_scmplt_w : // 0xa4,
case if_scmpge_w : // 0xa5,
case if_scmpgt_w : // 0xa6,
case if_scmple_w : // 0xa7,
case ifeq_w : // 0x98,
case ifne_w : // 0x99,
case iflt_w : // 0x9a,
case ifge_w : // 0x9b,
case ifgt_w : // 0x9c,
case ifle_w : // 0x9d,
case ifnonnull_w : // 0x9f,
case ifnull_w : // 0x9e,
case invokespecial : // 0x8c,
case invokestatic : // 0x8d,
case invokevirtual : // 0x8b,
case jsr : // 0x71,
case new : // 0x8f,
case putfield_a_w : // 0xb1,
case putfield_b_w : // 0xb2,
case putfield_s_w : // 0xb3,
case putfield_i_w : // 0xb4,
case putstatic_a : // 0x7f,
case putstatic_b : // 0x80,
case putstatic_s : // 0x81,
case putstatic_i : // 0x82,
case sipush : // 0x13,
case sspush : // 0x11,
ushort operand1;
break;
case checkcast : // 0x94, //type 1 + 2byte index
case iinc_w : // 0x97,
case instanceof : // 0x95,
case sinc_w : // 0x96,
uchar operand1;
ushort operand2;
break;
case iinc : // 0x5a, //index 1 + const 1
case sinc : // 0x59,
uchar operand1;
uchar operand2;
break;
case iipush : // 0x14, //4byte word
uint operand1;
break;
case invokeinterface : // 0x8e, //args1,2index,1method
uchar args;
ushort index;
uchar method;
break;
case ilookupswitch : // 0x76, //table
ushort default_offset;
ushort pairs;
local ushort index = 0;
if(pairs > 0) {
while(index < pairs) {
struct {
uint match;
ushort offset;
} imo_pairs;
index ++;
}
}
break;
case itableswitch : // 0x74, //2default, 4 low, 4 high, 1 offset
ushort default_offset;
uint low;
uint high;
if((high - low) > 0)
ushort offsets[high - low];
break;
case slookupswitch : // 0x75, 2 deafult, 2 pair, 1 byte
ushort default_offset;
ushort pairs;
local ushort index = 0;
if(pairs > 0) {
while(index < pairs) {
struct {
ushort match;
ushort offset;
} imo_pairs;
index ++;
}
}
break;
case stableswitch : // 0x73, 2 deafult, 2 low, 2 high, 1 offset
ushort default_offset;
ushort low;
ushort high;
if((high - low) > 0)
ushort offsets[high - low];
break;
default: break;
}
} JAVA_OPCODE <read=ReadJavaOpcode, optimize=false>;
local uint64 start_bytecode = 0;
string ReadJavaOpcode(JAVA_OPCODE &code) {
return EnumToString(code.opcode);
}
typedef struct {
uchar tag;
ushort size;
local uint64 start_index = FTell();
local uint64 handler_size = FTell() - start_index;
//uchar methods[size - handler_size];
local uint64 start_method = FTell();
start_bytecode = start_method;
uchar handler_count;
if(handler_count > 0)
EXCEPTION_HANDLER_INFO exception_handlers[handler_count] <optimize=false>;
//METHOD_INFO
//IntToBinaryStr(queue_peek_method());
//Printf("Tail : %Lu\n", tail_index);
while(head_index != tail_index) {
FSeek(start_method + method_offsets[head_index]);
struct {
if((ReadByte( FTell() ) & 0x80)) {
EXTENDED_METHOD_HEADER_INFO method_header;
} else {
METHOD_HEADER_INFO method_header;
}
start_index = FTell();
local uint16 codesize = method_codesize[head_index];
//uchar bytecode[codesize];
if(codesize != 0) {
struct {
while(FTell() < (start_index + codesize)) {
JAVA_OPCODE code;
}
} bytecodes;
}
} methods;
head_index ++;
//queue_pop_method();
}
FSeek(start_index + size);
} METHOD_COMPONENT;
typedef struct {
uchar tag;
uchar info[3];
} CP_INFO;
typedef struct {
uchar tag;
ushort size;
ushort count;
CP_INFO constant_pool[count];
} CONSTANT_POOL_COMPONENT;
typedef struct {
uchar token; //must be 0xFF
uchar access_flags;
if(access_flags & 0x08) { //static field
STATIC_FIELD_REF field_ref;
} else {
INSTANCE_FIELD_REF field_ref; //instance field;
}
union {
ushort primitive_type;
ushort reference_type;
} type;
} FIELD_DESCRIPTOR_INFO;
typedef struct {
uchar token;
uchar access_flags;
ushort method_offset;
ushort type_offset;
ushort bytecode_count;
ushort exception_handler_count;
ushort exception_handler_index;
//printf("%d\n", method_offset);
if(bytecode_count > 0) {
method_offsets[tail_index] = method_offset;
method_codesize[tail_index] = bytecode_count;
tail_index ++;
}
} METHOD_DESCRIPTOR_INFO;
typedef struct {
uchar token;
uchar access_flags;
CLASS_REF this_class_ref;
uchar interface_count;
ushort field_count;
ushort method_count;
if(interface_count > 0)
CLASS_REF interfaces[interface_count] <optimize=false>;
if(field_count > 0)
FIELD_DESCRIPTOR_INFO fields[field_count] <optimize=false>;
if(method_count > 0) {
METHOD_DESCRIPTOR_INFO methods[method_count] <optimize=false>;
}
} CLASS_DESCRIPTOR_INFO;
typedef struct {
uchar tag;
ushort size;
local uint64 start_index = FTell();
uchar class_count;
if(class_count > 0)
CLASS_DESCRIPTOR_INFO classes[class_count] <optimize=false>;
local uint64 desc_start_index = FTell();
struct {
ushort constant_pool_count;
if(constant_pool_count > 0)
ushort constant_pool_types[constant_pool_count];
while(FTell() < (start_index+size)) {
TYPE_DESCRIPTOR type_desc;
//uchar bytes[size - (desc_start_index - start_index)];
}
} types;
//
} DESCRIPTOR_COMPONENT;
typedef struct {
ushort length;
if(length > 0)
uchar bytes[length];
} UTF8_INFO;
typedef struct {
ushort name_index;
ushort descriptor_index;
ushort access_flags;
uint contents;
} FIELD_DEBUG_INFO;
typedef struct {
uchar index;
ushort name_index;
ushort descriptor_index;
ushort start_pc;
ushort length;
} VARIABLE_INFO;
typedef struct {
ushort start_pc;
ushort end_pc;
ushort source_line;
} LINE_INFO;
typedef struct {
ushort name_index;
ushort descriptor_index;
ushort access_flags;
ushort location;
uchar header_size;
ushort body_size;
ushort variable_count;
ushort line_count;
if(variable_count > 0)
VARIABLE_INFO variable_table[variable_count] <optimize=false>;
if(line_count > 0)
LINE_INFO line_table[line_count] <optimize=false>;
} METHOD_DEBUG_INFO;
typedef struct {
ushort name_index;
ushort access_flags;
ushort location;
ushort superclass_name_index;
ushort source_file_index;
uchar interface_count;
ushort field_count;
ushort method_count;
if(interface_count > 0)
ushort interface_names_indexes[interface_count] <optimize=false>;
if(field_count > 0)
FIELD_DEBUG_INFO fields[field_count] <optimize=false>;
if(method_count > 0)
METHOD_DEBUG_INFO methods[method_count] <optimize=false>;
} CLASS_DEBUG_INFO;
typedef struct {
uchar tag;
ushort size;
ushort string_count;
UTF8_INFO strings_table[string_count] <optimize=false>;
ushort package_name_index;
ushort class_count;
CLASS_DEBUG_INFO classes[class_count] <optimize=false>;
} DEBUG_COMPONENT;
// Defines a file record
local uint64 method_comp_offset = 0;
local uchar descriptor_comp_decoded = false;
local uchar method_comp_decoded = false;
local uint64 current_file_rec_offset = 0;
local uint64 next_file_rec_offset = 0;
typedef struct {
char signature[4]; //0x04034b50
ushort version;
ushort flags;
COMPTYPE mode;
if(mode != COMP_STORED) return "Not a valid CAP file";
DOSTIME filetime;
DOSDATE filedate;
uint crc <format=hex>;
uint comp_size;
uint uncomp_size;
ushort filename_length;
ushort extrafield_length;
if( filename_length > 0 )
char filename[ filename_length ];
if( extrafield_length > 0 )
uchar extrafield[ extrafield_length ];
} CAPFILEHEADER;
typedef struct {
// Header for the file
CAPFILEHEADER header;
// Compressed data
SetBackColor( cNone );
//if( frCompressedSize > 0 )
//uchar frData[ frCompressedSize ];
BigEndian();
if(Stricmp( FileNameGetBase( header.filename ), "header.cap" ) == 0) {
HEADER_COMPONENT header_component;
} else if(Stricmp( FileNameGetBase( header.filename ), "directory.cap" ) == 0) {
DIRECTORY_COMPONENT directory_component;
} else if(Stricmp( FileNameGetBase( header.filename ), "applet.cap" ) == 0) {
APPLET_COMPONENT applet_component;
} else if(Stricmp( FileNameGetBase( header.filename ), "class.cap" ) == 0) {
CLASS_COMPONENT class_component;
} else if(Stricmp( FileNameGetBase( header.filename ), "import.cap" ) == 0) {
IMPORT_COMPONENT import_component;
} else if(Stricmp( FileNameGetBase( header.filename ), "constantpool.cap" ) == 0) {
CONSTANT_POOL_COMPONENT constantpool_component;
} else if(Stricmp( FileNameGetBase( header.filename ), "method.cap" ) == 0) {
METHOD_COMPONENT method_component;
method_comp_decoded = true;
} else if(Stricmp( FileNameGetBase( header.filename ), "staticfield.cap" ) == 0) {
STATICFIELD_COMPONENT staticfield_component;
} else if(Stricmp( FileNameGetBase( header.filename ), "reflocation.cap" ) == 0) {
REFERENCELOC_COMPONENT refloc_component;
} else if(Stricmp( FileNameGetBase( header.filename ), "export.cap" ) == 0) {
EXPORT_COMPONENT export_component;
} else if(Stricmp( FileNameGetBase( header.filename ), "descriptor.cap" ) == 0) {
//uchar frData[ frCompressedSize ];
DESCRIPTOR_COMPONENT descriptor_component;
descriptor_comp_decoded = true;
//local uint64 next_offset
//if(
} else if(Stricmp( FileNameGetBase( header.filename ), "debug.cap" ) == 0) {
DEBUG_COMPONENT debug_component;
}
LittleEndian();
} CAPFILERECORD <read=ReadCAPFILERECORD, write=WriteCAPFILERECORD, size=SizeCAPFILERECORD>;
int SizeCAPFILERECORD( CAPFILERECORD &r )
{
return 30 + // base size of the struct
ReadUInt(startof(r)+18) + // size of the compressed data
ReadUShort(startof(r)+26) + // size of the file name
ReadUShort(startof(r)+28); // size of the extra field
};
// Defines an entry in the directory table
typedef struct {
char signature[4]; //0x02014b50
ushort version_src;
ushort version_trgt;
ushort flags;
COMPTYPE mode;
DOSTIME filetime;
DOSDATE filedate;
uint crc <format=hex>;
uint comp_size;
uint uncomp_size;
ushort filename_length;
ushort extrafield_length;
ushort comment_length;
ushort disknum_start;
ushort internal_attr;
uint external_attr;
uint offset_hdr;
if( filename_length > 0 )
char filename[ filename_length ];
if( extrafield_length > 0 )
uchar extrafield[ extrafield_length ];
if( comment_length > 0 )
uchar comment[ comment_length ];
} CAPDIRENTRY <read=ReadCAPDIRENTRY>;
// Defines the digital signature
typedef struct {
char signature[4]; //0x05054b50
ushort data_length;
if( data_length > 0 )
uchar data[ data_length ];
} CAPDIGITALSIG;
// Defintes the Data descriptor
typedef struct {
char signature[4]; //0x08074b50
uint crc <format=hex>;
uint comp_size;
uint uncomp_size;
} CAPDATADESCR;
// Defines the end of central directory locator
typedef struct {
char signature[4]; //0x06054b50
ushort disknum;
ushort disknum_start;
ushort disk_entries;
ushort directory_entries;
uint directory_size;
uint directory_offset;
ushort comment_length;
if( comment_length > 0 )
char comment[ comment_length ];
} CAPENDLOCATOR;
//--------------------------------------------
string ReadCAPFILERECORD( CAPFILERECORD &file )
{
if( exists( file.header.filename ) )
{
if(Stricmp( FileNameGetBase( file.header.filename ), "header.cap" ) == 0) {
return "Header";
} else if(Stricmp( FileNameGetBase( file.header.filename ), "directory.cap" ) == 0) {
return "Directory";
} else if(Stricmp( FileNameGetBase( file.header.filename ), "applet.cap" ) == 0) {
return "Applet";
} else if(Stricmp( FileNameGetBase( file.header.filename ), "class.cap" ) == 0) {
return "Class";
} else if(Stricmp( FileNameGetBase( file.header.filename ), "import.cap" ) == 0) {
return "Import";
} else if(Stricmp( FileNameGetBase( file.header.filename ), "constantpool.cap" ) == 0) {
return "ConstantPool";
} else if(Stricmp( FileNameGetBase( file.header.filename ), "method.cap" ) == 0) {
return "Method";
} else if(Stricmp( FileNameGetBase( file.header.filename ), "staticfield.cap" ) == 0) {
return "StaticField";
} else if(Stricmp( FileNameGetBase( file.header.filename ), "reflocation.cap" ) == 0) {
return "ReferenceLocation";
} else if(Stricmp( FileNameGetBase( file.header.filename ), "export.cap" ) == 0) {
return "Export";
} else if(Stricmp( FileNameGetBase( file.header.filename ), "descriptor.cap" ) == 0) {
return "Descriptor";
} else if(Stricmp( FileNameGetBase( file.header.filename ), "debug.cap" ) == 0) {
return "Debug";
}
}
return "";
}
string ReadCAPDIRENTRY( CAPDIRENTRY &entry )
{
if( exists( entry.filename ) )
{
if(Stricmp( FileNameGetBase( entry.filename ), "header.cap" ) == 0) {
return "Header Entry";
} else if(Stricmp( FileNameGetBase( entry.filename ), "directory.cap" ) == 0) {
return "Directory Entry";
} else if(Stricmp( FileNameGetBase( entry.filename ), "applet.cap" ) == 0) {
return "Applet Entry";
} else if(Stricmp( FileNameGetBase( entry.filename ), "class.cap" ) == 0) {
return "Class Entry";
} else if(Stricmp( FileNameGetBase( entry.filename ), "import.cap" ) == 0) {
return "Import Entry";
} else if(Stricmp( FileNameGetBase( entry.filename ), "constantpool.cap" ) == 0) {
return "ConstantPool Entry";
} else if(Stricmp( FileNameGetBase( entry.filename ), "method.cap" ) == 0) {
return "Method Entry";
} else if(Stricmp( FileNameGetBase( entry.filename ), "staticfield.cap" ) == 0) {
return "StaticField Entry";
} else if(Stricmp( FileNameGetBase( entry.filename ), "reflocation.cap" ) == 0) {
return "ReferenceLocation Entry";
} else if(Stricmp( FileNameGetBase( entry.filename ), "export.cap" ) == 0) {
return "Export Entry";
} else if(Stricmp( FileNameGetBase( entry.filename ), "descriptor.cap" ) == 0) {
return "Descriptor Entry";
} else if(Stricmp( FileNameGetBase( entry.filename ), "debug.cap" ) == 0) {
return "Debug Entry";
}
}
return "Unknown Entry";
}
void WriteCAPFILERECORD( CAPFILERECORD &file, string s )
{
local int len = Strlen( s );
if( exists( file.frFileName ) )
{
Strncpy( file.frFileName, s, file.frFileNameLength );
if( len < file.frFileNameLength )
file.frFileName[len] = 0; //null terminate
}
}
//--------------------------------------------
local uint tag;
local ushort filename_len = 0;
local char filename[];
LittleEndian();
while( !FEof() )
{
// Read a tag
tag = ReadUInt( FTell() );
if( tag == 0x04034b50 )
{
SetBackColor( cLtGray );
current_file_rec_offset = FTell();
filename_len = ReadUShort(FTell() + 26); // size of the file name
filename = ReadString( FTell() + 0x1E, filename_len );
//return filename;
if(Stricmp( FileNameGetBase( filename ), "header.cap" ) == 0) {
CAPFILERECORD record;
} else if(Stricmp( FileNameGetBase( filename ), "directory.cap" ) == 0) {
CAPFILERECORD record;
} else if(Stricmp( FileNameGetBase( filename ), "applet.cap" ) == 0) {
CAPFILERECORD record;
} else if(Stricmp( FileNameGetBase( filename ), "class.cap" ) == 0) {
CAPFILERECORD record;
} else if(Stricmp( FileNameGetBase( filename ), "import.cap" ) == 0) {
CAPFILERECORD record;
} else if(Stricmp( FileNameGetBase( filename ), "constantpool.cap" ) == 0) {
CAPFILERECORD record;
} else if(Stricmp( FileNameGetBase( filename ), "method.cap" ) == 0) {
//uchar frData[ frCompressedSize ];
method_comp_offset = current_file_rec_offset;
if(descriptor_comp_decoded == true) {
CAPFILERECORD record;
} else {
method_comp_decoded = false;
local uint64 pk_header_size = 30 + ReadUInt(FTell()+18) + ReadUShort(FTell()+26) + ReadUShort(FTell()+28); // size of the extra field
//local uint64 next_offset = ReadUShort(FTell() + pk_header_size);
//return next_offset;
//return FTell() + pk_header_size;
FSeek(FTell() + pk_header_size);
}
} else if(Stricmp( FileNameGetBase( filename ), "staticfield.cap" ) == 0) {
CAPFILERECORD record;
} else if(Stricmp( FileNameGetBase( filename ), "reflocation.cap" ) == 0) {
CAPFILERECORD record;
} else if(Stricmp( FileNameGetBase( filename ), "export.cap" ) == 0) {
CAPFILERECORD record;
} else if(Stricmp( FileNameGetBase( filename ), "descriptor.cap" ) == 0) {
head_index = 0;
tail_index = 0;
CAPFILERECORD record;
next_file_rec_offset = FTell();
if(method_comp_decoded == false) {
FSeek(method_comp_offset);
CAPFILERECORD record;
FSeek(next_file_rec_offset);
}
} else if(Stricmp( FileNameGetBase( filename ), "debug.cap" ) == 0) {
CAPFILERECORD record;
} else {
CAPFILERECORD record;
}
}
else if( tag == 0x08074b50 )
{
SetBackColor( cLtGreen );
CAPDATADESCR dataDescr;
}
else if( tag == 0x02014b50 )
{
SetBackColor( cLtPurple );
CAPDIRENTRY dirEntry;
}
else if( tag == 0x05054b50 )
{
SetBackColor( cLtBlue );
CAPDIGITALSIG digitalSig;
}
else if( tag == 0x06054b50 )
{
SetBackColor( cLtYellow );
CAPENDLOCATOR endLocator;
}
else
{
Warning( "Unknown CAP tag encountered. Template stopped." );
return -1;
}
}