Да нихрена в ней вобще нет ... кроме 3-х формачек и нескольких процедур... смысл работы которых один - вывести окно ввода ключа

Вот твоя процедура обработки нажатия кнопки "ОК" на форме регистрации по адресу 005239B0:
*********************************
005239B0 55 PUSH EBP ; Click!!!!!!!!!!!1
005239B1 8BEC MOV EBP,ESP
005239B3 83EC 0C SUB ESP,0C
005239B6 68 86134000 PUSH <JMP.&MSVBVM60.__vbaExceptHandler>
005239BB 64:A1 00000000 MOV EAX,DWORD PTR FS:[0]
005239C1 50 PUSH EAX
005239C2 64:8925 00000000 MOV DWORD PTR FS:[0],ESP
005239C9 81EC 88000000 SUB ESP,88
005239CF 53 PUSH EBX
005239D0 56 PUSH ESI
005239D1 57 PUSH EDI
005239D2 8965 F4 MOV DWORD PTR SS:[EBP-C],ESP
005239D5 C745 F8 50134000 MOV DWORD PTR SS:[EBP-8],RNG-Full.00401350
005239DC 8B45 08 MOV EAX,DWORD PTR SS:[EBP+8]
005239DF 8BC8 MOV ECX,EAX
005239E1 83E1 01 AND ECX,1
005239E4 894D FC MOV DWORD PTR SS:[EBP-4],ECX
005239E7 24 FE AND AL,0FE
005239E9 50 PUSH EAX
005239EA 8945 08 MOV DWORD PTR SS:[EBP+8],EAX
005239ED 8B10 MOV EDX,DWORD PTR DS:[EAX]
005239EF FF52 04 CALL DWORD PTR DS:[EDX+4]
005239F2 8B3D D0104000 MOV EDI,DWORD PTR DS:[<&MSVBVM60.__vbaVarDup>] ; MSVBVM60.__vbaVarDup
005239F8 B9 04000280 MOV ECX,80020004
005239FD 33F6 XOR ESI,ESI
005239FF 894D B4 MOV DWORD PTR SS:[EBP-4C],ECX
00523A02 B8 0A000000 MOV EAX,0A
00523A07 894D C4 MOV DWORD PTR SS:[EBP-3C],ECX
00523A0A BB 08000000 MOV EBX,8
00523A0F 8975 BC MOV DWORD PTR SS:[EBP-44],ESI
00523A12 8975 AC MOV DWORD PTR SS:[EBP-54],ESI
00523A15 8975 8C MOV DWORD PTR SS:[EBP-74],ESI
00523A18 8D55 8C LEA EDX,DWORD PTR SS:[EBP-74]
00523A1B 8D4D CC LEA ECX,DWORD PTR SS:[EBP-34]
00523A1E 8975 DC MOV DWORD PTR SS:[EBP-24],ESI
00523A21 8975 CC MOV DWORD PTR SS:[EBP-34],ESI
00523A24 8975 9C MOV DWORD PTR SS:[EBP-64],ESI
00523A27 8945 AC MOV DWORD PTR SS:[EBP-54],EAX
00523A2A 8945 BC MOV DWORD PTR SS:[EBP-44],EAX
00523A2D C745 94 04514C00 MOV DWORD PTR SS:[EBP-6C],RNG-Full.004C5104 ; UNICODE "Code"
00523A34 895D 8C MOV DWORD PTR SS:[EBP-74],EBX
00523A37 FFD7 CALL EDI
00523A39 8D55 9C LEA EDX,DWORD PTR SS:[EBP-64]
00523A3C 8D4D DC LEA ECX,DWORD PTR SS:[EBP-24]
00523A3F C745 A4 DC504C00 MOV DWORD PTR SS:[EBP-5C],RNG-Full.004C50DC ; UNICODE "Incorrect Code "
00523A46 895D 9C MOV DWORD PTR SS:[EBP-64],EBX
00523A49 FFD7 CALL EDI
00523A4B 8D45 AC LEA EAX,DWORD PTR SS:[EBP-54]
00523A4E 8D4D BC LEA ECX,DWORD PTR SS:[EBP-44]
00523A51 50 PUSH EAX
00523A52 8D55 CC LEA EDX,DWORD PTR SS:[EBP-34]
00523A55 51 PUSH ECX
00523A56 52 PUSH EDX
00523A57 8D45 DC LEA EAX,DWORD PTR SS:[EBP-24]
00523A5A 6A 40 PUSH 40
00523A5C 50 PUSH EAX
00523A5D FF15 40104000 CALL DWORD PTR DS:[<&MSVBVM60.#595>] ; MSVBVM60.rtcMsgBox
00523A63 8D4D AC LEA ECX,DWORD PTR SS:[EBP-54]
00523A66 8D55 BC LEA EDX,DWORD PTR SS:[EBP-44]
00523A69 51 PUSH ECX
00523A6A 8D45 CC LEA EAX,DWORD PTR SS:[EBP-34]
00523A6D 52 PUSH EDX
00523A6E 8D4D DC LEA ECX,DWORD PTR SS:[EBP-24]
00523A71 50 PUSH EAX
00523A72 51 PUSH ECX
00523A73 6A 04 PUSH 4
00523A75 FF15 18104000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaFreeVarList>>; MSVBVM60.__vbaFreeVarList
00523A7B 83C4 14 ADD ESP,14
00523A7E 8975 FC MOV DWORD PTR SS:[EBP-4],ESI
00523A81 68 A53A5200 PUSH RNG-Full.00523AA5
00523A86 EB 1C JMP SHORT RNG-Full.00523AA4
00523A88 8D55 AC LEA EDX,DWORD PTR SS:[EBP-54]
00523A8B 8D45 BC LEA EAX,DWORD PTR SS:[EBP-44]
00523A8E 52 PUSH EDX
00523A8F 8D4D CC LEA ECX,DWORD PTR SS:[EBP-34]
00523A92 50 PUSH EAX
00523A93 8D55 DC LEA EDX,DWORD PTR SS:[EBP-24]
00523A96 51 PUSH ECX
00523A97 52 PUSH EDX
00523A98 6A 04 PUSH 4
00523A9A FF15 18104000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaFreeVarList>>; MSVBVM60.__vbaFreeVarList
00523AA0 83C4 14 ADD ESP,14
00523AA3 C3 RETN
********************************
... ни одной проверки ...
Так что кури Асм ... и не будешь задавать глупых вопросов!