// File: /workspace/github_c_makefile_star2_O3/jogolden[P]ps4flashtool/southbridge.c
// Function: verify_emc_ipl
int verify_emc_ipl(unsigned char *flashdata) {
    struct bldr_hdr *blhdr = flash_locate_emc_ipl(flashdata, 0);
    unsigned char *hdraeskey = keymgr_getkey("emciplaes", KEY_TYPE_AES_128);
    unsigned char *hdrhmackey = keymgr_getkey("emciplhmac", KEY_TYPE_HMAC_SHA1);

    if(verbose) {
        printf("* EMC IPL header aes key: ");
        hexdump(hdraeskey, 0x10, 0);

        printf("* EMC IPL header hmac-sha1 key: ");
        hexdump(hdrhmackey, 0x10, 0);
    }

    struct bldr_hdr dechdr;
    unsigned char *decbody = (unsigned char *)malloc(blhdr->body_len);
    char bodyhmac[0x14];
    char hdrhmac[0x14];

    // copy the header on to the stack, we dont want to modify anything
    memcpy(&dechdr, blhdr, blhdr->hdr_len);
    
    aes128_cbc_iv_zero_decrypt(hdraeskey, &blhdr->crypteddata, &dechdr.crypteddata, 0x50);

    hmac_sha1(dechdr.crypteddata.iplbodyhmackey, 0x10, &blhdr->bodystart, blhdr->body_len, bodyhmac);
    hmac_sha1(hdrhmackey, 0x10, (unsigned char *)&dechdr, 0x6C, hdrhmac);

    if(verbose) {
        printf("* flash EMC IPL body hmac-sha1: ");
        hexdump(dechdr.crypteddata.iplbodyhmac, 0x14, 0);

        printf("* calculated EMC IPL body hmac-sha1: ");
        hexdump(bodyhmac, 0x14, 0);

        printf("* flash EMC IPL header hmac-sha1: ");
        hexdump(dechdr.crypteddata.headerhmac, 0x14, 0);

        printf("* calculated EMC IPL header hmac-sha1: ");
        hexdump(hdrhmac, 0x14, 0);
    }

    // some checks that the rom will do
    unsigned char *h = (unsigned char *)&dechdr;
    int flag;

    // TODO: clean this all up and make it nice :P
    flag = *(unsigned short *)&h[6] >> 14 == 1;
    if(!flag) {
        flag = *(unsigned short *)&h[6] >> 14 == 2;
    }

    if(!flag) {
        printf("error: header flag part 1 invalid!\n");
        return 1;
    }

    flag = (*(unsigned short *)&h[6] >> 12) & 3;
    if(flag == 0) {
        flag = *(unsigned short *)&h[8] == 0x80;
    }

    if(!flag || h[12] & 0x0F) {
        printf("error: header flag part 2 invalid!\n");
        return 1;
    }

    if(dechdr.load_addr_1 < 0x100C00) {
        printf("error: invalid load address!\n");
        return 1;
    }

    // TODO: add size checks also and other stuff

    free(decbody);

    return memcmp(bodyhmac, dechdr.crypteddata.iplbodyhmac, sizeof(bodyhmac)) + 
        memcmp(hdrhmac, &dechdr.crypteddata.headerhmac, sizeof(bodyhmac));
}

// Assembly:
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
subq $0xc0, %rsp
xorl %esi, %esi
callq 0x6420
movq %rax, %r14
leaq 0x2c54(%rip), %rdi      # 0x91ef
movl $0xa1, %esi
callq 0x4dbd
movq %rax, %r15
leaq 0x2c4a(%rip), %rdi      # 0x91f9
movl $0xb1, %esi
callq 0x4dbd
movq %rax, %rbx
leaq 0x5d61(%rip), %r13      # 0xc324
cmpl $0x0, (%r13)
je 0x6604
leaq 0x2c33(%rip), %rdi      # 0x9204
xorl %eax, %eax
callq 0x20b0
movq %r15, %rdi
movl $0x10, %esi
xorl %edx, %edx
callq 0x38a5
leaq 0x2c31(%rip), %rdi      # 0x921f
xorl %eax, %eax
callq 0x20b0
movq %rbx, %rdi
movl $0x10, %esi
xorl %edx, %edx
callq 0x38a5
movl 0x8(%r14), %edx
leaq 0x3f(%rsp), %r12
movq %r12, %rdi
movq %r14, %rsi
callq 0x2140
leaq 0x30(%r14), %rsi
leaq 0x6f(%rsp), %rdx
movq %r15, %rdi
movl $0x50, %ecx
callq 0x2cf4
leaq 0x7f(%rsp), %rdi
movq %r14, %rdx
subq $-0x80, %rdx
movl 0xc(%r14), %ecx
leaq 0x20(%rsp), %r8
movl $0x10, %esi
callq 0x4a2f
movq %rsp, %r8
movl $0x10, %esi
movl $0x6c, %ecx
movq %rbx, %rdi
movq %r12, %rdx
callq 0x4a2f
cmpl $0x0, (%r13)
je 0x66f0
leaq 0x2bc9(%rip), %rdi      # 0x9240
xorl %eax, %eax
callq 0x20b0
leaq 0x8f(%rsp), %rdi
movl $0x14, %esi
xorl %edx, %edx
callq 0x38a5
leaq 0x2bc8(%rip), %rdi      # 0x9261
xorl %eax, %eax
callq 0x20b0
leaq 0x20(%rsp), %rdi
movl $0x14, %esi
xorl %edx, %edx
callq 0x38a5
leaq 0x2bcf(%rip), %rdi      # 0x9287
xorl %eax, %eax
callq 0x20b0
leaq 0xab(%rsp), %rdi
movl $0x14, %esi
xorl %edx, %edx
callq 0x38a5
leaq 0x2bd0(%rip), %rdi      # 0x92aa
xorl %eax, %eax
callq 0x20b0
movq %rsp, %rdi
movl $0x14, %esi
xorl %edx, %edx
callq 0x38a5
movzwl 0x45(%rsp), %eax
movl %eax, %ecx
shrl $0xe, %ecx
decl %ecx
cmpw $0x2, %cx
jae 0x672a
shrl $0xc, %eax
andl $0x3, %eax
jne 0x6716
xorl %eax, %eax
cmpw $0x80, 0x47(%rsp)
sete %al
testl %eax, %eax
je 0x6721
testb $0xf, 0x4b(%rsp)
je 0x674c
leaq 0x2ef5(%rip), %rdi      # 0x961d
jmp 0x6731
leaq 0x2eac(%rip), %rdi      # 0x95dd
callq 0x2060
movl $0x1, %eax
addq $0xc0, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
retq
cmpl $0x100bff, 0x53(%rsp)   # imm = 0x100BFF
ja 0x675f
leaq 0x2ea3(%rip), %rdi      # 0x9600
jmp 0x6731
leaq 0x8f(%rsp), %rsi
leaq 0x20(%rsp), %rdi
movl $0x14, %edx
callq 0x20f0
movl %eax, %ebx
leaq 0xab(%rsp), %rsi
movq %rsp, %rdi
movl $0x14, %edx
callq 0x20f0
addl %ebx, %eax
jmp 0x673b