uses
Classes {
T:TComponent, A:.TComponent, A:TComponent.DefineProperties,
A:TComponent.Loaded, A:TComponent.Notification, A:TComponent.ReadState,
A:TComponent.SetName, A:TComponent.UpdateRegistry,
A:TComponent.ValidateRename, A:TComponent.WriteState,
A:TComponent.QueryInterface, A:TComponent.Destroy,
A:TComponent.BeforeDestruction, A:TComponent.SafeCallException,
A:TPersistent.AssignTo, A:TPersistent.Assign, A:TComponent.Create},
SysInit,
System {
T:AnsiString, A:TObject.AfterConstruction, A:TObject.Dispatch,
A:TObject.DefaultHandler, A:TObject.NewInstance,
A:TObject.FreeInstance, T:String, A:@ClassCreate, A:@LStrAsg,
A:@AfterConstruction, A:@LStrCatN, A:@HandleFinally};
type
TIMBase=class (Classes.TComponent)
private
FLicenseServer: System.AnsiString;
protected
FLicensePassword: System.AnsiString;
FLicenseUser: System.AnsiString;
function FmtLicenseServer (Self: TIMBase): System.AnsiString;
public
constructor Create (Self: TIMBase; _Dv_: false..true;
AOwner: Classes.TComponent); override{; virtual};
end;
procedure Finalization;
procedure BSIMBase;
implementation
var
_DV_2: -$80000000..$7FFFFFFF;
constructor TIMBase.Create (Self: TIMBase; _Dv_: false..true;
AOwner: Classes.TComponent);
begin
00000000 : // -- Line #46 --
00000000 : 55 PUSH EBP
00000001 : 8B EC MOV EBP,ESP
00000003 : 83 C4 F4 ADD ESP,-12
00000006 : 84 D2 TEST DL,DL
00000008 : 74 08 JE +8; (0x12)
0000000A : 83 C4 F0 ADD ESP,-16
0000000D : E8(00 00 00 00 CALL @ClassCreate{0x1D}
00000012 : 89 4D F4 MOV DWORD PTR [EBP-12{AOwner}],ECX
00000015 : 88 55 FB MOV BYTE PTR [EBP-5{_Dv_}],DL
00000018 : 89 45 FC MOV DWORD PTR [EBP-4{Self}],EAX
00000000 : // -- Line #47 --
0000001B : 8B 4D F4 MOV ECX,DWORD PTR [EBP-12{AOwner}]
0000001E : 33 D2 XOR EDX,EDX
00000020 : 8B 45 FC MOV EAX,DWORD PTR [EBP-4{Self}]
00000023 : E8(00 00 00 00 CALL TComponent.Create{0x13}
00000000 : // -- Line #49 --
00000028 : 8B 45 FC MOV EAX,DWORD PTR [EBP-4{Self}]
0000002B : 83 C0 30 ADD EAX,48
0000002E : BA(60 00 00 00 MOV EDX,TIMBase.Create{0x27}+96 //远程验证服务器网址
00000033 : E8(00 00 00 00 CALL @LStrAsg{0x1E}
00000038 : 8B 45 FC MOV EAX,DWORD PTR [EBP-4{Self}]
0000003B : 80 7D FB 00 CMP BYTE PTR [EBP-5{_Dv_}],$00
0000003F : 74 0F JE +15; (0x50)
00000041 : E8(00 00 00 00 CALL @AfterConstruction{0x1F}
00000046 : 64 8F 05 00 00 00 00 POP DWORD PTR FS:[$00000000]
0000004D : 83 C4 0C ADD ESP,12
00000050 : 8B 45 FC MOV EAX,DWORD PTR [EBP-4{Self}]
00000000 : // -- Line #50 --
00000053 : 8B E5 MOV ESP,EBP
00000055 : 5D POP EBP
00000056 : C3 RET NEAR
00000057 : 00 FF ADD BH,BH
00000059 : FF FF ? EDI
0000005B : FF 14 00 CALL DWORD PTR [EAX+EAX],NEAR
0000005E : 00 00 ADD BYTE PTR [EAX],AL
00000060 : 77 77 JA +119; (0xD9)
00000062 : 77 2E JA +46; (0x92)
00000064 : 6D INSW
00000065 : 79 69 JNS +105; (0xD0)
00000067 : 6D INSW
00000068 : 73 65 JNB +101; (0xCF)
0000006A : 72 76 JB +118; (0xE2)
0000006C : 69 63 65 73 2E 63 6F IMUL DWORD PTR [EBX+101],$6F632E73
00000073 : 6D INSW
00000074 : 00 00 ADD BYTE PTR [EAX],AL
00000076 : 00 00 ADD BYTE PTR [EAX],AL
end;
function TIMBase.FmtLicenseServer (Self: TIMBase): System.AnsiString;
var
result Result: System.AnsiString;
begin
00000000 : // -- Line #53 --
00000000 : 55 PUSH EBP
00000001 : 8B EC MOV EBP,ESP
00000003 : 83 C4 F8 ADD ESP,-8
00000006 : 89 55 F8 MOV DWORD PTR [EBP-8{Result}],EDX
00000009 : 89 45 FC MOV DWORD PTR [EBP-4{Self}],EAX
00000000 : // -- Line #54 --
0000000C : 68(38 00 00 00 PUSH TIMBase.FmtLicenseServer{0x2B}+56
00000011 : 8B 45 FC MOV EAX,DWORD PTR [EBP-4{Self}]
00000014 : FF 70 30 PUSH DWORD PTR [EAX+48]
00000017 : 68(4C 00 00 00 PUSH TIMBase.FmtLicenseServer{0x2B}+76
0000001C : 8B 45 F8 MOV EAX,DWORD PTR [EBP-8{Result}]
0000001F : BA 03 00 00 00 MOV EDX,$00000003
00000024 : E8(00 00 00 00 CALL @LStrCatN{0x20}
00000000 : // -- Line #55 --
00000029 : 59 POP ECX
0000002A : 59 POP ECX
0000002B : 5D POP EBP
0000002C : C3 RET NEAR
0000002D : 00 00 ADD BYTE PTR [EAX],AL
0000002F : 00 FF ADD BH,BH
00000031 : FF FF ? EDI
00000033 : FF 08 DEC DWORD PTR [EAX]
00000035 : 00 00 ADD BYTE PTR [EAX],AL
00000037 : 00 68 74 ADD BYTE PTR [EAX+116],CH
0000003A : 74 70 JE +112; (0xAC)
0000003C : 73 3A JNB +58; (0x78)
0000003E : 2F DAS
0000003F : 2F DAS
00000040 : 00 00 ADD BYTE PTR [EAX],AL
00000042 : 00 00 ADD BYTE PTR [EAX],AL
00000044 : FF FF ? EDI
00000046 : FF FF ? EDI
00000048 : 0C 00 OR AL,$00
0000004A : 00 00 ADD BYTE PTR [EAX],AL
0000004C : 2F DAS
0000004D : 69 6D 73 65 72 76 69 IMUL DWORD PTR [EBP+115],$69767265
00000054 : 63 ARPL
00000055 : 65 32 2F XOR CH,BYTE PTR GS:[EDI]
00000058 : 00 00 ADD BYTE PTR [EAX],AL
0000005A : 00 00 ADD BYTE PTR [EAX],AL
end;
procedure Finalization;
begin
00000000 : // -- Line #55 -- <<51
00000000 : 55 PUSH EBP
00000001 : 8B EC MOV EBP,ESP
00000003 : 33 C0 XOR EAX,EAX
00000005 : 55 PUSH EBP
00000006 : 68(25 00 00 00 PUSH Finalization{0x2E}+37
0000000B : 64 FF 30 PUSH DWORD PTR FS:[EAX]
0000000E : 64 89 20 MOV DWORD PTR FS:[EAX],ESP
00000011 : FF 05(00 00 00 00 INC DWORD PTR [_DV_2{0x26}]
00000017 : 33 C0 XOR EAX,EAX
00000019 : 5A POP EDX
0000001A : 59 POP ECX
0000001B : 59 POP ECX
0000001C : 64 89 10 MOV DWORD PTR FS:[EAX],EDX
0000001F : 68(2C 00 00 00 PUSH Finalization{0x2E}+44
00000024 : C3 RET NEAR
00000025 : E9(00 00 00 00 JMP @HandleFinally{0x21}
0000002A : EB F8 JMP -8; (0x24)
0000002C : 5D POP EBP
0000002D : C3 RET NEAR
end;
procedure BSIMBase;
begin
00000000 : // -- Line #70 --
00000000 : 83 2D(00 00 00 00 01 SUB DWORD PTR [_DV_2{0x26}],1
00000000 : // -- Line #70 --
00000007 : C3( RET NEAR
end;
end.
