Function at 0x28060691
Capabilities:
Parse credit card information

Disassembly:
push ebp
mov ebp, esp
sub esp, 0x38
push ebx
mov ebx, dword [ebp + 0x10]
push esi
mov esi, dword [ebp + 0xc]
and dword [ebp - 4], 0
push edi
mov eax, dword [esi + 0x18]
and dword [ebx], 0
mov dword [ebp - 0xc], eax
mov eax, dword [esi + 0x18]
mov edi, dword [ebp + 8]
movzx eax, byte [eax]
cmp eax, 0x5b
jg 0x28060755
cmp eax, 0x5b
je 0x28060842
cmp eax, 0x29
jg 0x280607d5
je 0x280608b9
sub eax, 0x23
je 0x2806072b
dec eax
je 0x280607a0
sub eax, 4
jne 0x280607f1
push esi
push edi
call fcn.28063da3
mov eax, dword [ebp + 0x14]
inc eax
push eax
lea eax, [ebp - 0x10]
push eax
push 1
push esi
push edi
call fcn.2805e3b0
add esp, 0x1c
mov dword [ebp - 4], eax
test eax, eax
jne 0x28060793
test byte [ebp - 0x10], 8
je 0x280608c2
mov eax, dword [esi + 0x18]
cmp eax, dword [esi + 0x14]
je 0x280608bf
jmp 0x28060746
test byte [esi + 1], 0x80
je 0x280607f1
push esi
push edi
call fcn.28063d78
pop ecx
test al, al
pop ecx
je 0x280607f1
mov eax, dword [esi + 0x18]
movzx eax, byte [eax]
cmp eax, 0x5b
jle 0x280606c2
sub eax, 0x5c
je 0x28060984
dec eax
dec eax
je 0x28060950
sub eax, 0x1d
je 0x280608fa
dec eax
je 0x280608b9
sub eax, 0x47
je 0x2806106f
sub eax, 0xb
je 0x2806106f
sub eax, 0x11
je 0x2806106f
jmp 0x280607f1
mov eax, dword [ebp - 0x10]
and eax, 0x17
or dword [ebx], eax
jmp 0x2806197d
push esi
push edi
call fcn.28063da3
mov eax, dword [esi + 0x18]
pop ecx
pop ecx
cmp byte [eax], 0
je 0x280607b4
inc dword [esi + 0x4c]
mov eax, dword [esi]
test ah, 0x10
je 0x280607c2
push 7
jmp 0x2806096e
test ah, 0x20
je 0x280607ce
push 8
jmp 0x2806096e
push 6
jmp 0x2806096e
cmp eax, 0x2a
jl 0x280607f1
cmp eax, 0x2b
jle 0x2806090b
cmp eax, 0x2e
je 0x28060815
cmp eax, 0x3f
je 0x2806090b
inc dword [esi + 0x18]
mov eax, dword [esi]
and dword [ebp + 0x14], 0
test ah, 0x40
je 0x2806111e
and eax, 0x800
or eax, 0x11000
shr eax, 0xb
jmp 0x28061121
push esi
push edi
call fcn.28063da3
test byte [esi + 1], 0x20
pop ecx
pop ecx
je 0x28060828
push 0xf
jmp 0x2806082a
push 0xe
push esi
push edi
call fcn.28063e87
or dword [ebx], 3
add esp, 0xc
inc dword [esi + 0x2c]
mov dword [ebp - 4], eax
jmp 0x2806197d
inc dword [esi + 0x18]
mov eax, dword [esi + 0x18]
mov dword [ebp + 8], eax
mov eax, dword [ebp + 0x14]
inc eax
push eax
push esi
push edi
call fcn.28062164
mov dword [ebp - 4], eax
mov eax, dword [esi + 0x18]
add esp, 0xc
cmp byte [eax], 0x5d
je 0x280608a8
mov eax, dword [ebp + 8]
mov dword [esi + 0x18], eax
lea eax, [edi + 0x1ec]
cmp dword [esi + 0x28], eax
je 0x28060887
push dword [esi + 8]
push 0x28064d23
push edi
call sym.perl510.dll_Perl_save_destructor_x
add esp, 0xc
mov ecx, dword [esi + 4]
mov eax, dword [esi + 0x18]
sub eax, ecx
lea edx, [ecx + eax]
push edx
push ecx
push eax
push str.Unmatched__
push str._s_in_regex__marked_by_____HERE_in_m__.s_____HERE__s_
push edi
call sym.perl510.dll_Perl_croak
add esp, 0x18
push esi
push edi
call fcn.28063da3
pop ecx
pop ecx
or dword [ebx], 3
jmp 0x2806197d
test byte [ebp - 0x10], 8
je 0x280608c9
or dword [ebx], 8
xor eax, eax
jmp 0x28061980
lea eax, [edi + 0x1ec]
cmp dword [esi + 0x28], eax
je 0x280608e5
push dword [esi + 8]
push 0x28064d23
push edi
call sym.perl510.dll_Perl_save_destructor_x
add esp, 0xc
mov eax, dword [esi + 4]
mov esi, dword [esi + 0x18]
sub esi, eax
lea ecx, [eax + esi]
push ecx
push eax
push esi
push str.Internal_urp
jmp 0x2806093d
push dword [esi + 0x18]
call fcn.280640dc
test eax, eax
pop ecx
je 0x280607f1
inc dword [esi + 0x18]
lea eax, [edi + 0x1ec]
cmp dword [esi + 0x28], eax
je 0x2806092a
push dword [esi + 8]
push 0x28064d23
push edi
call sym.perl510.dll_Perl_save_destructor_x
add esp, 0xc
mov eax, dword [esi + 4]
mov esi, dword [esi + 0x18]
sub esi, eax
lea ecx, [eax + esi]
push ecx
push eax
push esi
push str.Quantifier_follows_nothing
push str._s_in_regex__marked_by_____HERE_in_m__.s_____HERE__s_
push edi
call sym.perl510.dll_Perl_croak
add esp, 0x18
jmp 0x2806197d
inc dword [esi + 0x4c]
push esi
push edi
call fcn.28063da3
mov eax, dword [esi]
pop ecx
test ah, 0x10
pop ecx
je 0x28060967
push 3
jmp 0x2806096e
test ah, 0x20
je 0x28060980
push 4
push esi
push edi
call fcn.28063e87
add esp, 0xc
mov dword [ebp - 4], eax
jmp 0x2806197d
push 2
jmp 0x2806096e
inc dword [esi + 0x18]
mov ecx, dword [esi + 0x18]
mov dl, byte [ecx]
movzx eax, dl
cmp eax, 0x58
jg 0x28060b54
je 0x28060b3d
cmp eax, 0x48
jg 0x28060abe
je 0x28060ab7
cmp eax, 0x42
jg 0x28060a72
je 0x28060a4b
test eax, eax
je 0x280609e2
cmp eax, 0x30
jle 0x280607f4
cmp eax, 0x39
jle 0x28060c56
cmp eax, 0x41
jne 0x280607f4
inc dword [esi + 0x4c]
push 4
jmp 0x28060a5d
mov eax, dword [esi + 0x14]
cmp ecx, eax
jb 0x280607f4
sub eax, dword [esi + 4]
mov dword [ebp + 0xc], 0x280ac738
mov dword [ebp + 0x14], eax
lea eax, [edi + 0x1ec]
cmp dword [esi + 0x28], eax
je 0x28060a16
push dword [esi + 8]
push 0x28064d23
push edi
call sym.perl510.dll_Perl_save_destructor_x
add esp, 0xc
cmp dword [ebp + 0x14], 0x7f
jle 0x28060a2a
mov dword [ebp + 0x14], 0x75
mov dword [ebp + 0xc], 0x280acee8
push dword [ebp + 0xc]
push dword [esi + 4]
push dword [ebp + 0x14]
push str.Trailing__
push str._s_in_regex_m__.s_s_
push edi
call sym.perl510.dll_Perl_croak
add esp, 0x18
jmp 0x280607f4
inc dword [esi + 0x4c]
or dword [esi + 0x34], 2
test byte [esi + 1], 8
setne al
add eax, 0xb
push eax
push esi
push edi
call fcn.28063e87
add esp, 0xc
mov dword [ebp - 4], eax
or dword [ebx], 2
jmp 0x28061974
sub eax, 0x43
je 0x28060a9f
dec eax
je 0x28060a98
sub eax, 3
jne 0x280607f4
push 0xd
push esi
push edi
call fcn.28063e87
add esp, 0xc
or dword [esi + 0x34], 4
mov dword [ebp - 4], eax
jmp 0x28060a6a
push 0x1c
jmp 0x28061964
push 0x10
push esi
push edi
call fcn.28063e87
add esp, 0xc
or dword [esi + 0x34], 0x10
mov dword [ebp - 4], eax
jmp 0x28061971
push 0x57
jmp 0x28061964
sub eax, 0x4b
je 0x28060b1f
sub eax, 3
je 0x28060b0d
dec eax
dec eax
je 0x28060b9f
dec eax
dec eax
je 0x28060b06
dec eax
je 0x28060af8
sub eax, 3
je 0x28060af1
dec eax
jne 0x280607f4
mov eax, dword [esi]
shr eax, 0xb
and al, 1
or al, 0x14
jmp 0x2806195f
push 0x55
jmp 0x28061964
mov eax, dword [esi]
shr eax, 0xb
and al, 1
or al, 0x18
jmp 0x2806195f
push 0x53
jmp 0x28061964
push 0
inc ecx
push esi
push edi
mov dword [esi + 0x18], ecx
call fcn.28061985
jmp 0x28060975
inc dword [esi + 0x4c]
push 0x52
push esi
push edi
call fcn.28063e87
or dword [ebx], 2
add esp, 0xc
or dword [esi + 0x34], 2
mov dword [ebp - 4], eax
jmp 0x28061974
push 0x1e
push esi
push edi
call fcn.28063e87
add esp, 0xc
or dword [ebx], 1
mov dword [ebp - 4], eax
jmp 0x28061974
cmp eax, 0x73
jg 0x28061043
je 0x28061035
sub eax, 0x5a
je 0x2806102e
sub eax, 8
je 0x28061018
dec eax
dec eax
je 0x28061011
sub eax, 3
je 0x28060c56
dec eax
je 0x28060c4f
sub eax, 3
je 0x28060cbd
sub eax, 5
jne 0x280607f4
mov edx, dword [esi + 0x14]
cmp byte [ecx + 1], 0x7b
mov dword [ebp + 0xc], edx
jne 0x28060c18
push 0x7d
push ecx
call dword [sym.imp.MSVCRT.dll_strchr]
pop ecx
mov dword [esi + 0x14], eax
test eax, eax
pop ecx
jne 0x28060c13
mov eax, dword [esi + 0x18]
mov cl, byte [eax]
add eax, 2
mov dword [esi + 0x18], eax
mov eax, dword [ebp + 0xc]
mov dword [esi + 0x14], eax
lea eax, [edi + 0x1ec]
cmp dword [esi + 0x28], eax
mov byte [ebp + 0xb], cl
je 0x28060bed
push dword [esi + 8]
push 0x28064d23
push edi
call sym.perl510.dll_Perl_save_destructor_x
add esp, 0xc
mov ecx, dword [esi + 4]
mov eax, dword [esi + 0x18]
sub eax, ecx
lea edx, [ecx + eax]
push edx
push ecx
push eax
movzx eax, byte [ebp + 0xb]
push eax
push str._in_regex__marked_by_____HERE_in_m__.s_____HERE__s_
push str.Missing_right_brace_on__c
push edi
call fcn.28064b10
add esp, 0x1c
inc dword [esi + 0x14]
jmp 0x28060c25
lea eax, [ecx + 2]
cmp eax, edx
mov dword [esi + 0x14], eax
jbe 0x28060c25
mov dword [esi + 0x14], edx
mov eax, dword [ebp + 0x14]
dec dword [esi + 0x18]
inc eax
push eax
push esi
push edi
call fcn.28062164
dec dword [esi + 0x18]
mov dword [ebp - 4], eax
mov eax, dword [ebp + 0xc]
push esi
push edi
mov dword [esi + 0x14], eax
call fcn.28063da3
add esp, 0x14
jmp 0x280608b1
push 0x56
jmp 0x28061964
cmp dl, 0x67
sete byte [ebp + 0xf]
and byte [ebp + 0x17], 0
and byte [ebp + 0x13], 0
cmp byte [ebp + 0xf], 0
je 0x28060e2b
lea eax, [ecx + 1]
mov dword [esi + 0x18], eax
cmp byte [eax], 0x7b
jne 0x28060c82
inc eax
mov byte [ebp + 0x13], 1
mov dword [esi + 0x18], eax
mov eax, dword [esi + 0x18]
cmp byte [eax], 0x2d
jne 0x28060c92
inc eax
mov byte [ebp + 0x17], 1
mov dword [esi + 0x18], eax
cmp byte [ebp + 0x13], 0
je 0x28060e2b
mov eax, dword [esi + 0x18]
mov cl, byte [eax]
cmp cl, 0x30
jl 0x28060caf
cmp cl, 0x39
jle 0x28060e2b
cmp byte [ebp + 0x17], 0
je 0x28060cb9
dec eax
mov dword [esi + 0x18], eax
add dword [esi + 0x18], 0xfffffffe
mov eax, dword [esi + 0x18]
mov dl, byte [eax + 1]
lea ecx, [eax + 1]
cmp dl, 0x3c
mov byte [ebp + 0x17], dl
je 0x28060d20
cmp dl, 0x27
je 0x28060d20
cmp dl, 0x7b
je 0x28060d20
lea eax, [edi + 0x1ec]
mov dword [esi + 0x18], ecx
cmp dword [esi + 0x28], eax
je 0x28060cf7
push dword [esi + 8]
push 0x28064d23
push edi
call sym.perl510.dll_Perl_save_destructor_x
add esp, 0xc
mov eax, dword [esi + 4]
mov esi, dword [esi + 0x18]
sub esi, eax
lea ecx, [eax + esi]
push ecx
push eax
push esi
push dword [ebp - 0xc]
push str._in_regex__marked_by_____HERE_in_m__.s_____HERE__s_
push str.Sequence__.2s..._not_terminated
push edi
call fcn.28064b10
add esp, 0x1c
jmp 0x2806197d
mov ecx, dword [ebp + 8]
mov edx, dword [esi + 0x28]
and dword [ebp + 0xc], 0
lea edi, [eax + 2]
lea eax, [ecx + 0x1ec]
mov dword [esi + 0x18], edi
sub edx, eax
neg edx
sbb edx, edx
and edx, 2
push edx
push esi
push ecx
call fcn.2805ff3f
add esp, 0xc
cmp byte [ebp + 0x17], 0x3c
mov dword [ebp + 0x10], eax
jne 0x28060d57
mov al, 0x3e
jmp 0x28060d65
cmp byte [ebp + 0x17], 0x7b
setne al
dec eax
and eax, 0x56
add eax, 0x27
mov ecx, dword [esi + 0x18]
cmp ecx, edi
je 0x28060d70
cmp byte [ecx], al
je 0x28060db6
mov eax, dword [ebp + 8]
add eax, 0x1ec
cmp dword [esi + 0x28], eax
je 0x28060d90
push dword [esi + 8]
push 0x28064d23
push dword [ebp + 8]
call sym.perl510.dll_Perl_save_destructor_x
add esp, 0xc
mov ecx, dword [esi + 4]
mov eax, dword [esi + 0x18]
sub eax, ecx
lea edx, [ecx + eax]
push edx
push ecx
push eax
push dword [ebp - 0xc]
push str._in_regex__marked_by_____HERE_in_m__.s_____HERE__s_
push str.Sequence__.3s..._not_terminated
push dword [ebp + 8]
call fcn.28064b10
add esp, 0x1c
mov eax, dword [ebp + 8]
add eax, 0x1ec
cmp dword [esi + 0x28], eax
je 0x28060dea
push 0x280bae30
push 1
push esi
call fcn.2805dc30
mov ecx, dword [esi + 0xc]
add esp, 0xc
mov dword [ebp + 0xc], eax
mov edx, dword [ecx + 0xc]
mov ecx, dword [ebp + 0x10]
test ecx, ecx
mov dword [edx + eax*4 + 8], ecx
je 0x28060dea
inc dword [ecx + 4]
mov eax, dword [esi]
mov dword [esi + 0x30], 1
test ah, 0x40
je 0x28060e07
and eax, 0x800
or eax, 0x22000
shr eax, 0xb
jmp 0x28060e0a
push 0x43
pop eax
push dword [ebp + 0xc]
push eax
push esi
push dword [ebp + 8]
call fcn.28063ed8
or dword [ebx], 1
push esi
push dword [ebp + 8]
mov dword [ebp - 4], eax
call fcn.28063da3
jmp 0x28060948
push dword [esi + 0x18]
call dword [sym.imp.MSVCRT.dll_atoi]
cmp byte [ebp + 0xf], 0
pop ecx
mov dword [ebp - 8], eax
je 0x28060e7f
test eax, eax
jne 0x28060e7f
lea eax, [edi + 0x1ec]
cmp dword [esi + 0x28], eax
je 0x28060e5e
push dword [esi + 8]
push 0x28064d23
push edi
call sym.perl510.dll_Perl_save_destructor_x
add esp, 0xc
mov ecx, dword [esi + 4]
mov eax, dword [esi + 0x18]
sub eax, ecx
lea edx, [ecx + eax]
push edx
push ecx
push eax
push str.Reference_to_invalid_group_0
push str._s_in_regex__marked_by_____HERE_in_m__.s_____HERE__s_
push edi
call sym.perl510.dll_Perl_croak
add esp, 0x18
cmp byte [ebp + 0x17], 0
je 0x28060ed0
mov eax, dword [esi + 0x3c]
sub eax, dword [ebp - 8]
cmp eax, 1
mov dword [ebp - 8], eax
jge 0x28060ed0
lea eax, [edi + 0x1ec]
cmp dword [esi + 0x28], eax
je 0x28060eaf
push dword [esi + 8]
push 0x28064d23
push edi
call sym.perl510.dll_Perl_save_destructor_x
add esp, 0xc
mov ecx, dword [esi + 4]
mov eax, dword [esi + 0x18]
sub eax, ecx
lea edx, [ecx + eax]
push edx
push ecx
push eax
push str.Reference_to_nonexistent_or_unclosed_group
push str._s_in_regex__marked_by_____HERE_in_m__.s_____HERE__s_
push edi
call sym.perl510.dll_Perl_croak
add esp, 0x18
cmp byte [ebp + 0xf], 0
jne 0x28060ee7
mov eax, dword [ebp - 8]
cmp eax, 9
jle 0x28060ee7
cmp eax, dword [esi + 0x3c]
jge 0x280607f4
mov eax, dword [esi + 0x18]
lea ecx, [eax - 1]
cmp byte [eax], 0x30
jl 0x28060f00
mov eax, dword [esi + 0x18]
cmp byte [eax], 0x39
jg 0x28060f00
inc eax
mov dword [esi + 0x18], eax
jmp 0x28060eed
mov eax, dword [esi + 0x18]
dec eax
cmp ecx, eax
jne 0x28060f45
lea eax, [edi + 0x1ec]
cmp dword [esi + 0x28], eax
je 0x28060f24
push dword [esi + 8]
push 0x28064d23
push edi
call sym.perl510.dll_Perl_save_destructor_x
add esp, 0xc
mov ecx, dword [esi + 4]
mov eax, dword [esi + 0x18]
sub eax, ecx
lea edx, [ecx + eax]
push edx
push ecx
push eax
push str.Unterminated_g..._pattern
push str._s_in_regex__marked_by_____HERE_in_m__.s_____HERE__s_
push edi
call sym.perl510.dll_Perl_croak
add esp, 0x18
cmp byte [ebp + 0x13], 0
je 0x28060f93
mov eax, dword [esi + 0x18]
cmp byte [eax], 0x7d
je 0x28060f90
lea eax, [edi + 0x1ec]
cmp dword [esi + 0x28], eax
je 0x28060f6f
push dword [esi + 8]
push 0x28064d23
push edi
call sym.perl510.dll_Perl_save_destructor_x
add esp, 0xc
mov ecx, dword [esi + 4]
mov eax, dword [esi + 0x18]
sub eax, ecx
lea edx, [ecx + eax]
push edx
push ecx
push eax
push 0x280bb114
push str._s_in_regex__marked_by_____HERE_in_m__.s_____HERE__s_
push edi
call sym.perl510.dll_Perl_croak
add esp, 0x18
inc dword [esi + 0x18]
lea eax, [edi + 0x1ec]
cmp dword [esi + 0x28], eax
je 0x28060fd6
mov eax, dword [esi + 8]
mov ecx, dword [ebp - 8]
cmp ecx, dword [eax + 0x1c]
jle 0x28060fd6
push eax
push 0x28064d23
push edi
call sym.perl510.dll_Perl_save_destructor_x
mov ecx, dword [esi + 4]
mov eax, dword [esi + 0x18]
sub eax, ecx
lea edx, [ecx + eax]
push edx
push ecx
push eax
push str.Reference_to_nonexistent_group
push str._s_in_regex__marked_by_____HERE_in_m__.s_____HERE__s_
push edi
call sym.perl510.dll_Perl_croak
add esp, 0x24
mov eax, dword [esi]
mov dword [esi + 0x30], 1
test ah, 0x40
je 0x28060ff3
and eax, 0x800
or eax, 0x18000
shr eax, 0xb
jmp 0x28060ff6
push 0x2f
pop eax
push dword [ebp - 8]
push eax
push esi
push edi
call fcn.28063ed8
or dword [ebx], 1
dec dword [esi + 0x18]
push esi
mov dword [ebp - 4], eax
push edi
jmp 0x28060e21
push 0x1a
jmp 0x28061964
inc dword [esi + 0x4c]
or dword [esi + 0x34], 2
test byte [esi + 1], 8
setne al
add eax, 9
jmp 0x28060a5c
push 8
jmp 0x28061941
mov eax, dword [esi]
shr eax, 0xb
and al, 1
or al, 0x16
jmp 0x2806195f
sub eax, 0x76
je 0x28061962
dec eax
je 0x28061956
sub eax, 3
je 0x2806193f
sub eax, 0x49
je 0x2806106f
sub eax, 0xb
je 0x2806106f
sub eax, 0x11
jne 0x280607f4
mov eax, dword [esi]
test ah, 8
jne 0x280607f1
test ah, 0x40
je 0x280607f1
mov eax, dword [esi + 0x18]
mov ecx, dword [esi + 0x14]
sub ecx, eax
cmp ecx, 1
jle 0x280610d7
cmp dword [esi + 0x60], 0
je 0x280610e9
mov cl, byte [eax]
cmp cl, 0xc3
jne 0x280610ab
cmp byte [eax + 1], 0x9f
jne 0x280607f1
push 2
jmp 0x280610f4
cmp cl, 0xce
jne 0x280607f1
mov al, byte [eax + 1]
cmp al, 0x90
jne 0x280610c5
push 2
mov ecx, 0x390
pop eax
jmp 0x280610fa
cmp al, 0xb0
jne 0x280607f1
push 2
mov ecx, 0x3b0
pop eax
jmp 0x280610fa
test ecx, ecx
jle 0x280607f1
cmp dword [esi + 0x60], 0
jne 0x280607f1
cmp byte [eax], 0xdf
jne 0x280607f1
push 1
pop eax
mov ecx, 0xdf
or dword [ebx], 1
push ecx
push 0x58
dec eax
add dword [esi + 0x18], eax
push esi
push edi
call fcn.28063ed8
push esi
push edi
mov ebx, eax
call fcn.28063da3
add esp, 0x18
mov eax, ebx
jmp 0x28061980
push 0x21
pop eax
push eax
push esi
push dword [ebp + 8]
call fcn.28063e87
mov edi, dword [esi + 0x18]
and dword [ebp + 0x10], 0
mov dword [ebp - 4], eax
add eax, 4
add esp, 0xc
mov dword [ebp + 0xc], eax
dec edi
cmp edi, dword [esi + 0x14]
jae 0x280618a6
test byte [esi + 1], 0x80
mov dword [ebp - 0x30], edi
je 0x2806115c
push edi
push esi
call fcn.2806211a
pop ecx
mov edi, eax
pop ecx
mov cl, byte [edi]
movzx eax, cl
cmp eax, 0x5e
jg 0x28061633
je 0x280618a6
cmp eax, 0x24
je 0x280618a6
cmp eax, 0x27
jle 0x280616aa
cmp eax, 0x29
jle 0x280618a6
cmp eax, 0x2e
je 0x280618a6
cmp eax, 0x5b
je 0x280618a6
cmp eax, 0x5c
jne 0x280616aa
mov dl, byte [edi + 1]
inc edi
movzx eax, dl
cmp eax, 0x65
jg 0x28061355
je 0x28061349
cmp eax, 0x53
jg 0x280612ec
cmp eax, 0x52
jge 0x28061801
cmp eax, 0x48
jg 0x280612cd
cmp eax, 0x47
jge 0x28061801
test eax, eax
je 0x2806125e
cmp eax, 0x2f
jle 0x2806155b
cmp eax, 0x39
jle 0x28061209
cmp eax, 0x40
jle 0x2806155b
cmp eax, 0x44
jle 0x28061801
jmp 0x2806155b
cmp dl, 0x30
je 0x28061232
mov al, byte [edi + 1]
cmp al, 0x30
jl 0x28061801
cmp al, 0x39
jg 0x28061801
push edi
call dword [sym.imp.MSVCRT.dll_atoi]
cmp eax, dword [esi + 0x3c]
pop ecx
jl 0x28061801
lea eax, [ebp - 0x20]
push 0
and dword [ebp - 0x20], 0
push eax
lea eax, [ebp - 0x14]
mov dword [ebp - 0x14], 3
push eax
push edi
push dword [ebp + 8]
call sym.perl510.dll_Perl_grok_oct
add esp, 0x14
add edi, dword [ebp - 0x14]
mov dword [ebp + 0x14], eax
jmp 0x280614ba
mov eax, dword [esi + 0x14]
cmp edi, eax
jb 0x2806155b
sub eax, dword [esi + 4]
mov dword [ebp - 0xc], 0x280ac738
mov dword [ebp + 0x14], eax
mov eax, dword [ebp + 8]
add eax, 0x1ec
cmp dword [esi + 0x28], eax
je 0x28061296
push dword [esi + 8]
push 0x28064d23
push dword [ebp + 8]
call sym.perl510.dll_Perl_save_destructor_x
add esp, 0xc
cmp dword [ebp + 0x14], 0x7f
jle 0x280612aa
mov dword [ebp + 0x14], 0x75
mov dword [ebp - 0xc], 0x280acee8
push dword [ebp - 0xc]
push dword [esi + 4]
push dword [ebp + 0x14]
push str.Trailing__
push str._s_in_regex_m__.s_s_
push dword [ebp + 8]
call sym.perl510.dll_Perl_croak
add esp, 0x18
jmp 0x2806155b
sub eax, 0x4b
je 0x28061801
sub eax, 3
je 0x28061801
dec eax
dec eax
je 0x28061801
jmp 0x2806155b
cmp eax, 0x56
jl 0x2806155b
cmp eax, 0x58
jle 0x28061801
cmp eax, 0x5a
je 0x28061801
cmp eax, 0x61
je 0x2806133d
cmp eax, 0x62
je 0x28061801
cmp eax, 0x63
je 0x2806131f
cmp eax, 0x64
jmp 0x280612e1
movzx eax, byte [edi + 1]
inc edi
inc edi
cmp eax, 0x61
jb 0x28061332
cmp eax, 0x7a
ja 0x28061332
add eax, 0xffffffe0
xor eax, 0x40
mov dword [ebp + 0x14], eax
jmp 0x280616f3
mov dword [ebp + 0x14], 7
jmp 0x280616f2
mov dword [ebp + 0x14], 0x1b
jmp 0x280616f2
mov ecx, 0xc3
cmp eax, ecx
jg 0x2806154f
je 0x280615c3
cmp eax, 0x72
jg 0x280613bd
je 0x280613b1
cmp eax, 0x66
je 0x280613a5
jle 0x2806155b
cmp eax, 0x68
jle 0x28061801
cmp eax, 0x6b
je 0x28061801
cmp eax, 0x6e
je 0x28061399
cmp eax, 0x70
jmp 0x280612e1
mov dword [ebp + 0x14], 0xa
jmp 0x280616f2
mov dword [ebp + 0x14], 0xc
jmp 0x280616f2
mov dword [ebp + 0x14], 0xd
jmp 0x280616f2
cmp eax, 0x73
je 0x28061801
cmp eax, 0x74
je 0x28061543
cmp eax, 0x75
jle 0x2806155b
cmp eax, 0x77
jle 0x28061801
cmp eax, 0x78
je 0x280613ee
cmp eax, 0x7a
jmp 0x280612e1
inc edi
cmp byte [edi], 0x7b
jne 0x28061495
push 0x7d
push edi
call dword [sym.imp.MSVCRT.dll_strchr]
pop ecx
mov dword [ebp - 0xc], eax
test eax, eax
pop ecx
jne 0x28061455
lea eax, [edi + 1]
mov dword [esi + 0x18], eax
mov eax, dword [ebp + 8]
add eax, 0x1ec
cmp dword [esi + 0x28], eax
je 0x28061430
push dword [esi + 8]
push 0x28064d23
push dword [ebp + 8]
call sym.perl510.dll_Perl_save_destructor_x
add esp, 0xc
mov ecx, dword [esi + 4]
mov eax, dword [esi + 0x18]
sub eax, ecx
lea edx, [ecx + eax]
push edx
push ecx
push eax
push str.Missing_right_brace_on_x
push str._s_in_regex__marked_by_____HERE_in_m__.s_____HERE__s_
push dword [ebp + 8]
call sym.perl510.dll_Perl_croak
add esp, 0x18
jmp 0x280614ba
mov eax, dword [ebp - 0xc]
push 0
sub eax, edi
mov dword [ebp + 0x14], 3
dec eax
inc edi
mov dword [ebp - 0x24], eax
lea eax, [ebp + 0x14]
push eax
lea eax, [ebp - 0x24]
push eax
push edi
push dword [ebp + 8]
call sym.perl510.dll_Perl_grok_hex
add esp, 0x14
cmp eax, 0xff
mov dword [ebp + 0x14], eax
jbe 0x2806148d
mov dword [esi + 0x60], 1
mov eax, dword [ebp - 0xc]
lea edi, [eax + 1]
jmp 0x280614ba
push 2
pop eax
mov dword [ebp - 0x28], eax
mov dword [ebp - 0x18], eax
lea eax, [ebp - 0x28]
push 0
push eax
lea eax, [ebp - 0x18]
push eax
push edi
push dword [ebp + 8]
call sym.perl510.dll_Perl_grok_hex
add esp, 0x14
add edi, dword [ebp - 0x18]
mov dword [ebp + 0x14], eax
mov eax, dword [ebp + 8]
mov eax, dword [eax + 0x8c4]
test eax, eax
je 0x280616f3
cmp dword [ebp + 0x14], 0x100
jae 0x280616f3
mov dword [ebp - 0xc], eax
lea eax, [ebp - 0xc]
push eax
push dword [ebp + 0x14]
push dword [ebp + 8]
call fcn.2806208b
add esp, 0xc
cmp dword [ebp - 0xc], 0
mov dword [ebp + 0x14], eax
jne 0x28061537
mov eax, dword [ebp + 8]
add eax, 0x1ec
cmp dword [esi + 0x28], eax
jne 0x28061537
push 0x14
push dword [ebp + 8]
call sym.perl510.dll_Perl_ckwarn
pop ecx
test al, al
pop ecx
je 0x28061537
mov ecx, dword [esi + 4]
mov eax, edi
sub eax, ecx
lea edx, [ecx + eax]
push edx
push ecx
push eax
push str.Invalid_escape_in_the_specified_encoding
push str._s_in_regex__marked_by_____HERE_in_m__.s_____HERE__s_
push 0x14
push dword [ebp + 8]
call sym.perl510.dll_Perl_warner
add esp, 0x1c
mov dword [esi + 0x60], 1
jmp 0x280616f3
mov dword [ebp + 0x14], 9
jmp 0x280616f2
sub eax, 0xce
je 0x280615c3
sub eax, 0x11
je 0x280615c3
mov eax, dword [ebp + 8]
add eax, 0x1ec
cmp dword [esi + 0x28], eax
je 0x280616aa
mov al, byte [edi]
cmp al, 0x41
jl 0x28061576
cmp al, 0x5a
jle 0x28061586
cmp al, 0x61
jl 0x280616aa
cmp al, 0x7a
jg 0x280616aa
push 0x14
push dword [ebp + 8]
call sym.perl510.dll_Perl_ckwarn
pop ecx
test al, al
pop ecx
je 0x280616aa
mov ecx, dword [esi + 4]
mov eax, edi
sub eax, ecx
inc eax
lea edx, [ecx + eax]
push edx
push ecx
push eax
movzx eax, byte [edi]
push eax
push str.Unrecognized_escape__c_passed_through_in_regex__marked_by_____HERE_in_m__.s_____HERE__s_
push 0x14
push dword [ebp + 8]
call sym.perl510.dll_Perl_warner
add esp, 0x1c
jmp 0x280616aa
mov eax, dword [esi]
test ah, 8
jne 0x280616aa
test ah, 0x40
je 0x280616aa
mov eax, dword [esi + 0x14]
sub eax, edi
cmp eax, 1
jle 0x28061613
cmp dword [esi + 0x60], 0
je 0x2806161d
cmp dl, 0xc3
jne 0x280615fb
cmp byte [edi + 1], 0x9f
je 0x28061801
jmp 0x280616aa
cmp dl, 0xce
jne 0x280616aa
mov al, byte [edi + 1]
cmp al, 0x90
je 0x28061801
cmp al, 0xb0
jmp 0x280615f0
test eax, eax
jle 0x28061627
cmp dword [esi + 0x60], 0
jne 0x28061627
xor eax, eax
cmp dl, 0xdf
sete al
jmp 0x28061629
xor eax, eax
test eax, eax
jne 0x28061801
jmp 0x280616aa
sub eax, 0x7c
je 0x280618a6
sub eax, 0x47
je 0x2806164b
sub eax, 0xb
je 0x2806164b
sub eax, 0x11
jne 0x280616aa
mov eax, dword [esi]
test ah, 8
jne 0x280616aa
test ah, 0x40
je 0x280616aa
mov eax, dword [esi + 0x14]
sub eax, edi
cmp eax, 1
jle 0x2806168c
cmp dword [esi + 0x60], 0
je 0x28061696
cmp cl, 0xc3
jne 0x28061672
cmp byte [edi + 1], 0x9f
jmp 0x28061684
cmp cl, 0xce
jne 0x280616aa
mov al, byte [edi + 1]
cmp al, 0x90
je 0x280618a6
cmp al, 0xb0
je 0x280618a6
jmp 0x280616aa
test eax, eax
jle 0x280616a0
cmp dword [esi + 0x60], 0
jne 0x280616a0
xor eax, eax
cmp cl, 0xdf
sete al
jmp 0x280616a2
xor eax, eax
test eax, eax
jne 0x280618a6
mov al, byte [edi]
cmp al, 0xc0
jb 0x280616ec
cmp al, 0xfd
ja 0x280616ec
cmp dword [esi + 0x60], 0
je 0x280616ec
push 0x2c
push dword [ebp + 8]
call sym.perl510.dll_Perl_ckwarn
neg al
sbb eax, eax
and al, 0x97
add eax, 0x69
push eax
lea eax, [ebp - 0x2c]
push eax
mov eax, dword [esi + 0x14]
sub eax, edi
push eax
push edi
push dword [ebp + 8]
call sym.perl510.dll_Perl_utf8n_to_uvuni
add esp, 0x1c
add edi, dword [ebp - 0x2c]
mov dword [ebp + 0x14], eax
jmp 0x280616f3
movsx eax, al
mov dword [ebp + 0x14], eax
inc edi
test byte [esi + 1], 0x80
je 0x28061704
push edi
push esi
call fcn.2806211a
pop ecx
mov edi, eax
pop ecx
cmp dword [esi + 0x60], 0
je 0x28061729
test byte [esi + 1], 0x40
je 0x28061729
lea eax, [ebp - 8]
push eax
lea eax, [ebp - 0x38]
push eax
push dword [ebp + 0x14]
push dword [ebp + 8]
call sym.perl510.dll_Perl_to_uni_fold
add esp, 0x10
mov dword [ebp + 0x14], eax
cmp edi, dword [esi + 0x14]
jae 0x2806175b
mov al, byte [edi]
cmp al, 0x2a
je 0x28061807
cmp al, 0x2b
je 0x28061807
cmp al, 0x3f
je 0x28061807
cmp al, 0x7b
jne 0x2806175b
push edi
call fcn.280640dc
test eax, eax
pop ecx
jne 0x28061807
cmp dword [esi + 0x60], 0
je 0x280617d7
test byte [esi + 1], 0x40
je 0x280617b6
cmp dword [ebp - 8], 0
lea eax, [ebp - 0x38]
mov dword [ebp - 0xc], eax
je 0x280617d2
lea eax, [ebp - 0x1c]
push eax
push dword [ebp - 0xc]
push dword [ebp + 8]
call sym.perl510.dll_Perl_utf8_to_uvchr
add esp, 0xc
cmp dword [ebp - 0x1c], 0
mov dword [ebp + 0x14], eax
jbe 0x280617d2
push dword [ebp + 0xc]
push eax
push esi
push dword [ebp + 8]
call fcn.28063f31
add dword [ebp + 0x10], eax
add dword [ebp + 0xc], eax
mov eax, dword [ebp - 0x1c]
add esp, 0x10
add dword [ebp - 0xc], eax
cmp eax, dword [ebp - 8]
jae 0x280617d2
sub dword [ebp - 8], eax
jne 0x28061773
jmp 0x280617d2
push dword [ebp + 0xc]
push dword [ebp + 0x14]
push esi
push dword [ebp + 8]
call fcn.28063f31
add esp, 0x10
test eax, eax
jbe 0x280617d2
add dword [ebp + 0xc], eax
add dword [ebp + 0x10], eax
dec dword [ebp + 0x10]
jmp 0x280617ef
mov eax, dword [ebp + 8]
add eax, 0x1ec
cmp dword [esi + 0x28], eax
je 0x280617ec
mov ecx, dword [ebp + 0xc]
mov al, byte [ebp + 0x14]
mov byte [ecx], al
inc dword [ebp + 0xc]
inc dword [ebp + 0x10]
cmp dword [ebp + 0x10], 0x7f
jae 0x280618a6
jmp 0x2806113f
dec edi
jmp 0x280618a6
xor eax, eax
cmp dword [ebp + 0x10], eax
je 0x28061816
mov edi, dword [ebp - 0x30]
jmp 0x280618a6
cmp dword [esi + 0x60], eax
je 0x2806188a
test byte [esi + 1], 0x40
je 0x2806186f
cmp dword [ebp - 8], eax
lea ecx, [ebp - 0x38]
mov dword [ebp - 0xc], ecx
je 0x280618a6
lea eax, [ebp - 0x1c]
push eax
push dword [ebp - 0xc]
push dword [ebp + 8]
call sym.perl510.dll_Perl_utf8_to_uvchr
add esp, 0xc
cmp dword [ebp - 0x1c], 0
mov dword [ebp + 0x14], eax
jbe 0x280618a6
push dword [ebp + 0xc]
push eax
push esi
push dword [ebp + 8]
call fcn.28063f31
add dword [ebp + 0xc], eax
add dword [ebp + 0x10], eax
mov eax, dword [ebp - 0x1c]
add esp, 0x10
add dword [ebp - 0xc], eax
cmp eax, dword [ebp - 8]
jae 0x280618a6
sub dword [ebp - 8], eax
jne 0x2806182c
jmp 0x280618a6
push dword [ebp + 0xc]
push dword [ebp + 0x14]
push esi
push dword [ebp + 8]
call fcn.28063f31
add esp, 0x10
test eax, eax
jbe 0x280618a6
mov dword [ebp + 0x10], eax
jmp 0x280618a6
mov eax, dword [ebp + 8]
mov dword [ebp + 0x10], 1
add eax, 0x1ec
cmp dword [esi + 0x28], eax
je 0x280618a6
mov ecx, dword [ebp + 0xc]
mov al, byte [ebp + 0x14]
mov byte [ecx], al
push esi
dec edi
push dword [ebp + 8]
mov dword [esi + 0x18], edi
call fcn.28063da3
cmp dword [ebp + 0x10], 0
mov edi, dword [ebp + 8]
pop ecx
pop ecx
jge 0x280618fb
lea eax, [edi + 0x1ec]
cmp dword [esi + 0x28], eax
je 0x280618da
push dword [esi + 8]
push 0x28064d23
push edi
call sym.perl510.dll_Perl_save_destructor_x
add esp, 0xc
mov ecx, dword [esi + 4]
mov eax, dword [esi + 0x18]
sub eax, ecx
lea edx, [ecx + eax]
push edx
push ecx
push eax
push str.Internal_disaster
push str._s_in_regex__marked_by_____HERE_in_m__.s_____HERE__s_
push edi
call sym.perl510.dll_Perl_croak
add esp, 0x18
mov eax, dword [ebp + 0x10]
test eax, eax
jbe 0x28061905
or dword [ebx], 1
cmp eax, 1
jne 0x28061916
cmp dword [ebp + 0x14], 0x80
jae 0x28061916
or dword [ebx], 2
add edi, 0x1ec
cmp dword [esi + 0x28], edi
jne 0x2806192c
add eax, 3
shr eax, 2
add dword [esi + 0x38], eax
jmp 0x2806197d
mov ecx, dword [ebp - 4]
mov byte [ecx], al
add eax, 3
shr eax, 2
shl eax, 2
add dword [esi + 0x28], eax
jmp 0x2806197d
push 5
push esi
push edi
call fcn.28063e87
or dword [ebx], 2
add esp, 0xc
inc dword [esi + 0x4c]
mov dword [ebp - 4], eax
jmp 0x28061974
mov eax, dword [esi]
shr eax, 0xb
and al, 1
or al, 0x12
push eax
jmp 0x28061964
push 0x54
push esi
push edi
call fcn.28063e87
add esp, 0xc
mov dword [ebp - 4], eax
or dword [ebx], 3
push esi
push edi
call fcn.28063da3
pop ecx
pop ecx
mov eax, dword [ebp - 4]
pop edi
pop esi
pop ebx
leave
ret