社区卫生服务管理系统 2006.3.注册算法分析

hbqjxhw

【破文标题】社区卫生服务管理系统 2006.3.注册算法分析
【破文作者】HBQJXHW[PYG]
【破解工具】OD
【破解平台】WIN2000-SP4
【软件名称】社区卫生服务管理系统 2006.3.
【软件大小】19435KB
【原版下载】http://www.onlinedown.net/soft/31750.htm
【保护方式】SN
【软件简介】本软件包括社区管理工作的所有内容、集成医院管理、药品管理。
部分新增功能如下：
> 慢性病的随访报警提示。
> 社区数据浏览、强大的权限管理功能，可以根据要求对不同级别的用户授于相应的权限。
> 社区管理中心，卫生局可以方便的查看各社区服务中心、社区服务站各年的统计数据及疾病发生情况，及对比图。
> 集成电子邮件收发、群发功能。便于卫生局开展工作。
> 门诊挂号、门诊划价收费、门诊医生、更加完善的药品管理
> 每种疾病可以按照年龄段分别统计
> 社区诊断、对每种疾病自动统计出总人数、男女人数、60岁以下人数等。
> 支持广域网直接联网 社区卫生服务中心、服务站、卫生局 多层数据共享
> 对上网不方便的用户我们提供了Email自动发送统计结果的功能。
> 老年人健康档案管理
> 慢性病管理
> 家庭病床管理[非常详细的操作简单的使用方法]
> 双向转诊管理
> 社区精神病人专项档案管理
> 传染病人专项档案管理
> 康复病人管理
> 全社区综合统计，包括下面所有的服务站、服务中心

>----------------------------------------
>软件初始登陆用户名：管理员 所有用户密码都为空

使用说明：

本软件是严格按照国家卫生部标准研发的一套完全符合中国实际情况的社区卫生服务管理软件，应用于社区卫生服务中心和社区卫生服务站的

一套综合性管理系统,包括社区管理和医院管理的所有内容。

本软件包含模块：
>1 个人档案（病史记录、用药记录、家庭病床等)、家庭档案管理
>2 健康体检管理
>3 妇女保健和孕产妇保健(包括产前检查、产后访视等)
>4 儿童保健（儿童体检、四病管理等）、儿童计划免疫(还包括报警）。
>5 常见慢性病管理及随访报警
>6 社区管理
>7 健康教育处方管理
>8 病历管理和处方管理
>9 药品的管理（包括药品的进出库管理以及药品的报警）
>l0 挂号、收费管理
>11 常用化验参考值及万年历

【破解声明】我是一只小菜鸟，偶得一点心得，愿与大家分享
------------------------------------------------------------------------
下消息断点：bp rtcMsgBox（注：第一次不输入医院名称可断下）
0080EFAD   .  FF15 EC104000 CALL DWORD PTR DS:[<&MSVBVM60.#595>] 断在此处

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
0080EC20   > \55            PUSH EBP
0080EC21   .  8BEC          MOV EBP,ESP
0080EC23   .  83EC 18       SUB ESP,18
0080EC26   .  68 B67E4100   PUSH <JMP.&MSVBVM60.__vbaExceptHandler>            ;  SE 处理程序安装
0080EC2B   .  64:A1 0000000>MOV EAX,DWORD PTR FS:[0]
0080EC31   .  50            PUSH EAX
0080EC32   .  64:8925 00000>MOV DWORD PTR FS:[0],ESP
0080EC39   .  B8 AC010000   MOV EAX,1AC
0080EC3E   .  E8 6D92C0FF   CALL <JMP.&MSVBVM60.__vbaChkstk>
0080EC43   .  53            PUSH EBX
0080EC44   .  56            PUSH ESI
0080EC45   .  57            PUSH EDI
0080EC46   .  8965 E8       MOV DWORD PTR SS:[EBP-18],ESP
0080EC49   .  C745 EC B86F4>MOV DWORD PTR SS:[EBP-14],社区卫生.00406FB8
0080EC50   .  C745 F0 00000>MOV DWORD PTR SS:[EBP-10],0
0080EC57   .  C745 F4 00000>MOV DWORD PTR SS:[EBP-C],0
0080EC5E   .  C745 FC 01000>MOV DWORD PTR SS:[EBP-4],1
0080EC65   .  C745 FC 02000>MOV DWORD PTR SS:[EBP-4],2
0080EC6C   .  6A 01         PUSH 1
0080EC6E   .  FF15 F0104000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaOnError>]       ;  MSVBVM60.__vbaOnError
0080EC74   .  C745 FC 03000>MOV DWORD PTR SS:[EBP-4],3
0080EC7B   .  8B45 08       MOV EAX,DWORD PTR SS:[EBP+8]
0080EC7E   .  8B08          MOV ECX,DWORD PTR DS:[EAX]
0080EC80   .  8B55 08       MOV EDX,DWORD PTR SS:[EBP+8]
0080EC83   .  52            PUSH EDX
0080EC84   .  FF91 74030000 CALL DWORD PTR DS:[ECX+374]
0080EC8A   .  50            PUSH EAX
0080EC8B   .  8D85 7CFFFFFF LEA EAX,DWORD PTR SS:[EBP-84]
0080EC91   .  50            PUSH EAX
0080EC92   .  FF15 E8104000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaObjSet>]        ;  MSVBVM60.__vbaObjSet
0080EC98   .  8985 94FEFFFF MOV DWORD PTR SS:[EBP-16C],EAX
0080EC9E   .  8D4D B0       LEA ECX,DWORD PTR SS:[EBP-50]
0080ECA1   .  51            PUSH ECX
0080ECA2   .  8B95 94FEFFFF MOV EDX,DWORD PTR SS:[EBP-16C]
0080ECA8   .  8B02          MOV EAX,DWORD PTR DS:[EDX]
0080ECAA   .  8B8D 94FEFFFF MOV ECX,DWORD PTR SS:[EBP-16C]
0080ECB0   .  51            PUSH ECX
0080ECB1   .  FF90 A0000000 CALL DWORD PTR DS:[EAX+A0]
0080ECB7   .  DBE2          FCLEX
0080ECB9   .  8985 90FEFFFF MOV DWORD PTR SS:[EBP-170],EAX
0080ECBF   .  83BD 90FEFFFF>CMP DWORD PTR SS:[EBP-170],0
0080ECC6   .  7D 26         JGE SHORT 社区卫生.0080ECEE
0080ECC8   .  68 A0000000   PUSH 0A0
0080ECCD   .  68 407F4C00   PUSH 社区卫生.004C7F40
0080ECD2   .  8B95 94FEFFFF MOV EDX,DWORD PTR SS:[EBP-16C]
0080ECD8   .  52            PUSH EDX
0080ECD9   .  8B85 90FEFFFF MOV EAX,DWORD PTR SS:[EBP-170]
0080ECDF   .  50            PUSH EAX
0080ECE0   .  FF15 AC104000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaHresultCheckObj>;  MSVBVM60.__vbaHresultCheckObj
0080ECE6   .  8985 68FEFFFF MOV DWORD PTR SS:[EBP-198],EAX
0080ECEC   .  EB 0A         JMP SHORT 社区卫生.0080ECF8
0080ECEE   >  C785 68FEFFFF>MOV DWORD PTR SS:[EBP-198],0
0080ECF8   >  8B4D B0       MOV ECX,DWORD PTR SS:[EBP-50]
0080ECFB   .  898D 74FEFFFF MOV DWORD PTR SS:[EBP-18C],ECX
0080ED01   .  C745 B0 00000>MOV DWORD PTR SS:[EBP-50],0
0080ED08   .  8B95 74FEFFFF MOV EDX,DWORD PTR SS:[EBP-18C]
0080ED0E   .  8995 74FFFFFF MOV DWORD PTR SS:[EBP-8C],EDX
0080ED14   .  C785 6CFFFFFF>MOV DWORD PTR SS:[EBP-94],8
0080ED1E   .  8D95 6CFFFFFF LEA EDX,DWORD PTR SS:[EBP-94]
0080ED24   .  8D4D C4       LEA ECX,DWORD PTR SS:[EBP-3C]
0080ED27   .  FF15 24104000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaVarMove>]       ;  MSVBVM60.__vbaVarMove
0080ED2D   .  8D8D 7CFFFFFF LEA ECX,DWORD PTR SS:[EBP-84]
0080ED33   .  FF15 AC134000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaFreeObj>]       ;  MSVBVM60.__vbaFreeObj
0080ED39   .  C745 FC 04000>MOV DWORD PTR SS:[EBP-4],4
0080ED40   .  8B45 08       MOV EAX,DWORD PTR SS:[EBP+8]
0080ED43   .  8B08          MOV ECX,DWORD PTR DS:[EAX]
0080ED45   .  8B55 08       MOV EDX,DWORD PTR SS:[EBP+8]
0080ED48   .  52            PUSH EDX
0080ED49   .  FF91 78030000 CALL DWORD PTR DS:[ECX+378]
0080ED4F   .  50            PUSH EAX
0080ED50   .  8D85 7CFFFFFF LEA EAX,DWORD PTR SS:[EBP-84]
0080ED56   .  50            PUSH EAX
0080ED57   .  FF15 E8104000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaObjSet>]        ;  MSVBVM60.__vbaObjSet
0080ED5D   .  8985 94FEFFFF MOV DWORD PTR SS:[EBP-16C],EAX
0080ED63   .  8D4D B0       LEA ECX,DWORD PTR SS:[EBP-50]
0080ED66   .  51            PUSH ECX
0080ED67   .  8B95 94FEFFFF MOV EDX,DWORD PTR SS:[EBP-16C]
0080ED6D   .  8B02          MOV EAX,DWORD PTR DS:[EDX]
0080ED6F   .  8B8D 94FEFFFF MOV ECX,DWORD PTR SS:[EBP-16C]
0080ED75   .  51            PUSH ECX
0080ED76   .  FF90 A0000000 CALL DWORD PTR DS:[EAX+A0]
0080ED7C   .  DBE2          FCLEX
0080ED7E   .  8985 90FEFFFF MOV DWORD PTR SS:[EBP-170],EAX
0080ED84   .  83BD 90FEFFFF>CMP DWORD PTR SS:[EBP-170],0
0080ED8B   .  7D 26         JGE SHORT 社区卫生.0080EDB3
0080ED8D   .  68 A0000000   PUSH 0A0
0080ED92   .  68 407F4C00   PUSH 社区卫生.004C7F40
0080ED97   .  8B95 94FEFFFF MOV EDX,DWORD PTR SS:[EBP-16C]
0080ED9D   .  52            PUSH EDX
0080ED9E   .  8B85 90FEFFFF MOV EAX,DWORD PTR SS:[EBP-170]
0080EDA4   .  50            PUSH EAX
0080EDA5   .  FF15 AC104000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaHresultCheckObj>;  MSVBVM60.__vbaHresultCheckObj
0080EDAB   .  8985 64FEFFFF MOV DWORD PTR SS:[EBP-19C],EAX
0080EDB1   .  EB 0A         JMP SHORT 社区卫生.0080EDBD
0080EDB3   >  C785 64FEFFFF>MOV DWORD PTR SS:[EBP-19C],0
0080EDBD   >  8B4D B0       MOV ECX,DWORD PTR SS:[EBP-50]
0080EDC0   .  898D 70FEFFFF MOV DWORD PTR SS:[EBP-190],ECX
0080EDC6   .  C745 B0 00000>MOV DWORD PTR SS:[EBP-50],0
0080EDCD   .  8B95 70FEFFFF MOV EDX,DWORD PTR SS:[EBP-190]
0080EDD3   .  8D4D B4       LEA ECX,DWORD PTR SS:[EBP-4C]
0080EDD6   .  FF15 5C134000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaStrMove>]       ;  MSVBVM60.__vbaStrMove
0080EDDC   .  8D8D 7CFFFFFF LEA ECX,DWORD PTR SS:[EBP-84]
0080EDE2   .  FF15 AC134000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaFreeObj>]       ;  MSVBVM60.__vbaFreeObj
0080EDE8   .  C745 FC 05000>MOV DWORD PTR SS:[EBP-4],5
0080EDEF   .  8B55 08       MOV EDX,DWORD PTR SS:[EBP+8]
0080EDF2   .  8B02          MOV EAX,DWORD PTR DS:[EDX]
0080EDF4   .  8B4D 08       MOV ECX,DWORD PTR SS:[EBP+8]
0080EDF7   .  51            PUSH ECX
0080EDF8   .  FF90 88030000 CALL DWORD PTR DS:[EAX+388]
0080EDFE   .  50            PUSH EAX
0080EDFF   .  8D95 7CFFFFFF LEA EDX,DWORD PTR SS:[EBP-84]
0080EE05   .  52            PUSH EDX
0080EE06   .  FF15 E8104000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaObjSet>]        ;  MSVBVM60.__vbaObjSet
0080EE0C   .  8985 94FEFFFF MOV DWORD PTR SS:[EBP-16C],EAX
0080EE12   .  8D45 B0       LEA EAX,DWORD PTR SS:[EBP-50]
0080EE15   .  50            PUSH EAX
0080EE16   .  8B8D 94FEFFFF MOV ECX,DWORD PTR SS:[EBP-16C]
0080EE1C   .  8B11          MOV EDX,DWORD PTR DS:[ECX]
0080EE1E   .  8B85 94FEFFFF MOV EAX,DWORD PTR SS:[EBP-16C]
0080EE24   .  50            PUSH EAX
0080EE25   .  FF52 50       CALL DWORD PTR DS:[EDX+50]
0080EE28   .  DBE2          FCLEX
0080EE2A   .  8985 90FEFFFF MOV DWORD PTR SS:[EBP-170],EAX
0080EE30   .  83BD 90FEFFFF>CMP DWORD PTR SS:[EBP-170],0
0080EE37   .  7D 23         JGE SHORT 社区卫生.0080EE5C
0080EE39   .  6A 50         PUSH 50
0080EE3B   .  68 00654C00   PUSH 社区卫生.004C6500
0080EE40   .  8B8D 94FEFFFF MOV ECX,DWORD PTR SS:[EBP-16C]
0080EE46   .  51            PUSH ECX
0080EE47   .  8B95 90FEFFFF MOV EDX,DWORD PTR SS:[EBP-170]
0080EE4D   .  52            PUSH EDX
0080EE4E   .  FF15 AC104000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaHresultCheckObj>;  MSVBVM60.__vbaHresultCheckObj
0080EE54   .  8985 60FEFFFF MOV DWORD PTR SS:[EBP-1A0],EAX
0080EE5A   .  EB 0A         JMP SHORT 社区卫生.0080EE66
0080EE5C   >  C785 60FEFFFF>MOV DWORD PTR SS:[EBP-1A0],0
0080EE66   >  8B45 B0       MOV EAX,DWORD PTR SS:[EBP-50]
0080EE69   .  8985 6CFEFFFF MOV DWORD PTR SS:[EBP-194],EAX
0080EE6F   .  C745 B0 00000>MOV DWORD PTR SS:[EBP-50],0
0080EE76   .  8B95 6CFEFFFF MOV EDX,DWORD PTR SS:[EBP-194]
0080EE7C   .  8D4D D8       LEA ECX,DWORD PTR SS:[EBP-28]
0080EE7F   .  FF15 5C134000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaStrMove>]       ;  MSVBVM60.__vbaStrMove
0080EE85   .  8D8D 7CFFFFFF LEA ECX,DWORD PTR SS:[EBP-84]
0080EE8B   .  FF15 AC134000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaFreeObj>]       ;  MSVBVM60.__vbaFreeObj
0080EE91   .  C745 FC 06000>MOV DWORD PTR SS:[EBP-4],6
0080EE98   .  C785 E4FEFFFF>MOV DWORD PTR SS:[EBP-11C],2
0080EEA2   .  C785 DCFEFFFF>MOV DWORD PTR SS:[EBP-124],2
0080EEAC   .  8D4D C4       LEA ECX,DWORD PTR SS:[EBP-3C]
0080EEAF   .  51            PUSH ECX
0080EEB0   .  8D95 6CFFFFFF LEA EDX,DWORD PTR SS:[EBP-94]
0080EEB6   .  52            PUSH EDX
0080EEB7   .  FF15 B8104000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaLenVar>]        ;  计算医院名称长度
0080EEBD   .  50            PUSH EAX
0080EEBE   .  8D85 DCFEFFFF LEA EAX,DWORD PTR SS:[EBP-124]
0080EEC4   .  50            PUSH EAX
0080EEC5   .  8D8D 5CFFFFFF LEA ECX,DWORD PTR SS:[EBP-A4]
0080EECB   .  51            PUSH ECX
0080EECC   .  FF15 54124000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaVarDiv>]        ;  医院名称长度除以2
0080EED2   .  50            PUSH EAX
0080EED3   .  FF15 8C124000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaI2Var>]         ;  医院名称长度除以2后取整
0080EED9   .  66:8945 DC    MOV WORD PTR SS:[EBP-24],AX                        ;  取整后的结果给SS:[EBP-24]（后面要用到）
0080EEDD   .  C745 FC 07000>MOV DWORD PTR SS:[EBP-4],7
0080EEE4   .  C785 E4FEFFFF>MOV DWORD PTR SS:[EBP-11C],社区卫生.004C6340
0080EEEE   .  C785 DCFEFFFF>MOV DWORD PTR SS:[EBP-124],8008
0080EEF8   .  8D55 C4       LEA EDX,DWORD PTR SS:[EBP-3C]
0080EEFB   .  52            PUSH EDX
0080EEFC   .  8D85 DCFEFFFF LEA EAX,DWORD PTR SS:[EBP-124]
0080EF02   .  50            PUSH EAX
0080EF03   .  FF15 94114000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaVarTstEq>]      ;  MSVBVM60.__vbaVarTstEq
0080EF09   .  0FBFC8        MOVSX ECX,AX
0080EF0C   .  85C9          TEST ECX,ECX                                       ;  判断医院名称是否为空
0080EF0E   .  0F84 CB000000 JE 社区卫生.0080EFDF
0080EF14   .  C745 FC 08000>MOV DWORD PTR SS:[EBP-4],8
0080EF1B   .  C785 44FFFFFF>MOV DWORD PTR SS:[EBP-BC],80020004
0080EF25   .  C785 3CFFFFFF>MOV DWORD PTR SS:[EBP-C4],0A
0080EF2F   .  C785 54FFFFFF>MOV DWORD PTR SS:[EBP-AC],80020004
0080EF39   .  C785 4CFFFFFF>MOV DWORD PTR SS:[EBP-B4],0A
0080EF43   .  C785 D4FEFFFF>MOV DWORD PTR SS:[EBP-12C],社区卫生.004C6334
0080EF4D   .  C785 CCFEFFFF>MOV DWORD PTR SS:[EBP-134],8
0080EF57   .  8D95 CCFEFFFF LEA EDX,DWORD PTR SS:[EBP-134]
0080EF5D   .  8D8D 5CFFFFFF LEA ECX,DWORD PTR SS:[EBP-A4]
0080EF63   .  FF15 18134000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaVarDup>]        ;  MSVBVM60.__vbaVarDup
0080EF69   .  C785 E4FEFFFF>MOV DWORD PTR SS:[EBP-11C],社区卫生.004D5EFC
0080EF73   .  C785 DCFEFFFF>MOV DWORD PTR SS:[EBP-124],8
0080EF7D   .  8D95 DCFEFFFF LEA EDX,DWORD PTR SS:[EBP-124]
0080EF83   .  8D8D 6CFFFFFF LEA ECX,DWORD PTR SS:[EBP-94]
0080EF89   .  FF15 18134000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaVarDup>]        ;  MSVBVM60.__vbaVarDup
0080EF8F   .  8D95 3CFFFFFF LEA EDX,DWORD PTR SS:[EBP-C4]
0080EF95   .  52            PUSH EDX
0080EF96   .  8D85 4CFFFFFF LEA EAX,DWORD PTR SS:[EBP-B4]
0080EF9C   .  50            PUSH EAX
0080EF9D   .  8D8D 5CFFFFFF LEA ECX,DWORD PTR SS:[EBP-A4]
0080EFA3   .  51            PUSH ECX
0080EFA4   .  6A 40         PUSH 40
0080EFA6   .  8D95 6CFFFFFF LEA EDX,DWORD PTR SS:[EBP-94]
0080EFAC   .  52            PUSH EDX
0080EFAD   .  FF15 EC104000 CALL DWORD PTR DS:[<&MSVBVM60.#595>]               ;  显示信息（医院名称为空）
0080EFB3   .  8D85 3CFFFFFF LEA EAX,DWORD PTR SS:[EBP-C4]
0080EFB9   .  50            PUSH EAX
0080EFBA   .  8D8D 4CFFFFFF LEA ECX,DWORD PTR SS:[EBP-B4]
0080EFC0   .  51            PUSH ECX
0080EFC1   .  8D95 5CFFFFFF LEA EDX,DWORD PTR SS:[EBP-A4]
0080EFC7   .  52            PUSH EDX
0080EFC8   .  8D85 6CFFFFFF LEA EAX,DWORD PTR SS:[EBP-94]
0080EFCE   .  50            PUSH EAX
0080EFCF   .  6A 04         PUSH 4
0080EFD1   .  FF15 48104000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaFreeVarList>]   ;  MSVBVM60.__vbaFreeVarList
0080EFD7   .  83C4 14       ADD ESP,14
0080EFDA   .  E9 FA0B0000   JMP 社区卫生.0080FBD9
0080EFDF   >  C745 FC 0B000>MOV DWORD PTR SS:[EBP-4],0B
0080EFE6   .  C785 74FFFFFF>MOV DWORD PTR SS:[EBP-8C],1
0080EFF0   .  C785 6CFFFFFF>MOV DWORD PTR SS:[EBP-94],2
0080EFFA   .  8D8D 6CFFFFFF LEA ECX,DWORD PTR SS:[EBP-94]
0080F000   .  51            PUSH ECX
0080F001   .  6A 02         PUSH 2                                             ;  常数2
0080F003   .  8D55 C4       LEA EDX,DWORD PTR SS:[EBP-3C]
0080F006   .  52            PUSH EDX
0080F007   .  8D85 5CFFFFFF LEA EAX,DWORD PTR SS:[EBP-A4]
0080F00D   .  50            PUSH EAX
0080F00E   .  FF15 60114000 CALL DWORD PTR DS:[<&MSVBVM60.#632>]               ;  取医院名称第2个字符
0080F014   .  C785 54FFFFFF>MOV DWORD PTR SS:[EBP-AC],1
0080F01E   .  C785 4CFFFFFF>MOV DWORD PTR SS:[EBP-B4],2
0080F028   .  8D8D 4CFFFFFF LEA ECX,DWORD PTR SS:[EBP-B4]
0080F02E   .  51            PUSH ECX
0080F02F   .  6A 01         PUSH 1                                             ;  常数1
0080F031   .  8D55 C4       LEA EDX,DWORD PTR SS:[EBP-3C]
0080F034   .  52            PUSH EDX
0080F035   .  8D85 3CFFFFFF LEA EAX,DWORD PTR SS:[EBP-C4]
0080F03B   .  50            PUSH EAX
0080F03C   .  FF15 60114000 CALL DWORD PTR DS:[<&MSVBVM60.#632>]               ;  取医院名称第1个字符
0080F042   .  C785 34FFFFFF>MOV DWORD PTR SS:[EBP-CC],1
0080F04C   .  C785 2CFFFFFF>MOV DWORD PTR SS:[EBP-D4],2
0080F056   .  8D8D 2CFFFFFF LEA ECX,DWORD PTR SS:[EBP-D4]
0080F05C   .  51            PUSH ECX
0080F05D   .  6A 04         PUSH 4                                             ;  常数4
0080F05F   .  8D55 C4       LEA EDX,DWORD PTR SS:[EBP-3C]
0080F062   .  52            PUSH EDX
0080F063   .  8D85 1CFFFFFF LEA EAX,DWORD PTR SS:[EBP-E4]
0080F069   .  50            PUSH EAX
0080F06A   .  FF15 60114000 CALL DWORD PTR DS:[<&MSVBVM60.#632>]               ;  取医院名称第4个字符
0080F070   .  C785 14FFFFFF>MOV DWORD PTR SS:[EBP-EC],1
0080F07A   .  C785 0CFFFFFF>MOV DWORD PTR SS:[EBP-F4],2
0080F084   .  8D8D 0CFFFFFF LEA ECX,DWORD PTR SS:[EBP-F4]
0080F08A   .  51            PUSH ECX
0080F08B   .  0FBF55 DC     MOVSX EDX,WORD PTR SS:[EBP-24]                     ;  取整后的结果给EDX
0080F08F   .  52            PUSH EDX
0080F090   .  8D45 C4       LEA EAX,DWORD PTR SS:[EBP-3C]
0080F093   .  50            PUSH EAX
0080F094   .  8D8D FCFEFFFF LEA ECX,DWORD PTR SS:[EBP-104]
0080F09A   .  51            PUSH ECX
0080F09B   .  FF15 60114000 CALL DWORD PTR DS:[<&MSVBVM60.#632>]               ;  取医院名称第EDX个字符
0080F0A1   .  6A 03         PUSH 3                                             ;  常数3
0080F0A3   .  8D55 C4       LEA EDX,DWORD PTR SS:[EBP-3C]
0080F0A6   .  52            PUSH EDX
0080F0A7   .  8D85 ECFEFFFF LEA EAX,DWORD PTR SS:[EBP-114]
0080F0AD   .  50            PUSH EAX
0080F0AE   .  FF15 64134000 CALL DWORD PTR DS:[<&MSVBVM60.#619>]               ;  从右边取医院名称后3个字符
0080F0B4   .  8D8D 5CFFFFFF LEA ECX,DWORD PTR SS:[EBP-A4]
0080F0BA   .  51            PUSH ECX
0080F0BB   .  8D55 B0       LEA EDX,DWORD PTR SS:[EBP-50]
0080F0BE   .  52            PUSH EDX
0080F0BF   .  FF15 80124000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaStrVarVal>]     ;  MSVBVM60.__vbaStrVarVal
0080F0C5   .  50            PUSH EAX
0080F0C6   .  FF15 64104000 CALL DWORD PTR DS:[<&MSVBVM60.#516>]               ;  MSVBVM60.rtcAnsiValueBstr
0080F0CC   .  66:8BC8       MOV CX,AX                                          ;  取医院名称第2个字符给CX
0080F0CF   .  66:83E9 06    SUB CX,6                                           ;  CX减0X6（转换为十进制数）
0080F0D3   .  0F80 010C0000 JO 社区卫生.0080FCDA
0080F0D9   .  FF15 74104000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaI2Abs>]         ;  MSVBVM60.__vbaI2Abs
0080F0DF   .  50            PUSH EAX
0080F0E0   .  FF15 14104000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaStrI2>]         ;  MSVBVM60.__vbaStrI2
0080F0E6   .  8BD0          MOV EDX,EAX
0080F0E8   .  8D4D A8       LEA ECX,DWORD PTR SS:[EBP-58]
0080F0EB   .  FF15 5C134000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaStrMove>]       ;  MSVBVM60.__vbaStrMove
0080F0F1   .  50            PUSH EAX
0080F0F2   .  8D85 3CFFFFFF LEA EAX,DWORD PTR SS:[EBP-C4]
0080F0F8   .  50            PUSH EAX
0080F0F9   .  8D4D AC       LEA ECX,DWORD PTR SS:[EBP-54]
0080F0FC   .  51            PUSH ECX
0080F0FD   .  FF15 80124000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaStrVarVal>]     ;  MSVBVM60.__vbaStrVarVal
0080F103   .  50            PUSH EAX
0080F104   .  FF15 64104000 CALL DWORD PTR DS:[<&MSVBVM60.#516>]               ;  MSVBVM60.rtcAnsiValueBstr
0080F10A   .  66:8BC8       MOV CX,AX                                          ;  取医院名称第1个字符给CX
0080F10D   .  66:83C1 53    ADD CX,53                                          ;  CX加上0X53（转换为十进制数）
0080F111   .  0F80 C30B0000 JO 社区卫生.0080FCDA
0080F117   .  FF15 74104000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaI2Abs>]         ;  MSVBVM60.__vbaI2Abs
0080F11D   .  50            PUSH EAX
0080F11E   .  FF15 14104000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaStrI2>]         ;  MSVBVM60.__vbaStrI2
0080F124   .  8BD0          MOV EDX,EAX
0080F126   .  8D4D A4       LEA ECX,DWORD PTR SS:[EBP-5C]
0080F129   .  FF15 5C134000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaStrMove>]       ;  MSVBVM60.__vbaStrMove
0080F12F   .  50            PUSH EAX
0080F130   .  FF15 80104000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaStrCat>]        ;  MSVBVM60.__vbaStrCat
0080F136   .  8BD0          MOV EDX,EAX
0080F138   .  8D4D 9C       LEA ECX,DWORD PTR SS:[EBP-64]
0080F13B   .  FF15 5C134000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaStrMove>]       ;  MSVBVM60.__vbaStrMove
0080F141   .  50            PUSH EAX
0080F142   .  8D95 1CFFFFFF LEA EDX,DWORD PTR SS:[EBP-E4]
0080F148   .  52            PUSH EDX
0080F149   .  8D45 A0       LEA EAX,DWORD PTR SS:[EBP-60]
0080F14C   .  50            PUSH EAX
0080F14D   .  FF15 80124000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaStrVarVal>]     ;  MSVBVM60.__vbaStrVarVal
0080F153   .  50            PUSH EAX
0080F154   .  FF15 64104000 CALL DWORD PTR DS:[<&MSVBVM60.#516>]               ;  MSVBVM60.rtcAnsiValueBstr
0080F15A   .  66:8BC8       MOV CX,AX                                          ;  取医院名称第4个字符给CX
0080F15D   .  66:83E9 14    SUB CX,14                                          ;  CX减0X14（转换为十进制数）
0080F161   .  0F80 730B0000 JO 社区卫生.0080FCDA
0080F167   .  FF15 74104000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaI2Abs>]         ;  MSVBVM60.__vbaI2Abs
0080F16D   .  50            PUSH EAX
0080F16E   .  FF15 14104000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaStrI2>]         ;  MSVBVM60.__vbaStrI2
0080F174   .  8BD0          MOV EDX,EAX
0080F176   .  8D4D 98       LEA ECX,DWORD PTR SS:[EBP-68]
0080F179   .  FF15 5C134000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaStrMove>]       ;  MSVBVM60.__vbaStrMove
0080F17F   .  50            PUSH EAX
0080F180   .  FF15 80104000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaStrCat>]        ;  MSVBVM60.__vbaStrCat
0080F186   .  8BD0          MOV EDX,EAX
0080F188   .  8D4D 90       LEA ECX,DWORD PTR SS:[EBP-70]
0080F18B   .  FF15 5C134000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaStrMove>]       ;  MSVBVM60.__vbaStrMove
0080F191   .  50            PUSH EAX
0080F192   .  8D8D FCFEFFFF LEA ECX,DWORD PTR SS:[EBP-104]
0080F198   .  51            PUSH ECX
0080F199   .  8D55 94       LEA EDX,DWORD PTR SS:[EBP-6C]
0080F19C   .  52            PUSH EDX
0080F19D   .  FF15 80124000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaStrVarVal>]     ;  MSVBVM60.__vbaStrVarVal
0080F1A3   .  50            PUSH EAX
0080F1A4   .  FF15 64104000 CALL DWORD PTR DS:[<&MSVBVM60.#516>]               ;  MSVBVM60.rtcAnsiValueBstr
0080F1AA   .  66:8BC8       MOV CX,AX                                          ;  取医院名称第EDX个字符(EDX就是上面取整后的结果）
0080F1AD   .  66:83E9 14    SUB CX,14                                          ;  CX减0X14（转换为十进制数）
0080F1B1   .  0F80 230B0000 JO 社区卫生.0080FCDA
0080F1B7   .  FF15 74104000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaI2Abs>]         ;  MSVBVM60.__vbaI2Abs
0080F1BD   .  50            PUSH EAX
0080F1BE   .  FF15 14104000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaStrI2>]         ;  MSVBVM60.__vbaStrI2
0080F1C4   .  8BD0          MOV EDX,EAX
0080F1C6   .  8D4D 8C       LEA ECX,DWORD PTR SS:[EBP-74]
0080F1C9   .  FF15 5C134000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaStrMove>]       ;  MSVBVM60.__vbaStrMove
0080F1CF   .  50            PUSH EAX
0080F1D0   .  FF15 80104000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaStrCat>]        ;  MSVBVM60.__vbaStrCat
0080F1D6   .  8BD0          MOV EDX,EAX
0080F1D8   .  8D4D 84       LEA ECX,DWORD PTR SS:[EBP-7C]
0080F1DB   .  FF15 5C134000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaStrMove>]       ;  MSVBVM60.__vbaStrMove
0080F1E1   .  50            PUSH EAX
0080F1E2   .  8D85 ECFEFFFF LEA EAX,DWORD PTR SS:[EBP-114]
0080F1E8   .  50            PUSH EAX
0080F1E9   .  8D4D 88       LEA ECX,DWORD PTR SS:[EBP-78]
0080F1EC   .  51            PUSH ECX
0080F1ED   .  FF15 80124000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaStrVarVal>]     ;  MSVBVM60.__vbaStrVarVal
0080F1F3   .  50            PUSH EAX
0080F1F4   .  FF15 64104000 CALL DWORD PTR DS:[<&MSVBVM60.#516>]               ;  MSVBVM60.rtcAnsiValueBstr
0080F1FA   .  66:8BC8       MOV CX,AX                                          ;  取医院名称倒数第3个字符给CX
0080F1FD   .  66:83E9 08    SUB CX,8                                           ;  CX减0X8（转换为十进制数）
0080F201   .  0F80 D30A0000 JO 社区卫生.0080FCDA
0080F207   .  FF15 74104000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaI2Abs>]         ;  MSVBVM60.__vbaI2Abs
0080F20D   .  50            PUSH EAX
0080F20E   .  FF15 14104000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaStrI2>]         ;  MSVBVM60.__vbaStrI2
0080F214   .  8BD0          MOV EDX,EAX
0080F216   .  8D4D 80       LEA ECX,DWORD PTR SS:[EBP-80]
0080F219   .  FF15 5C134000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaStrMove>]       ;  MSVBVM60.__vbaStrMove
0080F21F   .  50            PUSH EAX
0080F220   .  FF15 80104000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaStrCat>]        ;  MSVBVM60.__vbaStrCat
0080F226   .  8BD0          MOV EDX,EAX
0080F228   .  8D4D BC       LEA ECX,DWORD PTR SS:[EBP-44]
0080F22B   .  FF15 5C134000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaStrMove>]       ;  MSVBVM60.__vbaStrMove
0080F231   .  8D55 80       LEA EDX,DWORD PTR SS:[EBP-80]
0080F234   .  52            PUSH EDX                                           ;  把上面各数转换成十进制后组合成一个数为SN1
0080F235   .  8D45 84       LEA EAX,DWORD PTR SS:[EBP-7C]
0080F238   .  50            PUSH EAX
0080F239   .  8D4D 88       LEA ECX,DWORD PTR SS:[EBP-78]
0080F23C   .  51            PUSH ECX
0080F23D   .  8D55 8C       LEA EDX,DWORD PTR SS:[EBP-74]
0080F240   .  52            PUSH EDX
0080F241   .  8D45 90       LEA EAX,DWORD PTR SS:[EBP-70]
0080F244   .  50            PUSH EAX
0080F245   .  8D4D 94       LEA ECX,DWORD PTR SS:[EBP-6C]
0080F248   .  51            PUSH ECX
0080F249   .  8D55 98       LEA EDX,DWORD PTR SS:[EBP-68]
0080F24C   .  52            PUSH EDX
0080F24D   .  8D45 9C       LEA EAX,DWORD PTR SS:[EBP-64]
0080F250   .  50            PUSH EAX
0080F251   .  8D4D A0       LEA ECX,DWORD PTR SS:[EBP-60]
0080F254   .  51            PUSH ECX
0080F255   .  8D55 A4       LEA EDX,DWORD PTR SS:[EBP-5C]
0080F258   .  52            PUSH EDX
0080F259   .  8D45 A8       LEA EAX,DWORD PTR SS:[EBP-58]
0080F25C   .  50            PUSH EAX
0080F25D   .  8D4D AC       LEA ECX,DWORD PTR SS:[EBP-54]
0080F260   .  51            PUSH ECX
0080F261   .  8D55 B0       LEA EDX,DWORD PTR SS:[EBP-50]
0080F264   .  52            PUSH EDX
0080F265   .  6A 0D         PUSH 0D
0080F267   .  FF15 DC124000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaFreeStrList>]   ;  MSVBVM60.__vbaFreeStrList
0080F26D   .  83C4 38       ADD ESP,38
0080F270   .  8D85 ECFEFFFF LEA EAX,DWORD PTR SS:[EBP-114]
0080F276   .  50            PUSH EAX
0080F277   .  8D8D FCFEFFFF LEA ECX,DWORD PTR SS:[EBP-104]
0080F27D   .  51            PUSH ECX
0080F27E   .  8D95 0CFFFFFF LEA EDX,DWORD PTR SS:[EBP-F4]
0080F284   .  52            PUSH EDX
0080F285   .  8D85 1CFFFFFF LEA EAX,DWORD PTR SS:[EBP-E4]
0080F28B   .  50            PUSH EAX
0080F28C   .  8D8D 2CFFFFFF LEA ECX,DWORD PTR SS:[EBP-D4]
0080F292   .  51            PUSH ECX
0080F293   .  8D95 3CFFFFFF LEA EDX,DWORD PTR SS:[EBP-C4]
0080F299   .  52            PUSH EDX
0080F29A   .  8D85 4CFFFFFF LEA EAX,DWORD PTR SS:[EBP-B4]
0080F2A0   .  50            PUSH EAX
0080F2A1   .  8D8D 5CFFFFFF LEA ECX,DWORD PTR SS:[EBP-A4]
0080F2A7   .  51            PUSH ECX
0080F2A8   .  8D95 6CFFFFFF LEA EDX,DWORD PTR SS:[EBP-94]
0080F2AE   .  52            PUSH EDX
0080F2AF   .  6A 09         PUSH 9
0080F2B1   .  FF15 48104000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaFreeVarList>]   ;  MSVBVM60.__vbaFreeVarList
0080F2B7   .  83C4 28       ADD ESP,28
0080F2BA   .  C745 FC 0C000>MOV DWORD PTR SS:[EBP-4],0C
0080F2C1   .  8B45 D8       MOV EAX,DWORD PTR SS:[EBP-28]                      ;  把机器码给EAX
0080F2C4   .  50            PUSH EAX
0080F2C5   .  FF15 38104000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaLenBstr>]       ;  计算机器码长度
0080F2CB   .  6BC0 02       IMUL EAX,EAX,2                                     ;  长度乘以2
0080F2CE   .  0F80 060A0000 JO 社区卫生.0080FCDA
0080F2D4   .  8985 B4FEFFFF MOV DWORD PTR SS:[EBP-14C],EAX
0080F2DA   .  C785 ACFEFFFF>MOV DWORD PTR SS:[EBP-154],3
0080F2E4   .  C785 D4FEFFFF>MOV DWORD PTR SS:[EBP-12C],5
0080F2EE   .  C785 CCFEFFFF>MOV DWORD PTR SS:[EBP-134],2
0080F2F8   .  8D4D D8       LEA ECX,DWORD PTR SS:[EBP-28]
0080F2FB   .  898D E4FEFFFF MOV DWORD PTR SS:[EBP-11C],ECX
0080F301   .  C785 DCFEFFFF>MOV DWORD PTR SS:[EBP-124],4008
0080F30B   .  8B55 D8       MOV EDX,DWORD PTR SS:[EBP-28]
0080F30E   .  52            PUSH EDX
0080F30F   .  FF15 38104000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaLenBstr>]       ;  MSVBVM60.__vbaLenBstr
0080F315   .  83E8 02       SUB EAX,2                                          ;  机器码长度减去2
0080F318   .  0F80 BC090000 JO 社区卫生.0080FCDA
0080F31E   .  50            PUSH EAX
0080F31F   .  8D85 DCFEFFFF LEA EAX,DWORD PTR SS:[EBP-124]
0080F325   .  50            PUSH EAX
0080F326   .  8D8D 6CFFFFFF LEA ECX,DWORD PTR SS:[EBP-94]
0080F32C   .  51            PUSH ECX
0080F32D   .  FF15 64134000 CALL DWORD PTR DS:[<&MSVBVM60.#619>]               ;  从右边取机器码长度减2个字符
0080F333   .  C785 C4FEFFFF>MOV DWORD PTR SS:[EBP-13C],5
0080F33D   .  C785 BCFEFFFF>MOV DWORD PTR SS:[EBP-144],2
0080F347   .  8D95 ACFEFFFF LEA EDX,DWORD PTR SS:[EBP-154]
0080F34D   .  52            PUSH EDX
0080F34E   .  8D85 CCFEFFFF LEA EAX,DWORD PTR SS:[EBP-134]
0080F354   .  50            PUSH EAX
0080F355   .  8D8D 6CFFFFFF LEA ECX,DWORD PTR SS:[EBP-94]
0080F35B   .  51            PUSH ECX
0080F35C   .  8D95 5CFFFFFF LEA EDX,DWORD PTR SS:[EBP-A4]
0080F362   .  52            PUSH EDX
0080F363   .  FF15 18124000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaVarMul>]        ;  上面所取的数乘以5
0080F369   .  50            PUSH EAX
0080F36A   .  8D85 BCFEFFFF LEA EAX,DWORD PTR SS:[EBP-144]
0080F370   .  50            PUSH EAX
0080F371   .  8D8D 4CFFFFFF LEA ECX,DWORD PTR SS:[EBP-B4]
0080F377   .  51            PUSH ECX
0080F378   .  FF15 18124000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaVarMul>]        ;  再乘以5
0080F37E   .  50            PUSH EAX
0080F37F   .  8D95 3CFFFFFF LEA EDX,DWORD PTR SS:[EBP-C4]
0080F385   .  52            PUSH EDX
0080F386   .  FF15 84124000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaVarCat>]        ;  MSVBVM60.__vbaVarCat
0080F38C   .  50            PUSH EAX
0080F38D   .  FF15 44104000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaStrVarMove>]    ;  MSVBVM60.__vbaStrVarMove
0080F393   .  8BD0          MOV EDX,EAX                                        ;  把上面计算的十进制数前加22组合成一个数SN2
0080F395   .  8D4D B8       LEA ECX,DWORD PTR SS:[EBP-48]
0080F398   .  FF15 5C134000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaStrMove>]       ;  MSVBVM60.__vbaStrMove
0080F39E   .  8D85 3CFFFFFF LEA EAX,DWORD PTR SS:[EBP-C4]
0080F3A4   .  50            PUSH EAX
0080F3A5   .  8D8D 6CFFFFFF LEA ECX,DWORD PTR SS:[EBP-94]
0080F3AB   .  51            PUSH ECX
0080F3AC   .  6A 02         PUSH 2
0080F3AE   .  FF15 48104000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaFreeVarList>]   ;  MSVBVM60.__vbaFreeVarList
0080F3B4   .  83C4 0C       ADD ESP,0C
0080F3B7   .  C745 FC 0D000>MOV DWORD PTR SS:[EBP-4],0D
0080F3BE   .  8D55 BC       LEA EDX,DWORD PTR SS:[EBP-44]
0080F3C1   .  8995 E4FEFFFF MOV DWORD PTR SS:[EBP-11C],EDX
0080F3C7   .  C785 DCFEFFFF>MOV DWORD PTR SS:[EBP-124],4008
0080F3D1   .  8B45 BC       MOV EAX,DWORD PTR SS:[EBP-44]
0080F3D4   .  50            PUSH EAX
0080F3D5   .  FF15 38104000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaLenBstr>]       ;  计算SN1长度
0080F3DB   .  8985 5CFEFFFF MOV DWORD PTR SS:[EBP-1A4],EAX
0080F3E1   .  DB85 5CFEFFFF FILD DWORD PTR SS:[EBP-1A4]
0080F3E7   .  DD9D 54FEFFFF FSTP QWORD PTR SS:[EBP-1AC]
0080F3ED   .  DD85 54FEFFFF FLD QWORD PTR SS:[EBP-1AC]
0080F3F3   .  833D 0010C400>CMP DWORD PTR DS:[C41000],0
0080F3FA   .  75 08         JNZ SHORT 社区卫生.0080F404
0080F3FC   .  DC35 60164000 FDIV QWORD PTR DS:[401660]                         ;  SN1长度除以2
0080F402   .  EB 11         JMP SHORT 社区卫生.0080F415
0080F404   >  FF35 64164000 PUSH DWORD PTR DS:[401664]
0080F40A   .  FF35 60164000 PUSH DWORD PTR DS:[401660]
0080F410   .  E8 BF8AC0FF   CALL <JMP.&MSVBVM60._adj_fdiv_m64>
0080F415   >  DFE0          FSTSW AX
0080F417   .  A8 0D         TEST AL,0D
0080F419   .  0F85 B6080000 JNZ 社区卫生.0080FCD5
0080F41F   .  FF15 44134000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaFpI4>]          ;  MSVBVM60.__vbaFpI4
0080F425   .  50            PUSH EAX                                           ;  除以2并取整后的结果给EAX
0080F426   .  8D8D DCFEFFFF LEA ECX,DWORD PTR SS:[EBP-124]
0080F42C   .  51            PUSH ECX
0080F42D   .  8D95 6CFFFFFF LEA EDX,DWORD PTR SS:[EBP-94]
0080F433   .  52            PUSH EDX
0080F434   .  FF15 50134000 CALL DWORD PTR DS:[<&MSVBVM60.#617>]               ;  从左边取SN1前EAX个字符
0080F43A   .  8B45 B8       MOV EAX,DWORD PTR SS:[EBP-48]
0080F43D   .  8985 D4FEFFFF MOV DWORD PTR SS:[EBP-12C],EAX
0080F443   .  C785 CCFEFFFF>MOV DWORD PTR SS:[EBP-134],8
0080F44D   .  8D4D BC       LEA ECX,DWORD PTR SS:[EBP-44]
0080F450   .  898D C4FEFFFF MOV DWORD PTR SS:[EBP-13C],ECX
0080F456   .  C785 BCFEFFFF>MOV DWORD PTR SS:[EBP-144],4008
0080F460   .  8B55 BC       MOV EDX,DWORD PTR SS:[EBP-44]
0080F463   .  52            PUSH EDX
0080F464   .  FF15 38104000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaLenBstr>]       ;  计算SN1长度
0080F46A   .  8985 50FEFFFF MOV DWORD PTR SS:[EBP-1B0],EAX
0080F470   .  DB85 50FEFFFF FILD DWORD PTR SS:[EBP-1B0]
0080F476   .  DD9D 48FEFFFF FSTP QWORD PTR SS:[EBP-1B8]
0080F47C   .  DD85 48FEFFFF FLD QWORD PTR SS:[EBP-1B8]
0080F482   .  833D 0010C400>CMP DWORD PTR DS:[C41000],0
0080F489   .  75 08         JNZ SHORT 社区卫生.0080F493
0080F48B   .  DC35 60164000 FDIV QWORD PTR DS:[401660]                         ;  SN1长度除以2
0080F491   .  EB 11         JMP SHORT 社区卫生.0080F4A4
0080F493   >  FF35 64164000 PUSH DWORD PTR DS:[401664]
0080F499   .  FF35 60164000 PUSH DWORD PTR DS:[401660]
0080F49F   .  E8 308AC0FF   CALL <JMP.&MSVBVM60._adj_fdiv_m64>
0080F4A4   >  DFE0          FSTSW AX
0080F4A6   .  A8 0D         TEST AL,0D
0080F4A8   .  0F85 27080000 JNZ 社区卫生.0080FCD5
0080F4AE   .  FF15 44134000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaFpI4>]          ;  MSVBVM60.__vbaFpI4
0080F4B4   .  50            PUSH EAX                                           ;  除以2并取整后的结果给EAX
0080F4B5   .  8D85 BCFEFFFF LEA EAX,DWORD PTR SS:[EBP-144]
0080F4BB   .  50            PUSH EAX
0080F4BC   .  8D8D 4CFFFFFF LEA ECX,DWORD PTR SS:[EBP-B4]
0080F4C2   .  51            PUSH ECX
0080F4C3   .  FF15 64134000 CALL DWORD PTR DS:[<&MSVBVM60.#619>]               ;  从右边取SN1后EAX个字符
0080F4C9   .  8D95 6CFFFFFF LEA EDX,DWORD PTR SS:[EBP-94]
0080F4CF   .  52            PUSH EDX
0080F4D0   .  8D85 CCFEFFFF LEA EAX,DWORD PTR SS:[EBP-134]
0080F4D6   .  50            PUSH EAX
0080F4D7   .  8D8D 5CFFFFFF LEA ECX,DWORD PTR SS:[EBP-A4]
0080F4DD   .  51            PUSH ECX
0080F4DE   .  FF15 84124000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaVarCat>]        ;  MSVBVM60.__vbaVarCat
0080F4E4   .  50            PUSH EAX
0080F4E5   .  8D95 4CFFFFFF LEA EDX,DWORD PTR SS:[EBP-B4]
0080F4EB   .  52            PUSH EDX
0080F4EC   .  8D85 3CFFFFFF LEA EAX,DWORD PTR SS:[EBP-C4]
0080F4F2   .  50            PUSH EAX
0080F4F3   .  FF15 84124000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaVarCat>]        ;  MSVBVM60.__vbaVarCat
0080F4F9   .  50            PUSH EAX
0080F4FA   .  FF15 44104000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaStrVarMove>]    ;  MSVBVM60.__vbaStrVarMove
0080F500   .  8BD0          MOV EDX,EAX                                        ;  把SN1的前一半的结果+SN2+SN1的后一半的结果为SN
0080F502   .  8D4D C0       LEA ECX,DWORD PTR SS:[EBP-40]
0080F505   .  FF15 5C134000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaStrMove>]       ;  MSVBVM60.__vbaStrMove
0080F50B   .  8D8D 3CFFFFFF LEA ECX,DWORD PTR SS:[EBP-C4]
0080F511   .  51            PUSH ECX
0080F512   .  8D95 4CFFFFFF LEA EDX,DWORD PTR SS:[EBP-B4]
0080F518   .  52            PUSH EDX
0080F519   .  8D85 5CFFFFFF LEA EAX,DWORD PTR SS:[EBP-A4]
0080F51F   .  50            PUSH EAX
0080F520   .  8D8D 6CFFFFFF LEA ECX,DWORD PTR SS:[EBP-94]
0080F526   .  51            PUSH ECX
0080F527   .  6A 04         PUSH 4
0080F529   .  FF15 48104000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaFreeVarList>]   ;  MSVBVM60.__vbaFreeVarList
0080F52F   .  83C4 14       ADD ESP,14
0080F532   .  C745 FC 0E000>MOV DWORD PTR SS:[EBP-4],0E
0080F539   .  8B55 C0       MOV EDX,DWORD PTR SS:[EBP-40]
0080F53C   .  52            PUSH EDX
0080F53D   .  6A 08         PUSH 8
0080F53F   .  FF15 14104000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaStrI2>]         ;  MSVBVM60.__vbaStrI2
0080F545   .  8BD0          MOV EDX,EAX
0080F547   .  8D4D B0       LEA ECX,DWORD PTR SS:[EBP-50]
0080F54A   .  FF15 5C134000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaStrMove>]       ;  MSVBVM60.__vbaStrMove
0080F550   .  50            PUSH EAX
0080F551   .  FF15 80104000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaStrCat>]        ;  MSVBVM60.__vbaStrCat
0080F557   .  8BD0          MOV EDX,EAX                                        ;  最后再SN结果后加上一个8－－－－》即为注册码
0080F559   .  8D4D C0       LEA ECX,DWORD PTR SS:[EBP-40]
0080F55C   .  FF15 5C134000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaStrMove>]       ;  MSVBVM60.__vbaStrMove
0080F562   .  8D4D B0       LEA ECX,DWORD PTR SS:[EBP-50]
0080F565   .  FF15 A8134000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaFreeStr>]       ;  MSVBVM60.__vbaFreeStr
0080F56B   .  C745 FC 0F000>MOV DWORD PTR SS:[EBP-4],0F
0080F572   .  8B45 B4       MOV EAX,DWORD PTR SS:[EBP-4C]
0080F575   .  50            PUSH EAX
0080F576   .  8B4D C0       MOV ECX,DWORD PTR SS:[EBP-40]
0080F579   .  51            PUSH ECX
0080F57A   .  FF15 88114000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaStrCmp>]        ;  注册码比较
0080F580   .  85C0          TEST EAX,EAX
0080F582   .  0F85 05030000 JNZ 社区卫生.0080F88D
0080F588   .  C745 FC 10000>MOV DWORD PTR SS:[EBP-4],10
0080F58F   .  8B55 C0       MOV EDX,DWORD PTR SS:[EBP-40]
0080F592   .  8D4D BC       LEA ECX,DWORD PTR SS:[EBP-44]
0080F595   .  FF15 D0124000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaStrCopy>]       ;  MSVBVM60.__vbaStrCopy
0080F59B   .  C745 FC 11000>MOV DWORD PTR SS:[EBP-4],11
0080F5A2   .  68 145F4D00   PUSH 社区卫生.004D5F14                                 ;  UNICODE "update HosPitalInfo set Hospital= "
0080F5A7   .  68 BC884C00   PUSH 社区卫生.004C88BC
0080F5AC   .  FF15 80104000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaStrCat>]        ;  MSVBVM60.__vbaStrCat
0080F5B2   .  8985 74FFFFFF MOV DWORD PTR SS:[EBP-8C],EAX
0080F5B8   .  C785 6CFFFFFF>MOV DWORD PTR SS:[EBP-94],8
0080F5C2   .  C785 E4FEFFFF>MOV DWORD PTR SS:[EBP-11C],社区卫生.004C88BC
0080F5CC   .  C785 DCFEFFFF>MOV DWORD PTR SS:[EBP-124],8
0080F5D6   .  C785 D4FEFFFF>MOV DWORD PTR SS:[EBP-12C],社区卫生.004D5F60           ;  UNICODE ",MachineCode="
0080F5E0   .  C785 CCFEFFFF>MOV DWORD PTR SS:[EBP-134],8
0080F5EA   .  C785 C4FEFFFF>MOV DWORD PTR SS:[EBP-13C],社区卫生.004C88BC
0080F5F4   .  C785 BCFEFFFF>MOV DWORD PTR SS:[EBP-144],8
0080F5FE   .  8B55 BC       MOV EDX,DWORD PTR SS:[EBP-44]
0080F601   .  8995 B4FEFFFF MOV DWORD PTR SS:[EBP-14C],EDX
0080F607   .  C785 ACFEFFFF>MOV DWORD PTR SS:[EBP-154],8
0080F611   .  C785 A4FEFFFF>MOV DWORD PTR SS:[EBP-15C],社区卫生.004C88BC
0080F61B   .  C785 9CFEFFFF>MOV DWORD PTR SS:[EBP-164],8
0080F625   .  8D85 6CFFFFFF LEA EAX,DWORD PTR SS:[EBP-94]
0080F62B   .  50            PUSH EAX
0080F62C   .  8D4D C4       LEA ECX,DWORD PTR SS:[EBP-3C]
0080F62F   .  51            PUSH ECX
0080F630   .  8D95 5CFFFFFF LEA EDX,DWORD PTR SS:[EBP-A4]
0080F636   .  52            PUSH EDX
0080F637   .  FF15 84124000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaVarCat>]        ;  MSVBVM60.__vbaVarCat
0080F63D   .  50            PUSH EAX
0080F63E   .  8D85 DCFEFFFF LEA EAX,DWORD PTR SS:[EBP-124]
0080F644   .  50            PUSH EAX
0080F645   .  8D8D 4CFFFFFF LEA ECX,DWORD PTR SS:[EBP-B4]
0080F64B   .  51            PUSH ECX
0080F64C   .  FF15 84124000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaVarCat>]        ;  MSVBVM60.__vbaVarCat
0080F652   .  50            PUSH EAX
0080F653   .  8D95 CCFEFFFF LEA EDX,DWORD PTR SS:[EBP-134]
0080F659   .  52            PUSH EDX
0080F65A   .  8D85 3CFFFFFF LEA EAX,DWORD PTR SS:[EBP-C4]
0080F660   .  50            PUSH EAX
0080F661   .  FF15 84124000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaVarCat>]        ;  MSVBVM60.__vbaVarCat
0080F667   .  50            PUSH EAX
0080F668   .  8D8D BCFEFFFF LEA ECX,DWORD PTR SS:[EBP-144]
0080F66E   .  51            PUSH ECX
0080F66F   .  8D95 2CFFFFFF LEA EDX,DWORD PTR SS:[EBP-D4]
0080F675   .  52            PUSH EDX
0080F676   .  FF15 84124000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaVarCat>]        ;  MSVBVM60.__vbaVarCat
0080F67C   .  50            PUSH EAX
0080F67D   .  8D85 ACFEFFFF LEA EAX,DWORD PTR SS:[EBP-154]
0080F683   .  50            PUSH EAX
0080F684   .  8D8D 1CFFFFFF LEA ECX,DWORD PTR SS:[EBP-E4]
0080F68A   .  51            PUSH ECX
0080F68B   .  FF15 84124000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaVarCat>]        ;  MSVBVM60.__vbaVarCat
0080F691   .  50            PUSH EAX
0080F692   .  8D95 9CFEFFFF LEA EDX,DWORD PTR SS:[EBP-164]
0080F698   .  52            PUSH EDX
0080F699   .  8D85 0CFFFFFF LEA EAX,DWORD PTR SS:[EBP-F4]
0080F69F   .  50            PUSH EAX
0080F6A0   .  FF15 84124000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaVarCat>]        ;  MSVBVM60.__vbaVarCat
0080F6A6   .  50            PUSH EAX
0080F6A7   .  FF15 44104000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaStrVarMove>]    ;  MSVBVM60.__vbaStrVarMove
0080F6AD   .  8BD0          MOV EDX,EAX
0080F6AF   .  8D4D D4       LEA ECX,DWORD PTR SS:[EBP-2C]
0080F6B2   .  FF15 5C134000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaStrMove>]       ;  MSVBVM60.__vbaStrMove
0080F6B8   .  8D8D 0CFFFFFF LEA ECX,DWORD PTR SS:[EBP-F4]
0080F6BE   .  51            PUSH ECX
0080F6BF   .  8D95 1CFFFFFF LEA EDX,DWORD PTR SS:[EBP-E4]
0080F6C5   .  52            PUSH EDX
0080F6C6   .  8D85 2CFFFFFF LEA EAX,DWORD PTR SS:[EBP-D4]
0080F6CC   .  50            PUSH EAX
0080F6CD   .  8D8D 3CFFFFFF LEA ECX,DWORD PTR SS:[EBP-C4]
0080F6D3   .  51            PUSH ECX
0080F6D4   .  8D95 4CFFFFFF LEA EDX,DWORD PTR SS:[EBP-B4]
0080F6DA   .  52            PUSH EDX
0080F6DB   .  8D85 5CFFFFFF LEA EAX,DWORD PTR SS:[EBP-A4]
0080F6E1   .  50            PUSH EAX
0080F6E2   .  8D8D 6CFFFFFF LEA ECX,DWORD PTR SS:[EBP-94]
0080F6E8   .  51            PUSH ECX
0080F6E9   .  6A 07         PUSH 7
0080F6EB   .  FF15 48104000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaFreeVarList>]   ;  MSVBVM60.__vbaFreeVarList
0080F6F1   .  83C4 20       ADD ESP,20
0080F6F4   .  C745 FC 12000>MOV DWORD PTR SS:[EBP-4],12
0080F6FB   .  833D E010C400>CMP DWORD PTR DS:[C410E0],0
0080F702   .  75 1C         JNZ SHORT 社区卫生.0080F720
0080F704   .  68 E010C400   PUSH 社区卫生.00C410E0
0080F709   .  68 007A4C00   PUSH 社区卫生.004C7A00
0080F70E   .  FF15 B8124000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaNew2>]          ;  MSVBVM60.__vbaNew2
0080F714   .  C785 44FEFFFF>MOV DWORD PTR SS:[EBP-1BC],社区卫生.00C410E0
0080F71E   .  EB 0A         JMP SHORT 社区卫生.0080F72A
0080F720   >  C785 44FEFFFF>MOV DWORD PTR SS:[EBP-1BC],社区卫生.00C410E0
0080F72A   >  8B95 44FEFFFF MOV EDX,DWORD PTR SS:[EBP-1BC]
0080F730   .  8B02          MOV EAX,DWORD PTR DS:[EDX]
0080F732   .  8985 94FEFFFF MOV DWORD PTR SS:[EBP-16C],EAX
0080F738   .  C785 74FFFFFF>MOV DWORD PTR SS:[EBP-8C],80020004
0080F742   .  C785 6CFFFFFF>MOV DWORD PTR SS:[EBP-94],0A
0080F74C   .  8D8D 6CFFFFFF LEA ECX,DWORD PTR SS:[EBP-94]
0080F752   .  FF15 20134000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaFreeVarg>]      ;  MSVBVM60.__vbaFreeVarg
0080F758   .  8D8D 7CFFFFFF LEA ECX,DWORD PTR SS:[EBP-84]
0080F75E   .  51            PUSH ECX
0080F75F   .  6A 01         PUSH 1
0080F761   .  8D95 6CFFFFFF LEA EDX,DWORD PTR SS:[EBP-94]
0080F767   .  52            PUSH EDX
0080F768   .  8B45 D4       MOV EAX,DWORD PTR SS:[EBP-2C]
0080F76B   .  50            PUSH EAX
0080F76C   .  8B8D 94FEFFFF MOV ECX,DWORD PTR SS:[EBP-16C]
0080F772   .  8B11          MOV EDX,DWORD PTR DS:[ECX]
0080F774   .  8B85 94FEFFFF MOV EAX,DWORD PTR SS:[EBP-16C]
0080F77A   .  50            PUSH EAX
0080F77B   .  FF52 40       CALL DWORD PTR DS:[EDX+40]
0080F77E   .  DBE2          FCLEX
0080F780   .  8985 90FEFFFF MOV DWORD PTR SS:[EBP-170],EAX
0080F786   .  83BD 90FEFFFF>CMP DWORD PTR SS:[EBP-170],0
0080F78D   .  7D 23         JGE SHORT 社区卫生.0080F7B2
0080F78F   .  6A 40         PUSH 40
0080F791   .  68 DC7D4C00   PUSH 社区卫生.004C7DDC
0080F796   .  8B8D 94FEFFFF MOV ECX,DWORD PTR SS:[EBP-16C]
0080F79C   .  51            PUSH ECX
0080F79D   .  8B95 90FEFFFF MOV EDX,DWORD PTR SS:[EBP-170]
0080F7A3   .  52            PUSH EDX
0080F7A4   .  FF15 AC104000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaHresultCheckObj>;  MSVBVM60.__vbaHresultCheckObj
0080F7AA   .  8985 40FEFFFF MOV DWORD PTR SS:[EBP-1C0],EAX
0080F7B0   .  EB 0A         JMP SHORT 社区卫生.0080F7BC
0080F7B2   >  C785 40FEFFFF>MOV DWORD PTR SS:[EBP-1C0],0
0080F7BC   >  8D8D 7CFFFFFF LEA ECX,DWORD PTR SS:[EBP-84]
0080F7C2   .  FF15 AC134000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaFreeObj>]       ;  MSVBVM60.__vbaFreeObj
0080F7C8   .  8D8D 6CFFFFFF LEA ECX,DWORD PTR SS:[EBP-94]
0080F7CE   .  FF15 2C104000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaFreeVar>]       ;  MSVBVM60.__vbaFreeVar
0080F7D4   .  C745 FC 13000>MOV DWORD PTR SS:[EBP-4],13
0080F7DB   .  C785 44FFFFFF>MOV DWORD PTR SS:[EBP-BC],80020004
0080F7E5   .  C785 3CFFFFFF>MOV DWORD PTR SS:[EBP-C4],0A
0080F7EF   .  C785 54FFFFFF>MOV DWORD PTR SS:[EBP-AC],80020004
0080F7F9   .  C785 4CFFFFFF>MOV DWORD PTR SS:[EBP-B4],0A
0080F803   .  C785 64FFFFFF>MOV DWORD PTR SS:[EBP-9C],80020004
0080F80D   .  C785 5CFFFFFF>MOV DWORD PTR SS:[EBP-A4],0A
0080F817   .  C785 E4FEFFFF>MOV DWORD PTR SS:[EBP-11C],社区卫生.004D5F80
0080F821   .  C785 DCFEFFFF>MOV DWORD PTR SS:[EBP-124],8
0080F82B   .  8D95 DCFEFFFF LEA EDX,DWORD PTR SS:[EBP-124]
0080F831   .  8D8D 6CFFFFFF LEA ECX,DWORD PTR SS:[EBP-94]
0080F837   .  FF15 18134000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaVarDup>]        ;  MSVBVM60.__vbaVarDup
0080F83D   .  8D85 3CFFFFFF LEA EAX,DWORD PTR SS:[EBP-C4]
0080F843   .  50            PUSH EAX
0080F844   .  8D8D 4CFFFFFF LEA ECX,DWORD PTR SS:[EBP-B4]
0080F84A   .  51            PUSH ECX
0080F84B   .  8D95 5CFFFFFF LEA EDX,DWORD PTR SS:[EBP-A4]
0080F851   .  52            PUSH EDX
0080F852   .  6A 40         PUSH 40
0080F854   .  8D85 6CFFFFFF LEA EAX,DWORD PTR SS:[EBP-94]
0080F85A   .  50            PUSH EAX
0080F85B   .  FF15 EC104000 CALL DWORD PTR DS:[<&MSVBVM60.#595>]               ;  MSVBVM60.rtcMsgBox
0080F861   .  8D8D 3CFFFFFF LEA ECX,DWORD PTR SS:[EBP-C4]
0080F867   .  51            PUSH ECX
0080F868   .  8D95 4CFFFFFF LEA EDX,DWORD PTR SS:[EBP-B4]
0080F86E   .  52            PUSH EDX
0080F86F   .  8D85 5CFFFFFF LEA EAX,DWORD PTR SS:[EBP-A4]
0080F875   .  50            PUSH EAX
0080F876   .  8D8D 6CFFFFFF LEA ECX,DWORD PTR SS:[EBP-94]
0080F87C   .  51            PUSH ECX
0080F87D   .  6A 04         PUSH 4
0080F87F   .  FF15 48104000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaFreeVarList>]   ;  MSVBVM60.__vbaFreeVarList
0080F885   .  83C4 14       ADD ESP,14
0080F888   .  E9 CB000000   JMP 社区卫生.0080F958
0080F88D   >  C745 FC 15000>MOV DWORD PTR SS:[EBP-4],15
0080F894   .  C785 44FFFFFF>MOV DWORD PTR SS:[EBP-BC],80020004
0080F89E   .  C785 3CFFFFFF>MOV DWORD PTR SS:[EBP-C4],0A
0080F8A8   .  C785 54FFFFFF>MOV DWORD PTR SS:[EBP-AC],80020004
0080F8B2   .  C785 4CFFFFFF>MOV DWORD PTR SS:[EBP-B4],0A
0080F8BC   .  C785 D4FEFFFF>MOV DWORD PTR SS:[EBP-12C],社区卫生.004C7BDC
0080F8C6   .  C785 CCFEFFFF>MOV DWORD PTR SS:[EBP-134],8
0080F8D0   .  8D95 CCFEFFFF LEA EDX,DWORD PTR SS:[EBP-134]
0080F8D6   .  8D8D 5CFFFFFF LEA ECX,DWORD PTR SS:[EBP-A4]
0080F8DC   .  FF15 18134000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaVarDup>]        ;  MSVBVM60.__vbaVarDup
0080F8E2   .  C785 E4FEFFFF>MOV DWORD PTR SS:[EBP-11C],社区卫生.004D5FA4
0080F8EC   .  C785 DCFEFFFF>MOV DWORD PTR SS:[EBP-124],8
0080F8F6   .  8D95 DCFEFFFF LEA EDX,DWORD PTR SS:[EBP-124]
0080F8FC   .  8D8D 6CFFFFFF LEA ECX,DWORD PTR SS:[EBP-94]
0080F902   .  FF15 18134000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaVarDup>]        ;  MSVBVM60.__vbaVarDup
0080F908   .  8D95 3CFFFFFF LEA EDX,DWORD PTR SS:[EBP-C4]
0080F90E   .  52            PUSH EDX
0080F90F   .  8D85 4CFFFFFF LEA EAX,DWORD PTR SS:[EBP-B4]
0080F915   .  50            PUSH EAX
0080F916   .  8D8D 5CFFFFFF LEA ECX,DWORD PTR SS:[EBP-A4]
0080F91C   .  51            PUSH ECX
0080F91D   .  6A 30         PUSH 30
0080F91F   .  8D95 6CFFFFFF LEA EDX,DWORD PTR SS:[EBP-94]
0080F925   .  52            PUSH EDX
0080F926   .  FF15 EC104000 CALL DWORD PTR DS:[<&MSVBVM60.#595>]               ;  MSVBVM60.rtcMsgBox
0080F92C   .  8D85 3CFFFFFF LEA EAX,DWORD PTR SS:[EBP-C4]
0080F932   .  50            PUSH EAX
0080F933   .  8D8D 4CFFFFFF LEA ECX,DWORD PTR SS:[EBP-B4]
0080F939   .  51            PUSH ECX
0080F93A   .  8D95 5CFFFFFF LEA EDX,DWORD PTR SS:[EBP-A4]
0080F940   .  52            PUSH EDX
0080F941   .  8D85 6CFFFFFF LEA EAX,DWORD PTR SS:[EBP-94]
0080F947   .  50            PUSH EAX
0080F948   .  6A 04         PUSH 4
0080F94A   .  FF15 48104000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaFreeVarList>]   ;  MSVBVM60.__vbaFreeVarList
0080F950   .  83C4 14       ADD ESP,14
0080F953   .  E9 81020000   JMP 社区卫生.0080FBD9
0080F958   >  E9 7C020000   JMP 社区卫生.0080FBD9
0080F95D   .  C745 FC 1A000>MOV DWORD PTR SS:[EBP-4],1A
0080F964   .  FF15 F4124000 CALL DWORD PTR DS:[<&MSVBVM60.#685>]               ;  MSVBVM60.rtcErrObj
0080F96A   .  50            PUSH EAX
0080F96B   .  8D8D 7CFFFFFF LEA ECX,DWORD PTR SS:[EBP-84]
0080F971   .  51            PUSH ECX
0080F972   .  FF15 E8104000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaObjSet>]        ;  MSVBVM60.__vbaObjSet
0080F978   .  8985 94FEFFFF MOV DWORD PTR SS:[EBP-16C],EAX
0080F97E   .  8D95 98FEFFFF LEA EDX,DWORD PTR SS:[EBP-168]
0080F984   .  52            PUSH EDX
0080F985   .  8B85 94FEFFFF MOV EAX,DWORD PTR SS:[EBP-16C]
0080F98B   .  8B08          MOV ECX,DWORD PTR DS:[EAX]
0080F98D   .  8B95 94FEFFFF MOV EDX,DWORD PTR SS:[EBP-16C]
0080F993   .  52            PUSH EDX
0080F994   .  FF51 1C       CALL DWORD PTR DS:[ECX+1C]
0080F997   .  DBE2          FCLEX
0080F999   .  8985 90FEFFFF MOV DWORD PTR SS:[EBP-170],EAX
0080F99F   .  83BD 90FEFFFF>CMP DWORD PTR SS:[EBP-170],0
0080F9A6   .  7D 23         JGE SHORT 社区卫生.0080F9CB
0080F9A8   .  6A 1C         PUSH 1C
0080F9AA   .  68 70664C00   PUSH 社区卫生.004C6670
0080F9AF   .  8B85 94FEFFFF MOV EAX,DWORD PTR SS:[EBP-16C]
0080F9B5   .  50            PUSH EAX
0080F9B6   .  8B8D 90FEFFFF MOV ECX,DWORD PTR SS:[EBP-170]
0080F9BC   .  51            PUSH ECX
0080F9BD   .  FF15 AC104000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaHresultCheckObj>;  MSVBVM60.__vbaHresultCheckObj
0080F9C3   .  8985 3CFEFFFF MOV DWORD PTR SS:[EBP-1C4],EAX
0080F9C9   .  EB 0A         JMP SHORT 社区卫生.0080F9D5
0080F9CB   >  C785 3CFEFFFF>MOV DWORD PTR SS:[EBP-1C4],0
0080F9D5   >  33D2          XOR EDX,EDX
0080F9D7   .  83BD 98FEFFFF>CMP DWORD PTR SS:[EBP-168],5
0080F9DE   .  0F94C2        SETE DL
0080F9E1   .  F7DA          NEG EDX
0080F9E3   .  66:8995 8CFEF>MOV WORD PTR SS:[EBP-174],DX
0080F9EA   .  8D8D 7CFFFFFF LEA ECX,DWORD PTR SS:[EBP-84]
0080F9F0   .  FF15 AC134000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaFreeObj>]       ;  MSVBVM60.__vbaFreeObj
0080F9F6   .  0FBF85 8CFEFF>MOVSX EAX,WORD PTR SS:[EBP-174]
0080F9FD   .  85C0          TEST EAX,EAX
0080F9FF   .  74 24         JE SHORT 社区卫生.0080FA25
0080FA01   .  C745 FC 1B000>MOV DWORD PTR SS:[EBP-4],1B
0080FA08   .  BA EC7A4C00   MOV EDX,社区卫生.004C7AEC                              ;  UNICODE "56759907568"
0080FA0D   .  8D4D D8       LEA ECX,DWORD PTR SS:[EBP-28]
0080FA10   .  FF15 D0124000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaStrCopy>]       ;  MSVBVM60.__vbaStrCopy
0080FA16   .  C745 FC 1C000>MOV DWORD PTR SS:[EBP-4],1C
0080FA1D   .  6A FF         PUSH -1
0080FA1F   .  FF15 7C104000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaResume>]        ;  MSVBVM60.__vbaResume
0080FA25   >  C745 FC 1E000>MOV DWORD PTR SS:[EBP-4],1E
0080FA2C   .  C785 44FFFFFF>MOV DWORD PTR SS:[EBP-BC],80020004
0080FA36   .  C785 3CFFFFFF>MOV DWORD PTR SS:[EBP-C4],0A
0080FA40   .  C785 54FFFFFF>MOV DWORD PTR SS:[EBP-AC],80020004
0080FA4A   .  C785 4CFFFFFF>MOV DWORD PTR SS:[EBP-B4],0A
0080FA54   .  C785 D4FEFFFF>MOV DWORD PTR SS:[EBP-12C],社区卫生.004C7BDC
0080FA5E   .  C785 CCFEFFFF>MOV DWORD PTR SS:[EBP-134],8
0080FA68   .  8D95 CCFEFFFF LEA EDX,DWORD PTR SS:[EBP-134]
0080FA6E   .  8D8D 5CFFFFFF LEA ECX,DWORD PTR SS:[EBP-A4]
0080FA74   .  FF15 18134000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaVarDup>]        ;  MSVBVM60.__vbaVarDup
0080FA7A   .  C785 E4FEFFFF>MOV DWORD PTR SS:[EBP-11C],社区卫生.004D5FCC
0080FA84   .  C785 DCFEFFFF>MOV DWORD PTR SS:[EBP-124],8
0080FA8E   .  8D95 DCFEFFFF LEA EDX,DWORD PTR SS:[EBP-124]
0080FA94   .  8D8D 6CFFFFFF LEA ECX,DWORD PTR SS:[EBP-94]
0080FA9A   .  FF15 18134000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaVarDup>]        ;  MSVBVM60.__vbaVarDup
0080FAA0   .  8D8D 3CFFFFFF LEA ECX,DWORD PTR SS:[EBP-C4]
0080FAA6   .  51            PUSH ECX
0080FAA7   .  8D95 4CFFFFFF LEA EDX,DWORD PTR SS:[EBP-B4]
0080FAAD   .  52            PUSH EDX
0080FAAE   .  8D85 5CFFFFFF LEA EAX,DWORD PTR SS:[EBP-A4]
0080FAB4   .  50            PUSH EAX
0080FAB5   .  6A 30         PUSH 30
0080FAB7   .  8D8D 6CFFFFFF LEA ECX,DWORD PTR SS:[EBP-94]
0080FABD   .  51            PUSH ECX
0080FABE   .  FF15 EC104000 CALL DWORD PTR DS:[<&MSVBVM60.#595>]               ;  MSVBVM60.rtcMsgBox
0080FAC4   .  8D95 3CFFFFFF LEA EDX,DWORD PTR SS:[EBP-C4]
0080FACA   .  52            PUSH EDX
0080FACB   .  8D85 4CFFFFFF LEA EAX,DWORD PTR SS:[EBP-B4]
0080FAD1   .  50            PUSH EAX
0080FAD2   .  8D8D 5CFFFFFF LEA ECX,DWORD PTR SS:[EBP-A4]
0080FAD8   .  51            PUSH ECX
0080FAD9   .  8D95 6CFFFFFF LEA EDX,DWORD PTR SS:[EBP-94]
0080FADF   .  52            PUSH EDX
0080FAE0   .  6A 04         PUSH 4
0080FAE2   .  FF15 48104000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaFreeVarList>]   ;  MSVBVM60.__vbaFreeVarList
0080FAE8   .  83C4 14       ADD ESP,14
0080FAEB   .  C745 FC 1F000>MOV DWORD PTR SS:[EBP-4],1F
0080FAF2   .  FF15 F4124000 CALL DWORD PTR DS:[<&MSVBVM60.#685>]               ;  MSVBVM60.rtcErrObj
0080FAF8   .  50            PUSH EAX
0080FAF9   .  8D85 7CFFFFFF LEA EAX,DWORD PTR SS:[EBP-84]
0080FAFF   .  50            PUSH EAX
0080FB00   .  FF15 E8104000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaObjSet>]        ;  MSVBVM60.__vbaObjSet
0080FB06   .  8985 94FEFFFF MOV DWORD PTR SS:[EBP-16C],EAX
0080FB0C   .  8D4D B0       LEA ECX,DWORD PTR SS:[EBP-50]
0080FB0F   .  51            PUSH ECX
0080FB10   .  8B95 94FEFFFF MOV EDX,DWORD PTR SS:[EBP-16C]
0080FB16   .  8B02          MOV EAX,DWORD PTR DS:[EDX]
0080FB18   .  8B8D 94FEFFFF MOV ECX,DWORD PTR SS:[EBP-16C]
0080FB1E   .  51            PUSH ECX
0080FB1F   .  FF50 2C       CALL DWORD PTR DS:[EAX+2C]
0080FB22   .  DBE2          FCLEX
0080FB24   .  8985 90FEFFFF MOV DWORD PTR SS:[EBP-170],EAX
0080FB2A   .  83BD 90FEFFFF>CMP DWORD PTR SS:[EBP-170],0
0080FB31   .  7D 23         JGE SHORT 社区卫生.0080FB56
0080FB33   .  6A 2C         PUSH 2C
0080FB35   .  68 70664C00   PUSH 社区卫生.004C6670
0080FB3A   .  8B95 94FEFFFF MOV EDX,DWORD PTR SS:[EBP-16C]
0080FB40   .  52            PUSH EDX
0080FB41   .  8B85 90FEFFFF MOV EAX,DWORD PTR SS:[EBP-170]
0080FB47   .  50            PUSH EAX
0080FB48   .  FF15 AC104000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaHresultCheckObj>;  MSVBVM60.__vbaHresultCheckObj
0080FB4E   .  8985 38FEFFFF MOV DWORD PTR SS:[EBP-1C8],EAX
0080FB54   .  EB 0A         JMP SHORT 社区卫生.0080FB60
0080FB56   >  C785 38FEFFFF>MOV DWORD PTR SS:[EBP-1C8],0
0080FB60   >  8D4D AC       LEA ECX,DWORD PTR SS:[EBP-54]
0080FB63   .  51            PUSH ECX
0080FB64   .  8B55 08       MOV EDX,DWORD PTR SS:[EBP+8]
0080FB67   .  8B02          MOV EAX,DWORD PTR DS:[EDX]
0080FB69   .  8B4D 08       MOV ECX,DWORD PTR SS:[EBP+8]
0080FB6C   .  51            PUSH ECX
0080FB6D   .  FF50 48       CALL DWORD PTR DS:[EAX+48]
0080FB70   .  DBE2          FCLEX
0080FB72   .  8985 8CFEFFFF MOV DWORD PTR SS:[EBP-174],EAX
0080FB78   .  83BD 8CFEFFFF>CMP DWORD PTR SS:[EBP-174],0
0080FB7F   .  7D 20         JGE SHORT 社区卫生.0080FBA1
0080FB81   .  6A 48         PUSH 48
0080FB83   .  68 D0A94C00   PUSH 社区卫生.004CA9D0
0080FB88   .  8B55 08       MOV EDX,DWORD PTR SS:[EBP+8]
0080FB8B   .  52            PUSH EDX
0080FB8C   .  8B85 8CFEFFFF MOV EAX,DWORD PTR SS:[EBP-174]
0080FB92   .  50            PUSH EAX
0080FB93   .  FF15 AC104000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaHresultCheckObj>;  MSVBVM60.__vbaHresultCheckObj
0080FB99   .  8985 34FEFFFF MOV DWORD PTR SS:[EBP-1CC],EAX
0080FB9F   .  EB 0A         JMP SHORT 社区卫生.0080FBAB
0080FBA1   >  C785 34FEFFFF>MOV DWORD PTR SS:[EBP-1CC],0
0080FBAB   >  6A 00         PUSH 0
0080FBAD   .  8B4D AC       MOV ECX,DWORD PTR SS:[EBP-54]
0080FBB0   .  51            PUSH ECX
0080FBB1   .  8B55 B0       MOV EDX,DWORD PTR SS:[EBP-50]
0080FBB4   .  52            PUSH EDX
0080FBB5   .  E8 16B20E00   CALL 社区卫生.008FADD0
0080FBBA   .  8D45 AC       LEA EAX,DWORD PTR SS:[EBP-54]
0080FBBD   .  50            PUSH EAX
0080FBBE   .  8D4D B0       LEA ECX,DWORD PTR SS:[EBP-50]
0080FBC1   .  51            PUSH ECX
0080FBC2   .  6A 02         PUSH 2
0080FBC4   .  FF15 DC124000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaFreeStrList>]   ;  MSVBVM60.__vbaFreeStrList
0080FBCA   .  83C4 0C       ADD ESP,0C
0080FBCD   .  8D8D 7CFFFFFF LEA ECX,DWORD PTR SS:[EBP-84]
0080FBD3   .  FF15 AC134000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaFreeObj>]       ;  MSVBVM60.__vbaFreeObj
0080FBD9   >  FF15 D4104000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaExitProc>]      ;  MSVBVM60.__vbaExitProc
0080FBDF   .  9B            WAIT
0080FBE0   .  68 C0FC8000   PUSH 社区卫生.0080FCC0
0080FBE5   .  E9 96000000   JMP 社区卫生.0080FC80
0080FBEA   .  8D55 80       LEA EDX,DWORD PTR SS:[EBP-80]
0080FBED   .  52            PUSH EDX
0080FBEE   .  8D45 84       LEA EAX,DWORD PTR SS:[EBP-7C]
0080FBF1   .  50            PUSH EAX
0080FBF2   .  8D4D 88       LEA ECX,DWORD PTR SS:[EBP-78]
0080FBF5   .  51            PUSH ECX
0080FBF6   .  8D55 8C       LEA EDX,DWORD PTR SS:[EBP-74]
0080FBF9   .  52            PUSH EDX
0080FBFA   .  8D45 90       LEA EAX,DWORD PTR SS:[EBP-70]
0080FBFD   .  50            PUSH EAX
0080FBFE   .  8D4D 94       LEA ECX,DWORD PTR SS:[EBP-6C]
0080FC01   .  51            PUSH ECX
0080FC02   .  8D55 98       LEA EDX,DWORD PTR SS:[EBP-68]
0080FC05   .  52            PUSH EDX
0080FC06   .  8D45 9C       LEA EAX,DWORD PTR SS:[EBP-64]
0080FC09   .  50            PUSH EAX
0080FC0A   .  8D4D A0       LEA ECX,DWORD PTR SS:[EBP-60]
0080FC0D   .  51            PUSH ECX
0080FC0E   .  8D55 A4       LEA EDX,DWORD PTR SS:[EBP-5C]
0080FC11   .  52            PUSH EDX
0080FC12   .  8D45 A8       LEA EAX,DWORD PTR SS:[EBP-58]
0080FC15   .  50            PUSH EAX
0080FC16   .  8D4D AC       LEA ECX,DWORD PTR SS:[EBP-54]
0080FC19   .  51            PUSH ECX
0080FC1A   .  8D55 B0       LEA EDX,DWORD PTR SS:[EBP-50]
0080FC1D   .  52            PUSH EDX
0080FC1E   .  6A 0D         PUSH 0D
0080FC20   .  FF15 DC124000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaFreeStrList>]   ;  MSVBVM60.__vbaFreeStrList
0080FC26   .  83C4 38       ADD ESP,38
0080FC29   .  8D8D 7CFFFFFF LEA ECX,DWORD PTR SS:[EBP-84]
0080FC2F   .  FF15 AC134000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaFreeObj>]       ;  MSVBVM60.__vbaFreeObj
0080FC35   .  8D85 ECFEFFFF LEA EAX,DWORD PTR SS:[EBP-114]
0080FC3B   .  50            PUSH EAX
0080FC3C   .  8D8D FCFEFFFF LEA ECX,DWORD PTR SS:[EBP-104]
0080FC42   .  51            PUSH ECX
0080FC43   .  8D95 0CFFFFFF LEA EDX,DWORD PTR SS:[EBP-F4]
0080FC49   .  52            PUSH EDX
0080FC4A   .  8D85 1CFFFFFF LEA EAX,DWORD PTR SS:[EBP-E4]
0080FC50   .  50            PUSH EAX
0080FC51   .  8D8D 2CFFFFFF LEA ECX,DWORD PTR SS:[EBP-D4]
0080FC57   .  51            PUSH ECX
0080FC58   .  8D95 3CFFFFFF LEA EDX,DWORD PTR SS:[EBP-C4]
0080FC5E   .  52            PUSH EDX
0080FC5F   .  8D85 4CFFFFFF LEA EAX,DWORD PTR SS:[EBP-B4]
0080FC65   .  50            PUSH EAX
0080FC66   .  8D8D 5CFFFFFF LEA ECX,DWORD PTR SS:[EBP-A4]
0080FC6C   .  51            PUSH ECX
0080FC6D   .  8D95 6CFFFFFF LEA EDX,DWORD PTR SS:[EBP-94]
0080FC73   .  52            PUSH EDX
0080FC74   .  6A 09         PUSH 9
0080FC76   .  FF15 48104000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaFreeVarList>]   ;  MSVBVM60.__vbaFreeVarList
0080FC7C   .  83C4 28       ADD ESP,28
0080FC7F   .  C3            RETN
0080FC80   >  8D4D D8       LEA ECX,DWORD PTR SS:[EBP-28]
0080FC83   .  FF15 A8134000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaFreeStr>]       ;  MSVBVM60.__vbaFreeStr
0080FC89   .  8D4D D4       LEA ECX,DWORD PTR SS:[EBP-2C]
0080FC8C   .  FF15 A8134000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaFreeStr>]       ;  MSVBVM60.__vbaFreeStr
0080FC92   .  8D4D C4       LEA ECX,DWORD PTR SS:[EBP-3C]
0080FC95   .  FF15 2C104000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaFreeVar>]       ;  MSVBVM60.__vbaFreeVar
0080FC9B   .  8D4D C0       LEA ECX,DWORD PTR SS:[EBP-40]
0080FC9E   .  FF15 A8134000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaFreeStr>]       ;  MSVBVM60.__vbaFreeStr
0080FCA4   .  8D4D BC       LEA ECX,DWORD PTR SS:[EBP-44]
0080FCA7   .  FF15 A8134000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaFreeStr>]       ;  MSVBVM60.__vbaFreeStr
0080FCAD   .  8D4D B8       LEA ECX,DWORD PTR SS:[EBP-48]
0080FCB0   .  FF15 A8134000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaFreeStr>]       ;  MSVBVM60.__vbaFreeStr
0080FCB6   .  8D4D B4       LEA ECX,DWORD PTR SS:[EBP-4C]
0080FCB9   .  FF15 A8134000 CALL DWORD PTR DS:[<&MSVBVM60.__vbaFreeStr>]       ;  MSVBVM60.__vbaFreeStr
0080FCBF   .  C3            RETN
0080FCC0   .  33C0          XOR EAX,EAX
0080FCC2   .  8B4D E0       MOV ECX,DWORD PTR SS:[EBP-20]
0080FCC5   .  64:890D 00000>MOV DWORD PTR FS:[0],ECX
0080FCCC   .  5F            POP EDI
0080FCCD   .  5E            POP ESI
0080FCCE   .  5B            POP EBX
0080FCCF   .  8BE5          MOV ESP,EBP
0080FCD1   .  5D            POP EBP
0080FCD2   .  C2 0400       RETN 4
---------------------------------------------------------
医院名称：HBQJXHW[PYG]
机器码：　56845857488
B H J H Y
42484A4859
42--->66-6=60
48--->72+83=155
4A--->74-20=54
48--->72-20=52
59--->89-8=81
SN1=60155545281
845857488*5*5=21146437200
SN2=2221146437200
SN=6015552221146437200545281
注册码为:60155522211464372005452818
     

医院名称：123456789
机器码：　56845857488
2 1 4 4 7
3231343437
32-6=2c----->44
31+53=84---->132
34-14=20---->32
34-14=20---->32
37-8=2f----->47
SN1=44132323247
SN2=2221146437200
SN=4413232221146437200323247
注册码为:44132322211464372003232478

------------------------------------------------------------------------
【版权声明】本文纯属技术交流, 转载请注明作者并保持文章的完整, 谢谢!


                                                                                 文章写于2006-03-14

yunfeng

我第一个来支持一下,将沙发坐了.

noTme

这么长哈！！
粗略看懂。哎---
我坐不住了咯

jhuaou

怎么提示 社区卫生服务管理系统2006注册机有logger.delf.病毒？